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

Allow :bind ("C-c C-c" . (lambda () (ding))) and #'(lambda ...)

Browse source 
Fixes https://github.com/jwiegley/use-package/issues/333
Fixes https://github.com/jwiegley/use-package/issues/461
This commit is contained in:
John Wiegley 2017-11-29 14:41:12 -08:00
parent f256943f9b
commit bff472ea80
3 changed files with 193 additions and 127 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/use-package/bind-key.el
View file

@ -267,10 +267,10 @@ function symbol (unquoted)."
(cl-mapcan
(lambda (form)
(if prefix-map
`((bind-key ,(car form) ',(cdr form) ,prefix-map ,filter))
`((bind-key ,(car form) #',(cdr form) ,prefix-map ,filter))
(if (and map (not (eq map 'global-map)))
`((bind-key ,(car form) ',(cdr form) ,map ,filter))
`((bind-key ,(car form) ',(cdr form) nil ,filter)))))
`((bind-key ,(car form) #',(cdr form) ,map ,filter))
`((bind-key ,(car form) #',(cdr form) nil ,filter)))))
first))
(when next
(bind-keys-form
@ -305,7 +305,7 @@ function symbol (unquoted)."
(cond
((listp elem)
(cond
((eq 'lambda (car elem))
((memq (car elem) '(lambda function))
(if (and bind-key-describe-special-forms
(stringp (nth 2 elem)))
(nth 2 elem)