Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 05:17:35 +00:00
Code Issues Projects Releases Packages Wiki Activity

(last-buffer): Handle buffer-list and buffer-predicate

Browse source 
frame parameters like bury-buffer.
This commit is contained in:
Richard M. Stallman 2002-07-18 14:58:53 +00:00
parent f0bfada77f
commit cfabd09347
1 changed files with 20 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
lisp/bindings.el
View file

@ -275,10 +275,26 @@ Keymap for what is displayed by `mode-line-buffer-identification'.")
(defun last-buffer () "\
Return the last non-hidden buffer in the buffer list."
(let ((list (reverse (buffer-list))))
(while (eq (aref (buffer-name (car list)) 0) ? )
(setq list (cdr list)))
(car list)))
;; This logic is more or less copied from bury-buffer,
;; except that we reverse the buffer list.
(let ((fbl (frame-parameter 'buffer-list))
(list (buffer-list))
(pred (frame-parameter nil 'buffer-predicate))
found notsogood)
;; Merge the frame buffer list with the whole buffer list,
;; and reverse it.
(dolist (buffer fbl)
(setq list (delq buffer list)))
(setq list (nreverse (append fbl list)))
(while (not found)
(unless (or (eq (aref (buffer-name (car list)) 0) ? )
;; If the selected frame has a buffer_predicate,
;; disregard buffers that don't fit the predicate.
(and pred (not (funcall pred (car list)))))
(if (get-buffer-window (car list) 'visible)
(unless notsogood (setq notsogood (car list)))
(setq found (car list)))))
(or found notsogood)))
(defun unbury-buffer () "\
Switch to the last buffer in the buffer list."