* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
;;; buff-menu.el --- Interface for viewing and manipulating buffers
|
1992-05-30 23:54:21 +00:00
|
|
|
|
|
2013-01-01 09:11:05 +00:00
|
|
|
|
;; Copyright (C) 1985-1987, 1993-1995, 2000-2013 Free Software
|
|
|
|
|
;; Foundation, Inc.
|
1991-02-23 18:14:25 +00:00
|
|
|
|
|
1992-07-22 04:22:30 +00:00
|
|
|
|
;; Maintainer: FSF
|
2001-08-29 14:53:53 +00:00
|
|
|
|
;; Keywords: convenience
|
2010-08-29 16:17:13 +00:00
|
|
|
|
;; Package: emacs
|
1992-07-22 04:22:30 +00:00
|
|
|
|
|
1991-02-23 18:14:25 +00:00
|
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
|
|
2008-05-06 08:06:51 +00:00
|
|
|
|
;; GNU Emacs is free software: you can redistribute it and/or modify
|
1991-02-23 18:14:25 +00:00
|
|
|
|
;; it under the terms of the GNU General Public License as published by
|
2008-05-06 08:06:51 +00:00
|
|
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
|
|
|
;; (at your option) any later version.
|
1991-02-23 18:14:25 +00:00
|
|
|
|
|
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
|
|
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
;; GNU General Public License for more details.
|
|
|
|
|
|
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
2008-05-06 08:06:51 +00:00
|
|
|
|
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
|
1991-02-23 18:14:25 +00:00
|
|
|
|
|
1993-03-22 03:27:18 +00:00
|
|
|
|
;;; Commentary:
|
|
|
|
|
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
;; The Buffer Menu is used to view, edit, delete, or change attributes
|
|
|
|
|
;; of buffers. The entry points are C-x C-b (`list-buffers') and
|
|
|
|
|
;; M-x buffer-menu.
|
1993-03-22 03:27:18 +00:00
|
|
|
|
|
1992-07-16 20:47:09 +00:00
|
|
|
|
;;; Code:
|
2000-08-16 14:33:21 +00:00
|
|
|
|
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
(require 'tabulated-list)
|
1991-02-23 18:14:25 +00:00
|
|
|
|
|
2002-12-16 08:13:19 +00:00
|
|
|
|
(defgroup Buffer-menu nil
|
|
|
|
|
"Show a menu of all buffers in a buffer."
|
|
|
|
|
:group 'tools
|
|
|
|
|
:group 'convenience)
|
|
|
|
|
|
|
|
|
|
(defcustom Buffer-menu-use-header-line t
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
"If non-nil, use the header line to display Buffer Menu column titles."
|
2002-12-16 08:13:19 +00:00
|
|
|
|
:type 'boolean
|
|
|
|
|
:group 'Buffer-menu)
|
|
|
|
|
|
2006-01-17 02:11:40 +00:00
|
|
|
|
(defface buffer-menu-buffer
|
2002-12-16 08:13:19 +00:00
|
|
|
|
'((t (:weight bold)))
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
"Face for buffer names in the Buffer Menu."
|
2005-09-29 22:56:45 +00:00
|
|
|
|
:group 'Buffer-menu)
|
2006-01-17 02:11:40 +00:00
|
|
|
|
(put 'Buffer-menu-buffer 'face-alias 'buffer-menu-buffer)
|
2002-12-16 08:13:19 +00:00
|
|
|
|
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
(defcustom Buffer-menu-buffer+size-width nil
|
|
|
|
|
"Combined width of buffer name and size columns in Buffer Menu.
|
2012-05-12 14:28:04 +00:00
|
|
|
|
If nil, use `Buffer-menu-name-width' and `Buffer-menu-size-width'.
|
|
|
|
|
|
|
|
|
|
If non-nil, the value of `Buffer-menu-name-width' is overridden;
|
|
|
|
|
the name column is assigned width `Buffer-menu-buffer+size-width'
|
|
|
|
|
minus `Buffer-menu-size-width'. This use is deprecated."
|
2012-11-24 23:07:13 +00:00
|
|
|
|
:type '(choice (const nil) number)
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
:group 'Buffer-menu
|
2012-08-15 16:29:11 +00:00
|
|
|
|
:version "24.3")
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
|
|
|
|
|
(make-obsolete-variable 'Buffer-menu-buffer+size-width
|
2012-11-24 23:07:13 +00:00
|
|
|
|
"use `Buffer-menu-name-width' and `Buffer-menu-size-width' instead."
|
2012-08-15 16:29:11 +00:00
|
|
|
|
"24.3")
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
|
|
|
|
|
(defcustom Buffer-menu-name-width 19
|
2012-09-25 01:18:50 +00:00
|
|
|
|
"Width of buffer name column in the Buffer Menu."
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
:type 'number
|
|
|
|
|
:group 'Buffer-menu
|
2012-08-15 16:29:11 +00:00
|
|
|
|
:version "24.3")
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
|
|
|
|
|
(defcustom Buffer-menu-size-width 7
|
2012-09-25 01:18:50 +00:00
|
|
|
|
"Width of buffer size column in the Buffer Menu."
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
:type 'number
|
|
|
|
|
:group 'Buffer-menu
|
2012-08-15 16:29:11 +00:00
|
|
|
|
:version "24.3")
|
2002-12-16 08:13:19 +00:00
|
|
|
|
|
2002-12-18 20:24:51 +00:00
|
|
|
|
(defcustom Buffer-menu-mode-width 16
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
"Width of mode name column in the Buffer Menu."
|
2002-12-16 08:13:19 +00:00
|
|
|
|
:type 'number
|
|
|
|
|
:group 'Buffer-menu)
|
|
|
|
|
|
2005-12-06 00:33:22 +00:00
|
|
|
|
(defcustom Buffer-menu-use-frame-buffer-list t
|
|
|
|
|
"If non-nil, the Buffer Menu uses the selected frame's buffer list.
|
|
|
|
|
Buffers that were never selected in that frame are listed at the end.
|
|
|
|
|
If the value is nil, the Buffer Menu uses the global buffer list.
|
|
|
|
|
This variable matters if the Buffer Menu is sorted by visited order,
|
|
|
|
|
as it is by default."
|
|
|
|
|
:type 'boolean
|
|
|
|
|
:group 'Buffer-menu
|
|
|
|
|
:version "22.1")
|
|
|
|
|
|
2004-03-27 02:09:45 +00:00
|
|
|
|
(defvar Buffer-menu-files-only nil
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
"Non-nil if the current Buffer Menu lists only file buffers.
|
|
|
|
|
This is set by the prefix argument to `buffer-menu' and related
|
|
|
|
|
commands.")
|
2007-10-24 12:27:53 +00:00
|
|
|
|
(make-variable-buffer-local 'Buffer-menu-files-only)
|
|
|
|
|
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
(defvar Info-current-file) ; from info.el
|
|
|
|
|
(defvar Info-current-node) ; from info.el
|
2006-05-26 19:11:45 +00:00
|
|
|
|
|
2007-10-24 12:27:53 +00:00
|
|
|
|
(defvar Buffer-menu-mode-map
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
(let ((map (make-sparse-keymap))
|
2009-01-15 16:46:07 +00:00
|
|
|
|
(menu-map (make-sparse-keymap)))
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
(set-keymap-parent map tabulated-list-mode-map)
|
2007-10-24 12:27:53 +00:00
|
|
|
|
(define-key map "v" 'Buffer-menu-select)
|
|
|
|
|
(define-key map "2" 'Buffer-menu-2-window)
|
|
|
|
|
(define-key map "1" 'Buffer-menu-1-window)
|
|
|
|
|
(define-key map "f" 'Buffer-menu-this-window)
|
|
|
|
|
(define-key map "e" 'Buffer-menu-this-window)
|
|
|
|
|
(define-key map "\C-m" 'Buffer-menu-this-window)
|
|
|
|
|
(define-key map "o" 'Buffer-menu-other-window)
|
|
|
|
|
(define-key map "\C-o" 'Buffer-menu-switch-other-window)
|
|
|
|
|
(define-key map "s" 'Buffer-menu-save)
|
|
|
|
|
(define-key map "d" 'Buffer-menu-delete)
|
|
|
|
|
(define-key map "k" 'Buffer-menu-delete)
|
|
|
|
|
(define-key map "\C-k" 'Buffer-menu-delete)
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
(define-key map "\C-d" 'Buffer-menu-delete-backwards)
|
2007-10-24 12:27:53 +00:00
|
|
|
|
(define-key map "x" 'Buffer-menu-execute)
|
|
|
|
|
(define-key map " " 'next-line)
|
|
|
|
|
(define-key map "\177" 'Buffer-menu-backup-unmark)
|
|
|
|
|
(define-key map "~" 'Buffer-menu-not-modified)
|
|
|
|
|
(define-key map "u" 'Buffer-menu-unmark)
|
|
|
|
|
(define-key map "m" 'Buffer-menu-mark)
|
|
|
|
|
(define-key map "t" 'Buffer-menu-visit-tags-table)
|
|
|
|
|
(define-key map "%" 'Buffer-menu-toggle-read-only)
|
|
|
|
|
(define-key map "b" 'Buffer-menu-bury)
|
|
|
|
|
(define-key map "V" 'Buffer-menu-view)
|
|
|
|
|
(define-key map "T" 'Buffer-menu-toggle-files-only)
|
2008-07-23 23:52:33 +00:00
|
|
|
|
(define-key map (kbd "M-s a C-s") 'Buffer-menu-isearch-buffers)
|
|
|
|
|
(define-key map (kbd "M-s a M-C-s") 'Buffer-menu-isearch-buffers-regexp)
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
|
2012-05-12 15:04:11 +00:00
|
|
|
|
(define-key map [mouse-2] 'Buffer-menu-mouse-select)
|
|
|
|
|
(define-key map [follow-link] 'mouse-face)
|
|
|
|
|
|
2009-11-03 07:28:59 +00:00
|
|
|
|
(define-key map [menu-bar Buffer-menu-mode] (cons (purecopy "Buffer-Menu") menu-map))
|
2012-06-27 21:15:13 +00:00
|
|
|
|
(bindings--define-key menu-map [quit]
|
|
|
|
|
'(menu-item "Quit" quit-window
|
|
|
|
|
:help "Remove the buffer menu from the display"))
|
|
|
|
|
(bindings--define-key menu-map [rev]
|
|
|
|
|
'(menu-item "Refresh" revert-buffer
|
|
|
|
|
:help "Refresh the *Buffer List* buffer contents"))
|
|
|
|
|
(bindings--define-key menu-map [s0] menu-bar-separator)
|
|
|
|
|
(bindings--define-key menu-map [tf]
|
|
|
|
|
'(menu-item "Show Only File Buffers" Buffer-menu-toggle-files-only
|
2009-01-15 16:46:07 +00:00
|
|
|
|
:button (:toggle . Buffer-menu-files-only)
|
2012-06-27 21:15:13 +00:00
|
|
|
|
:help "Toggle whether the current buffer-menu displays only file buffers"))
|
|
|
|
|
(bindings--define-key menu-map [s1] menu-bar-separator)
|
2009-01-15 16:46:07 +00:00
|
|
|
|
;; FIXME: The "Select" entries could use better names...
|
2012-06-27 21:15:13 +00:00
|
|
|
|
(bindings--define-key menu-map [sel]
|
|
|
|
|
'(menu-item "Select Marked" Buffer-menu-select
|
|
|
|
|
:help "Select this line's buffer; also display buffers marked with `>'"))
|
|
|
|
|
(bindings--define-key menu-map [bm2]
|
|
|
|
|
'(menu-item "Select Two" Buffer-menu-2-window
|
|
|
|
|
:help "Select this line's buffer, with previous buffer in second window"))
|
|
|
|
|
(bindings--define-key menu-map [bm1]
|
|
|
|
|
'(menu-item "Select Current" Buffer-menu-1-window
|
|
|
|
|
:help "Select this line's buffer, alone, in full frame"))
|
|
|
|
|
(bindings--define-key menu-map [ow]
|
|
|
|
|
'(menu-item "Select in Other Window" Buffer-menu-other-window
|
|
|
|
|
:help "Select this line's buffer in other window, leaving buffer menu visible"))
|
|
|
|
|
(bindings--define-key menu-map [tw]
|
|
|
|
|
'(menu-item "Select in Current Window" Buffer-menu-this-window
|
|
|
|
|
:help "Select this line's buffer in this window"))
|
|
|
|
|
(bindings--define-key menu-map [s2] menu-bar-separator)
|
|
|
|
|
(bindings--define-key menu-map [is]
|
|
|
|
|
'(menu-item "Regexp Isearch Marked Buffers..." Buffer-menu-isearch-buffers-regexp
|
|
|
|
|
:help "Search for a regexp through all marked buffers using Isearch"))
|
|
|
|
|
(bindings--define-key menu-map [ir]
|
|
|
|
|
'(menu-item "Isearch Marked Buffers..." Buffer-menu-isearch-buffers
|
|
|
|
|
:help "Search for a string through all marked buffers using Isearch"))
|
|
|
|
|
(bindings--define-key menu-map [s3] menu-bar-separator)
|
|
|
|
|
(bindings--define-key menu-map [by]
|
|
|
|
|
'(menu-item "Bury" Buffer-menu-bury
|
|
|
|
|
:help "Bury the buffer listed on this line"))
|
|
|
|
|
(bindings--define-key menu-map [vt]
|
|
|
|
|
'(menu-item "Set Unmodified" Buffer-menu-not-modified
|
|
|
|
|
:help "Mark buffer on this line as unmodified (no changes to save)"))
|
|
|
|
|
(bindings--define-key menu-map [ex]
|
|
|
|
|
'(menu-item "Execute" Buffer-menu-execute
|
|
|
|
|
:help "Save and/or delete buffers marked with s or k commands"))
|
|
|
|
|
(bindings--define-key menu-map [s4] menu-bar-separator)
|
|
|
|
|
(bindings--define-key menu-map [delb]
|
|
|
|
|
'(menu-item "Mark for Delete and Move Backwards" Buffer-menu-delete-backwards
|
|
|
|
|
:help "Mark buffer on this line to be deleted by x command and move up one line"))
|
|
|
|
|
(bindings--define-key menu-map [del]
|
|
|
|
|
'(menu-item "Mark for Delete" Buffer-menu-delete
|
|
|
|
|
:help "Mark buffer on this line to be deleted by x command"))
|
|
|
|
|
|
|
|
|
|
(bindings--define-key menu-map [sv]
|
|
|
|
|
'(menu-item "Mark for Save" Buffer-menu-save
|
|
|
|
|
:help "Mark buffer on this line to be saved by x command"))
|
|
|
|
|
(bindings--define-key menu-map [umk]
|
|
|
|
|
'(menu-item "Unmark" Buffer-menu-unmark
|
|
|
|
|
:help "Cancel all requested operations on buffer on this line and move down"))
|
|
|
|
|
(bindings--define-key menu-map [mk]
|
|
|
|
|
'(menu-item "Mark" Buffer-menu-mark
|
|
|
|
|
:help "Mark buffer on this line for being displayed by v command"))
|
2007-10-24 12:27:53 +00:00
|
|
|
|
map)
|
|
|
|
|
"Local keymap for `Buffer-menu-mode' buffers.")
|
1991-02-23 18:14:25 +00:00
|
|
|
|
|
2012-05-13 03:05:06 +00:00
|
|
|
|
(define-obsolete-variable-alias 'buffer-menu-mode-hook
|
|
|
|
|
'Buffer-menu-mode-hook "23.1")
|
|
|
|
|
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
(define-derived-mode Buffer-menu-mode tabulated-list-mode "Buffer Menu"
|
|
|
|
|
"Major mode for Buffer Menu buffers.
|
2012-11-28 07:12:56 +00:00
|
|
|
|
The Buffer Menu is invoked by the commands \\[list-buffers],
|
|
|
|
|
\\[buffer-menu], and \\[buffer-menu-other-window].
|
|
|
|
|
See `buffer-menu' for a description of its contents.
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
|
2012-11-28 07:12:56 +00:00
|
|
|
|
In Buffer Menu mode, the following commands are defined:
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
\\<Buffer-menu-mode-map>
|
|
|
|
|
\\[quit-window] Remove the Buffer Menu from the display.
|
|
|
|
|
\\[Buffer-menu-this-window] Select current line's buffer in place of the buffer menu.
|
|
|
|
|
\\[Buffer-menu-other-window] Select that buffer in another window,
|
|
|
|
|
so the Buffer Menu remains visible in its window.
|
|
|
|
|
\\[Buffer-menu-view] Select current line's buffer, in View mode.
|
|
|
|
|
\\[Buffer-menu-view-other-window] Select that buffer in
|
|
|
|
|
another window, in view-mode.
|
|
|
|
|
\\[Buffer-menu-switch-other-window] Make another window display that buffer.
|
|
|
|
|
\\[Buffer-menu-mark] Mark current line's buffer to be displayed.
|
|
|
|
|
\\[Buffer-menu-select] Select current line's buffer.
|
|
|
|
|
Also show buffers marked with m, in other windows.
|
|
|
|
|
\\[Buffer-menu-1-window] Select that buffer in full-frame window.
|
|
|
|
|
\\[Buffer-menu-2-window] Select that buffer in one window, together with the
|
|
|
|
|
buffer selected before this one in another window.
|
2012-11-28 07:12:56 +00:00
|
|
|
|
\\[Buffer-menu-isearch-buffers] Incremental search in the marked buffers.
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
\\[Buffer-menu-isearch-buffers-regexp] Isearch for regexp in the marked buffers.
|
|
|
|
|
\\[Buffer-menu-visit-tags-table] visit-tags-table this buffer.
|
|
|
|
|
\\[Buffer-menu-not-modified] Clear modified-flag on that buffer.
|
|
|
|
|
\\[Buffer-menu-save] Mark that buffer to be saved, and move down.
|
|
|
|
|
\\[Buffer-menu-delete] Mark that buffer to be deleted, and move down.
|
|
|
|
|
\\[Buffer-menu-delete-backwards] Mark that buffer to be deleted, and move up.
|
|
|
|
|
\\[Buffer-menu-execute] Delete or save marked buffers.
|
|
|
|
|
\\[Buffer-menu-unmark] Remove all marks from current line.
|
|
|
|
|
With prefix argument, also move up one line.
|
|
|
|
|
\\[Buffer-menu-backup-unmark] Back up a line and remove marks.
|
|
|
|
|
\\[Buffer-menu-toggle-read-only] Toggle read-only status of buffer on this line.
|
|
|
|
|
\\[revert-buffer] Update the list of buffers.
|
|
|
|
|
\\[Buffer-menu-toggle-files-only] Toggle whether the menu displays only file buffers.
|
|
|
|
|
\\[Buffer-menu-bury] Bury the buffer listed on this line."
|
2012-11-28 07:12:56 +00:00
|
|
|
|
(set (make-local-variable 'buffer-stale-function)
|
|
|
|
|
(lambda (&optional _noconfirm) 'fast))
|
|
|
|
|
(add-hook 'tabulated-list-revert-hook 'list-buffers--refresh nil t))
|
|
|
|
|
|
|
|
|
|
(defun buffer-menu (&optional arg)
|
|
|
|
|
"Switch to the Buffer Menu.
|
|
|
|
|
By default, the Buffer Menu lists all buffers except those whose
|
|
|
|
|
names start with a space (which are for internal use). With
|
|
|
|
|
prefix argument ARG, show only buffers that are visiting files.
|
|
|
|
|
|
|
|
|
|
In the Buffer Menu, the first column (denoted \"C\") shows \".\"
|
|
|
|
|
for the buffer from which you came, \">\" for buffers you mark to
|
|
|
|
|
be displayed, and \"D\" for those you mark for deletion.
|
|
|
|
|
|
|
|
|
|
The \"R\" column has a \"%\" if the buffer is read-only.
|
|
|
|
|
The \"M\" column has a \"*\" if it is modified, or \"S\" if you
|
|
|
|
|
have marked it for saving.
|
|
|
|
|
|
|
|
|
|
The remaining columns show the buffer name, the buffer size in
|
|
|
|
|
characters, its major mode, and the visited file name (if any).
|
|
|
|
|
|
|
|
|
|
See `Buffer-menu-mode' for the keybindings available the Buffer
|
|
|
|
|
Menu."
|
1995-01-30 01:11:10 +00:00
|
|
|
|
(interactive "P")
|
|
|
|
|
(switch-to-buffer (list-buffers-noselect arg))
|
|
|
|
|
(message
|
|
|
|
|
"Commands: d, s, x, u; f, o, 1, 2, m, v; ~, %%; q to quit; ? for help."))
|
|
|
|
|
|
|
|
|
|
(defun buffer-menu-other-window (&optional arg)
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
"Display the Buffer Menu in another window.
|
|
|
|
|
See `buffer-menu' for a description of the Buffer Menu.
|
|
|
|
|
|
|
|
|
|
By default, all buffers are listed except those whose names start
|
|
|
|
|
with a space (which are for internal use). With prefix argument
|
|
|
|
|
ARG, show only buffers that are visiting files."
|
1991-02-23 18:14:25 +00:00
|
|
|
|
(interactive "P")
|
1995-01-30 01:11:10 +00:00
|
|
|
|
(switch-to-buffer-other-window (list-buffers-noselect arg))
|
1991-02-23 18:14:25 +00:00
|
|
|
|
(message
|
1993-05-10 16:31:21 +00:00
|
|
|
|
"Commands: d, s, x, u; f, o, 1, 2, m, v; ~, %%; q to quit; ? for help."))
|
|
|
|
|
|
2012-05-07 16:29:55 +00:00
|
|
|
|
;;;###autoload
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
(defun list-buffers (&optional arg)
|
|
|
|
|
"Display a list of existing buffers.
|
|
|
|
|
The list is displayed in a buffer named \"*Buffer List*\".
|
2012-11-28 07:12:56 +00:00
|
|
|
|
See `buffer-menu' for a description of the Buffer Menu.
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
|
|
|
|
|
By default, all buffers are listed except those whose names start
|
|
|
|
|
with a space (which are for internal use). With prefix argument
|
|
|
|
|
ARG, show only buffers that are visiting files."
|
|
|
|
|
(interactive "P")
|
|
|
|
|
(display-buffer (list-buffers-noselect arg)))
|
|
|
|
|
|
|
|
|
|
(defun Buffer-menu-toggle-files-only (arg)
|
|
|
|
|
"Toggle whether the current buffer-menu displays only file buffers.
|
|
|
|
|
With a positive ARG, display only file buffers. With zero or
|
|
|
|
|
negative ARG, display other buffers as well."
|
|
|
|
|
(interactive "P")
|
|
|
|
|
(setq Buffer-menu-files-only
|
|
|
|
|
(cond ((not arg) (not Buffer-menu-files-only))
|
|
|
|
|
((> (prefix-numeric-value arg) 0) t)))
|
|
|
|
|
(message (if Buffer-menu-files-only
|
|
|
|
|
"Showing only file-visiting buffers."
|
|
|
|
|
"Showing all non-internal buffers."))
|
|
|
|
|
(revert-buffer))
|
|
|
|
|
|
|
|
|
|
(defalias 'Buffer-menu-sort 'tabulated-list-sort)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defun Buffer-menu-buffer (&optional error-if-non-existent-p)
|
|
|
|
|
"Return the buffer described by the current Buffer Menu line.
|
|
|
|
|
If there is no buffer here, return nil if ERROR-IF-NON-EXISTENT-P
|
|
|
|
|
is nil or omitted, and signal an error otherwise."
|
|
|
|
|
(let ((buffer (tabulated-list-get-id)))
|
|
|
|
|
(cond ((null buffer)
|
|
|
|
|
(if error-if-non-existent-p
|
|
|
|
|
(error "No buffer on this line")))
|
|
|
|
|
((not (buffer-live-p buffer))
|
|
|
|
|
(if error-if-non-existent-p
|
|
|
|
|
(error "This buffer has been killed")))
|
|
|
|
|
(t buffer))))
|
|
|
|
|
|
2002-12-16 08:13:19 +00:00
|
|
|
|
(defun Buffer-menu-no-header ()
|
|
|
|
|
(beginning-of-line)
|
|
|
|
|
(if (or Buffer-menu-use-header-line
|
|
|
|
|
(not (eq (char-after) ?C)))
|
|
|
|
|
t
|
|
|
|
|
(ding)
|
|
|
|
|
(forward-line 1)
|
|
|
|
|
nil))
|
|
|
|
|
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
(defun Buffer-menu-beginning ()
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
(unless Buffer-menu-use-header-line
|
|
|
|
|
(forward-line)))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;; Commands for modifying Buffer Menu entries.
|
|
|
|
|
|
1991-02-23 18:14:25 +00:00
|
|
|
|
(defun Buffer-menu-mark ()
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
"Mark the Buffer menu entry at point for later display.
|
|
|
|
|
It will be displayed by the \\<Buffer-menu-mode-map>\\[Buffer-menu-select] command."
|
1991-02-23 18:14:25 +00:00
|
|
|
|
(interactive)
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
(tabulated-list-set-col 0 ">" t)
|
|
|
|
|
(forward-line))
|
1991-02-23 18:14:25 +00:00
|
|
|
|
|
1993-03-23 07:26:34 +00:00
|
|
|
|
(defun Buffer-menu-unmark (&optional backup)
|
|
|
|
|
"Cancel all requested operations on buffer on this line and move down.
|
2005-07-20 11:32:17 +00:00
|
|
|
|
Optional prefix arg means move up."
|
1993-03-23 07:26:34 +00:00
|
|
|
|
(interactive "P")
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
(tabulated-list-set-col 0 " " t)
|
1993-03-23 07:26:34 +00:00
|
|
|
|
(forward-line (if backup -1 1)))
|
1991-02-23 18:14:25 +00:00
|
|
|
|
|
|
|
|
|
(defun Buffer-menu-backup-unmark ()
|
|
|
|
|
"Move up and cancel all requested operations on buffer on line above."
|
|
|
|
|
(interactive)
|
|
|
|
|
(forward-line -1)
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
(tabulated-list-set-col 0 " " t))
|
1991-02-23 18:14:25 +00:00
|
|
|
|
|
1994-09-24 04:32:08 +00:00
|
|
|
|
(defun Buffer-menu-delete (&optional arg)
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
"Mark the buffer on this Buffer Menu buffer line for deletion.
|
|
|
|
|
A subsequent \\<Buffer-menu-mode-map>`\\[Buffer-menu-execute]' command
|
|
|
|
|
will delete it.
|
|
|
|
|
|
|
|
|
|
If prefix argument ARG is non-nil, it specifies the number of
|
|
|
|
|
buffers to delete; a negative ARG means to delete backwards."
|
1994-09-24 04:32:08 +00:00
|
|
|
|
(interactive "p")
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
(if (or (null arg) (= arg 0))
|
|
|
|
|
(setq arg 1))
|
|
|
|
|
(while (> arg 0)
|
|
|
|
|
(when (Buffer-menu-buffer)
|
|
|
|
|
(tabulated-list-set-col 0 "D" t))
|
|
|
|
|
(forward-line 1)
|
|
|
|
|
(setq arg (1- arg)))
|
|
|
|
|
(while (< arg 0)
|
|
|
|
|
(when (Buffer-menu-buffer)
|
|
|
|
|
(tabulated-list-set-col 0 "D" t))
|
|
|
|
|
(forward-line -1)
|
|
|
|
|
(setq arg (1+ arg))))
|
1994-09-24 04:32:08 +00:00
|
|
|
|
|
|
|
|
|
(defun Buffer-menu-delete-backwards (&optional arg)
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
"Mark the buffer on this Buffer Menu line for deletion, and move up.
|
2012-11-28 07:12:56 +00:00
|
|
|
|
A subsequent \\<Buffer-menu-mode-map>`\\[Buffer-menu-execute]'
|
|
|
|
|
command will delete the marked buffer. Prefix ARG means move
|
|
|
|
|
that many lines."
|
1994-09-24 04:32:08 +00:00
|
|
|
|
(interactive "p")
|
2002-12-16 08:13:19 +00:00
|
|
|
|
(Buffer-menu-delete (- (or arg 1))))
|
1991-02-23 18:14:25 +00:00
|
|
|
|
|
|
|
|
|
(defun Buffer-menu-save ()
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
"Mark the buffer on this Buffer Menu line for saving.
|
|
|
|
|
A subsequent \\<Buffer-menu-mode-map>`\\[Buffer-menu-execute]' command
|
|
|
|
|
will save it."
|
1991-02-23 18:14:25 +00:00
|
|
|
|
(interactive)
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
(when (Buffer-menu-buffer)
|
|
|
|
|
(tabulated-list-set-col 2 "S" t)
|
|
|
|
|
(forward-line 1)))
|
1991-02-23 18:14:25 +00:00
|
|
|
|
|
1994-07-11 04:46:24 +00:00
|
|
|
|
(defun Buffer-menu-not-modified (&optional arg)
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
"Mark the buffer on this line as unmodified (no changes to save).
|
|
|
|
|
If ARG is non-nil (interactively, with a prefix argument), mark
|
|
|
|
|
it as modified."
|
1994-07-11 04:46:24 +00:00
|
|
|
|
(interactive "P")
|
2008-06-25 15:13:03 +00:00
|
|
|
|
(with-current-buffer (Buffer-menu-buffer t)
|
1994-07-11 04:46:24 +00:00
|
|
|
|
(set-buffer-modified-p arg))
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
(tabulated-list-set-col 2 (if arg "*" " ") t))
|
2004-10-17 08:35:10 +00:00
|
|
|
|
|
1991-02-23 18:14:25 +00:00
|
|
|
|
(defun Buffer-menu-execute ()
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
"Save and/or delete marked buffers in the Buffer Menu.
|
|
|
|
|
Buffers marked with \\<Buffer-menu-mode-map>`\\[Buffer-menu-save]' are saved.
|
|
|
|
|
Buffers marked with \\<Buffer-menu-mode-map>`\\[Buffer-menu-delete]' are deleted."
|
1991-02-23 18:14:25 +00:00
|
|
|
|
(interactive)
|
|
|
|
|
(save-excursion
|
2004-10-17 08:35:10 +00:00
|
|
|
|
(Buffer-menu-beginning)
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
(while (not (eobp))
|
|
|
|
|
(let ((buffer (tabulated-list-get-id))
|
|
|
|
|
(entry (tabulated-list-get-entry)))
|
|
|
|
|
(cond ((null entry)
|
|
|
|
|
(forward-line 1))
|
|
|
|
|
((not (buffer-live-p buffer))
|
|
|
|
|
(tabulated-list-delete-entry))
|
|
|
|
|
(t
|
|
|
|
|
(let ((delete (eq (char-after) ?D)))
|
|
|
|
|
(when (equal (aref entry 2) "S")
|
|
|
|
|
(condition-case nil
|
|
|
|
|
(progn
|
|
|
|
|
(with-current-buffer buffer
|
|
|
|
|
(save-buffer))
|
|
|
|
|
(tabulated-list-set-col 2 " " t))
|
|
|
|
|
(error (warn "Error saving %s" buffer))))
|
|
|
|
|
(if delete
|
|
|
|
|
(unless (eq buffer (current-buffer))
|
|
|
|
|
(kill-buffer buffer)
|
|
|
|
|
(tabulated-list-delete-entry))
|
|
|
|
|
(forward-line 1)))))))))
|
1991-02-23 18:14:25 +00:00
|
|
|
|
|
|
|
|
|
(defun Buffer-menu-select ()
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
"Select this line's buffer; also, display buffers marked with `>'.
|
|
|
|
|
You can mark buffers with the \\<Buffer-menu-mode-map>`\\[Buffer-menu-mark]' command.
|
1995-01-30 01:11:10 +00:00
|
|
|
|
This command deletes and replaces all the previously existing windows
|
|
|
|
|
in the selected frame."
|
1991-02-23 18:14:25 +00:00
|
|
|
|
(interactive)
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
(let* ((this-buffer (Buffer-menu-buffer t))
|
|
|
|
|
(menu-buffer (current-buffer))
|
|
|
|
|
(others (delq this-buffer (Buffer-menu-marked-buffers t)))
|
|
|
|
|
(height (/ (1- (frame-height)) (1+ (length others)))))
|
1991-02-23 18:14:25 +00:00
|
|
|
|
(delete-other-windows)
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
(switch-to-buffer this-buffer)
|
|
|
|
|
(unless (eq menu-buffer this-buffer)
|
|
|
|
|
(bury-buffer menu-buffer))
|
|
|
|
|
(dolist (buffer others)
|
|
|
|
|
(split-window nil height)
|
|
|
|
|
(other-window 1)
|
|
|
|
|
(switch-to-buffer buffer))
|
|
|
|
|
;; Back to the beginning!
|
|
|
|
|
(other-window 1)))
|
|
|
|
|
|
|
|
|
|
(defun Buffer-menu-marked-buffers (&optional unmark)
|
|
|
|
|
"Return the list of buffers marked with `Buffer-menu-mark'.
|
|
|
|
|
If UNMARK is non-nil, unmark them."
|
2008-07-23 23:52:33 +00:00
|
|
|
|
(let (buffers)
|
|
|
|
|
(Buffer-menu-beginning)
|
|
|
|
|
(while (re-search-forward "^>" nil t)
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
(let ((buffer (Buffer-menu-buffer)))
|
|
|
|
|
(if (and buffer unmark)
|
|
|
|
|
(tabulated-list-set-col 0 " " t))
|
|
|
|
|
(if (buffer-live-p buffer)
|
|
|
|
|
(push buffer buffers))))
|
2008-07-23 23:52:33 +00:00
|
|
|
|
(nreverse buffers)))
|
|
|
|
|
|
|
|
|
|
(defun Buffer-menu-isearch-buffers ()
|
|
|
|
|
"Search for a string through all marked buffers using Isearch."
|
|
|
|
|
(interactive)
|
|
|
|
|
(multi-isearch-buffers (Buffer-menu-marked-buffers)))
|
|
|
|
|
|
|
|
|
|
(defun Buffer-menu-isearch-buffers-regexp ()
|
|
|
|
|
"Search for a regexp through all marked buffers using Isearch."
|
|
|
|
|
(interactive)
|
|
|
|
|
(multi-isearch-buffers-regexp (Buffer-menu-marked-buffers)))
|
1995-01-30 01:11:10 +00:00
|
|
|
|
|
1991-02-23 18:14:25 +00:00
|
|
|
|
|
|
|
|
|
(defun Buffer-menu-visit-tags-table ()
|
|
|
|
|
"Visit the tags table in the buffer on this line. See `visit-tags-table'."
|
|
|
|
|
(interactive)
|
|
|
|
|
(let ((file (buffer-file-name (Buffer-menu-buffer t))))
|
|
|
|
|
(if file
|
|
|
|
|
(visit-tags-table file)
|
|
|
|
|
(error "Specified buffer has no file"))))
|
|
|
|
|
|
|
|
|
|
(defun Buffer-menu-1-window ()
|
1992-07-15 00:32:19 +00:00
|
|
|
|
"Select this line's buffer, alone, in full frame."
|
1991-02-23 18:14:25 +00:00
|
|
|
|
(interactive)
|
|
|
|
|
(switch-to-buffer (Buffer-menu-buffer t))
|
|
|
|
|
(bury-buffer (other-buffer))
|
|
|
|
|
(delete-other-windows))
|
|
|
|
|
|
|
|
|
|
(defun Buffer-menu-this-window ()
|
|
|
|
|
"Select this line's buffer in this window."
|
|
|
|
|
(interactive)
|
|
|
|
|
(switch-to-buffer (Buffer-menu-buffer t)))
|
|
|
|
|
|
|
|
|
|
(defun Buffer-menu-other-window ()
|
|
|
|
|
"Select this line's buffer in other window, leaving buffer menu visible."
|
|
|
|
|
(interactive)
|
|
|
|
|
(switch-to-buffer-other-window (Buffer-menu-buffer t)))
|
|
|
|
|
|
1992-07-02 02:36:29 +00:00
|
|
|
|
(defun Buffer-menu-switch-other-window ()
|
|
|
|
|
"Make the other window select this line's buffer.
|
|
|
|
|
The current window remains selected."
|
|
|
|
|
(interactive)
|
2011-09-10 21:15:28 +00:00
|
|
|
|
(display-buffer (Buffer-menu-buffer t) t))
|
1992-07-02 02:36:29 +00:00
|
|
|
|
|
1991-02-23 18:14:25 +00:00
|
|
|
|
(defun Buffer-menu-2-window ()
|
|
|
|
|
"Select this line's buffer, with previous buffer in second window."
|
|
|
|
|
(interactive)
|
|
|
|
|
(let ((buff (Buffer-menu-buffer t))
|
2011-09-10 21:15:28 +00:00
|
|
|
|
(menu (current-buffer)))
|
1993-03-23 07:26:34 +00:00
|
|
|
|
(delete-other-windows)
|
1991-02-23 18:14:25 +00:00
|
|
|
|
(switch-to-buffer (other-buffer))
|
2011-09-10 21:15:28 +00:00
|
|
|
|
(switch-to-buffer-other-window buff)
|
1991-02-23 18:14:25 +00:00
|
|
|
|
(bury-buffer menu)))
|
1992-05-30 23:54:21 +00:00
|
|
|
|
|
1993-03-27 01:58:22 +00:00
|
|
|
|
(defun Buffer-menu-toggle-read-only ()
|
2012-07-13 07:06:09 +00:00
|
|
|
|
"Toggle read-only status of buffer on this line.
|
|
|
|
|
This behaves like invoking \\[toggle-read-only] in that buffer."
|
1993-03-27 01:58:22 +00:00
|
|
|
|
(interactive)
|
2012-08-12 17:29:53 +00:00
|
|
|
|
(let ((read-only
|
|
|
|
|
(with-current-buffer (Buffer-menu-buffer t)
|
2012-09-23 10:21:34 +00:00
|
|
|
|
(read-only-mode 'toggle)
|
2012-08-12 17:29:53 +00:00
|
|
|
|
buffer-read-only)))
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
(tabulated-list-set-col 1 (if read-only "%" " ") t)))
|
1993-03-27 01:58:22 +00:00
|
|
|
|
|
1997-06-17 04:28:01 +00:00
|
|
|
|
(defun Buffer-menu-bury ()
|
|
|
|
|
"Bury the buffer listed on this line."
|
|
|
|
|
(interactive)
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
(let ((buffer (tabulated-list-get-id)))
|
|
|
|
|
(cond ((null buffer))
|
|
|
|
|
((buffer-live-p buffer)
|
|
|
|
|
(bury-buffer buffer)
|
|
|
|
|
(save-excursion
|
|
|
|
|
(let ((elt (tabulated-list-delete-entry)))
|
|
|
|
|
(goto-char (point-max))
|
|
|
|
|
(apply 'tabulated-list-print-entry elt)))
|
|
|
|
|
(message "Buffer buried."))
|
|
|
|
|
(t
|
|
|
|
|
(tabulated-list-delete-entry)
|
|
|
|
|
(message "Buffer is dead; removing from list.")))))
|
1999-08-03 17:38:59 +00:00
|
|
|
|
|
|
|
|
|
(defun Buffer-menu-view ()
|
|
|
|
|
"View this line's buffer in View mode."
|
|
|
|
|
(interactive)
|
|
|
|
|
(view-buffer (Buffer-menu-buffer t)))
|
|
|
|
|
|
|
|
|
|
(defun Buffer-menu-view-other-window ()
|
|
|
|
|
"View this line's buffer in View mode in another window."
|
|
|
|
|
(interactive)
|
|
|
|
|
(view-buffer-other-window (Buffer-menu-buffer t)))
|
1995-01-13 08:14:25 +00:00
|
|
|
|
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
;;; Functions for populating the Buffer Menu.
|
2004-03-26 15:22:03 +00:00
|
|
|
|
|
2012-05-07 16:29:55 +00:00
|
|
|
|
;;;###autoload
|
2004-11-16 17:12:53 +00:00
|
|
|
|
(defun list-buffers-noselect (&optional files-only buffer-list)
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
"Create and return a Buffer Menu buffer.
|
|
|
|
|
This is called by `buffer-menu' and others as a subroutine.
|
|
|
|
|
|
|
|
|
|
If FILES-ONLY is non-nil, show only file-visiting buffers.
|
|
|
|
|
If BUFFER-LIST is non-nil, it should be a list of buffers; it
|
|
|
|
|
means list those buffers and no others."
|
|
|
|
|
(let ((old-buffer (current-buffer))
|
|
|
|
|
(buffer (get-buffer-create "*Buffer List*")))
|
|
|
|
|
(with-current-buffer buffer
|
1995-01-13 08:14:25 +00:00
|
|
|
|
(Buffer-menu-mode)
|
2012-07-31 22:34:36 +00:00
|
|
|
|
(setq Buffer-menu-files-only
|
|
|
|
|
(and files-only (>= (prefix-numeric-value files-only) 0)))
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
(list-buffers--refresh buffer-list old-buffer)
|
|
|
|
|
(tabulated-list-print))
|
|
|
|
|
buffer))
|
|
|
|
|
|
2012-05-12 15:04:11 +00:00
|
|
|
|
(defun Buffer-menu-mouse-select (event)
|
|
|
|
|
"Select the buffer whose line you click on."
|
|
|
|
|
(interactive "e")
|
|
|
|
|
(select-window (posn-window (event-end event)))
|
|
|
|
|
(let ((buffer (tabulated-list-get-id (posn-point (event-end event)))))
|
|
|
|
|
(when (buffer-live-p buffer)
|
|
|
|
|
(if (and (window-dedicated-p (selected-window))
|
|
|
|
|
(eq (selected-window) (frame-root-window)))
|
|
|
|
|
(switch-to-buffer-other-frame buffer)
|
|
|
|
|
(switch-to-buffer buffer)))))
|
|
|
|
|
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
(defun list-buffers--refresh (&optional buffer-list old-buffer)
|
|
|
|
|
;; Set up `tabulated-list-format'.
|
|
|
|
|
(let ((name-width Buffer-menu-name-width)
|
|
|
|
|
(size-width Buffer-menu-size-width))
|
|
|
|
|
;; Handle obsolete variable:
|
|
|
|
|
(if Buffer-menu-buffer+size-width
|
|
|
|
|
(setq name-width (- Buffer-menu-buffer+size-width size-width)))
|
|
|
|
|
(setq tabulated-list-format
|
|
|
|
|
(vector '("C" 1 t :pad-right 0)
|
|
|
|
|
'("R" 1 t :pad-right 0)
|
|
|
|
|
'("M" 1 t)
|
|
|
|
|
`("Buffer" ,name-width t)
|
2012-05-07 16:29:55 +00:00
|
|
|
|
`("Size" ,size-width tabulated-list-entry-size->
|
|
|
|
|
:right-align t)
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
`("Mode" ,Buffer-menu-mode-width t)
|
|
|
|
|
'("File" 1 t))))
|
2012-05-07 05:37:38 +00:00
|
|
|
|
(setq tabulated-list-use-header-line Buffer-menu-use-header-line)
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
;; Collect info for each buffer we're interested in.
|
|
|
|
|
(let ((buffer-menu-buffer (current-buffer))
|
|
|
|
|
(show-non-file (not Buffer-menu-files-only))
|
|
|
|
|
entries)
|
|
|
|
|
(dolist (buffer (or buffer-list
|
|
|
|
|
(buffer-list (if Buffer-menu-use-frame-buffer-list
|
|
|
|
|
(selected-frame)))))
|
|
|
|
|
(with-current-buffer buffer
|
|
|
|
|
(let* ((name (buffer-name))
|
|
|
|
|
(file buffer-file-name))
|
|
|
|
|
(when (and (buffer-live-p buffer)
|
|
|
|
|
(or buffer-list
|
|
|
|
|
(and (not (string= (substring name 0 1) " "))
|
|
|
|
|
(not (eq buffer buffer-menu-buffer))
|
|
|
|
|
(or file show-non-file))))
|
|
|
|
|
(push (list buffer
|
|
|
|
|
(vector (if (eq buffer old-buffer) "." " ")
|
|
|
|
|
(if buffer-read-only "%" " ")
|
|
|
|
|
(if (buffer-modified-p) "*" " ")
|
|
|
|
|
(Buffer-menu--pretty-name name)
|
|
|
|
|
(number-to-string (buffer-size))
|
|
|
|
|
(concat (format-mode-line mode-name nil nil buffer)
|
|
|
|
|
(if mode-line-process
|
|
|
|
|
(format-mode-line mode-line-process
|
|
|
|
|
nil nil buffer)))
|
|
|
|
|
(Buffer-menu--pretty-file-name file)))
|
|
|
|
|
entries)))))
|
|
|
|
|
(setq tabulated-list-entries (nreverse entries)))
|
|
|
|
|
(tabulated-list-init-header))
|
|
|
|
|
|
|
|
|
|
(defun tabulated-list-entry-size-> (entry1 entry2)
|
|
|
|
|
(> (string-to-number (aref (cadr entry1) 4))
|
|
|
|
|
(string-to-number (aref (cadr entry2) 4))))
|
|
|
|
|
|
|
|
|
|
(defun Buffer-menu--pretty-name (name)
|
2012-05-12 15:04:11 +00:00
|
|
|
|
(propertize name
|
|
|
|
|
'font-lock-face 'buffer-menu-buffer
|
|
|
|
|
'mouse-face 'highlight))
|
* lisp/buff-menu.el: Convert to Tabulated List mode.
(Buffer-menu-buffer+size-width): Make obsolete.
(Buffer-menu-name-width, Buffer-menu-size-width): New variables.
(Buffer-menu-mode-map): Inherit from tabulated-list-mode-map.
(Buffer-menu-mode): Derive from tabulated-list-mode. Move command
documentation into docstring of buffer-menu.
(Buffer-menu-toggle-files-only): Add an informative message.
(Buffer-menu-sort): Convert to alias for tabulated-list-sort.
(Buffer-menu-buffer, Buffer-menu-beginning, Buffer-menu-mark)
(Buffer-menu-unmark, Buffer-menu-backup-unmark)
(Buffer-menu-delete, Buffer-menu-save, Buffer-menu-not-modified)
(Buffer-menu-execute, Buffer-menu-select)
(Buffer-menu-marked-buffers, Buffer-menu-toggle-read-only)
(Buffer-menu-bury): Use Tabulated List machinery.
(Buffer-menu-mouse-select, Buffer-menu-sort-by-column)
(Buffer-menu-sort-button-map, Buffer-menu-make-sort-button):
Deleted.
(list-buffers--refresh): New function.
(list-buffers-noselect): Use it.
(tabulated-list-entry-size->, Buffer-menu--pretty-name)
(Buffer-menu--pretty-file-name): New helper functions.
* lisp/loadup.el: Preload tabulated-list.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort): Rename from
tabulated-list-sort-column.
(tabulated-list-init-header): Add the initial aligning space even
if tabulated-list-padding is zero.
* src/lisp.mk (lisp): Update.
2012-05-06 16:45:46 +00:00
|
|
|
|
|
|
|
|
|
(defun Buffer-menu--pretty-file-name (file)
|
|
|
|
|
(cond (file
|
|
|
|
|
(abbreviate-file-name file))
|
|
|
|
|
((and (boundp 'list-buffers-directory)
|
|
|
|
|
list-buffers-directory)
|
|
|
|
|
list-buffers-directory)
|
|
|
|
|
((eq major-mode 'Info-mode)
|
|
|
|
|
(Buffer-menu-info-node-description Info-current-file))
|
|
|
|
|
(t "")))
|
|
|
|
|
|
|
|
|
|
(defun Buffer-menu-info-node-description (file)
|
|
|
|
|
(cond
|
|
|
|
|
((equal file "dir") "*Info Directory*")
|
|
|
|
|
((eq file 'apropos) "*Info Apropos*")
|
|
|
|
|
((eq file 'history) "*Info History*")
|
|
|
|
|
((eq file 'toc) "*Info TOC*")
|
|
|
|
|
((not (stringp file)) "") ; Avoid errors
|
|
|
|
|
(t
|
|
|
|
|
(concat "(" (file-name-nondirectory file) ") " Info-current-node))))
|
1995-01-13 08:14:25 +00:00
|
|
|
|
|
1992-05-30 23:54:21 +00:00
|
|
|
|
;;; buff-menu.el ends here
|