From: Richard M. Stallman Date: Mon, 10 Apr 2006 03:06:55 +0000 (+0000) Subject: (picture-mode-exit): Run picture-mode-exit-hook. X-Git-Tag: emacs-pretest-22.0.90~3239 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8803c4f4ac3311a509545354b3203f6d8044cb42;p=emacs.git (picture-mode-exit): Run picture-mode-exit-hook. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cb736c59738..596e92eaa0e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2006-04-09 Richard Stallman + + * textmodes/picture.el (picture-mode-exit): Run picture-mode-exit-hook. + + * play/landmark.el (lm-font-lock-face-O, lm-font-lock-face-X): + Make them faces. + (lm-font-lock-keywords): Update appropriately. + 2006-04-10 Kim F. Storm * simple.el (filter-buffer-substring): Add NOPROPS arg, so diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el index 1c3e1baa9b1..ce1dbf8993b 100644 --- a/lisp/textmodes/picture.el +++ b/lisp/textmodes/picture.el @@ -758,8 +758,9 @@ they are not defaultly assigned to keys." (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 @@ With no argument strips whitespace from end of every line in Picture buffer (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)