needed extra layer of nesting for diminish calls

This commit is contained in:
Noam Postavsky 2013-04-16 11:29:32 -04:00
parent 2abe5f9480
commit 0df0e18c4b

View file

@ -457,12 +457,12 @@ For full documentation. please see commentary.
(ignore-errors
,@(cond
((stringp diminish-var)
`(diminish (quote ,(intern (concat name-string "-mode")))
,diminish-var))
`((diminish (quote ,(intern (concat name-string "-mode")))
,diminish-var)))
((symbolp diminish-var)
`(diminish (quote ,diminish-var)))
`((diminish (quote ,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
(mapcar (lambda (var)
(if (listp var)