try advising make-obsolete. did not work

This commit is contained in:
Miranda Marquez 2024-07-18 12:23:11 -08:00
parent 2540108cce
commit 5318c3ce3b

View File

@ -20,6 +20,18 @@
;; (run-with-idle-timer 5 t #'garbage-collect)
;(setq garbage-collection-messages t)
;; doesn't quite work
(defun mir/dont-make-obsolete (orig &rest args)
"only run ORIG when its not linum."
;; (message "obsoleting: %s" args)
(if (or (member 'global-linum-mode args)
(member 'linum-mode args))
(message "linum is deprecated but i dont care")
;; (let ((inhibit-message t))
;; (apply orig args))
(apply orig args)))
(advice-add #'make-obsolete :around #'mir/dont-make-obsolete)
(defun display-startup-echo-area-message ()
"A re-definition of the function.
Tell the Emacs startup time and number of garbage-collections