all repos — nixfiles @ b1a405303f7f8783b411c45ceef23eaadf7541ed

System and user configuration, managed by nix and home-manager

Emacs: refactor rename-modeline
Alan Pearce alan@alanpearce.co.uk
Mon, 14 Jul 2014 20:45:39 +0100
commit

b1a405303f7f8783b411c45ceef23eaadf7541ed

parent

8fd7aee3073cd8baa50767a9c948d47d539b5c71

1 files changed, 4 insertions(+), 5 deletions(-)

jump to
M tag-emacs/emacs.d/init.eltag-emacs/emacs.d/init.el
@@ -12,10 +12,9 @@ (load custom-file :noerror)
 
 ;;;; Helper Macros
-(defmacro rename-modeline (package-name mode new-name)
-  `(eval-after-load ,package-name
-     '(defadvice ,mode (after rename-modeline activate)
-        (setq mode-name ,new-name))))
+(defmacro rename-modeline (mode new-name)
+  `(defadvice ,mode (after rename-modeline activate)
+     (setq mode-name ,new-name)))
 
 ;;; Allow lisps to use a common setup. I don't know why they don't have some lispy mode as their parent, but this is close enough
 (defcustom lisp-common-mode-hook nil
@@ -973,7 +972,7 @@ (defun set-common-lisp-indentation ()     (set (make-local-variable 'lisp-indent-function)
          #'common-lisp-indent-function))
 
-(rename-modeline "lisp-mode" emacs-lisp-mode "ξ")
+(rename-modeline emacs-lisp-mode "ξ")
 (add-hook 'emacs-lisp-mode-hook #'ap/lisp-setup)
 (add-hook 'emacs-lisp-mode-hook #'turn-on-eldoc-mode)