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

Minor fixes in global-auto-composition-mode

Browse source 
* lisp/emacs-lisp/easy-mmode.el (easy-mmode-pretty-mode-name):
Produce prettier names of globalized minor modes.
* lisp/composite.el (global-auto-composition-mode): Make it a
globalized mode.  (Bug#22682)
This commit is contained in:
Eli Zaretskii 2016-02-15 21:46:17 +02:00
parent 02b037b85c
commit d4b93e11a5
2 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lisp/composite.el
View file

@ -838,6 +838,7 @@ omitted or nil.
For more information on Auto Composition mode, see For more information on Auto Composition mode, see
`auto-composition-mode' ." `auto-composition-mode' ."
:global t
:variable (default-value 'auto-composition-mode)) :variable (default-value 'auto-composition-mode))
(defalias 'toggle-auto-composition 'auto-composition-mode) (defalias 'toggle-auto-composition 'auto-composition-mode)

1
lisp/emacs-lisp/easy-mmode.el
View file

@ -68,6 +68,7 @@ replacing its case-insensitive matches with the literal string in LIGHTER."
"toggle-\\|-mode\\'" "" "toggle-\\|-mode\\'" ""
(symbol-name mode)))) (symbol-name mode))))
" mode"))) " mode")))
(setq name (replace-regexp-in-string "\\`Global-" "Global " name))
(if (not (stringp lighter)) name (if (not (stringp lighter)) name
;; Strip leading and trailing whitespace from LIGHTER. ;; Strip leading and trailing whitespace from LIGHTER.
(setq lighter (replace-regexp-in-string "\\`\\s-+\\|\\s-+\\'" "" (setq lighter (replace-regexp-in-string "\\`\\s-+\\|\\s-+\\'" ""