Mercurial > emacs

comparison lisp/bindings.el @ 41457:60f633593ee0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(last-buffer, unbury-buffer): Doc fixes.
author Richard M. Stallman <rms@gnu.org>
date Sat, 24 Nov 2001 23:57:29 +0000
parents 77b1386373e0
children 99d79f9219a5
comparison
equal deleted inserted replaced
41456:a35f9838ee72 41457:60f633593ee0
270 Keymap for what is displayed by `mode-line-mode-name'.") 270 Keymap for what is displayed by `mode-line-mode-name'.")
271 271
272 (defvar mode-line-mode-menu-keymap nil "\ 272 (defvar mode-line-mode-menu-keymap nil "\
273 Keymap for mode operations menu in the mode line.") 273 Keymap for mode operations menu in the mode line.")
274 274
275 (defun last-buffer () " 275 (defun last-buffer () "\
276 Return the last non-hidden buffer in the buffer list." 276 Return the last non-hidden buffer in the buffer list."
277 (let ((list (reverse (buffer-list)))) 277 (let ((list (reverse (buffer-list))))
278 (while (eq (aref (buffer-name (car list)) 0) ? ) 278 (while (eq (aref (buffer-name (car list)) 0) ? )
279 (setq list (cdr list))) 279 (setq list (cdr list)))
280 (car list))) 280 (car list)))
281 281
282 (defun unbury-buffer () " 282 (defun unbury-buffer () "\
283 Switch to the `last-buffer'." 283 Switch to the last buffer in the buffer list."
284 (interactive) 284 (interactive)
285 (switch-to-buffer (last-buffer))) 285 (switch-to-buffer (last-buffer)))
286 286
287 (defun mode-line-unbury-buffer (event) "\ 287 (defun mode-line-unbury-buffer (event) "\
288 Call `unbury-buffer' in this window." 288 Call `unbury-buffer' in this window."