annotate lisp/buff-menu.el @ 72569:7457615d594a

Sync with Tramp 2.0.54.
author Michael Albinus <michael.albinus@gmx.de>
date Tue, 29 Aug 2006 05:48:40 +0000
parents 40a24db2adc4
children e3694f1cb928 7f3f771c85fa
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,
68651
3bd95f4f2941 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 68240
diff changeset
4 ;; 2004, 2005, 2006 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
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9 ;; This file is part of GNU Emacs.
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
12 ;; it under the terms of the GNU General Public License as published by
735
ea0823fe7df5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 662
diff changeset
13 ;; the Free Software Foundation; either version 2, or (at your option)
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
14 ;; any later version.
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
15
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
19 ;; GNU General Public License for more details.
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
20
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
21 ;; You should have received a copy of the GNU General Public License
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12243
diff changeset
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64091
6fb026ad601f Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 63446
diff changeset
23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
6fb026ad601f Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 63446
diff changeset
24 ;; Boston, MA 02110-1301, USA.
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
25
2307
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 845
diff changeset
26 ;;; Commentary:
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 845
diff changeset
27
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 845
diff changeset
28 ;; 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
29 ;; 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
30 ;; 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
31 ;; 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
32 ;; 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
33
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 ;;; 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
35
25166
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: New function
e8ec0085ff7b (Buffer-menu-mode-map): Add V for Buffer-menu-View.
Richard M. Stallman <rms@gnu.org>
parents: 21093
diff changeset
37 ;; 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
38
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
39 ;; 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
40 ;;
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 ;; 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
42 ;;
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 ;; 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
44 ;; 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
45 ;;
ec4ffd67483d Incorporated changes from Bob Weiner's enhanced buff-menu from the LCD
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2307
diff changeset
46 ;; 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
47
801
e9e34745ae3b *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 777
diff changeset
48 ;;; Code:
30851
f9233f642b88 * buff-menu.el (list-buffers-noselect): Use `dolist' instead of
Sam Steingold <sds@gnu.org>
parents: 30828
diff changeset
49
54580
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
50 ;;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
51 ;;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
52 ;;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
53 ;;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
54 ;;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
55 ;;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
56 ;;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
57
54580
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
58 ;;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
59 ;;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
60
54580
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
61 ;;(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
62 ;; "Window configuration saved from entry to `buffer-menu'.")
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
63
54580
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
64 ;; 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
65 ;; 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
66
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
67 (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
68 "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
69 :group 'tools
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
70 :group 'convenience)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
71
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
72 (defcustom Buffer-menu-use-header-line t
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
73 "*Non-nil means to use an immovable header-line."
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
74 :type 'boolean
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
75 :group 'Buffer-menu)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
76
68228
badae83666f6 (buffer-menu-buffer) <defface>: Renamed from
Juri Linkov <juri@jurta.org>
parents: 67492
diff changeset
77 (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
78 '((t (:weight bold)))
68228
badae83666f6 (buffer-menu-buffer) <defface>: Renamed from
Juri Linkov <juri@jurta.org>
parents: 67492
diff changeset
79 "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
80 :group 'Buffer-menu)
68228
badae83666f6 (buffer-menu-buffer) <defface>: Renamed from
Juri Linkov <juri@jurta.org>
parents: 67492
diff changeset
81 (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
82
48889
ec1a96fb72d6 Change default width of Buffer-menu-buffer+size-width to 24
Robert J. Chassell <bob@rattlesnake.com>
parents: 48864
diff changeset
83 (defcustom Buffer-menu-buffer+size-width 26
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
84 "*How wide to jointly make the buffer name and size columns."
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
85 :type 'number
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
86 :group 'Buffer-menu)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
87
48889
ec1a96fb72d6 Change default width of Buffer-menu-buffer+size-width to 24
Robert J. Chassell <bob@rattlesnake.com>
parents: 48864
diff changeset
88 (defcustom Buffer-menu-mode-width 16
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
89 "*How wide to make the mode name column."
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
90 :type 'number
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
91 :group 'Buffer-menu)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
92
67327
8e9343dc7c39 (Buffer-menu-use-frame-buffer-list): New user option.
Luc Teirlinck <teirllm@auburn.edu>
parents: 67177
diff changeset
93 (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
94 "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
95 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
96 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
97 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
98 as it is by default."
8e9343dc7c39 (Buffer-menu-use-frame-buffer-list): New user option.
Luc Teirlinck <teirllm@auburn.edu>
parents: 67177
diff changeset
99 :type 'boolean
8e9343dc7c39 (Buffer-menu-use-frame-buffer-list): New user option.
Luc Teirlinck <teirllm@auburn.edu>
parents: 67177
diff changeset
100 :group 'Buffer-menu
8e9343dc7c39 (Buffer-menu-use-frame-buffer-list): New user option.
Luc Teirlinck <teirllm@auburn.edu>
parents: 67177
diff changeset
101 :version "22.1")
8e9343dc7c39 (Buffer-menu-use-frame-buffer-list): New user option.
Luc Teirlinck <teirllm@auburn.edu>
parents: 67177
diff changeset
102
54580
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
103 ;; 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
104 (defvar Buffer-menu-sort-column nil
67492
359dd650750d (Buffer-menu-sort-column): Not a user variable.
Richard M. Stallman <rms@gnu.org>
parents: 67327
diff changeset
105 "2 for sorting by buffer names. 5 for sorting by file names.
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
106 nil for default sorting by visited order.")
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
50033
cd78fe221607 (Buffer-menu-mode-map): Add docstring.
John Paul Wallington <jpw@pobox.com>
parents: 49155
diff changeset
110 (defvar Buffer-menu-mode-map nil
cd78fe221607 (Buffer-menu-mode-map): Add docstring.
John Paul Wallington <jpw@pobox.com>
parents: 49155
diff changeset
111 "Local keymap for `Buffer-menu-mode' buffers.")
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
112
54594
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
113 (defvar Buffer-menu-files-only nil
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
114 "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
115 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
116 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
117 Auto Revert Mode.")
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
118
70967
b4e6091c2346 (list-buffers-noselect): For Info buffers, use Info-current-file as the
Eli Zaretskii <eliz@gnu.org>
parents: 69024
diff changeset
119 (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
120 (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
121
54594
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
122 (make-variable-buffer-local 'Buffer-menu-files-only)
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
123
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
124 (if Buffer-menu-mode-map
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
125 ()
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
126 (setq Buffer-menu-mode-map (make-keymap))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
127 (suppress-keymap Buffer-menu-mode-map t)
21093
aa96b119d0ef (Buffer-menu-quit): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 20655
diff changeset
128 (define-key Buffer-menu-mode-map "q" 'quit-window)
2736
d6ff54640930 (buffer-menu): Don't save a window config.
Richard M. Stallman <rms@gnu.org>
parents: 2422
diff changeset
129 (define-key Buffer-menu-mode-map "v" 'Buffer-menu-select)
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
130 (define-key Buffer-menu-mode-map "2" 'Buffer-menu-2-window)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
131 (define-key Buffer-menu-mode-map "1" 'Buffer-menu-1-window)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
132 (define-key Buffer-menu-mode-map "f" 'Buffer-menu-this-window)
20655
a259327d5333 (Buffer-menu-mode-map): Bind e like f.
Richard M. Stallman <rms@gnu.org>
parents: 18280
diff changeset
133 (define-key Buffer-menu-mode-map "e" 'Buffer-menu-this-window)
10269
988517b0b62a (Buffer-menu-mode-map): Bind C-m to Buffer-menu-this-window.
Richard M. Stallman <rms@gnu.org>
parents: 10194
diff changeset
134 (define-key Buffer-menu-mode-map "\C-m" 'Buffer-menu-this-window)
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
135 (define-key Buffer-menu-mode-map "o" 'Buffer-menu-other-window)
735
ea0823fe7df5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 662
diff changeset
136 (define-key Buffer-menu-mode-map "\C-o" 'Buffer-menu-switch-other-window)
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
137 (define-key Buffer-menu-mode-map "s" 'Buffer-menu-save)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
138 (define-key Buffer-menu-mode-map "d" 'Buffer-menu-delete)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
139 (define-key Buffer-menu-mode-map "k" 'Buffer-menu-delete)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
140 (define-key Buffer-menu-mode-map "\C-d" 'Buffer-menu-delete-backwards)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
141 (define-key Buffer-menu-mode-map "\C-k" 'Buffer-menu-delete)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
142 (define-key Buffer-menu-mode-map "x" 'Buffer-menu-execute)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
143 (define-key Buffer-menu-mode-map " " 'next-line)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
144 (define-key Buffer-menu-mode-map "n" 'next-line)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
145 (define-key Buffer-menu-mode-map "p" 'previous-line)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
146 (define-key Buffer-menu-mode-map "\177" 'Buffer-menu-backup-unmark)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
147 (define-key Buffer-menu-mode-map "~" 'Buffer-menu-not-modified)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
148 (define-key Buffer-menu-mode-map "?" 'describe-mode)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
149 (define-key Buffer-menu-mode-map "u" 'Buffer-menu-unmark)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
150 (define-key Buffer-menu-mode-map "m" 'Buffer-menu-mark)
2378
c5d0140aa7b6 (Buffer-menu-toggle-read-only) Added, per Rob Austein's suggestion
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2334
diff changeset
151 (define-key Buffer-menu-mode-map "t" 'Buffer-menu-visit-tags-table)
c5d0140aa7b6 (Buffer-menu-toggle-read-only) Added, per Rob Austein's suggestion
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2334
diff changeset
152 (define-key Buffer-menu-mode-map "%" 'Buffer-menu-toggle-read-only)
18278
4f78346eb734 (Buffer-menu-bury): New command.
Richard M. Stallman <rms@gnu.org>
parents: 16401
diff changeset
153 (define-key Buffer-menu-mode-map "b" 'Buffer-menu-bury)
16401
249f797c3750 (Buffer-menu-revert): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
154 (define-key Buffer-menu-mode-map "g" 'Buffer-menu-revert)
25166
e8ec0085ff7b (Buffer-menu-mode-map): Add V for Buffer-menu-View.
Richard M. Stallman <rms@gnu.org>
parents: 21093
diff changeset
155 (define-key Buffer-menu-mode-map "V" 'Buffer-menu-view)
54594
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
156 (define-key Buffer-menu-mode-map "T" 'Buffer-menu-toggle-files-only)
6609
3b1eb7f1eba1 (Buffer-menu-mouse-select): New command.
Richard M. Stallman <rms@gnu.org>
parents: 6084
diff changeset
157 (define-key Buffer-menu-mode-map [mouse-2] 'Buffer-menu-mouse-select)
61382
22d7e92c1591 (Buffer-menu-mode-map): Map follow-link to
Kim F. Storm <storm@cua.dk>
parents: 59092
diff changeset
158 (define-key Buffer-menu-mode-map [follow-link] 'mouse-face)
2378
c5d0140aa7b6 (Buffer-menu-toggle-read-only) Added, per Rob Austein's suggestion
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2334
diff changeset
159 )
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
160
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
161 ;; Buffer Menu mode is suitable only for specially formatted data.
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
162 (put 'Buffer-menu-mode 'mode-class 'special)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
163
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
164 (defun Buffer-menu-mode ()
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
165 "Major mode for editing a list of buffers.
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
166 Each line describes one of the buffers in Emacs.
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
167 Letters do not insert themselves; instead, they are commands.
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
168 \\<Buffer-menu-mode-map>
6609
3b1eb7f1eba1 (Buffer-menu-mouse-select): New command.
Richard M. Stallman <rms@gnu.org>
parents: 6084
diff changeset
169 \\[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
170 \\[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
171 \\[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
172 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
173 \\[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
174 \\[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
175 another window, in view-mode.
6609
3b1eb7f1eba1 (Buffer-menu-mouse-select): New command.
Richard M. Stallman <rms@gnu.org>
parents: 6084
diff changeset
176 \\[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
177 \\[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
178 \\[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
179 Also show buffers marked with m, in other windows.
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
180 \\[Buffer-menu-1-window] -- select that buffer in full-frame window.
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
181 \\[Buffer-menu-2-window] -- select that buffer in one window,
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
182 together with buffer selected before this one in another window.
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
183 \\[Buffer-menu-visit-tags-table] -- visit-tags-table this buffer.
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
184 \\[Buffer-menu-not-modified] -- clear modified-flag on that buffer.
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
185 \\[Buffer-menu-save] -- mark that buffer to be saved, and move down.
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
186 \\[Buffer-menu-delete] -- mark that buffer to be deleted, and move down.
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
187 \\[Buffer-menu-delete-backwards] -- mark that buffer to be deleted, and move up.
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
188 \\[Buffer-menu-execute] -- delete or save marked buffers.
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
189 \\[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
190 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
191 \\[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
192 \\[Buffer-menu-toggle-read-only] -- toggle read-only status of buffer on this line.
18280
f693db11df45 (Buffer-menu-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 18278
diff changeset
193 \\[Buffer-menu-revert] -- update the list of buffers.
54594
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
194 \\[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
195 \\[Buffer-menu-bury] -- bury the buffer listed on this line."
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
196 (kill-all-local-variables)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
197 (use-local-map Buffer-menu-mode-map)
6638
61e40a447c92 (Buffer-menu-mode): Add mouse-face properties.
Karl Heuer <kwzh@gnu.org>
parents: 6609
diff changeset
198 (setq major-mode 'Buffer-menu-mode)
61e40a447c92 (Buffer-menu-mode): Add mouse-face properties.
Karl Heuer <kwzh@gnu.org>
parents: 6609
diff changeset
199 (setq mode-name "Buffer Menu")
54594
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
200 (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
201 'Buffer-menu-revert-function)
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
202 (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
203 #'(lambda (&optional noconfirm) 'fast))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
204 (setq truncate-lines t)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
205 (setq buffer-read-only t)
62634
2c8a105a05e1 (Buffer-menu-mode): Use `run-mode-hooks'.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62523
diff changeset
206 (run-mode-hooks 'buffer-menu-mode-hook))
8161
6b104526819d (Buffer-menu-revert-function): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7659
diff changeset
207
58461
5049881e14d7 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 58425
diff changeset
208 ;; This function exists so we can make the doc string of Buffer-menu-mode
5049881e14d7 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 58425
diff changeset
209 ;; look nice.
16401
249f797c3750 (Buffer-menu-revert): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
210 (defun Buffer-menu-revert ()
249f797c3750 (Buffer-menu-revert): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
211 "Update the list of buffers."
249f797c3750 (Buffer-menu-revert): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
212 (interactive)
249f797c3750 (Buffer-menu-revert): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
213 (revert-buffer))
249f797c3750 (Buffer-menu-revert): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
214
8161
6b104526819d (Buffer-menu-revert-function): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7659
diff changeset
215 (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
216 (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
217 (setq buffer-undo-list nil))
54594
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
218 ;; 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
219 (let ((opoint (point))
a078b317d07c (Buffer-menu-revert-function): Improve handling of point after reverting.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62634
diff changeset
220 (eobp (eobp))
a078b317d07c (Buffer-menu-revert-function): Improve handling of point after reverting.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62634
diff changeset
221 (ocol (current-column))
57555
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
222 (oline (progn (move-to-column 4)
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
223 (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
224 (prop (point-min))
49971daa80c5 (Buffer-menu-revert-function): Clear out undo info before reverting
Luc Teirlinck <teirllm@auburn.edu>
parents: 58955
diff changeset
225 ;; 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
226 (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
227 ;; 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
228 ;; 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
229 ;; 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
230 ;; 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
231 (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
232 (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
233 (if oline
a078b317d07c (Buffer-menu-revert-function): Improve handling of point after reverting.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62634
diff changeset
234 (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
235 (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
236 (goto-char prop)
a078b317d07c (Buffer-menu-revert-function): Improve handling of point after reverting.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62634
diff changeset
237 (move-to-column ocol)))
a078b317d07c (Buffer-menu-revert-function): Improve handling of point after reverting.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62634
diff changeset
238 (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
239
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
240 (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
241 "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
242 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
243 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
244 (interactive "P")
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
245 (setq Buffer-menu-files-only
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
246 (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
247 ((> (prefix-numeric-value arg) 0) t)))
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
248 (revert-buffer))
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
249
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
250
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
251 (defun Buffer-menu-buffer (error-if-non-existent-p)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
252 "Return buffer described by this line of buffer menu."
11215
896932ac8ced (list-buffers-noselect): Put buffer name in a text
Richard M. Stallman <rms@gnu.org>
parents: 10765
diff changeset
253 (let* ((where (save-excursion
896932ac8ced (list-buffers-noselect): Put buffer name in a text
Richard M. Stallman <rms@gnu.org>
parents: 10765
diff changeset
254 (beginning-of-line)
896932ac8ced (list-buffers-noselect): Put buffer name in a text
Richard M. Stallman <rms@gnu.org>
parents: 10765
diff changeset
255 (+ (point) Buffer-menu-buffer-column)))
30828
26dae0a7f527 (list-buffers-noselect): Set `buffer' as well as
Gerd Moellmann <gerd@gnu.org>
parents: 30824
diff changeset
256 (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
257 (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
258 (if name
896932ac8ced (list-buffers-noselect): Put buffer name in a text
Richard M. Stallman <rms@gnu.org>
parents: 10765
diff changeset
259 (or (get-buffer name)
30828
26dae0a7f527 (list-buffers-noselect): Set `buffer' as well as
Gerd Moellmann <gerd@gnu.org>
parents: 30824
diff changeset
260 (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
261 (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
262 (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
263 nil))
30828
26dae0a7f527 (list-buffers-noselect): Set `buffer' as well as
Gerd Moellmann <gerd@gnu.org>
parents: 30824
diff changeset
264 (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
265 (if error-if-non-existent-p
cd78fe221607 (Buffer-menu-mode-map): Add docstring.
John Paul Wallington <jpw@pobox.com>
parents: 49155
diff changeset
266 (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
267 nil)))))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
268
756
0276f8eb306f *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 735
diff changeset
269 (defun buffer-menu (&optional arg)
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
270 "Make a menu of buffers so you can save, delete or select them.
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
271 With argument, show only buffers that are visiting files.
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
272 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
273 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
274
d2bfc00496d7 (buffer-menu): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 40489
diff changeset
275 The first column shows `>' for a buffer you have
d2bfc00496d7 (buffer-menu): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 40489
diff changeset
276 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
277 deletion, and `.' for the current buffer.
d2bfc00496d7 (buffer-menu): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 40489
diff changeset
278
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
279 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
280 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
281 The M column has a `*' if it is modified,
d2bfc00496d7 (buffer-menu): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 40489
diff changeset
282 or `S' if you have marked it for saving.
d2bfc00496d7 (buffer-menu): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 40489
diff changeset
283 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
284 its major mode, and the visited file name (if any)."
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
285 (interactive "P")
2736
d6ff54640930 (buffer-menu): Don't save a window config.
Richard M. Stallman <rms@gnu.org>
parents: 2422
diff changeset
286 ;;; (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
287 (switch-to-buffer (list-buffers-noselect arg))
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
288 (message
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
289 "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
290
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
291 (defun buffer-menu-other-window (&optional arg)
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
292 "Display a list of buffers in another window.
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
293 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
294 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
295 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
296 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
297 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
298 (interactive "P")
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
299 ;;; (setq Buffer-menu-window-config (current-window-configuration))
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
300 (switch-to-buffer-other-window (list-buffers-noselect arg))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
301 (message
2736
d6ff54640930 (buffer-menu): Don't save a window config.
Richard M. Stallman <rms@gnu.org>
parents: 2422
diff changeset
302 "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
303
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
304 (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
305 (beginning-of-line)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
306 (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
307 (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
308 t
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
309 (ding)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
310 (forward-line 1)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
311 nil))
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
312
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
313 (defun Buffer-menu-mark ()
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
314 "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
315 (interactive)
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
316 (when (Buffer-menu-no-header)
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
317 (let ((buffer-read-only nil))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
318 (delete-char 1)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
319 (insert ?>)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
320 (forward-line 1))))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
321
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
322 (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
323 "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
324 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
325 (interactive "P")
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
326 (when (Buffer-menu-no-header)
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
327 (let* ((buf (Buffer-menu-buffer t))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
328 (mod (buffer-modified-p buf))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
329 (readonly (save-excursion (set-buffer buf) buffer-read-only))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
330 (buffer-read-only nil))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
331 (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
332 (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
333 (forward-line (if backup -1 1)))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
334
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
335 (defun Buffer-menu-backup-unmark ()
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
336 "Move up and cancel all requested operations on buffer on line above."
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
337 (interactive)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
338 (forward-line -1)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
339 (Buffer-menu-unmark)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
340 (forward-line -1))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
341
9063
d6913bc11bb2 (Buffer-menu-delete): Handle prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 8365
diff changeset
342 (defun Buffer-menu-delete (&optional arg)
d6913bc11bb2 (Buffer-menu-delete): Handle prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 8365
diff changeset
343 "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
344 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
345 Negative arg means delete backwards."
d6913bc11bb2 (Buffer-menu-delete): Handle prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 8365
diff changeset
346 (interactive "p")
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
347 (when (Buffer-menu-no-header)
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
348 (let ((buffer-read-only nil))
9063
d6913bc11bb2 (Buffer-menu-delete): Handle prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 8365
diff changeset
349 (if (or (null arg) (= arg 0))
d6913bc11bb2 (Buffer-menu-delete): Handle prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 8365
diff changeset
350 (setq arg 1))
d6913bc11bb2 (Buffer-menu-delete): Handle prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 8365
diff changeset
351 (while (> arg 0)
d6913bc11bb2 (Buffer-menu-delete): Handle prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 8365
diff changeset
352 (delete-char 1)
d6913bc11bb2 (Buffer-menu-delete): Handle prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 8365
diff changeset
353 (insert ?D)
d6913bc11bb2 (Buffer-menu-delete): Handle prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 8365
diff changeset
354 (forward-line 1)
d6913bc11bb2 (Buffer-menu-delete): Handle prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 8365
diff changeset
355 (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
356 (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
357 (Buffer-menu-no-header))
9063
d6913bc11bb2 (Buffer-menu-delete): Handle prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 8365
diff changeset
358 (delete-char 1)
d6913bc11bb2 (Buffer-menu-delete): Handle prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 8365
diff changeset
359 (insert ?D)
d6913bc11bb2 (Buffer-menu-delete): Handle prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 8365
diff changeset
360 (forward-line -1)
d6913bc11bb2 (Buffer-menu-delete): Handle prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 8365
diff changeset
361 (setq arg (1+ arg))))))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
362
9063
d6913bc11bb2 (Buffer-menu-delete): Handle prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 8365
diff changeset
363 (defun Buffer-menu-delete-backwards (&optional arg)
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
364 "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
365 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
366 (interactive "p")
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
367 (Buffer-menu-delete (- (or arg 1))))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
368
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
369 (defun Buffer-menu-save ()
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
370 "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
371 (interactive)
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
372 (when (Buffer-menu-no-header)
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
373 (let ((buffer-read-only nil))
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
374 (forward-char 2)
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
375 (delete-char 1)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
376 (insert ?S)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
377 (forward-line 1))))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
378
8196
89db3662bcec (Buffer-menu-not-modified): Make `Buffer-menu-not-modified' handle an
Richard M. Stallman <rms@gnu.org>
parents: 8161
diff changeset
379 (defun Buffer-menu-not-modified (&optional arg)
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
380 "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
381 (interactive "P")
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
382 (save-excursion
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
383 (set-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
384 (set-buffer-modified-p arg))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
385 (save-excursion
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
386 (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
387 (forward-char 2)
64529
8b0db2e8ccd3 (Buffer-menu-unmark): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
388 (if (= (char-after) (if arg ?\s ?*))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
389 (let ((buffer-read-only nil))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
390 (delete-char 1)
64529
8b0db2e8ccd3 (Buffer-menu-unmark): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
391 (insert (if arg ?* ?\s))))))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
392
57555
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
393 (defun Buffer-menu-beginning ()
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
394 (goto-char (point-min))
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
395 (unless Buffer-menu-use-header-line
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
396 (forward-line)))
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
397
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
398 (defun Buffer-menu-execute ()
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
399 "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
400 (interactive)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
401 (save-excursion
57555
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
402 (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
403 (while (re-search-forward "^..S" nil t)
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
404 (let ((modp nil))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
405 (save-excursion
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
406 (set-buffer (Buffer-menu-buffer t))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
407 (save-buffer)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
408 (setq modp (buffer-modified-p)))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
409 (let ((buffer-read-only nil))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
410 (delete-char -1)
64529
8b0db2e8ccd3 (Buffer-menu-unmark): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
411 (insert (if modp ?* ?\s))))))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
412 (save-excursion
57555
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
413 (Buffer-menu-beginning)
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
414 (let ((buff-menu-buffer (current-buffer))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
415 (buffer-read-only nil))
49050
8b38bac9826a (Buffer-menu-execute): Fix for effect of header
Dave Love <fx@gnu.org>
parents: 49046
diff changeset
416 (while (re-search-forward "^D" nil t)
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
417 (forward-char -1)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
418 (let ((buf (Buffer-menu-buffer nil)))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
419 (or (eq buf nil)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
420 (eq buf buff-menu-buffer)
30828
26dae0a7f527 (list-buffers-noselect): Set `buffer' as well as
Gerd Moellmann <gerd@gnu.org>
parents: 30824
diff changeset
421 (save-excursion (kill-buffer buf)))
26dae0a7f527 (list-buffers-noselect): Set `buffer' as well as
Gerd Moellmann <gerd@gnu.org>
parents: 30824
diff changeset
422 (if (and buf (buffer-name buf))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
423 (progn (delete-char 1)
64529
8b0db2e8ccd3 (Buffer-menu-unmark): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
424 (insert ?\s))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
425 (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
426 (unless (bobp)
8b38bac9826a (Buffer-menu-execute): Fix for effect of header
Dave Love <fx@gnu.org>
parents: 49046
diff changeset
427 (forward-char -1))))))))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
428
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
429 (defun Buffer-menu-select ()
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
430 "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
431 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
432 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
433 in the selected frame."
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
434 (interactive)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
435 (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
436 (menu (current-buffer))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
437 (others ())
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
438 tem)
57555
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
439 (Buffer-menu-beginning)
49155
e8a430c172dc (Buffer-menu-select): Fix for effect of header line.
Andreas Schwab <schwab@suse.de>
parents: 49050
diff changeset
440 (while (re-search-forward "^>" nil t)
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
441 (setq tem (Buffer-menu-buffer t))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
442 (let ((buffer-read-only nil))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
443 (delete-char -1)
64529
8b0db2e8ccd3 (Buffer-menu-unmark): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
444 (insert ?\s))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
445 (or (eq tem buff) (memq tem others) (setq others (cons tem others))))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
446 (setq others (nreverse others)
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
447 tem (/ (1- (frame-height)) (1+ (length others))))
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
448 (delete-other-windows)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
449 (switch-to-buffer buff)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
450 (or (eq menu buff)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
451 (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
452 (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
453 (progn
2736
d6ff54640930 (buffer-menu): Don't save a window config.
Richard M. Stallman <rms@gnu.org>
parents: 2422
diff changeset
454 ;;; ;; 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
455 ;;; ;; selected buffers.
d6ff54640930 (buffer-menu): Don't save a window config.
Richard M. Stallman <rms@gnu.org>
parents: 2422
diff changeset
456 ;;; (if Buffer-menu-window-config
d6ff54640930 (buffer-menu): Don't save a window config.
Richard M. Stallman <rms@gnu.org>
parents: 2422
diff changeset
457 ;;; (progn
d6ff54640930 (buffer-menu): Don't save a window config.
Richard M. Stallman <rms@gnu.org>
parents: 2422
diff changeset
458 ;;; (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
459 ;;; (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
460 (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
461 (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
462 (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
463 (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
464 (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
465 (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
466 (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
467 )))
ec4ffd67483d Incorporated changes from Bob Weiner's enhanced buff-menu from the LCD
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2307
diff changeset
468
10592
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
469
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
470
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
471 (defun Buffer-menu-visit-tags-table ()
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
472 "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
473 (interactive)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
474 (let ((file (buffer-file-name (Buffer-menu-buffer t))))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
475 (if file
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
476 (visit-tags-table file)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
477 (error "Specified buffer has no file"))))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
478
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
479 (defun Buffer-menu-1-window ()
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
480 "Select this line's buffer, alone, in full frame."
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
481 (interactive)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
482 (switch-to-buffer (Buffer-menu-buffer t))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
483 (bury-buffer (other-buffer))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
484 (delete-other-windows))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
485
6609
3b1eb7f1eba1 (Buffer-menu-mouse-select): New command.
Richard M. Stallman <rms@gnu.org>
parents: 6084
diff changeset
486 (defun Buffer-menu-mouse-select (event)
3b1eb7f1eba1 (Buffer-menu-mouse-select): New command.
Richard M. Stallman <rms@gnu.org>
parents: 6084
diff changeset
487 "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
488 (interactive "e")
3b1eb7f1eba1 (Buffer-menu-mouse-select): New command.
Richard M. Stallman <rms@gnu.org>
parents: 6084
diff changeset
489 (let (buffer)
3b1eb7f1eba1 (Buffer-menu-mouse-select): New command.
Richard M. Stallman <rms@gnu.org>
parents: 6084
diff changeset
490 (save-excursion
3b1eb7f1eba1 (Buffer-menu-mouse-select): New command.
Richard M. Stallman <rms@gnu.org>
parents: 6084
diff changeset
491 (set-buffer (window-buffer (posn-window (event-end event))))
3b1eb7f1eba1 (Buffer-menu-mouse-select): New command.
Richard M. Stallman <rms@gnu.org>
parents: 6084
diff changeset
492 (save-excursion
3b1eb7f1eba1 (Buffer-menu-mouse-select): New command.
Richard M. Stallman <rms@gnu.org>
parents: 6084
diff changeset
493 (goto-char (posn-point (event-end event)))
3b1eb7f1eba1 (Buffer-menu-mouse-select): New command.
Richard M. Stallman <rms@gnu.org>
parents: 6084
diff changeset
494 (setq buffer (Buffer-menu-buffer t))))
3b1eb7f1eba1 (Buffer-menu-mouse-select): New command.
Richard M. Stallman <rms@gnu.org>
parents: 6084
diff changeset
495 (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
496 (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
497 (eq (selected-window) (frame-root-window)))
ed3bbbdd9ef5 (Buffer-menu-mouse-select): Handle dedicated window.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
498 (switch-to-buffer-other-frame buffer)
ed3bbbdd9ef5 (Buffer-menu-mouse-select): Handle dedicated window.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
499 (switch-to-buffer buffer))))
6609
3b1eb7f1eba1 (Buffer-menu-mouse-select): New command.
Richard M. Stallman <rms@gnu.org>
parents: 6084
diff changeset
500
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
501 (defun Buffer-menu-this-window ()
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
502 "Select this line's buffer in this window."
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
503 (interactive)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
504 (switch-to-buffer (Buffer-menu-buffer t)))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
505
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
506 (defun Buffer-menu-other-window ()
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
507 "Select this line's buffer in other window, leaving buffer menu visible."
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
508 (interactive)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
509 (switch-to-buffer-other-window (Buffer-menu-buffer t)))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
510
735
ea0823fe7df5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 662
diff changeset
511 (defun Buffer-menu-switch-other-window ()
ea0823fe7df5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 662
diff changeset
512 "Make the other window select this line's buffer.
ea0823fe7df5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 662
diff changeset
513 The current window remains selected."
ea0823fe7df5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 662
diff changeset
514 (interactive)
58955
58f1100f0a9e (Buffer-menu-switch-other-window): Bind pop-up-windows to t.
Juri Linkov <juri@jurta.org>
parents: 58954
diff changeset
515 (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
516 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
517 same-window-regexps)
58f1100f0a9e (Buffer-menu-switch-other-window): Bind pop-up-windows to t.
Juri Linkov <juri@jurta.org>
parents: 58954
diff changeset
518 (display-buffer (Buffer-menu-buffer t))))
735
ea0823fe7df5 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 662
diff changeset
519
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
520 (defun Buffer-menu-2-window ()
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
521 "Select this line's buffer, with previous buffer in second window."
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
522 (interactive)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
523 (let ((buff (Buffer-menu-buffer t))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
524 (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
525 (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
526 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
527 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
528 (delete-other-windows)
194
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
529 (switch-to-buffer (other-buffer))
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
530 (pop-to-buffer buff)
5b0d1a9cf37e Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
531 (bury-buffer menu)))
662
8a533acedb77 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 194
diff changeset
532
2378
c5d0140aa7b6 (Buffer-menu-toggle-read-only) Added, per Rob Austein's suggestion
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2334
diff changeset
533 (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
534 "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
535 (interactive)
c5d0140aa7b6 (Buffer-menu-toggle-read-only) Added, per Rob Austein's suggestion
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2334
diff changeset
536 (let (char)
c5d0140aa7b6 (Buffer-menu-toggle-read-only) Added, per Rob Austein's suggestion
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2334
diff changeset
537 (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
538 (set-buffer (Buffer-menu-buffer t))
6084
d42c85701055 (Buffer-menu-toggle-read-only): Change toggle-read-only to
Karl Heuer <kwzh@gnu.org>
parents: 3591
diff changeset
539 (vc-toggle-read-only)
64529
8b0db2e8ccd3 (Buffer-menu-unmark): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
540 (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
541 (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
542 (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
543 (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
544 (if (/= (following-char) char)
c5d0140aa7b6 (Buffer-menu-toggle-read-only) Added, per Rob Austein's suggestion
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2334
diff changeset
545 (let (buffer-read-only)
c5d0140aa7b6 (Buffer-menu-toggle-read-only) Added, per Rob Austein's suggestion
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2334
diff changeset
546 (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
547 (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
548
18278
4f78346eb734 (Buffer-menu-bury): New command.
Richard M. Stallman <rms@gnu.org>
parents: 16401
diff changeset
549 (defun Buffer-menu-bury ()
4f78346eb734 (Buffer-menu-bury): New command.
Richard M. Stallman <rms@gnu.org>
parents: 16401
diff changeset
550 "Bury the buffer listed on this line."
4f78346eb734 (Buffer-menu-bury): New command.
Richard M. Stallman <rms@gnu.org>
parents: 16401
diff changeset
551 (interactive)
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
552 (when (Buffer-menu-no-header)
18280
f693db11df45 (Buffer-menu-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 18278
diff changeset
553 (save-excursion
f693db11df45 (Buffer-menu-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 18278
diff changeset
554 (beginning-of-line)
f693db11df45 (Buffer-menu-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 18278
diff changeset
555 (bury-buffer (Buffer-menu-buffer t))
f693db11df45 (Buffer-menu-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 18278
diff changeset
556 (let ((line (buffer-substring (point) (progn (forward-line 1) (point))))
f693db11df45 (Buffer-menu-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 18278
diff changeset
557 (buffer-read-only nil))
f693db11df45 (Buffer-menu-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 18278
diff changeset
558 (delete-region (point) (progn (forward-line -1) (point)))
f693db11df45 (Buffer-menu-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 18278
diff changeset
559 (goto-char (point-max))
f693db11df45 (Buffer-menu-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 18278
diff changeset
560 (insert line))
f693db11df45 (Buffer-menu-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 18278
diff changeset
561 (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
562
e8ec0085ff7b (Buffer-menu-mode-map): Add V for Buffer-menu-View.
Richard M. Stallman <rms@gnu.org>
parents: 21093
diff changeset
563
e8ec0085ff7b (Buffer-menu-mode-map): Add V for Buffer-menu-View.
Richard M. Stallman <rms@gnu.org>
parents: 21093
diff changeset
564 (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
565 "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
566 (interactive)
e8ec0085ff7b (Buffer-menu-mode-map): Add V for Buffer-menu-View.
Richard M. Stallman <rms@gnu.org>
parents: 21093
diff changeset
567 (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
568
e8ec0085ff7b (Buffer-menu-mode-map): Add V for Buffer-menu-View.
Richard M. Stallman <rms@gnu.org>
parents: 21093
diff changeset
569
e8ec0085ff7b (Buffer-menu-mode-map): Add V for Buffer-menu-View.
Richard M. Stallman <rms@gnu.org>
parents: 21093
diff changeset
570 (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
571 "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
572 (interactive)
e8ec0085ff7b (Buffer-menu-mode-map): Add V for Buffer-menu-View.
Richard M. Stallman <rms@gnu.org>
parents: 21093
diff changeset
573 (view-buffer-other-window (Buffer-menu-buffer t)))
10419
cb6f68d16210 (list-buffers): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10269
diff changeset
574
cb6f68d16210 (list-buffers): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10269
diff changeset
575
cb6f68d16210 (list-buffers): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10269
diff changeset
576 (define-key ctl-x-map "\C-b" 'list-buffers)
cb6f68d16210 (list-buffers): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10269
diff changeset
577
cb6f68d16210 (list-buffers): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10269
diff changeset
578 (defun list-buffers (&optional files-only)
cb6f68d16210 (list-buffers): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10269
diff changeset
579 "Display a list of names of existing buffers.
cb6f68d16210 (list-buffers): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10269
diff changeset
580 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
581 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
582 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
583
40622
d2bfc00496d7 (buffer-menu): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 40489
diff changeset
584 For more information, see the function `buffer-menu'."
10419
cb6f68d16210 (list-buffers): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10269
diff changeset
585 (interactive "P")
10592
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
586 (display-buffer (list-buffers-noselect files-only)))
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
587
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
588 (defun Buffer-menu-buffer+size (name size &optional name-props size-props)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
589 (if (> (+ (length name) (length size) 2) 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
590 (setq name
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
591 (if (string-match "<[0-9]+>$" name)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
592 (concat (substring name 0
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
593 (- 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
594 (max (length size) 3)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
595 (match-end 0)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
596 (- (match-beginning 0))
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
597 2))
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
598 ":" ; narrow ellipsis
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
599 (match-string 0 name))
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
600 (concat (substring name 0
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
601 (- 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
602 (max (length size) 3)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
603 2))
49046
d6e1c5f7f468 (Buffer-menu-buffer+size): Don't clobber buffer name.
Andreas Schwab <schwab@suse.de>
parents: 48889
diff changeset
604 ":"))) ; narrow ellipsis
d6e1c5f7f468 (Buffer-menu-buffer+size): Don't clobber buffer name.
Andreas Schwab <schwab@suse.de>
parents: 48889
diff changeset
605 ;; 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
606 (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
607 (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
608 (add-text-properties 0 (length size) size-props size)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
609 (concat name
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
610 (make-string (- 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
611 (length name)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
612 (length size))
64529
8b0db2e8ccd3 (Buffer-menu-unmark): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
613 ?\s)
48864
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
614 size))
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
615
54580
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
616 (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
617 "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
618 (interactive "P")
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
619 (when column
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
620 (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
621 (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
622 (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
623 (setq Buffer-menu-sort-column column)
57555
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
624 (let (buffer-read-only l buf m1 m2)
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
625 (save-excursion
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
626 (Buffer-menu-beginning)
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
627 (while (not (eobp))
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
628 (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
629 (setq m1 (char-after)
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
630 m1 (if (memq m1 '(?> ?D)) m1)
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
631 m2 (char-after (+ (point) 2))
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
632 m2 (if (eq m2 ?S) m2))
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
633 (if (or m1 m2)
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
634 (push (list buf m1 m2) l)))
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
635 (forward-line)))
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
636 (Buffer-menu-revert)
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
637 (setq buffer-read-only)
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
638 (save-excursion
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
639 (Buffer-menu-beginning)
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
640 (while (not (eobp))
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
641 (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
642 (setq m1 (cadr buf)
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
643 m2 (cadr (cdr buf)))
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
644 (when m1
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
645 (delete-char 1)
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
646 (insert m1)
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
647 (backward-char 1))
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
648 (when m2
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
649 (forward-char 2)
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
650 (delete-char 1)
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
651 (insert m2)))
716fe8f547c3 (Buffer-menu-revert-function): Emulate save-excursion.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 57030
diff changeset
652 (forward-line)))))
54580
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
653
65355
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
654 (defun Buffer-menu-sort-by-column (&optional e)
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
655 "Sort the buffer menu by the column clicked on."
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
656 (interactive (list last-input-event))
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
657 (if e (mouse-select-window e))
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
658 (let* ((pos (event-start e))
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
659 (obj (posn-object pos))
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
660 (col (if obj
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
661 (get-text-property (cdr obj) 'column (car obj))
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
662 (get-text-property (posn-point pos) 'column))))
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
663 (Buffer-menu-sort col)))
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
664
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
665 (defvar Buffer-menu-sort-button-map
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
666 (let ((map (make-sparse-keymap)))
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
667 ;; This keymap handles both nil and non-nil values for
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
668 ;; Buffer-menu-use-header-line.
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
669 (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
670 (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
671 (define-key map [mouse-2] 'Buffer-menu-sort-by-column)
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
672 (define-key map [follow-link] 'mouse-face)
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
673 (define-key map "\C-m" 'Buffer-menu-sort-by-column)
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
674 map)
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
675 "Local keymap for Buffer menu sort buttons.")
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
676
54580
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
677 (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
678 (if (equal column Buffer-menu-sort-column) (setq column nil))
65355
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
679 (propertize name
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
680 'column column
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
681 'help-echo (concat
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
682 (if Buffer-menu-use-header-line
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
683 "mouse-1, mouse-2: sort by "
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
684 "mouse-2, RET: sort by ")
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
685 (if column (downcase name) "visited order"))
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
686 'mouse-face 'highlight
d96b22b8de33 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 65352
diff changeset
687 '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
688
58276
935277968aef (list-buffers-noselect): New arg BUFFER-LIST.
Richard M. Stallman <rms@gnu.org>
parents: 57920
diff changeset
689 (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
690 "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
691 The buffer is named `*Buffer List*'.
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
692 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
693 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
694
58276
935277968aef (list-buffers-noselect): New arg BUFFER-LIST.
Richard M. Stallman <rms@gnu.org>
parents: 57920
diff changeset
695 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
696 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
697
40622
d2bfc00496d7 (buffer-menu): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 40489
diff changeset
698 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
699 (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
700 (standard-output standard-output)
64529
8b0db2e8ccd3 (Buffer-menu-unmark): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
701 (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
702 (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
703 (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
704 (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
705 (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
706 " "
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
707 (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
708 (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
709 list desired-point)
50172
48610ee0507d (list-buffers-noselect): Use the display property
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50033
diff changeset
710 (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
711 (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
712 ;; 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
713 ;; 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
714 (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
715 (setq pos (match-end 0))
48610ee0507d (list-buffers-noselect): Use the display property
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50033
diff changeset
716 (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
717 ;; 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
718 (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
719 header)))
f0b9b97606f9 (list-buffers-noselect): Use fixed-pitch only in the header-line.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58352
diff changeset
720 ;; 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
721 (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
722 ;; 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
723 ;; line with the beginning of the text (rather than with the left
f0b9b97606f9 (list-buffers-noselect): Use fixed-pitch only in the header-line.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58352
diff changeset
724 ;; scrollbar or the left fringe). –-Stef
f0b9b97606f9 (list-buffers-noselect): Use fixed-pitch only in the header-line.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58352
diff changeset
725 (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
726 header)))
54580
f9e5bd96c71c (Buffer-menu-sort, Buffer-menu-make-sort-button): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
727 (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
728 (setq buffer-read-only nil)
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
729 (erase-buffer)
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
730 (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
731 (unless Buffer-menu-use-header-line
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
732 ;; Use U+2014 (EM DASH) to underline if possible, else U+002D (HYPHEN-MINUS)
58425
f0b9b97606f9 (list-buffers-noselect): Use fixed-pitch only in the header-line.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58352
diff changeset
733 (let ((underline (if (char-displayable-p ?—) ?— ?-)))
f0b9b97606f9 (list-buffers-noselect): Use fixed-pitch only in the header-line.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58352
diff changeset
734 (insert header
f0b9b97606f9 (list-buffers-noselect): Use fixed-pitch only in the header-line.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58352
diff changeset
735 (apply 'string
f0b9b97606f9 (list-buffers-noselect): Use fixed-pitch only in the header-line.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58352
diff changeset
736 (mapcar (lambda (c)
64529
8b0db2e8ccd3 (Buffer-menu-unmark): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
737 (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
738 header)))))
58954
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
739 ;; 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
740 (dolist (buffer (or buffer-list
8e9343dc7c39 (Buffer-menu-use-frame-buffer-list): New user option.
Luc Teirlinck <teirllm@auburn.edu>
parents: 67177
diff changeset
741 (buffer-list
8e9343dc7c39 (Buffer-menu-use-frame-buffer-list): New user option.
Luc Teirlinck <teirllm@auburn.edu>
parents: 67177
diff changeset
742 (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
743 (selected-frame)))))
58954
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
744 (with-current-buffer buffer
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
745 (let ((name (buffer-name))
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
746 (file buffer-file-name))
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
747 (unless (and (not buffer-list)
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
748 (or
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
749 ;; Don't mention internal buffers.
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
750 (and (string= (substring name 0 1) " ") (null file))
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
751 ;; Maybe don't mention buffers without files.
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
752 (and files-only (not file))
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
753 (string= name "*Buffer List*")))
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
754 ;; Otherwise output info.
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
755 (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
756 (if mode-line-process
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
757 (format-mode-line mode-line-process
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
758 nil nil buffer))))
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
759 (bits (string
64529
8b0db2e8ccd3 (Buffer-menu-unmark): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
760 (if (eq buffer old-buffer) ?. ?\s)
58954
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
761 ;; Handle readonly status. The output buffer
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
762 ;; is special cased to appear readonly; it is
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
763 ;; actually made so at a later date.
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
764 (if (or (eq buffer standard-output)
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
765 buffer-read-only)
64529
8b0db2e8ccd3 (Buffer-menu-unmark): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
766 ?% ?\s)
58954
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
767 ;; Identify modified buffers.
64529
8b0db2e8ccd3 (Buffer-menu-unmark): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
768 (if (buffer-modified-p) ?* ?\s)
58954
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
769 ;; Space separator.
64529
8b0db2e8ccd3 (Buffer-menu-unmark): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
770 ?\s)))
58954
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
771 (unless file
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
772 ;; 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
773 ;; 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
774 ;; 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
775 (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
776 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
777 (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
778 ((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
779 (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
780 (cond
71516
a04fe4434fba (list-buffers-noselect): Compare Info file
Juri Linkov <juri@jurta.org>
parents: 70967
diff changeset
781 ((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
782 (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
783 ((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
784 (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
785 ((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
786 (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
787 ((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
788 (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
789 ((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
790 (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
791 (t
40a24db2adc4 (list-buffers-noselect): For Info buffers, use "(file)node" instead of the
Eli Zaretskii <eliz@gnu.org>
parents: 71516
diff changeset
792 (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
793 (file-name-nondirectory file)
40a24db2adc4 (list-buffers-noselect): For Info buffers, use "(file)node" instead of the
Eli Zaretskii <eliz@gnu.org>
parents: 71516
diff changeset
794 ")"
40a24db2adc4 (list-buffers-noselect): For Info buffers, use "(file)node" instead of the
Eli Zaretskii <eliz@gnu.org>
parents: 71516
diff changeset
795 Info-current-node)))))))
58954
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
796 (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
797 list))))))
bb8424d9ff97 (list-buffers-noselect): Collect internal info
Juri Linkov <juri@jurta.org>
parents: 58461
diff changeset
798 ;; 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
799 (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
800 ;; 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
801 (dolist (buffer
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
802 (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
803 (sort list
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
804 (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
805 (lambda (a b)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
806 (< (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
807 (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
808 (lambda (a b)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
809 (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
810 (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
811 list))
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
812 (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
813 (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
814 (insert (cadr buffer)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
815 ;; 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
816 ;; 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
817 ;; This way we avoid problems with unusual buffer names.
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
818 (Buffer-menu-buffer+size (nth 2 buffer)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
819 (int-to-string (nth 3 buffer))
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
820 `(buffer-name ,(nth 2 buffer)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
821 buffer ,(car buffer)
68240
3caf8426fa72 (list-buffers-noselect): Use `buffer-menu-buffer' instead of `Buffer-menu-buffer'.
Juri Linkov <juri@jurta.org>
parents: 68228
diff changeset
822 font-lock-face 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
823 mouse-face highlight
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
824 help-echo "mouse-2: select this buffer"))
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
825 " "
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
826 (if (> (length (nth 4 buffer)) Buffer-menu-mode-width)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
827 (substring (nth 4 buffer) 0 Buffer-menu-mode-width)
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
828 (nth 4 buffer)))
02944b0aaecd (Buffer-menu, Buffer-menu-use-header-line, Buffer-menu-buffer-face,
Juanma Barranquero <lekktu@gmail.com>
parents: 40622
diff changeset
829 (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
830 (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
831 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
832 (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
833 (princ "\n"))
10419
cb6f68d16210 (list-buffers): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10269
diff changeset
834 (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
835 (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
836 (setq header-line-format header))
10592
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
837 ;; 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
838 ;; current buffer is not displayed for some reason.
10419
cb6f68d16210 (list-buffers): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10269
diff changeset
839 (and desired-point
10592
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
840 (goto-char desired-point))
54594
c07fb48cb0e2 (Buffer-menu-revert-function): Make it suitable for
Luc Teirlinck <teirllm@auburn.edu>
parents: 54580
diff changeset
841 (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
842 (set-buffer-modified-p nil)
10592
bbb68f0d31c6 (list-buffers-noselect): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 10421
diff changeset
843 (current-buffer))))
10419
cb6f68d16210 (list-buffers): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10269
diff changeset
844
58299
40fc4ca7acc0 (list-buffers-noselect): Massage to fit in 80 columns.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58276
diff changeset
845 ;; arch-tag: e7dfcfc9-6cb2-46e4-bf55-8ef1936d83c6
662
8a533acedb77 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 194
diff changeset
846 ;;; buff-menu.el ends here