/[emacs]/emacs/lisp/subr.el
ViewVC logotype

Diff of /emacs/lisp/subr.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.348 by viniciusjl, Sat Apr 5 02:13:44 2003 UTC revision 1.349 by rms, Wed Apr 9 01:36:28 2003 UTC
# Line 2094  If SUFFIX is non-nil, add that at the en Line 2094  If SUFFIX is non-nil, add that at the en
2094        (set-default-file-modes umask))))        (set-default-file-modes umask))))
2095    
2096    
2097    ;; If a minor mode is not defined with define-minor-mode,
2098    ;; add it here explicitly.
2099    ;; isearch-mode is deliberately excluded, since you should
2100    ;; not call it yourself.
2101    (defvar minor-mode-list '(auto-save-mode auto-fill-mode abbrev-mode
2102                                             overwrite-mode view-mode)
2103      "List of all minor mode functions.")
2104    
2105  (defun add-minor-mode (toggle name &optional keymap after toggle-fun)  (defun add-minor-mode (toggle name &optional keymap after toggle-fun)
2106    "Register a new minor mode.    "Register a new minor mode.
2107    
# Line 2118  It defaults to (and should by convention Line 2126  It defaults to (and should by convention
2126  If TOGGLE has a non-nil `:included' property, an entry for the mode is  If TOGGLE has a non-nil `:included' property, an entry for the mode is
2127  included in the mode-line minor mode menu.  included in the mode-line minor mode menu.
2128  If TOGGLE has a `:menu-tag', that is used for the menu item's label."  If TOGGLE has a `:menu-tag', that is used for the menu item's label."
2129      (unless (memq toggle minor-mode-list)
2130        (push toggle minor-mode-list))
2131        
2132    (unless toggle-fun (setq toggle-fun toggle))    (unless toggle-fun (setq toggle-fun toggle))
2133    ;; Add the name to the minor-mode-alist.    ;; Add the name to the minor-mode-alist.
2134    (when name    (when name

Legend:
Removed from v.1.348  
changed lines
  Added in v.1.349

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26