(list-buffers): New function.

(ctl-x-map): Define C-x C-b to list-buffers.

1 files changed, 90 insertions, 0 deletions

diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index 38926269b71..7924e6a6a4a 100644
--- a/lisp/buff-menu.el
+++ b/lisp/buff-menu.el
@@ -415,4 +415,94 @@ The current window remains selected."
             (delete-char 1)
             (insert char))))))
 
+
+
+(define-key ctl-x-map "\C-b" 'list-buffers)
+
+(defun list-buffers (&optional files-only)
+  "Display a list of names of existing buffers.
+The list is displayed in a buffer named `*Buffer List*'.
+Note that buffers with names starting with spaces are omitted.
+Non-null optional arg FILES-ONLY means mention only file buffers.
+
+The M column contains a * for buffers that are modified.
+The R column contains a % for buffers that are read-only."
+  (interactive "P")
+  (let ((old-buffer (current-buffer))
+	(blist-buffer (get-buffer-create "*Buffer List*"))
+	(desired-point nil))
+    (with-output-to-temp-buffer "*Buffer List*"
+      (set-buffer standard-output)
+      (princ "\
+ MR Buffer           Size  Mode         File
+ -- ------           ----  ----         ----
+")
+      (let ((bl (buffer-list)))
+	(while bl
+	  (let* ((buffer (car bl))
+		 (name (buffer-name buffer))
+		 (file (buffer-file-name buffer)))
+	    (cond
+	     ;; Don't mention internal buffers.
+	     ((string= (substring name 0 1) " "))
+	     ;; Maybe don't mention buffers without files.
+	     ((and files-only (not file)))
+	     ;; Otherwise output info.
+	     (t
+	      ;; Identify current buffer.
+	      (if (eq buffer old-buffer)
+		  (progn
+		    (setq desired-point (point))
+		    (princ "."))
+		(princ " "))
+	      ;; Identify modified buffers.
+	      (princ (if (buffer-modified-p buffer) "*" " "))
+	      ;; Handle readonly status.  The output buffer is special
+	      ;; cased to be readonly; it is actually made so at a later
+	      ;; date.
+	      (princ (if (or (eq buffer standard-output) buffer-read-only)
+			 "% "
+		       "  "))
+	      (princ name)
+	      (indent-to 17 2)
+	      (let (size
+		    mode
+		    (excess (- (current-column) 17)))
+		(save-excursion
+		  (set-buffer buffer)
+		  (setq size (format "%8d" (buffer-size)))
+		  ;; Ack -- if looking at the *Buffer List* buffer,
+		  ;; always use "Buffer Menu" mode.  Otherwise the
+		  ;; first time the buffer is created, the mode will
+		  ;; be wrong.
+		  (setq mode (if (eq buffer standard-output)
+				 "Buffer Menu"
+			       mode-name))
+		  (while (and (> excess 0) (= (aref size 0) ?\ ))
+		    (setq size (substring size 1))
+		    (setq excess (1- excess))))
+		(princ size)
+		(indent-to 27 1)
+		(princ mode))
+	      (indent-to 40 1)
+	      (if file
+		  (princ file)
+		;; No visited file.  Check local value of
+		;; list-buffers-directory.
+		(save-excursion
+		  (set-buffer buffer)
+		  (if (and (boundp list-buffers-directory)
+			   list-buffers-directory)
+		      (princ list-buffers-directory))))
+	      (princ "\n"))))
+	  (setq bl (cdr bl)))))
+    ;; DESIRED-POINT doesn't have to be set; it is not when the
+    ;; current buffer is not displayed for some reason.
+    (save-excursion
+      (set-buffer blist-buffer)
+      (Buffer-menu-mode)
+      (and desired-point
+	   (goto-char desired-point))
+      (setq ZZZ (point)))))
+
 ;;; buff-menu.el ends here