diff options
| author | Gerd Moellmann | 2000-11-18 12:34:44 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2000-11-18 12:34:44 +0000 |
| commit | 24127af0a0e790319c72c4d447b166b04efa4e89 (patch) | |
| tree | db4a1b43a95508661617e084ac5cc45bb5854230 | |
| parent | 92bb977fc2911b39a1ef9a2c6bba133415690789 (diff) | |
| download | emacs-24127af0a0e790319c72c4d447b166b04efa4e89.tar.gz emacs-24127af0a0e790319c72c4d447b166b04efa4e89.zip | |
(mode-line-modified): Fix a typo.
(mode-line-toggle-modified, mode-line-widen)
(mode-line-abbrev-mode, mode-line-auto-fill-mode): Fix typos.
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/bindings.el | 10 |
2 files changed, 11 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9a5995880b7..32a67fe990c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2000-11-18 Gerd Moellmann <gerd@gnu.org> | ||
| 2 | |||
| 3 | * bindings.el (mode-line-modified): Fix a typo. | ||
| 4 | (mode-line-toggle-modified, mode-line-widen) | ||
| 5 | (mode-line-abbrev-mode, mode-line-auto-fill-mode): Fix typos. | ||
| 6 | |||
| 1 | 2000-11-17 Gerd Moellmann <gerd@gnu.org> | 7 | 2000-11-17 Gerd Moellmann <gerd@gnu.org> |
| 2 | 8 | ||
| 3 | * ps-print.el: Minor fixes from author. | 9 | * ps-print.el: Minor fixes from author. |
diff --git a/lisp/bindings.el b/lisp/bindings.el index 5de2bb88a24..2deea04faec 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el | |||
| @@ -67,7 +67,7 @@ corresponding to the mode line clicked." | |||
| 67 | 67 | ||
| 68 | (defun mode-line-toggle-modified (event) | 68 | (defun mode-line-toggle-modified (event) |
| 69 | "Toggle the buffer-modified flag from the mode-line." | 69 | "Toggle the buffer-modified flag from the mode-line." |
| 70 | (interacive "e") | 70 | (interactive "e") |
| 71 | (save-selected-window | 71 | (save-selected-window |
| 72 | (select-window (posn-window (event-start event))) | 72 | (select-window (posn-window (event-start event))) |
| 73 | (set-buffer-modified-p (not (buffer-modified-p))) | 73 | (set-buffer-modified-p (not (buffer-modified-p))) |
| @@ -76,7 +76,7 @@ corresponding to the mode line clicked." | |||
| 76 | 76 | ||
| 77 | (defun mode-line-widen (event) | 77 | (defun mode-line-widen (event) |
| 78 | "Widen a buffer from the mode-line." | 78 | "Widen a buffer from the mode-line." |
| 79 | (interacive "e") | 79 | (interactive "e") |
| 80 | (save-selected-window | 80 | (save-selected-window |
| 81 | (select-window (posn-window (event-start event))) | 81 | (select-window (posn-window (event-start event))) |
| 82 | (widen) | 82 | (widen) |
| @@ -85,7 +85,7 @@ corresponding to the mode line clicked." | |||
| 85 | 85 | ||
| 86 | (defun mode-line-abbrev-mode (event) | 86 | (defun mode-line-abbrev-mode (event) |
| 87 | "Turn off `abbrev-mode' from the mode-line." | 87 | "Turn off `abbrev-mode' from the mode-line." |
| 88 | (interacive "e") | 88 | (interactive "e") |
| 89 | (save-selected-window | 89 | (save-selected-window |
| 90 | (select-window (posn-window (event-start event))) | 90 | (select-window (posn-window (event-start event))) |
| 91 | (abbrev-mode) | 91 | (abbrev-mode) |
| @@ -94,7 +94,7 @@ corresponding to the mode line clicked." | |||
| 94 | 94 | ||
| 95 | (defun mode-line-auto-fill-mode (event) | 95 | (defun mode-line-auto-fill-mode (event) |
| 96 | "Turn off `auto-fill-mode' from the mode-line." | 96 | "Turn off `auto-fill-mode' from the mode-line." |
| 97 | (interacive "e") | 97 | (interactive "e") |
| 98 | (save-selected-window | 98 | (save-selected-window |
| 99 | (select-window (posn-window (event-start event))) | 99 | (select-window (posn-window (event-start event))) |
| 100 | (auto-fill-mode) | 100 | (auto-fill-mode) |
| @@ -183,7 +183,7 @@ Normally nil in most modes, since there is no process to display.") | |||
| 183 | "R" | 183 | "R" |
| 184 | "Not r"))))) | 184 | "Not r"))))) |
| 185 | 'local-map (purecopy (make-mode-line-mouse2-map | 185 | 'local-map (purecopy (make-mode-line-mouse2-map |
| 186 | #'mode-linetoggle-read-only))) | 186 | #'mode-line-toggle-read-only))) |
| 187 | (propertize | 187 | (propertize |
| 188 | "%1+" | 188 | "%1+" |
| 189 | 'help-echo (purecopy (lambda (window object point) | 189 | 'help-echo (purecopy (lambda (window object point) |