Mercurial > emacs

diff lisp/subr.el @ 108243:be3f6d650654

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Minor cleanups. * org-table.el (orgtbl-setup): * org-agenda.el (org-agenda-entry-text-mode): Simplify. * subr.el (add-minor-mode): Use push. * mail/supercite.el (sc-electric-mode): Use more descriptive arg name. * emulation/edt.el (edt-select-mode): Simplify.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 05 May 2010 00:27:16 -0400
parents 452f0cc5f879
children cd5442b2826b
line wrap: on
line diff
--- a/lisp/subr.el	Tue May 04 23:45:21 2010 -0400
+++ b/lisp/subr.el	Wed May 05 00:27:16 2010 -0400
@@ -1477,8 +1477,7 @@
 	      (let ((rest (cdr found)))
 		(setcdr found nil)
 		(nconc found (list (list toggle name)) rest))
-	    (setq minor-mode-alist (cons (list toggle name)
-					 minor-mode-alist)))))))
+	    (push (list toggle name) minor-mode-alist))))))
   ;; Add the toggle to the minor-modes menu if requested.
   (when (get toggle :included)
     (define-key mode-line-mode-menu
@@ -1507,8 +1506,7 @@
 	      (let ((rest (cdr found)))
 		(setcdr found nil)
 		(nconc found (list (cons toggle keymap)) rest))
-	    (setq minor-mode-map-alist (cons (cons toggle keymap)
-					     minor-mode-map-alist))))))))
+	    (push (cons toggle keymap) minor-mode-map-alist)))))))
 
 ;;; Load history