comparison lisp/subr.el @ 28730:f97e04a68f9f

(add-minor-mode): Use `set' instead of `setq'.

28729:466ad2113a59

SYMBOL is the name of a buffer-local variable that is toggled on
or off to say whether the minor mode is active or not.  NAME is the
string that will appear in the mode line when the minor mode is
active.  Optional MAP is the keymap for the minor mode."
  (make-local-variable symbol)
  (setq symbol t)
  (unless (assq symbol minor-mode-alist)
    (add-to-list 'minor-mode-alist (list symbol name)))
  (when (and map (not (assq symbol minor-mode-map-alist)))
    (add-to-list 'minor-mode-map-alist (cons symbol map))))

28730:f97e04a68f9f

SYMBOL is the name of a buffer-local variable that is toggled on
or off to say whether the minor mode is active or not.  NAME is the
string that will appear in the mode line when the minor mode is
active.  Optional MAP is the keymap for the minor mode."
  (make-local-variable symbol)
  (set symbol t)
  (unless (assq symbol minor-mode-alist)
    (add-to-list 'minor-mode-alist (list symbol name)))
  (when (and map (not (assq symbol minor-mode-map-alist)))
    (add-to-list 'minor-mode-map-alist (cons symbol map))))