mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 22:40:51 -08:00
Code Issues Projects Releases Wiki Activity

Support diminishing to a replacement string as well as to nothing

Browse source 
`diminish' accepts an optional second argument, a replacement string. This change supports all the following arguments to ':diminish':

* package
* (package . "pkg")
* (package1 package2)
* ((package1 . "p1") (package2 . "p2))

The second and fourth formats are new with this change.
This commit is contained in:
Phil Hudson 2012-11-21 00:46:17 +00:00
parent 8b93cee99b
commit fbead83731
1 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -193,7 +193,7 @@
;; if you have that installed. It's purpose is to remove strings from your
;; mode-line that would otherwise always be there and provide no useful
;; information. It is invoked with the `:diminish' keyword, which is passed
;; the minor mode symbol:
;; either the minor mode symbol, or a cons of the symbol and a replacement string:
;;
;; (use-package abbrev
;; :diminish abbrev-mode
@ -348,8 +348,14 @@
,config-body
(ignore-errors
,@(if (listp diminish-var)
(mapcar (lambda (var) `(diminish (quote ,var)))
diminish-var)
(if (listp (cdr diminish-var))
(mapcar (lambda (var)
(if (listp var)
`(diminish (quote ,(car var)) ,(cdr var))
`(diminish (quote ,var))))
diminish-var)
`((diminish (quote ,(car diminish-var)) ,(cdr diminish-var)))
)
`((diminish (quote ,diminish-var))))))))
(if (and commands (symbolp commands))