Mercurial > emacs
changeset 69905:b45b825f9e2a
(picture-mode-exit): Run picture-mode-exit-hook.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 10 Apr 2006 03:06:21 +0000 |
| parents | 9b1e68fb87f9 |
| children | 82942f3b5f59 |
| files | lisp/textmodes/picture.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/picture.el Sun Apr 09 23:05:19 2006 +0000 +++ b/lisp/textmodes/picture.el Mon Apr 10 03:06:21 2006 +0000 @@ -758,8 +758,9 @@ (defun picture-mode-exit (&optional nostrip) "Undo `picture-mode' and return to previous major mode. -With no argument strips whitespace from end of every line in Picture buffer - otherwise just return to previous mode." +With no argument, strip whitespace from end of every line in Picture buffer; + otherwise, just return to previous mode. +Runs `picture-mode-exit-hook' at the end." (interactive "P") (if (not (eq major-mode 'picture-mode)) (error "You aren't editing a Picture") @@ -769,7 +770,8 @@ (setq major-mode picture-mode-old-major-mode) (kill-local-variable 'tab-stop-list) (setq truncate-lines picture-mode-old-truncate-lines) - (force-mode-line-update))) + (force-mode-line-update) + (run-hooks 'picture-mode-exit-hook))) (provide 'picture)