annotate lisp/buff-menu.el @ 112329:e36b2f5d36cd

Sync from gnulib.
author Paul Eggert <eggert@cs.ucla.edu>
date Sun, 16 Jan 2011 18:35:15 -0800
parents 417b1e4d63cd
children 4f72b1e43644
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
58425
f0b9b97606f9 (list-buffers-noselect): Use fixed-pitch only in the header-line.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58352
diff changeset
1 ;;; buff-menu.el --- buffer menu main function and support functions -*- coding:utf-8 -*-
662
8a533acedb77 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 194
diff changeset
2
58299
40fc4ca7acc0 (list-buffers-noselect): Massage to fit in 80 columns.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58276
diff changeset
3 ;; Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 2000, 2001, 2002, 2003,
112218
376148b31b5e Add 2011 to FSF/AIST copyright years.
Glenn Morris <rgm@gnu.org>
parents: 106815
diff changeset
4 ;; 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
845
213978acbc1e entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 801
diff changeset
5
801
e9e34745ae3b *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 777
diff changeset
6 ;; Maintainer: FSF
39012
aa310bebddef Add Keywords header.
Gerd Moellmann <gerd@gnu.org>
parents: 38412
diff changeset
7 ;; Keywords: convenience
110015
280c8ae2476d Add "Package:" file headers to denote built-in packages.
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
8 ;; Package: emacs
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10 ;; This file is part of GNU Emacs.
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 92953
diff changeset
12 ;; GNU Emacs is free software: you can redistribute it and/or modify
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
13 ;; it under the terms of the GNU General Public License as published by
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 92953
diff changeset
14 ;; the Free Software Foundation, either version 3 of the License, or
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 92953
diff changeset
15 ;; (at your option) any later version.
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
16
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
17 ;; GNU Emacs is distributed in the hope that it will be useful,
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
20 ;; GNU General Public License for more details.
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
21
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
22 ;; You should have received a copy of the GNU General Public License
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 92953
diff changeset
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
24
2307
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 845
diff changeset
25 ;;; Commentary:
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 845
diff changeset
26
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 845
diff changeset
27 ;; Edit, delete, or change attributes of all currently active Emacs
3591
507f64624555 Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents: 2736
diff changeset
28 ;; buffers from a list summarizing their state. A good way to browse
2307
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 845
diff changeset
29 ;; any special or scratch buffers you have loaded, since you can't find
39012
aa310bebddef Add Keywords header.
Gerd Moellmann <gerd@gnu.org>
parents: 38412
diff changeset
30 ;; them by filename. The single entry point is `list-buffers',
2334
ec4ffd67483d Incorporated changes from Bob Weiner's enhanced buff-menu from the LCD
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2307
diff changeset
31 ;; normally bound to C-x C-b.
ec4ffd67483d Incorporated changes from Bob Weiner's enhanced buff-menu from the LCD
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2307
diff changeset
32
ec4ffd67483d Incorporated changes from Bob Weiner's enhanced buff-menu from the LCD
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2307
diff changeset
33 ;;; Change Log:
ec4ffd67483d Incorporated changes from Bob Weiner's enhanced buff-menu from the LCD
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2307
diff changeset
34
25166
e8ec0085ff7b (Buffer-menu-mode-map): Add V for Buffer-menu-View.
Richard M. Stallman <rms@gnu.org>
parents: 21093
diff changeset
35 ;; Buffer-menu-view: New function
e8ec0085ff7b (Buffer-menu-mode-map): Add V for Buffer-menu-View.
Richard M. Stallman <rms@gnu.org>
parents: 21093
diff changeset
36 ;; Buffer-menu-view-other-window: New function
e8ec0085ff7b (Buffer-menu-mode-map): Add V for Buffer-menu-View.
Richard M. Stallman <rms@gnu.org>
parents: 21093
diff changeset
37
2334
ec4ffd67483d Incorporated changes from Bob Weiner's enhanced buff-menu from the LCD
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2307
diff changeset
38 ;; Merged by esr with recent mods to Emacs 19 buff-menu, 23 Mar 1993
ec4ffd67483d Incorporated changes from Bob Weiner's enhanced buff-menu from the LCD
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2307
diff changeset
39 ;;
ec4ffd67483d Incorporated changes from Bob Weiner's enhanced buff-menu from the LCD
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2307
diff changeset
40 ;; Modified by Bob Weiner, Motorola, Inc., 4/14/89
ec4ffd67483d Incorporated changes from Bob Weiner's enhanced buff-menu from the LCD
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2307
diff changeset
41 ;;
ec4ffd67483d Incorporated changes from Bob Weiner's enhanced buff-menu from the LCD
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2307
diff changeset
42 ;; Added optional backup argument to 'Buffer-menu-unmark' to make it undelete
ec4ffd67483d Incorporated changes from Bob Weiner's enhanced buff-menu from the LCD
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2307
diff changeset
43 ;; current entry and then move to previous one.
ec4ffd67483d Incorporated changes from Bob Weiner's enhanced buff-menu from the LCD
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2307
diff changeset
44 ;;
ec4ffd67483d Incorporated changes from Bob Weiner's enhanced buff-menu from the LCD
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2307
diff changeset
45 ;; Based on FSF code dating back to 1985.
2307
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 845
diff changeset
46
801
e9e34745ae3b *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 777
diff changeset
47 ;;; Code:
30851
f9233f642b88 * buff-menu.el (list-buffers-noselect): Use `dolist' instead of
Sam Steingold <sds@gnu.org>
parents: 30828
diff changeset
48
54580
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
49 ;;Trying to preserve the old window configuration works well in
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
50 ;;simple scenarios, when you enter the buffer menu, use it, and exit it.
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
51 ;;But it does strange things when you switch back to the buffer list buffer
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
52 ;;with C-x b, later on, when the window configuration is different.
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
53 ;;The choice seems to be, either restore the window configuration
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
54 ;;in all cases, or in no cases.
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
55 ;;I decided it was better not to restore the window config at all. -- rms.
10592
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
56
54580
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
57 ;;But since then, I changed buffer-menu to use the selected window,
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
58 ;;so q now once again goes back to the previous window configuration.
10592
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
59
54580
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
60 ;;(defvar Buffer-menu-window-config nil
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
61 ;; "Window configuration saved from entry to `buffer-menu'.")
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
62
54580
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
63 ;; Put buffer *Buffer List* into proper mode right away
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
64 ;; so that from now on even list-buffers is enough to get a buffer menu.
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
65
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
66 (defgroup Buffer-menu nil
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
67 "Show a menu of all buffers in a buffer."
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
68 :group 'tools
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
69 :group 'convenience)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
70
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
71 (defcustom Buffer-menu-use-header-line t
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 99755
diff changeset
72 "Non-nil means to use an immovable header-line."
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
73 :type 'boolean
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
74 :group 'Buffer-menu)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
75
68228
badae83666f6 (buffer-menu-buffer) <defface>: Renamed from
Juri Linkov <juri@jurta.org>
parents: 67492
diff changeset
76 (defface buffer-menu-buffer
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
77 '((t (:weight bold)))
68228
badae83666f6 (buffer-menu-buffer) <defface>: Renamed from
Juri Linkov <juri@jurta.org>
parents: 67492
diff changeset
78 "Face used to highlight buffer names in the buffer menu."
65733
296124f7ef0e (Buffer-menu-buffer): Remove group `font-lock-highlighting-faces'.
Juri Linkov <juri@jurta.org>
parents: 65355
diff changeset
79 :group 'Buffer-menu)
68228
badae83666f6 (buffer-menu-buffer) <defface>: Renamed from
Juri Linkov <juri@jurta.org>
parents: 67492
diff changeset
80 (put 'Buffer-menu-buffer 'face-alias 'buffer-menu-buffer)
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
81
48889
ec1a96fb72d6 Change default width of Buffer-menu-buffer+size-width to 24
Robert J. Chassell <bob@rattlesnake.com>
parents: 48864
diff changeset
82 (defcustom Buffer-menu-buffer+size-width 26
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 99755
diff changeset
83 "How wide to jointly make the buffer name and size columns."
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
84 :type 'number
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
85 :group 'Buffer-menu)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
86
48889
ec1a96fb72d6 Change default width of Buffer-menu-buffer+size-width to 24
Robert J. Chassell <bob@rattlesnake.com>
parents: 48864
diff changeset
87 (defcustom Buffer-menu-mode-width 16
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 99755
diff changeset
88 "How wide to make the mode name column."
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
89 :type 'number
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
90 :group 'Buffer-menu)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
91
67327
8e9343dc7c39 (Buffer-menu-use-frame-buffer-list): New user option.
Luc Teirlinck <teirllm@auburn.edu>
parents: 67177
diff changeset
92 (defcustom Buffer-menu-use-frame-buffer-list t
8e9343dc7c39 (Buffer-menu-use-frame-buffer-list): New user option.
Luc Teirlinck <teirllm@auburn.edu>
parents: 67177
diff changeset
93 "If non-nil, the Buffer Menu uses the selected frame's buffer list.
8e9343dc7c39 (Buffer-menu-use-frame-buffer-list): New user option.
Luc Teirlinck <teirllm@auburn.edu>
parents: 67177
diff changeset
94 Buffers that were never selected in that frame are listed at the end.
8e9343dc7c39 (Buffer-menu-use-frame-buffer-list): New user option.
Luc Teirlinck <teirllm@auburn.edu>
parents: 67177
diff changeset
95 If the value is nil, the Buffer Menu uses the global buffer list.
8e9343dc7c39 (Buffer-menu-use-frame-buffer-list): New user option.
Luc Teirlinck <teirllm@auburn.edu>
parents: 67177
diff changeset
96 This variable matters if the Buffer Menu is sorted by visited order,
8e9343dc7c39 (Buffer-menu-use-frame-buffer-list): New user option.
Luc Teirlinck <teirllm@auburn.edu>
parents: 67177
diff changeset
97 as it is by default."
8e9343dc7c39 (Buffer-menu-use-frame-buffer-list): New user option.
Luc Teirlinck <teirllm@auburn.edu>
parents: 67177
diff changeset
98 :type 'boolean
8e9343dc7c39 (Buffer-menu-use-frame-buffer-list): New user option.
Luc Teirlinck <teirllm@auburn.edu>
parents: 67177
diff changeset
99 :group 'Buffer-menu
8e9343dc7c39 (Buffer-menu-use-frame-buffer-list): New user option.
Luc Teirlinck <teirllm@auburn.edu>
parents: 67177
diff changeset
100 :version "22.1")
8e9343dc7c39 (Buffer-menu-use-frame-buffer-list): New user option.
Luc Teirlinck <teirllm@auburn.edu>
parents: 67177
diff changeset
101
54580
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
102 ;; This should get updated & resorted when you click on a column heading
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
103 (defvar Buffer-menu-sort-column nil
77727
02de25cb97f4 (Buffer-menu-sort-column): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 77707
diff changeset
104 "Which column to sort the menu on.
02de25cb97f4 (Buffer-menu-sort-column): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 77707
diff changeset
105 Use 2 to sort by buffer names, or 5 to sort by file names.
85610
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
106 A nil value means sort by visited order (the default).")
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
107
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
108 (defconst Buffer-menu-buffer-column 4)
6640
532754d63384 (Buffer-menu-mode): Highlight only the buffer name, not the whole line.
Karl Heuer <kwzh@gnu.org>
parents: 6638
diff changeset
109
54594
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
110 (defvar Buffer-menu-files-only nil
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
111 "Non-nil if the current buffer-menu lists only file buffers.
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
112 This variable determines whether reverting the buffer lists only
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
113 file buffers. It affects both manual reverting and reverting by
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
114 Auto Revert Mode.")
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
115
85610
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
116 (make-variable-buffer-local 'Buffer-menu-files-only)
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
117
70967
b4e6091c2346 (list-buffers-noselect): For Info buffers, use Info-current-file as the
Eli Zaretskii <eliz@gnu.org>
parents: 69024
diff changeset
118 (defvar Info-current-file) ;; from info.el
72289
40a24db2adc4 (list-buffers-noselect): For Info buffers, use "(file)node" instead of the
Eli Zaretskii <eliz@gnu.org>
parents: 71516
diff changeset
119 (defvar Info-current-node) ;; from info.el
70967
b4e6091c2346 (list-buffers-noselect): For Info buffers, use Info-current-file as the
Eli Zaretskii <eliz@gnu.org>
parents: 69024
diff changeset
120
85610
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
121 (defvar Buffer-menu-mode-map
101214
30b48e66ac86 (Buffer-menu-mode-map): Add a menu.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 101213
diff changeset
122 (let ((map (make-keymap))
30b48e66ac86 (Buffer-menu-mode-map): Add a menu.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 101213
diff changeset
123 (menu-map (make-sparse-keymap)))
85610
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
124 (suppress-keymap map t)
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
125 (define-key map "v" 'Buffer-menu-select)
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
126 (define-key map "2" 'Buffer-menu-2-window)
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
127 (define-key map "1" 'Buffer-menu-1-window)
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
128 (define-key map "f" 'Buffer-menu-this-window)
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
129 (define-key map "e" 'Buffer-menu-this-window)
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
130 (define-key map "\C-m" 'Buffer-menu-this-window)
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
131 (define-key map "o" 'Buffer-menu-other-window)
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
132 (define-key map "\C-o" 'Buffer-menu-switch-other-window)
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
133 (define-key map "s" 'Buffer-menu-save)
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
134 (define-key map "d" 'Buffer-menu-delete)
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
135 (define-key map "k" 'Buffer-menu-delete)
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
136 (define-key map "\C-d" 'Buffer-menu-delete-backwards)
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
137 (define-key map "\C-k" 'Buffer-menu-delete)
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
138 (define-key map "x" 'Buffer-menu-execute)
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
139 (define-key map " " 'next-line)
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
140 (define-key map "n" 'next-line)
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
141 (define-key map "p" 'previous-line)
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
142 (define-key map "\177" 'Buffer-menu-backup-unmark)
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
143 (define-key map "~" 'Buffer-menu-not-modified)
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
144 (define-key map "u" 'Buffer-menu-unmark)
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
145 (define-key map "m" 'Buffer-menu-mark)
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
146 (define-key map "t" 'Buffer-menu-visit-tags-table)
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
147 (define-key map "%" 'Buffer-menu-toggle-read-only)
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
148 (define-key map "b" 'Buffer-menu-bury)
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
149 (define-key map "V" 'Buffer-menu-view)
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
150 (define-key map "T" 'Buffer-menu-toggle-files-only)
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
151 (define-key map [mouse-2] 'Buffer-menu-mouse-select)
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
152 (define-key map [follow-link] 'mouse-face)
96954
ad71105ebd5b (Buffer-menu-marked-buffers)
Juri Linkov <juri@jurta.org>
parents: 96276
diff changeset
153 (define-key map (kbd "M-s a C-s") 'Buffer-menu-isearch-buffers)
ad71105ebd5b (Buffer-menu-marked-buffers)
Juri Linkov <juri@jurta.org>
parents: 96276
diff changeset
154 (define-key map (kbd "M-s a M-C-s") 'Buffer-menu-isearch-buffers-regexp)
105836
64be816ccd0e (Buffer-menu-mode-map): Add hyphen between "Buffer"
Juri Linkov <juri@jurta.org>
parents: 105765
diff changeset
155 (define-key map [menu-bar Buffer-menu-mode] (cons (purecopy "Buffer-Menu") menu-map))
101214
30b48e66ac86 (Buffer-menu-mode-map): Add a menu.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 101213
diff changeset
156 (define-key menu-map [quit]
105744
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
157 `(menu-item ,(purecopy "Quit") quit-window
105836
64be816ccd0e (Buffer-menu-mode-map): Add hyphen between "Buffer"
Juri Linkov <juri@jurta.org>
parents: 105765
diff changeset
158 :help ,(purecopy "Remove the buffer menu from the display")))
101214
30b48e66ac86 (Buffer-menu-mode-map): Add a menu.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 101213
diff changeset
159 (define-key menu-map [rev]
105744
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
160 `(menu-item ,(purecopy "Refresh") revert-buffer
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
161 :help ,(purecopy "Refresh the *Buffer List* buffer contents")))
105940
f7147d70f6ef * subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105887
diff changeset
162 (define-key menu-map [s0] menu-bar-separator)
101214
30b48e66ac86 (Buffer-menu-mode-map): Add a menu.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 101213
diff changeset
163 (define-key menu-map [tf]
105744
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
164 `(menu-item ,(purecopy "Show only file buffers") Buffer-menu-toggle-files-only
101214
30b48e66ac86 (Buffer-menu-mode-map): Add a menu.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 101213
diff changeset
165 :button (:toggle . Buffer-menu-files-only)
105744
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
166 :help ,(purecopy "Toggle whether the current buffer-menu displays only file buffers")))
105940
f7147d70f6ef * subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105887
diff changeset
167 (define-key menu-map [s1] menu-bar-separator)
101214
30b48e66ac86 (Buffer-menu-mode-map): Add a menu.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 101213
diff changeset
168 ;; FIXME: The "Select" entries could use better names...
30b48e66ac86 (Buffer-menu-mode-map): Add a menu.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 101213
diff changeset
169 (define-key menu-map [sel]
105744
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
170 `(menu-item ,(purecopy "Select marked") Buffer-menu-select
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
171 :help ,(purecopy "Select this line's buffer; also display buffers marked with `>'")))
101214
30b48e66ac86 (Buffer-menu-mode-map): Add a menu.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 101213
diff changeset
172 (define-key menu-map [bm2]
105744
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
173 `(menu-item ,(purecopy "Select two") Buffer-menu-2-window
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
174 :help ,(purecopy "Select this line's buffer, with previous buffer in second window")))
101214
30b48e66ac86 (Buffer-menu-mode-map): Add a menu.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 101213
diff changeset
175 (define-key menu-map [bm1]
105744
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
176 `(menu-item ,(purecopy "Select current") Buffer-menu-1-window
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
177 :help ,(purecopy "Select this line's buffer, alone, in full frame")))
101214
30b48e66ac86 (Buffer-menu-mode-map): Add a menu.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 101213
diff changeset
178 (define-key menu-map [ow]
105744
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
179 `(menu-item ,(purecopy "Select in other window") Buffer-menu-other-window
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
180 :help ,(purecopy "Select this line's buffer in other window, leaving buffer menu visible")))
101214
30b48e66ac86 (Buffer-menu-mode-map): Add a menu.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 101213
diff changeset
181 (define-key menu-map [tw]
105744
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
182 `(menu-item ,(purecopy "Select in current window") Buffer-menu-this-window
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
183 :help ,(purecopy "Select this line's buffer in this window")))
105940
f7147d70f6ef * subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105887
diff changeset
184 (define-key menu-map [s2] menu-bar-separator)
101214
30b48e66ac86 (Buffer-menu-mode-map): Add a menu.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 101213
diff changeset
185 (define-key menu-map [is]
105744
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
186 `(menu-item ,(purecopy "Regexp Isearch marked buffers") Buffer-menu-isearch-buffers-regexp
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
187 :help ,(purecopy "Search for a regexp through all marked buffers using Isearch")))
101214
30b48e66ac86 (Buffer-menu-mode-map): Add a menu.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 101213
diff changeset
188 (define-key menu-map [ir]
105744
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
189 `(menu-item ,(purecopy "Isearch marked buffers") Buffer-menu-isearch-buffers
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
190 :help ,(purecopy "Search for a string through all marked buffers using Isearch")))
105940
f7147d70f6ef * subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105887
diff changeset
191 (define-key menu-map [s3] menu-bar-separator)
101214
30b48e66ac86 (Buffer-menu-mode-map): Add a menu.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 101213
diff changeset
192 (define-key menu-map [by]
105744
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
193 `(menu-item ,(purecopy "Bury") Buffer-menu-bury
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
194 :help ,(purecopy "Bury the buffer listed on this line")))
101214
30b48e66ac86 (Buffer-menu-mode-map): Add a menu.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 101213
diff changeset
195 (define-key menu-map [vt]
105744
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
196 `(menu-item ,(purecopy "Set unmodified") Buffer-menu-not-modified
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
197 :help ,(purecopy "Mark buffer on this line as unmodified (no changes to save)")))
101214
30b48e66ac86 (Buffer-menu-mode-map): Add a menu.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 101213
diff changeset
198 (define-key menu-map [ex]
105744
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
199 `(menu-item ,(purecopy "Execute") Buffer-menu-execute
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
200 :help ,(purecopy "Save and/or delete buffers marked with s or k commands")))
105940
f7147d70f6ef * subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105887
diff changeset
201 (define-key menu-map [s4] menu-bar-separator)
101214
30b48e66ac86 (Buffer-menu-mode-map): Add a menu.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 101213
diff changeset
202 (define-key menu-map [delb]
105744
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
203 `(menu-item ,(purecopy "Mark for delete and move backwards") Buffer-menu-delete-backwards
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
204 :help ,(purecopy "Mark buffer on this line to be deleted by x command and move up one line")))
101214
30b48e66ac86 (Buffer-menu-mode-map): Add a menu.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 101213
diff changeset
205 (define-key menu-map [del]
105744
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
206 `(menu-item ,(purecopy "Mark for delete") Buffer-menu-delete
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
207 :help ,(purecopy "Mark buffer on this line to be deleted by x command")))
101214
30b48e66ac86 (Buffer-menu-mode-map): Add a menu.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 101213
diff changeset
208
30b48e66ac86 (Buffer-menu-mode-map): Add a menu.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 101213
diff changeset
209 (define-key menu-map [sv]
105744
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
210 `(menu-item ,(purecopy "Mark for save") Buffer-menu-save
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
211 :help ,(purecopy "Mark buffer on this line to be saved by x command")))
101214
30b48e66ac86 (Buffer-menu-mode-map): Add a menu.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 101213
diff changeset
212 (define-key menu-map [umk]
105744
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
213 `(menu-item ,(purecopy "Unmark") Buffer-menu-unmark
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
214 :help ,(purecopy "Cancel all requested operations on buffer on this line and move down")))
101214
30b48e66ac86 (Buffer-menu-mode-map): Add a menu.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 101213
diff changeset
215 (define-key menu-map [mk]
105744
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
216 `(menu-item ,(purecopy "Mark") Buffer-menu-mark
b0a732611398 * keymap.c (Fmake_sparse_keymap): Purecopy the name.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105595
diff changeset
217 :help ,(purecopy "Mark buffer on this line for being displayed by v command")))
85610
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
218 map)
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
219 "Local keymap for `Buffer-menu-mode' buffers.")
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
220
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
221 ;; Buffer Menu mode is suitable only for specially formatted data.
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
222 (put 'Buffer-menu-mode 'mode-class 'special)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
223
101208
fe8f14e36526 (Buffer-menu-mode): Derive from special-mode.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 100908
diff changeset
224 (define-derived-mode Buffer-menu-mode special-mode "Buffer Menu"
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
225 "Major mode for editing a list of buffers.
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
226 Each line describes one of the buffers in Emacs.
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
227 Letters do not insert themselves; instead, they are commands.
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
228 \\<Buffer-menu-mode-map>
6609
3b1eb7f1eba1 (Buffer-menu-mouse-select): New command.
Richard M. Stallman <rms@gnu.org>
parents: 6084
diff changeset
229 \\[Buffer-menu-mouse-select] -- select buffer you click on, in place of the buffer menu.
3b1eb7f1eba1 (Buffer-menu-mouse-select): New command.
Richard M. Stallman <rms@gnu.org>
parents: 6084
diff changeset
230 \\[Buffer-menu-this-window] -- select current line's buffer in place of the buffer menu.
3b1eb7f1eba1 (Buffer-menu-mouse-select): New command.
Richard M. Stallman <rms@gnu.org>
parents: 6084
diff changeset
231 \\[Buffer-menu-other-window] -- select that buffer in another window,
3b1eb7f1eba1 (Buffer-menu-mouse-select): New command.
Richard M. Stallman <rms@gnu.org>
parents: 6084
diff changeset
232 so the buffer menu buffer remains visible in its window.
25166
e8ec0085ff7b (Buffer-menu-mode-map): Add V for Buffer-menu-View.
Richard M. Stallman <rms@gnu.org>
parents: 21093
diff changeset
233 \\[Buffer-menu-view] -- select current line's buffer, but in view-mode.
e8ec0085ff7b (Buffer-menu-mode-map): Add V for Buffer-menu-View.
Richard M. Stallman <rms@gnu.org>
parents: 21093
diff changeset
234 \\[Buffer-menu-view-other-window] -- select that buffer in
e8ec0085ff7b (Buffer-menu-mode-map): Add V for Buffer-menu-View.
Richard M. Stallman <rms@gnu.org>
parents: 21093
diff changeset
235 another window, in view-mode.
6609
3b1eb7f1eba1 (Buffer-menu-mouse-select): New command.
Richard M. Stallman <rms@gnu.org>
parents: 6084
diff changeset
236 \\[Buffer-menu-switch-other-window] -- make another window display that buffer.
3b1eb7f1eba1 (Buffer-menu-mouse-select): New command.
Richard M. Stallman <rms@gnu.org>
parents: 6084
diff changeset
237 \\[Buffer-menu-mark] -- mark current line's buffer to be displayed.
3b1eb7f1eba1 (Buffer-menu-mouse-select): New command.
Richard M. Stallman <rms@gnu.org>
parents: 6084
diff changeset
238 \\[Buffer-menu-select] -- select current line's buffer.
3b1eb7f1eba1 (Buffer-menu-mouse-select): New command.
Richard M. Stallman <rms@gnu.org>
parents: 6084
diff changeset
239 Also show buffers marked with m, in other windows.
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
240 \\[Buffer-menu-1-window] -- select that buffer in full-frame window.
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
241 \\[Buffer-menu-2-window] -- select that buffer in one window,
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
242 together with buffer selected before this one in another window.
96957
b4a078aa9b15 (Buffer-menu-mode): Document new commands in docstring.
Juri Linkov <juri@jurta.org>
parents: 96954
diff changeset
243 \\[Buffer-menu-isearch-buffers] -- Do incremental search in the marked buffers.
b4a078aa9b15 (Buffer-menu-mode): Document new commands in docstring.
Juri Linkov <juri@jurta.org>
parents: 96954
diff changeset
244 \\[Buffer-menu-isearch-buffers-regexp] -- Isearch for regexp in the marked buffers.
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
245 \\[Buffer-menu-visit-tags-table] -- visit-tags-table this buffer.
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
246 \\[Buffer-menu-not-modified] -- clear modified-flag on that buffer.
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
247 \\[Buffer-menu-save] -- mark that buffer to be saved, and move down.
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
248 \\[Buffer-menu-delete] -- mark that buffer to be deleted, and move down.
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
249 \\[Buffer-menu-delete-backwards] -- mark that buffer to be deleted, and move up.
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
250 \\[Buffer-menu-execute] -- delete or save marked buffers.
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
251 \\[Buffer-menu-unmark] -- remove all kinds of marks from current line.
2334
ec4ffd67483d Incorporated changes from Bob Weiner's enhanced buff-menu from the LCD
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2307
diff changeset
252 With prefix argument, also move up one line.
2378
c5d0140aa7b6 (Buffer-menu-toggle-read-only) Added, per Rob Austein's suggestion
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2334
diff changeset
253 \\[Buffer-menu-backup-unmark] -- back up a line and remove marks.
16401
249f797c3750 (Buffer-menu-revert): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
254 \\[Buffer-menu-toggle-read-only] -- toggle read-only status of buffer on this line.
101208
fe8f14e36526 (Buffer-menu-mode): Derive from special-mode.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 100908
diff changeset
255 \\[revert-buffer] -- update the list of buffers.
54594
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
256 \\[Buffer-menu-toggle-files-only] -- toggle whether the menu displays only file buffers.
18280
f693db11df45 (Buffer-menu-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 18278
diff changeset
257 \\[Buffer-menu-bury] -- bury the buffer listed on this line."
54594
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
258 (set (make-local-variable 'revert-buffer-function)
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
259 'Buffer-menu-revert-function)
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
260 (set (make-local-variable 'buffer-stale-function)
54670
e30c06266ba0 (Buffer-menu-mode): Make the buffer-stale-function return `fast'.
Luc Teirlinck <teirllm@auburn.edu>
parents: 54594
diff changeset
261 #'(lambda (&optional noconfirm) 'fast))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
262 (setq truncate-lines t)
85610
e8808cf949cd (Buffer-menu-sort-column): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
263 (setq buffer-read-only t))
8161
6b104526819d (Buffer-menu-revert-function): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7659
diff changeset
264
97960
f0549c923102 (buffer-menu-mode-hook): Add obsolete alias.
Glenn Morris <rgm@gnu.org>
parents: 96957
diff changeset
265 (define-obsolete-variable-alias 'buffer-menu-mode-hook
f0549c923102 (buffer-menu-mode-hook): Add obsolete alias.
Glenn Morris <rgm@gnu.org>
parents: 96957
diff changeset
266 'Buffer-menu-mode-hook "23.1")
f0549c923102 (buffer-menu-mode-hook): Add obsolete alias.
Glenn Morris <rgm@gnu.org>
parents: 96957
diff changeset
267
8161
6b104526819d (Buffer-menu-revert-function): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7659
diff changeset
268 (defun Buffer-menu-revert-function (ignore1 ignore2)
59092
49971daa80c5 (Buffer-menu-revert-function): Clear out undo info before reverting
Luc Teirlinck <teirllm@auburn.edu>
parents: 58955
diff changeset
269 (or (eq buffer-undo-list t)
49971daa80c5 (Buffer-menu-revert-function): Clear out undo info before reverting
Luc Teirlinck <teirllm@auburn.edu>
parents: 58955
diff changeset
270 (setq buffer-undo-list nil))
54594
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
271 ;; We can not use save-excursion here. The buffer gets erased.
62703
a078b317d07c (Buffer-menu-revert-function): Improve handling of point after reverting.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62634
diff changeset
272 (let ((opoint (point))
a078b317d07c (Buffer-menu-revert-function): Improve handling of point after reverting.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62634
diff changeset
273 (eobp (eobp))
a078b317d07c (Buffer-menu-revert-function): Improve handling of point after reverting.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62634
diff changeset
274 (ocol (current-column))
57555
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
275 (oline (progn (move-to-column 4)
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
276 (get-text-property (point) 'buffer)))
59092
49971daa80c5 (Buffer-menu-revert-function): Clear out undo info before reverting
Luc Teirlinck <teirllm@auburn.edu>
parents: 58955
diff changeset
277 (prop (point-min))
49971daa80c5 (Buffer-menu-revert-function): Clear out undo info before reverting
Luc Teirlinck <teirllm@auburn.edu>
parents: 58955
diff changeset
278 ;; do not make undo records for the reversion.
49971daa80c5 (Buffer-menu-revert-function): Clear out undo info before reverting
Luc Teirlinck <teirllm@auburn.edu>
parents: 58955
diff changeset
279 (buffer-undo-list t))
67170
82157c2afd44 (Buffer-menu-revert-function): Make the selected window's buffer the
Luc Teirlinck <teirllm@auburn.edu>
parents: 65733
diff changeset
280 ;; We can be called by Auto Revert Mode with the "*Buffer Menu*"
82157c2afd44 (Buffer-menu-revert-function): Make the selected window's buffer the
Luc Teirlinck <teirllm@auburn.edu>
parents: 65733
diff changeset
281 ;; temporarily the current buffer. Make sure that the
82157c2afd44 (Buffer-menu-revert-function): Make the selected window's buffer the
Luc Teirlinck <teirllm@auburn.edu>
parents: 65733
diff changeset
282 ;; interactively current buffer is correctly identified with a `.'
82157c2afd44 (Buffer-menu-revert-function): Make the selected window's buffer the
Luc Teirlinck <teirllm@auburn.edu>
parents: 65733
diff changeset
283 ;; by `list-buffers-noselect'.
82157c2afd44 (Buffer-menu-revert-function): Make the selected window's buffer the
Luc Teirlinck <teirllm@auburn.edu>
parents: 65733
diff changeset
284 (with-current-buffer (window-buffer)
82157c2afd44 (Buffer-menu-revert-function): Make the selected window's buffer the
Luc Teirlinck <teirllm@auburn.edu>
parents: 65733
diff changeset
285 (list-buffers-noselect Buffer-menu-files-only))
62703
a078b317d07c (Buffer-menu-revert-function): Improve handling of point after reverting.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62634
diff changeset
286 (if oline
a078b317d07c (Buffer-menu-revert-function): Improve handling of point after reverting.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62634
diff changeset
287 (while (setq prop (next-single-property-change prop 'buffer))
a078b317d07c (Buffer-menu-revert-function): Improve handling of point after reverting.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62634
diff changeset
288 (when (eq (get-text-property prop 'buffer) oline)
a078b317d07c (Buffer-menu-revert-function): Improve handling of point after reverting.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62634
diff changeset
289 (goto-char prop)
a078b317d07c (Buffer-menu-revert-function): Improve handling of point after reverting.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62634
diff changeset
290 (move-to-column ocol)))
a078b317d07c (Buffer-menu-revert-function): Improve handling of point after reverting.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62634
diff changeset
291 (goto-char (if eobp (point-max) opoint)))))
54594
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
292
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
293 (defun Buffer-menu-toggle-files-only (arg)
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
294 "Toggle whether the current buffer-menu displays only file buffers.
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
295 With a positive ARG display only file buffers. With zero or
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
296 negative ARG, display other buffers as well."
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
297 (interactive "P")
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
298 (setq Buffer-menu-files-only
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
299 (cond ((not arg) (not Buffer-menu-files-only))
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
300 ((> (prefix-numeric-value arg) 0) t)))
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
301 (revert-buffer))
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
302
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
303
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
304 (defun Buffer-menu-buffer (error-if-non-existent-p)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
305 "Return buffer described by this line of buffer menu."
111445
56b71cddc9c5 Replace still more end-of-line etc with line-end-position, etc.
Glenn Morris <rgm@gnu.org>
parents: 110015
diff changeset
306 (let* ((where (+ (line-beginning-position) Buffer-menu-buffer-column))
30828
26dae0a7f527 (list-buffers-noselect): Set `buffer' as well as
Gerd Moellmann <gerd@gnu.org>
parents: 30824
diff changeset
307 (name (and (not (eobp)) (get-text-property where 'buffer-name)))
26dae0a7f527 (list-buffers-noselect): Set `buffer' as well as
Gerd Moellmann <gerd@gnu.org>
parents: 30824
diff changeset
308 (buf (and (not (eobp)) (get-text-property where 'buffer))))
11215
896932ac8ced (list-buffers-noselect): Put buffer name in a text
Richard M. Stallman <rms@gnu.org>
parents: 10765
diff changeset
309 (if name
896932ac8ced (list-buffers-noselect): Put buffer name in a text
Richard M. Stallman <rms@gnu.org>
parents: 10765
diff changeset
310 (or (get-buffer name)
30828
26dae0a7f527 (list-buffers-noselect): Set `buffer' as well as
Gerd Moellmann <gerd@gnu.org>
parents: 30824
diff changeset
311 (and buf (buffer-name buf) buf)
11215
896932ac8ced (list-buffers-noselect): Put buffer name in a text
Richard M. Stallman <rms@gnu.org>
parents: 10765
diff changeset
312 (if error-if-non-existent-p
896932ac8ced (list-buffers-noselect): Put buffer name in a text
Richard M. Stallman <rms@gnu.org>
parents: 10765
diff changeset
313 (error "No buffer named `%s'" name)
896932ac8ced (list-buffers-noselect): Put buffer name in a text
Richard M. Stallman <rms@gnu.org>
parents: 10765
diff changeset
314 nil))
30828
26dae0a7f527 (list-buffers-noselect): Set `buffer' as well as
Gerd Moellmann <gerd@gnu.org>
parents: 30824
diff changeset
315 (or (and buf (buffer-name buf) buf)
50033
cd78fe221607 (Buffer-menu-mode-map): Add docstring.
John Paul Wallington <jpw@pobox.com>
parents: 49155
diff changeset
316 (if error-if-non-existent-p
cd78fe221607 (Buffer-menu-mode-map): Add docstring.
John Paul Wallington <jpw@pobox.com>
parents: 49155
diff changeset
317 (error "No buffer on this line")
30828
26dae0a7f527 (list-buffers-noselect): Set `buffer' as well as
Gerd Moellmann <gerd@gnu.org>
parents: 30824
diff changeset
318 nil)))))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
319
756
0276f8eb306f *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 735
diff changeset
320 (defun buffer-menu (&optional arg)
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
321 "Make a menu of buffers so you can save, delete or select them.
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
322 With argument, show only buffers that are visiting files.
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
323 Type ? after invocation to get help on commands available.
40622
d2bfc00496d7 (buffer-menu): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 40489
diff changeset
324 Type q to remove the buffer menu from the display.
d2bfc00496d7 (buffer-menu): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 40489
diff changeset
325
d2bfc00496d7 (buffer-menu): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 40489
diff changeset
326 The first column shows `>' for a buffer you have
d2bfc00496d7 (buffer-menu): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 40489
diff changeset
327 marked to be displayed, `D' for one you have marked for
d2bfc00496d7 (buffer-menu): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 40489
diff changeset
328 deletion, and `.' for the current buffer.
d2bfc00496d7 (buffer-menu): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 40489
diff changeset
329
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
330 The C column has a `.' for the buffer from which you came.
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
331 The R column has a `%' if the buffer is read-only.
40622
d2bfc00496d7 (buffer-menu): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 40489
diff changeset
332 The M column has a `*' if it is modified,
d2bfc00496d7 (buffer-menu): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 40489
diff changeset
333 or `S' if you have marked it for saving.
d2bfc00496d7 (buffer-menu): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 40489
diff changeset
334 After this come the buffer name, its size in characters,
d2bfc00496d7 (buffer-menu): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 40489
diff changeset
335 its major mode, and the visited file name (if any)."
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
336 (interactive "P")
2736
d6ff54640930 (buffer-menu): Don't save a window config.
Richard M. Stallman <rms@gnu.org>
parents: 2422
diff changeset
337 ;;; (setq Buffer-menu-window-config (current-window-configuration))
10592
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
338 (switch-to-buffer (list-buffers-noselect arg))
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
339 (message
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
340 "Commands: d, s, x, u; f, o, 1, 2, m, v; ~, %%; q to quit; ? for help."))
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
341
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
342 (defun buffer-menu-other-window (&optional arg)
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
343 "Display a list of buffers in another window.
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
344 With the buffer list buffer, you can save, delete or select the buffers.
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
345 With argument, show only buffers that are visiting files.
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
346 Type ? after invocation to get help on commands available.
40622
d2bfc00496d7 (buffer-menu): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 40489
diff changeset
347 Type q to remove the buffer menu from the display.
d2bfc00496d7 (buffer-menu): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 40489
diff changeset
348 For more information, see the function `buffer-menu'."
10592
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
349 (interactive "P")
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
350 ;;; (setq Buffer-menu-window-config (current-window-configuration))
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
351 (switch-to-buffer-other-window (list-buffers-noselect arg))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
352 (message
2736
d6ff54640930 (buffer-menu): Don't save a window config.
Richard M. Stallman <rms@gnu.org>
parents: 2422
diff changeset
353 "Commands: d, s, x, u; f, o, 1, 2, m, v; ~, %%; q to quit; ? for help."))
d6ff54640930 (buffer-menu): Don't save a window config.
Richard M. Stallman <rms@gnu.org>
parents: 2422
diff changeset
354
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
355 (defun Buffer-menu-no-header ()
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
356 (beginning-of-line)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
357 (if (or Buffer-menu-use-header-line
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
358 (not (eq (char-after) ?C)))
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
359 t
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
360 (ding)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
361 (forward-line 1)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
362 nil))
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
363
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
364 (defun Buffer-menu-mark ()
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
365 "Mark buffer on this line for being displayed by \\<Buffer-menu-mode-map>\\[Buffer-menu-select] command."
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
366 (interactive)
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
367 (when (Buffer-menu-no-header)
96276
5f58c2a66de7 * buff-menu.el: Use with-current-buffer and inhibit-read-only.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94678
diff changeset
368 (let ((inhibit-read-only t))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
369 (delete-char 1)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
370 (insert ?>)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
371 (forward-line 1))))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
372
2334
ec4ffd67483d Incorporated changes from Bob Weiner's enhanced buff-menu from the LCD
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2307
diff changeset
373 (defun Buffer-menu-unmark (&optional backup)
ec4ffd67483d Incorporated changes from Bob Weiner's enhanced buff-menu from the LCD
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2307
diff changeset
374 "Cancel all requested operations on buffer on this line and move down.
64529
8b0db2e8ccd3 (Buffer-menu-unmark): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
375 Optional prefix arg means move up."
2334
ec4ffd67483d Incorporated changes from Bob Weiner's enhanced buff-menu from the LCD
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2307
diff changeset
376 (interactive "P")
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
377 (when (Buffer-menu-no-header)
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
378 (let* ((buf (Buffer-menu-buffer t))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
379 (mod (buffer-modified-p buf))
96276
5f58c2a66de7 * buff-menu.el: Use with-current-buffer and inhibit-read-only.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94678
diff changeset
380 (readonly (with-current-buffer buf buffer-read-only))
5f58c2a66de7 * buff-menu.el: Use with-current-buffer and inhibit-read-only.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94678
diff changeset
381 (inhibit-read-only t))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
382 (delete-char 3)
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
383 (insert (if readonly (if mod " %*" " % ") (if mod " *" " ")))))
2334
ec4ffd67483d Incorporated changes from Bob Weiner's enhanced buff-menu from the LCD
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2307
diff changeset
384 (forward-line (if backup -1 1)))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
385
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
386 (defun Buffer-menu-backup-unmark ()
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
387 "Move up and cancel all requested operations on buffer on line above."
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
388 (interactive)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
389 (forward-line -1)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
390 (Buffer-menu-unmark)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
391 (forward-line -1))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
392
9063
d6913bc11bb2 (Buffer-menu-delete): Handle prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 8365
diff changeset
393 (defun Buffer-menu-delete (&optional arg)
d6913bc11bb2 (Buffer-menu-delete): Handle prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 8365
diff changeset
394 "Mark buffer on this line to be deleted by \\<Buffer-menu-mode-map>\\[Buffer-menu-execute] command.
d6913bc11bb2 (Buffer-menu-delete): Handle prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 8365
diff changeset
395 Prefix arg is how many buffers to delete.
d6913bc11bb2 (Buffer-menu-delete): Handle prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 8365
diff changeset
396 Negative arg means delete backwards."
d6913bc11bb2 (Buffer-menu-delete): Handle prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 8365
diff changeset
397 (interactive "p")
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
398 (when (Buffer-menu-no-header)
96276
5f58c2a66de7 * buff-menu.el: Use with-current-buffer and inhibit-read-only.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94678
diff changeset
399 (let ((inhibit-read-only t))
9063
d6913bc11bb2 (Buffer-menu-delete): Handle prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 8365
diff changeset
400 (if (or (null arg) (= arg 0))
d6913bc11bb2 (Buffer-menu-delete): Handle prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 8365
diff changeset
401 (setq arg 1))
d6913bc11bb2 (Buffer-menu-delete): Handle prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 8365
diff changeset
402 (while (> arg 0)
d6913bc11bb2 (Buffer-menu-delete): Handle prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 8365
diff changeset
403 (delete-char 1)
d6913bc11bb2 (Buffer-menu-delete): Handle prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 8365
diff changeset
404 (insert ?D)
d6913bc11bb2 (Buffer-menu-delete): Handle prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 8365
diff changeset
405 (forward-line 1)
d6913bc11bb2 (Buffer-menu-delete): Handle prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 8365
diff changeset
406 (setq arg (1- arg)))
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
407 (while (and (< arg 0)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
408 (Buffer-menu-no-header))
9063
d6913bc11bb2 (Buffer-menu-delete): Handle prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 8365
diff changeset
409 (delete-char 1)
d6913bc11bb2 (Buffer-menu-delete): Handle prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 8365
diff changeset
410 (insert ?D)
d6913bc11bb2 (Buffer-menu-delete): Handle prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 8365
diff changeset
411 (forward-line -1)
d6913bc11bb2 (Buffer-menu-delete): Handle prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 8365
diff changeset
412 (setq arg (1+ arg))))))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
413
9063
d6913bc11bb2 (Buffer-menu-delete): Handle prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 8365
diff changeset
414 (defun Buffer-menu-delete-backwards (&optional arg)
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
415 "Mark buffer on this line to be deleted by \\<Buffer-menu-mode-map>\\[Buffer-menu-execute] command
9063
d6913bc11bb2 (Buffer-menu-delete): Handle prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 8365
diff changeset
416 and then move up one line. Prefix arg means move that many lines."
d6913bc11bb2 (Buffer-menu-delete): Handle prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 8365
diff changeset
417 (interactive "p")
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
418 (Buffer-menu-delete (- (or arg 1))))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
419
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
420 (defun Buffer-menu-save ()
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
421 "Mark buffer on this line to be saved by \\<Buffer-menu-mode-map>\\[Buffer-menu-execute] command."
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
422 (interactive)
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
423 (when (Buffer-menu-no-header)
96276
5f58c2a66de7 * buff-menu.el: Use with-current-buffer and inhibit-read-only.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94678
diff changeset
424 (let ((inhibit-read-only t))
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
425 (forward-char 2)
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
426 (delete-char 1)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
427 (insert ?S)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
428 (forward-line 1))))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
429
8196
89db3662bcec (Buffer-menu-not-modified): Make `Buffer-menu-not-modified' handle an
Richard M. Stallman <rms@gnu.org>
parents: 8161
diff changeset
430 (defun Buffer-menu-not-modified (&optional arg)
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
431 "Mark buffer on this line as unmodified (no changes to save)."
8196
89db3662bcec (Buffer-menu-not-modified): Make `Buffer-menu-not-modified' handle an
Richard M. Stallman <rms@gnu.org>
parents: 8161
diff changeset
432 (interactive "P")
96276
5f58c2a66de7 * buff-menu.el: Use with-current-buffer and inhibit-read-only.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94678
diff changeset
433 (with-current-buffer (Buffer-menu-buffer t)
8196
89db3662bcec (Buffer-menu-not-modified): Make `Buffer-menu-not-modified' handle an
Richard M. Stallman <rms@gnu.org>
parents: 8161
diff changeset
434 (set-buffer-modified-p arg))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
435 (save-excursion
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
436 (beginning-of-line)
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
437 (forward-char 2)
64529
8b0db2e8ccd3 (Buffer-menu-unmark): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
438 (if (= (char-after) (if arg ?\s ?*))
96276
5f58c2a66de7 * buff-menu.el: Use with-current-buffer and inhibit-read-only.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94678
diff changeset
439 (let ((inhibit-read-only t))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
440 (delete-char 1)
64529
8b0db2e8ccd3 (Buffer-menu-unmark): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
441 (insert (if arg ?* ?\s))))))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
442
57555
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
443 (defun Buffer-menu-beginning ()
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
444 (goto-char (point-min))
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
445 (unless Buffer-menu-use-header-line
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
446 (forward-line)))
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
447
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
448 (defun Buffer-menu-execute ()
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
449 "Save and/or delete buffers marked with \\<Buffer-menu-mode-map>\\[Buffer-menu-save] or \\<Buffer-menu-mode-map>\\[Buffer-menu-delete] commands."
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
450 (interactive)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
451 (save-excursion
57555
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
452 (Buffer-menu-beginning)
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
453 (while (re-search-forward "^..S" nil t)
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
454 (let ((modp nil))
96276
5f58c2a66de7 * buff-menu.el: Use with-current-buffer and inhibit-read-only.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94678
diff changeset
455 (with-current-buffer (Buffer-menu-buffer t)
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
456 (save-buffer)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
457 (setq modp (buffer-modified-p)))
96276
5f58c2a66de7 * buff-menu.el: Use with-current-buffer and inhibit-read-only.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94678
diff changeset
458 (let ((inhibit-read-only t))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
459 (delete-char -1)
64529
8b0db2e8ccd3 (Buffer-menu-unmark): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
460 (insert (if modp ?* ?\s))))))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
461 (save-excursion
57555
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
462 (Buffer-menu-beginning)
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
463 (let ((buff-menu-buffer (current-buffer))
96276
5f58c2a66de7 * buff-menu.el: Use with-current-buffer and inhibit-read-only.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94678
diff changeset
464 (inhibit-read-only t))
49050
8b38bac9826a (Buffer-menu-execute): Fix for effect of header
Dave Love <fx@gnu.org>
parents: 49046
diff changeset
465 (while (re-search-forward "^D" nil t)
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
466 (forward-char -1)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
467 (let ((buf (Buffer-menu-buffer nil)))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
468 (or (eq buf nil)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
469 (eq buf buff-menu-buffer)
30828
26dae0a7f527 (list-buffers-noselect): Set `buffer' as well as
Gerd Moellmann <gerd@gnu.org>
parents: 30824
diff changeset
470 (save-excursion (kill-buffer buf)))
26dae0a7f527 (list-buffers-noselect): Set `buffer' as well as
Gerd Moellmann <gerd@gnu.org>
parents: 30824
diff changeset
471 (if (and buf (buffer-name buf))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
472 (progn (delete-char 1)
64529
8b0db2e8ccd3 (Buffer-menu-unmark): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
473 (insert ?\s))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
474 (delete-region (point) (progn (forward-line 1) (point)))
49050
8b38bac9826a (Buffer-menu-execute): Fix for effect of header
Dave Love <fx@gnu.org>
parents: 49046
diff changeset
475 (unless (bobp)
8b38bac9826a (Buffer-menu-execute): Fix for effect of header
Dave Love <fx@gnu.org>
parents: 49046
diff changeset
476 (forward-char -1))))))))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
477
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
478 (defun Buffer-menu-select ()
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
479 "Select this line's buffer; also display buffers marked with `>'.
10592
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
480 You can mark buffers with the \\<Buffer-menu-mode-map>\\[Buffer-menu-mark] command.
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
481 This command deletes and replaces all the previously existing windows
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
482 in the selected frame."
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
483 (interactive)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
484 (let ((buff (Buffer-menu-buffer t))
30851
f9233f642b88 * buff-menu.el (list-buffers-noselect): Use `dolist' instead of
Sam Steingold <sds@gnu.org>
parents: 30828
diff changeset
485 (menu (current-buffer))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
486 (others ())
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
487 tem)
57555
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
488 (Buffer-menu-beginning)
49155
e8a430c172dc (Buffer-menu-select): Fix for effect of header line.
Andreas Schwab <schwab@suse.de>
parents: 49050
diff changeset
489 (while (re-search-forward "^>" nil t)
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
490 (setq tem (Buffer-menu-buffer t))
96276
5f58c2a66de7 * buff-menu.el: Use with-current-buffer and inhibit-read-only.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94678
diff changeset
491 (let ((inhibit-read-only t))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
492 (delete-char -1)
64529
8b0db2e8ccd3 (Buffer-menu-unmark): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
493 (insert ?\s))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
494 (or (eq tem buff) (memq tem others) (setq others (cons tem others))))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
495 (setq others (nreverse others)
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
496 tem (/ (1- (frame-height)) (1+ (length others))))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
497 (delete-other-windows)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
498 (switch-to-buffer buff)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
499 (or (eq menu buff)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
500 (bury-buffer menu))
2334
ec4ffd67483d Incorporated changes from Bob Weiner's enhanced buff-menu from the LCD
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2307
diff changeset
501 (if (equal (length others) 0)
ec4ffd67483d Incorporated changes from Bob Weiner's enhanced buff-menu from the LCD
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2307
diff changeset
502 (progn
2736
d6ff54640930 (buffer-menu): Don't save a window config.
Richard M. Stallman <rms@gnu.org>
parents: 2422
diff changeset
503 ;;; ;; Restore previous window configuration before displaying
d6ff54640930 (buffer-menu): Don't save a window config.
Richard M. Stallman <rms@gnu.org>
parents: 2422
diff changeset
504 ;;; ;; selected buffers.
d6ff54640930 (buffer-menu): Don't save a window config.
Richard M. Stallman <rms@gnu.org>
parents: 2422
diff changeset
505 ;;; (if Buffer-menu-window-config
d6ff54640930 (buffer-menu): Don't save a window config.
Richard M. Stallman <rms@gnu.org>
parents: 2422
diff changeset
506 ;;; (progn
d6ff54640930 (buffer-menu): Don't save a window config.
Richard M. Stallman <rms@gnu.org>
parents: 2422
diff changeset
507 ;;; (set-window-configuration Buffer-menu-window-config)
d6ff54640930 (buffer-menu): Don't save a window config.
Richard M. Stallman <rms@gnu.org>
parents: 2422
diff changeset
508 ;;; (setq Buffer-menu-window-config nil)))
2334
ec4ffd67483d Incorporated changes from Bob Weiner's enhanced buff-menu from the LCD
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2307
diff changeset
509 (switch-to-buffer buff))
ec4ffd67483d Incorporated changes from Bob Weiner's enhanced buff-menu from the LCD
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2307
diff changeset
510 (while others
ec4ffd67483d Incorporated changes from Bob Weiner's enhanced buff-menu from the LCD
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2307
diff changeset
511 (split-window nil tem)
ec4ffd67483d Incorporated changes from Bob Weiner's enhanced buff-menu from the LCD
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2307
diff changeset
512 (other-window 1)
ec4ffd67483d Incorporated changes from Bob Weiner's enhanced buff-menu from the LCD
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2307
diff changeset
513 (switch-to-buffer (car others))
ec4ffd67483d Incorporated changes from Bob Weiner's enhanced buff-menu from the LCD
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2307
diff changeset
514 (setq others (cdr others)))
ec4ffd67483d Incorporated changes from Bob Weiner's enhanced buff-menu from the LCD
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2307
diff changeset
515 (other-window 1) ;back to the beginning!
ec4ffd67483d Incorporated changes from Bob Weiner's enhanced buff-menu from the LCD
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2307
diff changeset
516 )))
ec4ffd67483d Incorporated changes from Bob Weiner's enhanced buff-menu from the LCD
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2307
diff changeset
517
96954
ad71105ebd5b (Buffer-menu-marked-buffers)
Juri Linkov <juri@jurta.org>
parents: 96276
diff changeset
518 (defun Buffer-menu-marked-buffers ()
ad71105ebd5b (Buffer-menu-marked-buffers)
Juri Linkov <juri@jurta.org>
parents: 96276
diff changeset
519 "Return a list of buffers marked with the \\<Buffer-menu-mode-map>\\[Buffer-menu-mark] command."
ad71105ebd5b (Buffer-menu-marked-buffers)
Juri Linkov <juri@jurta.org>
parents: 96276
diff changeset
520 (let (buffers)
ad71105ebd5b (Buffer-menu-marked-buffers)
Juri Linkov <juri@jurta.org>
parents: 96276
diff changeset
521 (Buffer-menu-beginning)
ad71105ebd5b (Buffer-menu-marked-buffers)
Juri Linkov <juri@jurta.org>
parents: 96276
diff changeset
522 (while (re-search-forward "^>" nil t)
ad71105ebd5b (Buffer-menu-marked-buffers)
Juri Linkov <juri@jurta.org>
parents: 96276
diff changeset
523 (setq buffers (cons (Buffer-menu-buffer t) buffers)))
ad71105ebd5b (Buffer-menu-marked-buffers)
Juri Linkov <juri@jurta.org>
parents: 96276
diff changeset
524 (nreverse buffers)))
ad71105ebd5b (Buffer-menu-marked-buffers)
Juri Linkov <juri@jurta.org>
parents: 96276
diff changeset
525
ad71105ebd5b (Buffer-menu-marked-buffers)
Juri Linkov <juri@jurta.org>
parents: 96276
diff changeset
526 (defun Buffer-menu-isearch-buffers ()
ad71105ebd5b (Buffer-menu-marked-buffers)
Juri Linkov <juri@jurta.org>
parents: 96276
diff changeset
527 "Search for a string through all marked buffers using Isearch."
ad71105ebd5b (Buffer-menu-marked-buffers)
Juri Linkov <juri@jurta.org>
parents: 96276
diff changeset
528 (interactive)
ad71105ebd5b (Buffer-menu-marked-buffers)
Juri Linkov <juri@jurta.org>
parents: 96276
diff changeset
529 (multi-isearch-buffers (Buffer-menu-marked-buffers)))
ad71105ebd5b (Buffer-menu-marked-buffers)
Juri Linkov <juri@jurta.org>
parents: 96276
diff changeset
530
ad71105ebd5b (Buffer-menu-marked-buffers)
Juri Linkov <juri@jurta.org>
parents: 96276
diff changeset
531 (defun Buffer-menu-isearch-buffers-regexp ()
ad71105ebd5b (Buffer-menu-marked-buffers)
Juri Linkov <juri@jurta.org>
parents: 96276
diff changeset
532 "Search for a regexp through all marked buffers using Isearch."
ad71105ebd5b (Buffer-menu-marked-buffers)
Juri Linkov <juri@jurta.org>
parents: 96276
diff changeset
533 (interactive)
ad71105ebd5b (Buffer-menu-marked-buffers)
Juri Linkov <juri@jurta.org>
parents: 96276
diff changeset
534 (multi-isearch-buffers-regexp (Buffer-menu-marked-buffers)))
10592
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
535
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
536
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
537 (defun Buffer-menu-visit-tags-table ()
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
538 "Visit the tags table in the buffer on this line. See `visit-tags-table'."
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
539 (interactive)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
540 (let ((file (buffer-file-name (Buffer-menu-buffer t))))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
541 (if file
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
542 (visit-tags-table file)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
543 (error "Specified buffer has no file"))))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
544
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
545 (defun Buffer-menu-1-window ()
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
546 "Select this line's buffer, alone, in full frame."
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
547 (interactive)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
548 (switch-to-buffer (Buffer-menu-buffer t))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
549 (bury-buffer (other-buffer))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
550 (delete-other-windows))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
551
6609
3b1eb7f1eba1 (Buffer-menu-mouse-select): New command.
Richard M. Stallman <rms@gnu.org>
parents: 6084
diff changeset
552 (defun Buffer-menu-mouse-select (event)
3b1eb7f1eba1 (Buffer-menu-mouse-select): New command.
Richard M. Stallman <rms@gnu.org>
parents: 6084
diff changeset
553 "Select the buffer whose line you click on."
3b1eb7f1eba1 (Buffer-menu-mouse-select): New command.
Richard M. Stallman <rms@gnu.org>
parents: 6084
diff changeset
554 (interactive "e")
3b1eb7f1eba1 (Buffer-menu-mouse-select): New command.
Richard M. Stallman <rms@gnu.org>
parents: 6084
diff changeset
555 (let (buffer)
96276
5f58c2a66de7 * buff-menu.el: Use with-current-buffer and inhibit-read-only.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94678
diff changeset
556 (with-current-buffer (window-buffer (posn-window (event-end event)))
6609
3b1eb7f1eba1 (Buffer-menu-mouse-select): New command.
Richard M. Stallman <rms@gnu.org>
parents: 6084
diff changeset
557 (save-excursion
3b1eb7f1eba1 (Buffer-menu-mouse-select): New command.
Richard M. Stallman <rms@gnu.org>
parents: 6084
diff changeset
558 (goto-char (posn-point (event-end event)))
3b1eb7f1eba1 (Buffer-menu-mouse-select): New command.
Richard M. Stallman <rms@gnu.org>
parents: 6084
diff changeset
559 (setq buffer (Buffer-menu-buffer t))))
3b1eb7f1eba1 (Buffer-menu-mouse-select): New command.
Richard M. Stallman <rms@gnu.org>
parents: 6084
diff changeset
560 (select-window (posn-window (event-end event)))
7659
ed3bbbdd9ef5 (Buffer-menu-mouse-select): Handle dedicated window.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
561 (if (and (window-dedicated-p (selected-window))
ed3bbbdd9ef5 (Buffer-menu-mouse-select): Handle dedicated window.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
562 (eq (selected-window) (frame-root-window)))
ed3bbbdd9ef5 (Buffer-menu-mouse-select): Handle dedicated window.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
563 (switch-to-buffer-other-frame buffer)
ed3bbbdd9ef5 (Buffer-menu-mouse-select): Handle dedicated window.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
564 (switch-to-buffer buffer))))
6609
3b1eb7f1eba1 (Buffer-menu-mouse-select): New command.
Richard M. Stallman <rms@gnu.org>
parents: 6084
diff changeset
565
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
566 (defun Buffer-menu-this-window ()
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
567 "Select this line's buffer in this window."
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
568 (interactive)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
569 (switch-to-buffer (Buffer-menu-buffer t)))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
570
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
571 (defun Buffer-menu-other-window ()
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
572 "Select this line's buffer in other window, leaving buffer menu visible."
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
573 (interactive)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
574 (switch-to-buffer-other-window (Buffer-menu-buffer t)))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
575
735
ea0823fe7df5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 662
diff changeset
576 (defun Buffer-menu-switch-other-window ()
ea0823fe7df5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 662
diff changeset
577 "Make the other window select this line's buffer.
ea0823fe7df5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 662
diff changeset
578 The current window remains selected."
ea0823fe7df5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 662
diff changeset
579 (interactive)
58955
58f1100f0a9e (Buffer-menu-switch-other-window): Bind pop-up-windows to t.
Juri Linkov <juri@jurta.org>
parents: 58954
diff changeset
580 (let ((pop-up-windows t)
58f1100f0a9e (Buffer-menu-switch-other-window): Bind pop-up-windows to t.
Juri Linkov <juri@jurta.org>
parents: 58954
diff changeset
581 same-window-buffer-names
58f1100f0a9e (Buffer-menu-switch-other-window): Bind pop-up-windows to t.
Juri Linkov <juri@jurta.org>
parents: 58954
diff changeset
582 same-window-regexps)
58f1100f0a9e (Buffer-menu-switch-other-window): Bind pop-up-windows to t.
Juri Linkov <juri@jurta.org>
parents: 58954
diff changeset
583 (display-buffer (Buffer-menu-buffer t))))
735
ea0823fe7df5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 662
diff changeset
584
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
585 (defun Buffer-menu-2-window ()
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
586 "Select this line's buffer, with previous buffer in second window."
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
587 (interactive)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
588 (let ((buff (Buffer-menu-buffer t))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
589 (menu (current-buffer))
58955
58f1100f0a9e (Buffer-menu-switch-other-window): Bind pop-up-windows to t.
Juri Linkov <juri@jurta.org>
parents: 58954
diff changeset
590 (pop-up-windows t)
58f1100f0a9e (Buffer-menu-switch-other-window): Bind pop-up-windows to t.
Juri Linkov <juri@jurta.org>
parents: 58954
diff changeset
591 same-window-buffer-names
58f1100f0a9e (Buffer-menu-switch-other-window): Bind pop-up-windows to t.
Juri Linkov <juri@jurta.org>
parents: 58954
diff changeset
592 same-window-regexps)
2334
ec4ffd67483d Incorporated changes from Bob Weiner's enhanced buff-menu from the LCD
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2307
diff changeset
593 (delete-other-windows)
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
594 (switch-to-buffer (other-buffer))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
595 (pop-to-buffer buff)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
596 (bury-buffer menu)))
662
8a533acedb77 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 194
diff changeset
597
2378
c5d0140aa7b6 (Buffer-menu-toggle-read-only) Added, per Rob Austein's suggestion
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2334
diff changeset
598 (defun Buffer-menu-toggle-read-only ()
6084
d42c85701055 (Buffer-menu-toggle-read-only): Change toggle-read-only to
Karl Heuer <kwzh@gnu.org>
parents: 3591
diff changeset
599 "Toggle read-only status of buffer on this line, perhaps via version control."
2378
c5d0140aa7b6 (Buffer-menu-toggle-read-only) Added, per Rob Austein's suggestion
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2334
diff changeset
600 (interactive)
c5d0140aa7b6 (Buffer-menu-toggle-read-only) Added, per Rob Austein's suggestion
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2334
diff changeset
601 (let (char)
96276
5f58c2a66de7 * buff-menu.el: Use with-current-buffer and inhibit-read-only.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94678
diff changeset
602 (with-current-buffer (Buffer-menu-buffer t)
5f58c2a66de7 * buff-menu.el: Use with-current-buffer and inhibit-read-only.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94678
diff changeset
603 (toggle-read-only)
64529
8b0db2e8ccd3 (Buffer-menu-unmark): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
604 (setq char (if buffer-read-only ?% ?\s)))
2378
c5d0140aa7b6 (Buffer-menu-toggle-read-only) Added, per Rob Austein's suggestion
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2334
diff changeset
605 (save-excursion
c5d0140aa7b6 (Buffer-menu-toggle-read-only) Added, per Rob Austein's suggestion
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2334
diff changeset
606 (beginning-of-line)
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
607 (forward-char 1)
2378
c5d0140aa7b6 (Buffer-menu-toggle-read-only) Added, per Rob Austein's suggestion
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2334
diff changeset
608 (if (/= (following-char) char)
96276
5f58c2a66de7 * buff-menu.el: Use with-current-buffer and inhibit-read-only.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94678
diff changeset
609 (let ((inhibit-read-only t))
2378
c5d0140aa7b6 (Buffer-menu-toggle-read-only) Added, per Rob Austein's suggestion
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2334
diff changeset
610 (delete-char 1)
c5d0140aa7b6 (Buffer-menu-toggle-read-only) Added, per Rob Austein's suggestion
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2334
diff changeset
611 (insert char))))))
c5d0140aa7b6 (Buffer-menu-toggle-read-only) Added, per Rob Austein's suggestion
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2334
diff changeset
612
18278
4f78346eb734 (Buffer-menu-bury): New command.
Richard M. Stallman <rms@gnu.org>
parents: 16401
diff changeset
613 (defun Buffer-menu-bury ()
4f78346eb734 (Buffer-menu-bury): New command.
Richard M. Stallman <rms@gnu.org>
parents: 16401
diff changeset
614 "Bury the buffer listed on this line."
4f78346eb734 (Buffer-menu-bury): New command.
Richard M. Stallman <rms@gnu.org>
parents: 16401
diff changeset
615 (interactive)
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
616 (when (Buffer-menu-no-header)
18280
f693db11df45 (Buffer-menu-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 18278
diff changeset
617 (save-excursion
f693db11df45 (Buffer-menu-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 18278
diff changeset
618 (beginning-of-line)
f693db11df45 (Buffer-menu-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 18278
diff changeset
619 (bury-buffer (Buffer-menu-buffer t))
f693db11df45 (Buffer-menu-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 18278
diff changeset
620 (let ((line (buffer-substring (point) (progn (forward-line 1) (point))))
96276
5f58c2a66de7 * buff-menu.el: Use with-current-buffer and inhibit-read-only.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94678
diff changeset
621 (inhibit-read-only t))
18280
f693db11df45 (Buffer-menu-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 18278
diff changeset
622 (delete-region (point) (progn (forward-line -1) (point)))
f693db11df45 (Buffer-menu-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 18278
diff changeset
623 (goto-char (point-max))
f693db11df45 (Buffer-menu-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 18278
diff changeset
624 (insert line))
f693db11df45 (Buffer-menu-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 18278
diff changeset
625 (message "Buried buffer moved to the end"))))
25166
e8ec0085ff7b (Buffer-menu-mode-map): Add V for Buffer-menu-View.
Richard M. Stallman <rms@gnu.org>
parents: 21093
diff changeset
626
e8ec0085ff7b (Buffer-menu-mode-map): Add V for Buffer-menu-View.
Richard M. Stallman <rms@gnu.org>
parents: 21093
diff changeset
627
e8ec0085ff7b (Buffer-menu-mode-map): Add V for Buffer-menu-View.
Richard M. Stallman <rms@gnu.org>
parents: 21093
diff changeset
628 (defun Buffer-menu-view ()
e8ec0085ff7b (Buffer-menu-mode-map): Add V for Buffer-menu-View.
Richard M. Stallman <rms@gnu.org>
parents: 21093
diff changeset
629 "View this line's buffer in View mode."
e8ec0085ff7b (Buffer-menu-mode-map): Add V for Buffer-menu-View.
Richard M. Stallman <rms@gnu.org>
parents: 21093
diff changeset
630 (interactive)
e8ec0085ff7b (Buffer-menu-mode-map): Add V for Buffer-menu-View.
Richard M. Stallman <rms@gnu.org>
parents: 21093
diff changeset
631 (view-buffer (Buffer-menu-buffer t)))
e8ec0085ff7b (Buffer-menu-mode-map): Add V for Buffer-menu-View.
Richard M. Stallman <rms@gnu.org>
parents: 21093
diff changeset
632
e8ec0085ff7b (Buffer-menu-mode-map): Add V for Buffer-menu-View.
Richard M. Stallman <rms@gnu.org>
parents: 21093
diff changeset
633
e8ec0085ff7b (Buffer-menu-mode-map): Add V for Buffer-menu-View.
Richard M. Stallman <rms@gnu.org>
parents: 21093
diff changeset
634 (defun Buffer-menu-view-other-window ()
e8ec0085ff7b (Buffer-menu-mode-map): Add V for Buffer-menu-View.
Richard M. Stallman <rms@gnu.org>
parents: 21093
diff changeset
635 "View this line's buffer in View mode in another window."
e8ec0085ff7b (Buffer-menu-mode-map): Add V for Buffer-menu-View.
Richard M. Stallman <rms@gnu.org>
parents: 21093
diff changeset
636 (interactive)
e8ec0085ff7b (Buffer-menu-mode-map): Add V for Buffer-menu-View.
Richard M. Stallman <rms@gnu.org>
parents: 21093
diff changeset
637 (view-buffer-other-window (Buffer-menu-buffer t)))
10419
cb6f68d16210 (list-buffers): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10269
diff changeset
638
cb6f68d16210 (list-buffers): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10269
diff changeset
639
105595
aa17a8adf478 (list-buffers, ctl-x-map): Mark the entry points with ;;;###autoload cookies.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101214
diff changeset
640 ;;;###autoload
10419
cb6f68d16210 (list-buffers): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10269
diff changeset
641 (define-key ctl-x-map "\C-b" 'list-buffers)
cb6f68d16210 (list-buffers): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10269
diff changeset
642
105595
aa17a8adf478 (list-buffers, ctl-x-map): Mark the entry points with ;;;###autoload cookies.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101214
diff changeset
643 ;;;###autoload
10419
cb6f68d16210 (list-buffers): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10269
diff changeset
644 (defun list-buffers (&optional files-only)
cb6f68d16210 (list-buffers): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10269
diff changeset
645 "Display a list of names of existing buffers.
cb6f68d16210 (list-buffers): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10269
diff changeset
646 The list is displayed in a buffer named `*Buffer List*'.
cb6f68d16210 (list-buffers): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10269
diff changeset
647 Note that buffers with names starting with spaces are omitted.
cb6f68d16210 (list-buffers): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10269
diff changeset
648 Non-null optional arg FILES-ONLY means mention only file buffers.
cb6f68d16210 (list-buffers): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10269
diff changeset
649
40622
d2bfc00496d7 (buffer-menu): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 40489
diff changeset
650 For more information, see the function `buffer-menu'."
10419
cb6f68d16210 (list-buffers): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10269
diff changeset
651 (interactive "P")
10592
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
652 (display-buffer (list-buffers-noselect files-only)))
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
653
99755
8474e0f67804 (Buffer-menu-short-ellipsis): Partly undo last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 99749
diff changeset
654 (defconst Buffer-menu-short-ellipsis
8474e0f67804 (Buffer-menu-short-ellipsis): Partly undo last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 99749
diff changeset
655 ;; This file is preloaded, so we can't use char-displayable-p here
8474e0f67804 (Buffer-menu-short-ellipsis): Partly undo last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 99749
diff changeset
656 ;; because we don't know yet what display we're going to connect to.
8474e0f67804 (Buffer-menu-short-ellipsis): Partly undo last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 99749
diff changeset
657 ":" ;; (if (char-displayable-p ?…) "…" ":")
8474e0f67804 (Buffer-menu-short-ellipsis): Partly undo last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 99749
diff changeset
658 )
99749
b491431b74c8 (Buffer-menu-short-ellipsis): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 99748
diff changeset
659
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
660 (defun Buffer-menu-buffer+size (name size &optional name-props size-props)
99749
b491431b74c8 (Buffer-menu-short-ellipsis): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 99748
diff changeset
661 (if (> (+ (string-width name) (string-width size) 2)
b491431b74c8 (Buffer-menu-short-ellipsis): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 99748
diff changeset
662 Buffer-menu-buffer+size-width)
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
663 (setq name
99749
b491431b74c8 (Buffer-menu-short-ellipsis): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 99748
diff changeset
664 (let ((tail
b491431b74c8 (Buffer-menu-short-ellipsis): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 99748
diff changeset
665 (if (string-match "<[0-9]+>$" name)
b491431b74c8 (Buffer-menu-short-ellipsis): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 99748
diff changeset
666 (match-string 0 name)
b491431b74c8 (Buffer-menu-short-ellipsis): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 99748
diff changeset
667 "")))
b491431b74c8 (Buffer-menu-short-ellipsis): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 99748
diff changeset
668 (concat (truncate-string-to-width
b491431b74c8 (Buffer-menu-short-ellipsis): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 99748
diff changeset
669 name
b491431b74c8 (Buffer-menu-short-ellipsis): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 99748
diff changeset
670 (- Buffer-menu-buffer+size-width
b491431b74c8 (Buffer-menu-short-ellipsis): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 99748
diff changeset
671 (max (string-width size) 3)
b491431b74c8 (Buffer-menu-short-ellipsis): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 99748
diff changeset
672 (string-width tail)
b491431b74c8 (Buffer-menu-short-ellipsis): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 99748
diff changeset
673 2))
b491431b74c8 (Buffer-menu-short-ellipsis): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 99748
diff changeset
674 Buffer-menu-short-ellipsis
b491431b74c8 (Buffer-menu-short-ellipsis): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 99748
diff changeset
675 tail)))
49046
d6e1c5f7f468 (Buffer-menu-buffer+size): Don't clobber buffer name.
Andreas Schwab <schwab@suse.de>
parents: 48889
diff changeset
676 ;; Don't put properties on (buffer-name).
d6e1c5f7f468 (Buffer-menu-buffer+size): Don't clobber buffer name.
Andreas Schwab <schwab@suse.de>
parents: 48889
diff changeset
677 (setq name (copy-sequence name)))
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
678 (add-text-properties 0 (length name) name-props name)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
679 (add-text-properties 0 (length size) size-props size)
105887
c17b71571661 * buff-menu.el (Buffer-menu-buffer+size): Use display property to
Chong Yidong <cyd@stupidchicken.com>
parents: 105836
diff changeset
680 (let ((name+space-width (- Buffer-menu-buffer+size-width
c17b71571661 * buff-menu.el (Buffer-menu-buffer+size): Use display property to
Chong Yidong <cyd@stupidchicken.com>
parents: 105836
diff changeset
681 (string-width size))))
c17b71571661 * buff-menu.el (Buffer-menu-buffer+size): Use display property to
Chong Yidong <cyd@stupidchicken.com>
parents: 105836
diff changeset
682 (concat name
c17b71571661 * buff-menu.el (Buffer-menu-buffer+size): Use display property to
Chong Yidong <cyd@stupidchicken.com>
parents: 105836
diff changeset
683 (propertize (make-string (- name+space-width (string-width name))
c17b71571661 * buff-menu.el (Buffer-menu-buffer+size): Use display property to
Chong Yidong <cyd@stupidchicken.com>
parents: 105836
diff changeset
684 ?\s)
c17b71571661 * buff-menu.el (Buffer-menu-buffer+size): Use display property to
Chong Yidong <cyd@stupidchicken.com>
parents: 105836
diff changeset
685 'display `(space :align-to ,(+ 4 name+space-width)))
c17b71571661 * buff-menu.el (Buffer-menu-buffer+size): Use display property to
Chong Yidong <cyd@stupidchicken.com>
parents: 105836
diff changeset
686 size)))
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
687
54580
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
688 (defun Buffer-menu-sort (column)
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
689 "Sort the buffer menu by COLUMN."
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
690 (interactive "P")
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
691 (when column
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
692 (setq column (prefix-numeric-value column))
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
693 (if (< column 2) (setq column 2))
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
694 (if (> column 5) (setq column 5)))
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
695 (setq Buffer-menu-sort-column column)
96276
5f58c2a66de7 * buff-menu.el: Use with-current-buffer and inhibit-read-only.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94678
diff changeset
696 (let ((inhibit-read-only t) l buf m1 m2)
57555
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
697 (save-excursion
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
698 (Buffer-menu-beginning)
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
699 (while (not (eobp))
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
700 (when (buffer-live-p (setq buf (get-text-property (+ (point) 4) 'buffer)))
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
701 (setq m1 (char-after)
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
702 m1 (if (memq m1 '(?> ?D)) m1)
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
703 m2 (char-after (+ (point) 2))
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
704 m2 (if (eq m2 ?S) m2))
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
705 (if (or m1 m2)
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
706 (push (list buf m1 m2) l)))
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
707 (forward-line)))
101213
6de6a0cbf0c3 (Buffer-menu-sort): Use revert-buffer, not Buffer-menu-revert.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 101208
diff changeset
708 (revert-buffer)
57555
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
709 (save-excursion
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
710 (Buffer-menu-beginning)
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
711 (while (not (eobp))
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
712 (when (setq buf (assq (get-text-property (+ (point) 4) 'buffer) l))
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
713 (setq m1 (cadr buf)
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
714 m2 (cadr (cdr buf)))
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
715 (when m1
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
716 (delete-char 1)
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
717 (insert m1)
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
718 (backward-char 1))
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
719 (when m2
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
720 (forward-char 2)
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
721 (delete-char 1)
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
722 (insert m2)))
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
723 (forward-line)))))
54580
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
724
65355
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
725 (defun Buffer-menu-sort-by-column (&optional e)
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
726 "Sort the buffer menu by the column clicked on."
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
727 (interactive (list last-input-event))
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
728 (if e (mouse-select-window e))
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
729 (let* ((pos (event-start e))
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
730 (obj (posn-object pos))
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
731 (col (if obj
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
732 (get-text-property (cdr obj) 'column (car obj))
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
733 (get-text-property (posn-point pos) 'column))))
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
734 (Buffer-menu-sort col)))
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
735
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
736 (defvar Buffer-menu-sort-button-map
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
737 (let ((map (make-sparse-keymap)))
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
738 ;; This keymap handles both nil and non-nil values for
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
739 ;; Buffer-menu-use-header-line.
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
740 (define-key map [header-line mouse-1] 'Buffer-menu-sort-by-column)
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
741 (define-key map [header-line mouse-2] 'Buffer-menu-sort-by-column)
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
742 (define-key map [mouse-2] 'Buffer-menu-sort-by-column)
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
743 (define-key map [follow-link] 'mouse-face)
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
744 (define-key map "\C-m" 'Buffer-menu-sort-by-column)
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
745 map)
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
746 "Local keymap for Buffer menu sort buttons.")
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
747
54580
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
748 (defun Buffer-menu-make-sort-button (name column)
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
749 (if (equal column Buffer-menu-sort-column) (setq column nil))
65355
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
750 (propertize name
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
751 'column column
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
752 'help-echo (concat
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
753 (if Buffer-menu-use-header-line
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
754 "mouse-1, mouse-2: sort by "
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
755 "mouse-2, RET: sort by ")
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
756 (if column (downcase name) "visited order"))
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
757 'mouse-face 'highlight
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
758 'keymap Buffer-menu-sort-button-map))
54580
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
759
58276
935277968aef (list-buffers-noselect): New arg BUFFER-LIST.
Richard M. Stallman <rms@gnu.org>
parents: 57920
diff changeset
760 (defun list-buffers-noselect (&optional files-only buffer-list)
10592
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
761 "Create and return a buffer with a list of names of existing buffers.
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
762 The buffer is named `*Buffer List*'.
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
763 Note that buffers with names starting with spaces are omitted.
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
764 Non-null optional arg FILES-ONLY means mention only file buffers.
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
765
58276
935277968aef (list-buffers-noselect): New arg BUFFER-LIST.
Richard M. Stallman <rms@gnu.org>
parents: 57920
diff changeset
766 If BUFFER-LIST is non-nil, it should be a list of buffers;
935277968aef (list-buffers-noselect): New arg BUFFER-LIST.
Richard M. Stallman <rms@gnu.org>
parents: 57920
diff changeset
767 it means list those buffers and no others.
935277968aef (list-buffers-noselect): New arg BUFFER-LIST.
Richard M. Stallman <rms@gnu.org>
parents: 57920
diff changeset
768
40622
d2bfc00496d7 (buffer-menu): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 40489
diff changeset
769 For more information, see the function `buffer-menu'."
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
770 (let* ((old-buffer (current-buffer))
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
771 (standard-output standard-output)
64529
8b0db2e8ccd3 (Buffer-menu-unmark): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
772 (mode-end (make-string (- Buffer-menu-mode-width 2) ?\s))
58425
f0b9b97606f9 (list-buffers-noselect): Use fixed-pitch only in the header-line.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58352
diff changeset
773 (header (concat "CRM "
54580
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
774 (Buffer-menu-buffer+size
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
775 (Buffer-menu-make-sort-button "Buffer" 2)
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
776 (Buffer-menu-make-sort-button "Size" 3))
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
777 " "
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
778 (Buffer-menu-make-sort-button "Mode" 4) mode-end
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
779 (Buffer-menu-make-sort-button "File" 5) "\n"))
58299
40fc4ca7acc0 (list-buffers-noselect): Massage to fit in 80 columns.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58276
diff changeset
780 list desired-point)
50172
48610ee0507d (list-buffers-noselect): Use the display property
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50033
diff changeset
781 (when Buffer-menu-use-header-line
54580
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
782 (let ((pos 0))
69024
fef6008cad43 (list-buffers-noselect): Turn also "\n" into a strech spec so it doesn't display
Juanma Barranquero <lekktu@gmail.com>
parents: 68651
diff changeset
783 ;; Turn whitespace chars in the header into stretch specs so
fef6008cad43 (list-buffers-noselect): Turn also "\n" into a strech spec so it doesn't display
Juanma Barranquero <lekktu@gmail.com>
parents: 68651
diff changeset
784 ;; they work regardless of the header-line face.
fef6008cad43 (list-buffers-noselect): Turn also "\n" into a strech spec so it doesn't display
Juanma Barranquero <lekktu@gmail.com>
parents: 68651
diff changeset
785 (while (string-match "[ \t\n]+" header pos)
50172
48610ee0507d (list-buffers-noselect): Use the display property
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50033
diff changeset
786 (setq pos (match-end 0))
48610ee0507d (list-buffers-noselect): Use the display property
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50033
diff changeset
787 (put-text-property (match-beginning 0) pos 'display
58425
f0b9b97606f9 (list-buffers-noselect): Use fixed-pitch only in the header-line.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58352
diff changeset
788 ;; Assume fixed-size chars in the buffer.
58352
e14d75675a15 (list-buffers-noselect): Eliminate space at the start of HEADER.
Richard M. Stallman <rms@gnu.org>
parents: 58299
diff changeset
789 (list 'space :align-to pos)
58425
f0b9b97606f9 (list-buffers-noselect): Use fixed-pitch only in the header-line.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58352
diff changeset
790 header)))
f0b9b97606f9 (list-buffers-noselect): Use fixed-pitch only in the header-line.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58352
diff changeset
791 ;; Try to better align the one-char headers.
f0b9b97606f9 (list-buffers-noselect): Use fixed-pitch only in the header-line.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58352
diff changeset
792 (put-text-property 0 3 'face 'fixed-pitch header)
f0b9b97606f9 (list-buffers-noselect): Use fixed-pitch only in the header-line.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58352
diff changeset
793 ;; Add a "dummy" leading space to align the beginning of the header
f0b9b97606f9 (list-buffers-noselect): Use fixed-pitch only in the header-line.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58352
diff changeset
794 ;; line with the beginning of the text (rather than with the left
76023
70e00d4c1216 (list-buffers-noselect): Use explicit unicode code rather than the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 75347
diff changeset
795 ;; scrollbar or the left fringe). --Stef
58425
f0b9b97606f9 (list-buffers-noselect): Use fixed-pitch only in the header-line.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58352
diff changeset
796 (setq header (concat (propertize " " 'display '(space :align-to 0))
58954
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
797 header)))
54580
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
798 (with-current-buffer (get-buffer-create "*Buffer List*")
10592
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
799 (setq buffer-read-only nil)
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
800 (erase-buffer)
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
801 (setq standard-output (current-buffer))
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
802 (unless Buffer-menu-use-header-line
76023
70e00d4c1216 (list-buffers-noselect): Use explicit unicode code rather than the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 75347
diff changeset
803 ;; Use U+2014 (EM DASH) to underline if possible, else use ASCII
70e00d4c1216 (list-buffers-noselect): Use explicit unicode code rather than the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 75347
diff changeset
804 ;; (i.e. U+002D, HYPHEN-MINUS).
70e00d4c1216 (list-buffers-noselect): Use explicit unicode code rather than the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 75347
diff changeset
805 (let ((underline (if (char-displayable-p ?\u2014) ?\u2014 ?-)))
58425
f0b9b97606f9 (list-buffers-noselect): Use fixed-pitch only in the header-line.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58352
diff changeset
806 (insert header
f0b9b97606f9 (list-buffers-noselect): Use fixed-pitch only in the header-line.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58352
diff changeset
807 (apply 'string
f0b9b97606f9 (list-buffers-noselect): Use fixed-pitch only in the header-line.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58352
diff changeset
808 (mapcar (lambda (c)
64529
8b0db2e8ccd3 (Buffer-menu-unmark): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
809 (if (memq c '(?\n ?\s)) c underline))
58425
f0b9b97606f9 (list-buffers-noselect): Use fixed-pitch only in the header-line.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58352
diff changeset
810 header)))))
58954
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
811 ;; Collect info for every buffer we're interested in.
67327
8e9343dc7c39 (Buffer-menu-use-frame-buffer-list): New user option.
Luc Teirlinck <teirllm@auburn.edu>
parents: 67177
diff changeset
812 (dolist (buffer (or buffer-list
8e9343dc7c39 (Buffer-menu-use-frame-buffer-list): New user option.
Luc Teirlinck <teirllm@auburn.edu>
parents: 67177
diff changeset
813 (buffer-list
8e9343dc7c39 (Buffer-menu-use-frame-buffer-list): New user option.
Luc Teirlinck <teirllm@auburn.edu>
parents: 67177
diff changeset
814 (when Buffer-menu-use-frame-buffer-list
8e9343dc7c39 (Buffer-menu-use-frame-buffer-list): New user option.
Luc Teirlinck <teirllm@auburn.edu>
parents: 67177
diff changeset
815 (selected-frame)))))
58954
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
816 (with-current-buffer buffer
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
817 (let ((name (buffer-name))
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
818 (file buffer-file-name))
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
819 (unless (and (not buffer-list)
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
820 (or
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
821 ;; Don't mention internal buffers.
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
822 (and (string= (substring name 0 1) " ") (null file))
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
823 ;; Maybe don't mention buffers without files.
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
824 (and files-only (not file))
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
825 (string= name "*Buffer List*")))
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
826 ;; Otherwise output info.
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
827 (let ((mode (concat (format-mode-line mode-name nil nil buffer)
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
828 (if mode-line-process
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
829 (format-mode-line mode-line-process
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
830 nil nil buffer))))
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
831 (bits (string
64529
8b0db2e8ccd3 (Buffer-menu-unmark): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
832 (if (eq buffer old-buffer) ?. ?\s)
58954
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
833 ;; Handle readonly status. The output buffer
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
834 ;; is special cased to appear readonly; it is
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
835 ;; actually made so at a later date.
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
836 (if (or (eq buffer standard-output)
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
837 buffer-read-only)
64529
8b0db2e8ccd3 (Buffer-menu-unmark): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
838 ?% ?\s)
58954
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
839 ;; Identify modified buffers.
64529
8b0db2e8ccd3 (Buffer-menu-unmark): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
840 (if (buffer-modified-p) ?* ?\s)
58954
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
841 ;; Space separator.
64529
8b0db2e8ccd3 (Buffer-menu-unmark): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
842 ?\s)))
58954
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
843 (unless file
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
844 ;; No visited file. Check local value of
70967
b4e6091c2346 (list-buffers-noselect): For Info buffers, use Info-current-file as the
Eli Zaretskii <eliz@gnu.org>
parents: 69024
diff changeset
845 ;; list-buffers-directory and, for Info buffers,
b4e6091c2346 (list-buffers-noselect): For Info buffers, use Info-current-file as the
Eli Zaretskii <eliz@gnu.org>
parents: 69024
diff changeset
846 ;; Info-current-file.
b4e6091c2346 (list-buffers-noselect): For Info buffers, use Info-current-file as the
Eli Zaretskii <eliz@gnu.org>
parents: 69024
diff changeset
847 (cond ((and (boundp 'list-buffers-directory)
b4e6091c2346 (list-buffers-noselect): For Info buffers, use Info-current-file as the
Eli Zaretskii <eliz@gnu.org>
parents: 69024
diff changeset
848 list-buffers-directory)
b4e6091c2346 (list-buffers-noselect): For Info buffers, use Info-current-file as the
Eli Zaretskii <eliz@gnu.org>
parents: 69024
diff changeset
849 (setq file list-buffers-directory))
b4e6091c2346 (list-buffers-noselect): For Info buffers, use Info-current-file as the
Eli Zaretskii <eliz@gnu.org>
parents: 69024
diff changeset
850 ((eq major-mode 'Info-mode)
b4e6091c2346 (list-buffers-noselect): For Info buffers, use Info-current-file as the
Eli Zaretskii <eliz@gnu.org>
parents: 69024
diff changeset
851 (setq file Info-current-file)
b4e6091c2346 (list-buffers-noselect): For Info buffers, use Info-current-file as the
Eli Zaretskii <eliz@gnu.org>
parents: 69024
diff changeset
852 (cond
71516
a04fe4434fba (list-buffers-noselect): Compare Info file
Juri Linkov <juri@jurta.org>
parents: 70967
diff changeset
853 ((equal file "dir")
70967
b4e6091c2346 (list-buffers-noselect): For Info buffers, use Info-current-file as the
Eli Zaretskii <eliz@gnu.org>
parents: 69024
diff changeset
854 (setq file "*Info Directory*"))
b4e6091c2346 (list-buffers-noselect): For Info buffers, use Info-current-file as the
Eli Zaretskii <eliz@gnu.org>
parents: 69024
diff changeset
855 ((eq file 'apropos)
b4e6091c2346 (list-buffers-noselect): For Info buffers, use Info-current-file as the
Eli Zaretskii <eliz@gnu.org>
parents: 69024
diff changeset
856 (setq file "*Info Apropos*"))
b4e6091c2346 (list-buffers-noselect): For Info buffers, use Info-current-file as the
Eli Zaretskii <eliz@gnu.org>
parents: 69024
diff changeset
857 ((eq file 'history)
b4e6091c2346 (list-buffers-noselect): For Info buffers, use Info-current-file as the
Eli Zaretskii <eliz@gnu.org>
parents: 69024
diff changeset
858 (setq file "*Info History*"))
b4e6091c2346 (list-buffers-noselect): For Info buffers, use Info-current-file as the
Eli Zaretskii <eliz@gnu.org>
parents: 69024
diff changeset
859 ((eq file 'toc)
b4e6091c2346 (list-buffers-noselect): For Info buffers, use Info-current-file as the
Eli Zaretskii <eliz@gnu.org>
parents: 69024
diff changeset
860 (setq file "*Info TOC*"))
b4e6091c2346 (list-buffers-noselect): For Info buffers, use Info-current-file as the
Eli Zaretskii <eliz@gnu.org>
parents: 69024
diff changeset
861 ((not (stringp file)) ;; avoid errors
72289
40a24db2adc4 (list-buffers-noselect): For Info buffers, use "(file)node" instead of the
Eli Zaretskii <eliz@gnu.org>
parents: 71516
diff changeset
862 (setq file nil))
40a24db2adc4 (list-buffers-noselect): For Info buffers, use "(file)node" instead of the
Eli Zaretskii <eliz@gnu.org>
parents: 71516
diff changeset
863 (t
40a24db2adc4 (list-buffers-noselect): For Info buffers, use "(file)node" instead of the
Eli Zaretskii <eliz@gnu.org>
parents: 71516
diff changeset
864 (setq file (concat "("
40a24db2adc4 (list-buffers-noselect): For Info buffers, use "(file)node" instead of the
Eli Zaretskii <eliz@gnu.org>
parents: 71516
diff changeset
865 (file-name-nondirectory file)
96954
ad71105ebd5b (Buffer-menu-marked-buffers)
Juri Linkov <juri@jurta.org>
parents: 96276
diff changeset
866 ") "
72289
40a24db2adc4 (list-buffers-noselect): For Info buffers, use "(file)node" instead of the
Eli Zaretskii <eliz@gnu.org>
parents: 71516
diff changeset
867 Info-current-node)))))))
58954
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
868 (push (list buffer bits name (buffer-size) mode file)
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
869 list))))))
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
870 ;; Preserve the original buffer-list ordering, just in case.
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
871 (setq list (nreverse list))
58299
40fc4ca7acc0 (list-buffers-noselect): Massage to fit in 80 columns.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58276
diff changeset
872 ;; Place the buffers's info in the output buffer, sorted if necessary.
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
873 (dolist (buffer
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
874 (if Buffer-menu-sort-column
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
875 (sort list
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
876 (if (eq Buffer-menu-sort-column 3)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
877 (lambda (a b)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
878 (< (nth Buffer-menu-sort-column a)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
879 (nth Buffer-menu-sort-column b)))
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
880 (lambda (a b)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
881 (string< (nth Buffer-menu-sort-column a)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
882 (nth Buffer-menu-sort-column b)))))
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
883 list))
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
884 (if (eq (car buffer) old-buffer)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
885 (setq desired-point (point)))
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
886 (insert (cadr buffer)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
887 ;; Put the buffer name into a text property
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
888 ;; so we don't have to extract it from the text.
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
889 ;; This way we avoid problems with unusual buffer names.
92953
21d63c870839 (list-buffers-noselect): Display buffer name in
Nick Roberts <nickrob@snap.net.nz>
parents: 87649
diff changeset
890 (let ((name (nth 2 buffer))
21d63c870839 (list-buffers-noselect): Display buffer name in
Nick Roberts <nickrob@snap.net.nz>
parents: 87649
diff changeset
891 (size (int-to-string (nth 3 buffer))))
105887
c17b71571661 * buff-menu.el (Buffer-menu-buffer+size): Use display property to
Chong Yidong <cyd@stupidchicken.com>
parents: 105836
diff changeset
892 (Buffer-menu-buffer+size name size
92953
21d63c870839 (list-buffers-noselect): Display buffer name in
Nick Roberts <nickrob@snap.net.nz>
parents: 87649
diff changeset
893 `(buffer-name ,name
21d63c870839 (list-buffers-noselect): Display buffer name in
Nick Roberts <nickrob@snap.net.nz>
parents: 87649
diff changeset
894 buffer ,(car buffer)
21d63c870839 (list-buffers-noselect): Display buffer name in
Nick Roberts <nickrob@snap.net.nz>
parents: 87649
diff changeset
895 font-lock-face buffer-menu-buffer
21d63c870839 (list-buffers-noselect): Display buffer name in
Nick Roberts <nickrob@snap.net.nz>
parents: 87649
diff changeset
896 mouse-face highlight
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 99755
diff changeset
897 help-echo
92953
21d63c870839 (list-buffers-noselect): Display buffer name in
Nick Roberts <nickrob@snap.net.nz>
parents: 87649
diff changeset
898 ,(if (>= (length name)
21d63c870839 (list-buffers-noselect): Display buffer name in
Nick Roberts <nickrob@snap.net.nz>
parents: 87649
diff changeset
899 (- Buffer-menu-buffer+size-width
21d63c870839 (list-buffers-noselect): Display buffer name in
Nick Roberts <nickrob@snap.net.nz>
parents: 87649
diff changeset
900 (max (length size) 3)
21d63c870839 (list-buffers-noselect): Display buffer name in
Nick Roberts <nickrob@snap.net.nz>
parents: 87649
diff changeset
901 2))
21d63c870839 (list-buffers-noselect): Display buffer name in
Nick Roberts <nickrob@snap.net.nz>
parents: 87649
diff changeset
902 name
21d63c870839 (list-buffers-noselect): Display buffer name in
Nick Roberts <nickrob@snap.net.nz>
parents: 87649
diff changeset
903 "mouse-2: select this buffer"))))
99748
cea0d38a2587 (Buffer-menu-buffer+size, list-buffers-noselect):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 97960
diff changeset
904 " "
cea0d38a2587 (Buffer-menu-buffer+size, list-buffers-noselect):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 97960
diff changeset
905 (if (> (string-width (nth 4 buffer)) Buffer-menu-mode-width)
cea0d38a2587 (Buffer-menu-buffer+size, list-buffers-noselect):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 97960
diff changeset
906 (truncate-string-to-width (nth 4 buffer)
99749
b491431b74c8 (Buffer-menu-short-ellipsis): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 99748
diff changeset
907 Buffer-menu-mode-width)
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
908 (nth 4 buffer)))
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
909 (when (nth 5 buffer)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
910 (indent-to (+ Buffer-menu-buffer-column Buffer-menu-buffer+size-width
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
911 Buffer-menu-mode-width 4) 1)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
912 (princ (abbreviate-file-name (nth 5 buffer))))
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
913 (princ "\n"))
10419
cb6f68d16210 (list-buffers): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10269
diff changeset
914 (Buffer-menu-mode)
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
915 (when Buffer-menu-use-header-line
50172
48610ee0507d (list-buffers-noselect): Use the display property
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50033
diff changeset
916 (setq header-line-format header))
10592
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
917 ;; DESIRED-POINT doesn't have to be set; it is not when the
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
918 ;; current buffer is not displayed for some reason.
10419
cb6f68d16210 (list-buffers): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10269
diff changeset
919 (and desired-point
10592
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
920 (goto-char desired-point))
54594
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
921 (setq Buffer-menu-files-only files-only)
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
922 (set-buffer-modified-p nil)
10592
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
923 (current-buffer))))
10419
cb6f68d16210 (list-buffers): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10269
diff changeset
924
662
8a533acedb77 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 194
diff changeset
925 ;;; buff-menu.el ends here