Sort minor mode menu
The minor mode menu is chaotic. The following patch sorts the menu
alphabetically.
1998-05-01 SL Baur <steve(a)altair.xemacs.org>
* modeline.el (modeline-minor-mode-menu): Alphabetize the minor
mode menu.
Index: lisp/modeline.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/modeline.el,v
retrieving revision 1.13
diff -u -r1.13 modeline.el
--- lisp/modeline.el 1998/05/01 01:10:51 1.13
+++ lisp/modeline.el 1998/05/01 22:07:26
＠＠ -419,7 +419,8 ＠＠
(popup-menu-and-execute-in-window
(cons
"Minor Mode Toggles"
- (delq nil (mapcar
+ (sort
+ (delq nil (mapcar
#'(lambda (x)
(let* ((toggle-sym (car x))
(toggle-fun (or (get toggle-sym
＠＠ -446,7 +447,9 ＠＠
:style 'toggle
:selected (and (boundp toggle-sym)
toggle-sym)))))
- minor-mode-alist)))
+ minor-mode-alist))
+ (lambda (e1 e2)
+ (string< (aref e1 0) (aref e2 0)))))
event)))
(defvar modeline-minor-mode-map (make-sparse-keymap 'modeline-minor-mode-map)