Mercurial > emacs

comparison lisp/bindings.el @ 108182:7aa45e6e5f62

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* bindings.el (mode-line-abbrev-mode, mode-line-auto-fill-mode): Remove.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 30 Apr 2010 21:39:58 -0400
parents 56d11bda8235
children cd5442b2826b
comparison
equal deleted inserted replaced
108181:cb92a959c5ff 108182:7aa45e6e5f62
57 "Widen a buffer from the mode-line." 57 "Widen a buffer from the mode-line."
58 (interactive "e") 58 (interactive "e")
59 (save-selected-window 59 (save-selected-window
60 (select-window (posn-window (event-start event))) 60 (select-window (posn-window (event-start event)))
61 (widen) 61 (widen)
62 (force-mode-line-update)))
63
64
65 (defun mode-line-abbrev-mode (event)
66 "Turn off `abbrev-mode' from the mode-line."
67 (interactive "e")
68 (save-selected-window
69 (select-window (posn-window (event-start event)))
70 (abbrev-mode)
71 (force-mode-line-update)))
72
73
74 (defun mode-line-auto-fill-mode (event)
75 "Turn off `auto-fill-mode' from the mode-line."
76 (interactive "e")
77 (save-selected-window
78 (select-window (posn-window (event-start event)))
79 (auto-fill-mode)
80 (force-mode-line-update))) 62 (force-mode-line-update)))
81 63
82 64
83 (defvar mode-line-input-method-map 65 (defvar mode-line-input-method-map
84 (let ((map (make-sparse-keymap))) 66 (let ((map (make-sparse-keymap)))