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

* lisp/emacs-lisp/cl.el (cl-map-keymap-recursively, cl-map-intervals)

Browse source 
(cl-map-extents): Add compatibility aliases.

Fixes: debbugs:12135
This commit is contained in:
Stefan Monnier 2012-08-08 14:56:01 -04:00
parent da3d210583
commit 4250fdf5b3
3 changed files with 29 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -776,9 +776,12 @@ 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)
;; The value may be quoted with quote or backquote.
(eval (eval (nth 2 form) lexical-binding)
lexical-binding))
;; The second arg is an expression that evaluates to
;; an expression. The second evaluation is the one
;; normally performed not be normal execution but by
;; custom-initialize-set (for example), which does not
;; use lexical-binding.
(eval (eval (nth 2 form) lexical-binding)))
form)
;; `defface' is macroexpanded to `custom-declare-face'.
((eq (car form) 'custom-declare-face)