try advising make-obsolete. did not work
This commit is contained in:
parent
2540108cce
commit
5318c3ce3b
@ -20,6 +20,18 @@
|
|||||||
;; (run-with-idle-timer 5 t #'garbage-collect)
|
;; (run-with-idle-timer 5 t #'garbage-collect)
|
||||||
;(setq garbage-collection-messages t)
|
;(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 ()
|
(defun display-startup-echo-area-message ()
|
||||||
"A re-definition of the function.
|
"A re-definition of the function.
|
||||||
Tell the Emacs startup time and number of garbage-collections
|
Tell the Emacs startup time and number of garbage-collections
|
||||||
|
Loading…
Reference in New Issue
Block a user