# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1144638381 0
# Node ID b45b825f9e2a1d7f3bde36151ef7760bf9eeae69
# Parent  9b1e68fb87f9231ccd56a919f59149764c4c9ddc
(picture-mode-exit): Run picture-mode-exit-hook.

diff -r 9b1e68fb87f9 -r b45b825f9e2a lisp/textmodes/picture.el
--- 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)