From 7de135d06fcc24d3ee946947251a8b969fb3fee0 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 11 Jun 2013 14:00:27 -0400 Subject: lisp-mode font-lock fox for bug#14574 * lisp/emacs-lisp/lisp-mode.el (lisp-mode-variables): Prettify after setting font-lock-defaults. --- lisp/emacs-lisp/lisp-mode.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index 4267b9f45b9..cbd8854e7d6 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -223,7 +223,6 @@ font-lock keywords will not be case sensitive." (setq-local imenu-generic-expression lisp-imenu-generic-expression) (setq-local multibyte-syntax-as-symbol t) (setq-local syntax-begin-function 'beginning-of-defun) - (prog-prettify-install lisp--prettify-symbols-alist) (setq font-lock-defaults `((lisp-font-lock-keywords lisp-font-lock-keywords-1 @@ -231,7 +230,8 @@ font-lock keywords will not be case sensitive." nil ,keywords-case-insensitive nil nil (font-lock-mark-block-function . mark-defun) (font-lock-syntactic-face-function - . lisp-font-lock-syntactic-face-function)))) + . lisp-font-lock-syntactic-face-function))) + (prog-prettify-install lisp--prettify-symbols-alist)) (defun lisp-outline-level () "Lisp mode `outline-level' function." -- cgit v1.2.3