277 |
Return the last non-hidden buffer in the buffer list." |
Return the last non-hidden buffer in the buffer list." |
278 |
;; This logic is more or less copied from bury-buffer, |
;; This logic is more or less copied from bury-buffer, |
279 |
;; except that we reverse the buffer list. |
;; except that we reverse the buffer list. |
280 |
(let ((fbl (frame-parameter 'buffer-list)) |
(let ((fbl (frame-parameter nil 'buffer-list)) |
281 |
(list (buffer-list)) |
(list (buffer-list)) |
282 |
(pred (frame-parameter nil 'buffer-predicate)) |
(pred (frame-parameter nil 'buffer-predicate)) |
283 |
found notsogood) |
found notsogood) |