masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-06 20:29:36 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

needed extra layer of nesting for diminish calls

Browse source
This commit is contained in:
Noam Postavsky 2013-04-16 11:29:32 -04:00
parent 2abe5f9480
commit 0df0e18c4b
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -457,12 +457,12 @@ For full documentation. please see commentary.
(ignore-errors (ignore-errors
,@(cond ,@(cond
((stringp diminish-var) ((stringp diminish-var)
`(diminish (quote ,(intern (concat name-string "-mode"))) `((diminish (quote ,(intern (concat name-string "-mode")))
,diminish-var)) ,diminish-var)))
((symbolp diminish-var) ((symbolp diminish-var)
`(diminish (quote ,diminish-var))) `((diminish (quote ,diminish-var))))
((and (consp diminish-var) (stringp (cdr diminish-var))) ((and (consp diminish-var) (stringp (cdr diminish-var)))
`(diminish (quote ,(car diminish-var)) ,(cdr diminish-var))) `((diminish (quote ,(car diminish-var)) ,(cdr diminish-var))))
(t ; list of symbols or (symbol . "string") pairs (t ; list of symbols or (symbol . "string") pairs
(mapcar (lambda (var) (mapcar (lambda (var)
(if (listp var) (if (listp var)