procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* emacs-lisp/lisp-mode.el (eval-defun-1): Handle standard value of

Browse source 
a defcustom that is quoted with backquote.
This commit is contained in:
Andreas Schwab 2012-08-07 23:52:54 +02:00
parent 9b21910420
commit 6125983ea6
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/lisp-mode.el
View file

@ -776,7 +776,9 @@ Reinitialize the face according to the `defface' specification."
(default-boundp (eval (nth 1 form) lexical-binding)))
;; Force variable to be bound.
(set-default (eval (nth 1 form) lexical-binding)
(eval (nth 1 (nth 2 form)) lexical-binding))
;; The value may be quoted with quote or backquote.
(eval (eval (nth 2 form) lexical-binding)
lexical-binding))
form)
;; `defface' is macroexpanded to `custom-declare-face'.
((eq (car form) 'custom-declare-face)