1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-11 02:10:35 -08:00

(add-minor-mode): Use the new :minor-mode-function property.

This commit is contained in:
Stefan Monnier 2005-03-16 13:12:47 +00:00
parent c75505b4b7
commit b3e484d7c4
2 changed files with 11 additions and 2 deletions

View file

@ -1,3 +1,10 @@
2005-03-16 Stefan Monnier <monnier@iro.umontreal.ca>
* help.el (describe-mode): Allow a :minor-mode-function property to
specify a different minor mode toggle function than the variable.
* simple.el (auto-fill-function):
* subr.el (add-minor-mode): Use it.
2005-03-16 Kenichi Handa <handa@m17n.org>
* language/ethio-util.el (sera-being-called-by-w3): New variable.
@ -32,7 +39,7 @@
* isearch.el (isearch-error): New variable.
(isearch-invalid-regexp, isearch-within-brackets): Remove.
(isearch-error-state): Renamed from `isearch-invalid-regexp-state'.
(isearch-error-state): Rename from `isearch-invalid-regexp-state'.
(isearch-within-brackets-state): Remove.
(isearch-case-fold-search-state, isearch-pop-fun-state):
Decrease frame index.
@ -73,7 +80,7 @@
* international/mule-cmds.el (locale-language-names): Modify the
format of elements and add more entries.
(locale-preferred-coding-systems): Add more entries.
(set-locale-environment): Adjusted for the change of
(set-locale-environment): Adjust for the change of
locale-language-names.
2005-03-14 Stefan Monnier <monnier@iro.umontreal.ca>

View file

@ -2457,6 +2457,8 @@ If TOGGLE has a `:menu-tag', that is used for the menu item's label."
(push toggle minor-mode-list))
(unless toggle-fun (setq toggle-fun toggle))
(unless (eq toggle-fun toggle)
(put toggle :minor-mode-function toggle-fun))
;; Add the name to the minor-mode-alist.
(when name
(let ((existing (assq toggle minor-mode-alist)))