mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-12 09:28:24 +00:00
* emacs-lisp/lisp-mode.el (eval-defun-1): Handle standard value of
a defcustom that is quoted with backquote.
This commit is contained in:
parent
9b21910420
commit
6125983ea6
@ -1,5 +1,8 @@
|
|||||||
2012-08-07 Andreas Schwab <schwab@linux-m68k.org>
|
2012-08-07 Andreas Schwab <schwab@linux-m68k.org>
|
||||||
|
|
||||||
|
* emacs-lisp/lisp-mode.el (eval-defun-1): Handle standard value of
|
||||||
|
a defcustom that is quoted with backquote.
|
||||||
|
|
||||||
* calc/calc-prog.el (math-do-defmath): Use backquote forms. Fix
|
* calc/calc-prog.el (math-do-defmath): Use backquote forms. Fix
|
||||||
handling of interactive spec when the body uses return.
|
handling of interactive spec when the body uses return.
|
||||||
(math-do-arg-check, math-define-function-body): Use backquote forms.
|
(math-do-arg-check, math-define-function-body): Use backquote forms.
|
||||||
|
@ -776,7 +776,9 @@ Reinitialize the face according to the `defface' specification."
|
|||||||
(default-boundp (eval (nth 1 form) lexical-binding)))
|
(default-boundp (eval (nth 1 form) lexical-binding)))
|
||||||
;; Force variable to be bound.
|
;; Force variable to be bound.
|
||||||
(set-default (eval (nth 1 form) lexical-binding)
|
(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)
|
form)
|
||||||
;; `defface' is macroexpanded to `custom-declare-face'.
|
;; `defface' is macroexpanded to `custom-declare-face'.
|
||||||
((eq (car form) 'custom-declare-face)
|
((eq (car form) 'custom-declare-face)
|
||||||
|
Loading…
Reference in New Issue
Block a user