diff options
| author | Andreas Schwab <schwab@linux-m68k.org> | 2012-08-07 23:52:54 +0200 |
|---|---|---|
| committer | Andreas Schwab <schwab@linux-m68k.org> | 2012-08-07 23:52:54 +0200 |
| commit | 6125983ea69b948a3419cec4526f9ea9ef4268b8 (patch) | |
| tree | 1a653c201225b302cd1ab15217a3bc170c8e0a7e /lisp/emacs-lisp/lisp-mode.el | |
| parent | 9b21910420279946e8842f886a177826d4b50b40 (diff) | |
| download | emacs-6125983ea69b948a3419cec4526f9ea9ef4268b8.tar.gz | |
* emacs-lisp/lisp-mode.el (eval-defun-1): Handle standard value of
a defcustom that is quoted with backquote.
Diffstat (limited to 'lisp/emacs-lisp/lisp-mode.el')
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index 7e9dd9e6cfe..99677551a47 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -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) |