1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-08 07:20:28 -08:00
Actually the reader accepts (list 'a'b) = (list 'a 'b); it still looks
wrong.
This commit is contained in:
Noam Postavsky 2014-04-13 23:59:36 -04:00
parent efe2419a22
commit 053a1514a1

View file

@ -186,7 +186,7 @@ function symbol (unquoted)."
`(progn `(progn
,@(when prefix-map ,@(when prefix-map
`((defvar ,prefix-map) `((defvar ,prefix-map)
,@(when doc `((put ',prefix-map'variable-documentation ,doc))) ,@(when doc `((put ',prefix-map 'variable-documentation ,doc)))
(define-prefix-command ',prefix-map) (define-prefix-command ',prefix-map)
(bind-key ,prefix ',prefix-map ,@(when map (list map))))) (bind-key ,prefix ',prefix-map ,@(when map (list map)))))
,@(mapcar (lambda (form) `(bind-key ,(if prefix ,@(mapcar (lambda (form) `(bind-key ,(if prefix