comparison lisp/buff-menu.el @ 10593:7ae93c2ee7a2

(list-buffers-noselect): Handle read-only properly. Select each buffer just once to get all necessary info about it.

10592:bbb68f0d31c6

")
      (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)))

	      ;; 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)
	      (or 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)
			(setq file list-buffers-directory))))
	      (if file
		  (princ file))
	      (princ "\n"))))
	  (setq bl (cdr bl))))
      (Buffer-menu-mode)

10593:7ae93c2ee7a2

")
      (let ((bl (buffer-list)))
	(while bl
	  (let* ((buffer (car bl))
		 (name (buffer-name buffer))
		 (file (buffer-file-name buffer))
		 this-buffer-read-only
		 this-buffer-size
		 this-buffer-mode-name
		 this-buffer-directory)
	    (save-excursion
	      (set-buffer buffer)
	      (setq this-buffer-read-only buffer-read-only)
	      (setq this-buffer-size (buffer-size))
	      (setq this-buffer-mode-name
		    (if (eq buffer standard-output)
			"Buffer Menu" mode-name))
	      (or file
		  ;; No visited file.  Check local value of
		  ;; list-buffers-directory.
		  (if (and (boundp 'list-buffers-directory)
			   list-buffers-directory)
		      (setq this-buffer-directory list-buffers-directory))))
	    (cond
	     ;; Don't mention internal buffers.
	     ((string= (substring name 0 1) " "))
	     ;; Maybe don't mention buffers without files.
	     ((and files-only (not file)))

	      ;; 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)
			     this-buffer-read-only)
			 "% "
		       "  "))
	      (princ name)
	      (indent-to 17 2)
	      (let (size
		    mode
		    (excess (- (current-column) 17)))
		(setq size (format "%8d" this-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 this-buffer-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)
	      (or file (setq file this-buffer-directory))
	      (if file
		  (princ file))
	      (princ "\n"))))
	  (setq bl (cdr bl))))
      (Buffer-menu-mode)