Mercurial > emacs

comparison lisp/msb.el @ 61274:38d05b1ac290

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(msb-mode): Specify :group.
author Lute Kamstra <lute@gnu.org>
date Mon, 04 Apr 2005 09:03:43 +0000
parents c2b32641aa8c
children ebf4306a600f 02f1dbc4a199
comparison
equal deleted inserted replaced
61273:1e74e0c38af6 61274:38d05b1ac290
1 ;;; msb.el --- customizable buffer-selection with multiple menus 1 ;;; msb.el --- customizable buffer-selection with multiple menus
2 2
3 ;; Copyright (C) 1993, 94, 95, 97, 98, 99, 2000, 2001, 2003 3 ;; Copyright (C) 1993, 1994, 1995, 1997, 1998, 1999, 2000, 2001, 2003,
4 ;; Free Software Foundation, Inc. 4 ;; 2005 Free Software Foundation, Inc.
5 5
6 ;; Author: Lars Lindberg <lars.lindberg@home.se> 6 ;; Author: Lars Lindberg <lars.lindberg@home.se>
7 ;; Maintainer: FSF 7 ;; Maintainer: FSF
8 ;; Created: 8 Oct 1993 8 ;; Created: 8 Oct 1993
9 ;; Lindberg's last update version: 3.34 9 ;; Lindberg's last update version: 3.34
1139 (define-minor-mode msb-mode 1139 (define-minor-mode msb-mode
1140 "Toggle Msb mode. 1140 "Toggle Msb mode.
1141 With arg, turn Msb mode on if and only if arg is positive. 1141 With arg, turn Msb mode on if and only if arg is positive.
1142 This mode overrides the binding(s) of `mouse-buffer-menu' to provide a 1142 This mode overrides the binding(s) of `mouse-buffer-menu' to provide a
1143 different buffer menu using the function `msb'." 1143 different buffer menu using the function `msb'."
1144 :global t 1144 :global t :group 'msb
1145 (if msb-mode 1145 (if msb-mode
1146 (progn 1146 (progn
1147 (add-hook 'menu-bar-update-hook 'msb-menu-bar-update-buffers) 1147 (add-hook 'menu-bar-update-hook 'msb-menu-bar-update-buffers)
1148 (remove-hook 'menu-bar-update-hook 'menu-bar-update-buffers) 1148 (remove-hook 'menu-bar-update-hook 'menu-bar-update-buffers)
1149 (msb-menu-bar-update-buffers t)) 1149 (msb-menu-bar-update-buffers t))