mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Minor cleanups.

Browse source 
* 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.
This commit is contained in:
Stefan Monnier 2010-05-05 00:27:16 -04:00
parent 80ac5d4d34
commit 365f8d856c
8 changed files with 47 additions and 43 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/subr.el
View file

@ -1477,8 +1477,7 @@ If TOGGLE has a `:menu-tag', that is used for the menu item's label."
(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 @@ If TOGGLE has a `:menu-tag', that is used for the menu item's label."
(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