/[emacs]/emacs/lisp/bindings.el
ViewVC logotype

Diff of /emacs/lisp/bindings.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.89 by rms, Sat Nov 17 20:38:50 2001 UTC revision 1.90 by sds, Mon Nov 19 16:32:37 2001 UTC
# Line 258  Normally nil in most modes, since there Line 258  Normally nil in most modes, since there
258                               'mouse-2 #'mode-line-widen))                               'mouse-2 #'mode-line-widen))
259       (propertize ")%]--" 'help-echo help-echo)))       (propertize ")%]--" 'help-echo help-echo)))
260    
261    (setq-default mode-line-position    (setq-default mode-line-position
262      `((line-number-mode (,(propertize "L%l" 'help-echo help-echo) ,dashes))      `((line-number-mode (,(propertize "L%l" 'help-echo help-echo) ,dashes))
263        (column-number-mode (,(propertize "C%c" 'help-echo help-echo) ,dashes))        (column-number-mode (,(propertize "C%c" 'help-echo help-echo) ,dashes))
264        (-3 . ,(propertize "%p" 'help-echo help-echo)))))        (-3 . ,(propertize "%p" 'help-echo help-echo)))))
# Line 272  Keymap for what is displayed by `mode-li Line 272  Keymap for what is displayed by `mode-li
272  (defvar mode-line-mode-menu-keymap nil "\  (defvar mode-line-mode-menu-keymap nil "\
273  Keymap for mode operations menu in the mode line.")  Keymap for mode operations menu in the mode line.")
274    
275    (defun last-buffer () "
276    Return the last non-hidden buffer in the buffer list."
277      (let ((list (reverse (buffer-list))))
278        (while (eq (aref (buffer-name (car list)) 0) ? )
279          (setq list (cdr list)))
280        (car list)))
281    
282    (defun unbury-buffer () "
283    Switch to the `last-buffer'."
284      (interactive)
285      (switch-to-buffer (last-buffer)))
286    
287  (defun mode-line-unbury-buffer (event) "\  (defun mode-line-unbury-buffer (event) "\
288  Switch to the last buffer in the buffer list that is not hidden."  Call `unbury-buffer' in this window."
289    (interactive "e")    (interactive "e")
290    (save-selected-window    (save-selected-window
291      (select-window (posn-window (event-start event)))      (select-window (posn-window (event-start event)))
292      (let ((list (reverse (buffer-list))))      (unbury-buffer)))
       (while (eq (aref (buffer-name (car list)) 0) ? )  
         (setq list (cdr list)))  
       (switch-to-buffer (car list)))))  
293    
294  (defun mode-line-bury-buffer (event) "\  (defun mode-line-bury-buffer (event) "\
295  Like bury-buffer, but temporarily select EVENT's window."  Like bury-buffer, but temporarily select EVENT's window."

Legend:
Removed from v.1.89  
changed lines
  Added in v.1.90

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26