Mercurial > hg > xemacs-beta

comparison lisp/menubar-items.el @ 792:4e83fdb13eb9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-03-23 05:08:47 by youngs] 2002-03-20 John Paul Wallington <jpw@shootybangbang.com> * menubar-items.el (list-all-buffers): New function. (list-all-buffers-function): New customizable variable. (default-menubar): Replace list-buffers with list-all-buffers. 2002-03-04 Simon Josefsson <jas@extundo.com> * files.el (auto-mode-alist): Move Sieve to a place where the comment is more appropriate for it.
author youngs
date Sat, 23 Mar 2002 05:08:52 +0000
parents 026c5bf9c134
children e38acbeb1cae
comparison
equal deleted inserted replaced
791:7b1f30330a19 792:4e83fdb13eb9
1522 ("%_Buffers" 1522 ("%_Buffers"
1523 :filter buffers-menu-filter 1523 :filter buffers-menu-filter
1524 ["Go To %_Previous Buffer" switch-to-other-buffer] 1524 ["Go To %_Previous Buffer" switch-to-other-buffer]
1525 ["Go To %_Buffer..." switch-to-buffer] 1525 ["Go To %_Buffer..." switch-to-buffer]
1526 "----" 1526 "----"
1527 ["%_List All Buffers" list-buffers] 1527 ["%_List All Buffers" list-all-buffers]
1528 ["%_Delete Buffer" kill-this-buffer 1528 ["%_Delete Buffer" kill-this-buffer
1529 :suffix (if put-buffer-names-in-file-menu (buffer-name) "")] 1529 :suffix (if put-buffer-names-in-file-menu (buffer-name) "")]
1530 "----" 1530 "----"
1531 ) 1531 )
1532 1532
1794 for `buffers-menu-sort-function'." 1794 for `buffers-menu-sort-function'."
1795 :type '(choice (const :tag "None" nil) 1795 :type '(choice (const :tag "None" nil)
1796 function) 1796 function)
1797 :group 'buffers-menu) 1797 :group 'buffers-menu)
1798 1798
1799 (defcustom list-all-buffers-function 'list-buffers
1800 "*Function that `list-all-buffers' calls."
1801 :type '(choice (const list-buffers)
1802 (const ibuffer)
1803 (const ibuffer-other-window)
1804 function)
1805 :group 'buffers-menu)
1806
1799 (defun sort-buffers-menu-alphabetically (buf1 buf2) 1807 (defun sort-buffers-menu-alphabetically (buf1 buf2)
1800 "For use as a value of `buffers-menu-sort-function'. 1808 "For use as a value of `buffers-menu-sort-function'.
1801 Sorts the buffers in alphabetical order by name, but puts buffers beginning 1809 Sorts the buffers in alphabetical order by name, but puts buffers beginning
1802 with a star at the end of the list." 1810 with a star at the end of the list."
1803 (let* ((nam1 (buffer-name buf1)) 1811 (let* ((nam1 (buffer-name buf1))
1988 (setcdr lastcdr nil)))))) 1996 (setcdr lastcdr nil))))))
1989 (setq buffers (build-buffers-menu-internal buffers))) 1997 (setq buffers (build-buffers-menu-internal buffers)))
1990 (append menu buffers) 1998 (append menu buffers)
1991 )) 1999 ))
1992 2000
2001 (defun list-all-buffers ()
2002 "Display a list of buffers. Calls `list-all-buffers-function'."
2003 (interactive)
2004 (funcall (if (fboundp list-all-buffers-function)
2005 list-all-buffers-function
2006 'list-buffers)))
2007
1993 2008
1994 ;;; The Options menu 2009 ;;; The Options menu
1995 2010
1996 ;; We'll keep those variables here for a while, in order to provide a 2011 ;; We'll keep those variables here for a while, in order to provide a
1997 ;; function for porting the old options file that a user may own to Custom. 2012 ;; function for porting the old options file that a user may own to Custom.