comparison lisp/bindings.el @ 90268:d88caeac70d7

Revision: [e-mail]/emacs--unicode--0--patch-2 Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (base, patch 1-3) - tag of [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-704 - Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0 (patch 700-704) - Update from CVS - Merge from gnus--rel--5.10 - Update from CVS: lisp/cus-edit.el (customize-rogue): Minor doc fix. * [e-mail]--gnu-2005/gnus--rel--5.10 (patch 185-186) - Merge from emacs--cvs-trunk--0 - Update from CVS

90267:e5855ea89245

(defun mode-line-other-buffer () "\
Switch to the most recently selected buffer other than the current one."
  (interactive)
  (switch-to-buffer (other-buffer)))

(defvar mode-line-mode-menu (make-sparse-keymap "Minor Modes") "\
Menu of mode operations in the mode line.")

(defun mode-line-mode-menu-1 (event)

;; of the mode line.or header line.
;
(let ((map (make-sparse-keymap)))
  ;; Bind down- events so that the global keymap won't ``shine
  ;; through''.
  (define-key map [mode-line mouse-1] 'mode-line-unbury-buffer)
  (define-key map [header-line down-mouse-1] 'ignore)
  (define-key map [header-line mouse-1] 'mode-line-unbury-buffer)
  (define-key map [header-line down-mouse-3] 'ignore)
  (define-key map [mode-line mouse-3] 'mode-line-bury-buffer)
  (define-key map [header-line down-mouse-3] 'ignore)
  (define-key map [header-line mouse-3] 'mode-line-bury-buffer)
  (setq mode-line-buffer-identification-keymap map))

(defun propertized-buffer-identification (fmt)
  "Return a list suitable for `mode-line-buffer-identification'.
FMT is a format specifier such as \"%12b\".  This function adds
text properties for face, help-echo, and local-map to it."
  (list (propertize fmt
		    'face 'Buffer-menu-buffer
		    'help-echo
		    (purecopy "mouse-1: previous buffer, mouse-3: next buffer")
		    'mouse-face 'mode-line-highlight
		    'local-map mode-line-buffer-identification-keymap)))

90268:d88caeac70d7

(defun mode-line-other-buffer () "\
Switch to the most recently selected buffer other than the current one."
  (interactive)
  (switch-to-buffer (other-buffer)))

(defun mode-line-next-buffer (event)
  "Like `next-buffer', but temporarily select EVENT's window."
  (interactive "e")
  (save-selected-window
    (select-window (posn-window (event-start event)))
    (next-buffer)))

(defun mode-line-previous-buffer (event)
  "Like `previous-buffer', but temporarily select EVENT's window."
  (interactive "e")
  (save-selected-window
    (select-window (posn-window (event-start event)))
    (previous-buffer)))

(defvar mode-line-mode-menu (make-sparse-keymap "Minor Modes") "\
Menu of mode operations in the mode line.")

(defun mode-line-mode-menu-1 (event)

;; of the mode line.or header line.
;
(let ((map (make-sparse-keymap)))
  ;; Bind down- events so that the global keymap won't ``shine
  ;; through''.
  (define-key map [mode-line mouse-1] 'mode-line-previous-buffer)
  (define-key map [header-line down-mouse-1] 'ignore)
  (define-key map [header-line mouse-1] 'mode-line-previous-buffer)
  (define-key map [header-line down-mouse-3] 'ignore)
  (define-key map [mode-line mouse-3] 'mode-line-next-buffer)
  (define-key map [header-line down-mouse-3] 'ignore)
  (define-key map [header-line mouse-3] 'mode-line-next-buffer)
  (setq mode-line-buffer-identification-keymap map))

(defun propertized-buffer-identification (fmt)
  "Return a list suitable for `mode-line-buffer-identification'.
FMT is a format specifier such as \"%12b\".  This function adds
text properties for face, help-echo, and local-map to it."
  (list (propertize fmt
		    'face 'mode-line-buffer-id
		    'help-echo
		    (purecopy "mouse-1: previous buffer, mouse-3: next buffer")
		    'mouse-face 'mode-line-highlight
		    'local-map mode-line-buffer-identification-keymap)))