(picture-mode-exit): Run picture-mode-exit-hook.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cb736c5973893d9e9385214935cd802e38c98e27..596e92eaa0e9972beb7322e016808f9c5f1787af 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2006-04-09  Richard Stallman  <rms@gnu.org>
+
+       * 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  <storm@cua.dk>
 
        * simple.el (filter-buffer-substring): Add NOPROPS arg, so

diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el
index 1c3e1baa9b1d6738418d54ea9d81226f955858c1..ce1dbf8993bf9c72f4297a14d1a79495fe34f336 100644 (file)
--- 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)