changeset 2112:79865d704b20

* sun-mouse.el (suspend-emacstool): Run suspend-hooks, not suspend-hook.
author Jim Blandy <jimb@redhat.com>
date Thu, 11 Mar 1993 07:07:43 +0000
parents d38d32084c15
children 525be9535652
files lisp/term/sun-mouse.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/term/sun-mouse.el	Thu Mar 11 07:07:17 1993 +0000
+++ b/lisp/term/sun-mouse.el	Thu Mar 11 07:07:43 1993 +0000
@@ -665,7 +665,7 @@
 you don't want to suspend  (there is no way to resume), 
 just close the window, and wait for reopening."
   (interactive)
-  (run-hooks 'suspend-hook)
+  (run-hooks 'suspend-hooks)
   (if stuffstring (send-string-to-terminal stuffstring))
   (send-string-to-terminal "\033[2t")	; To close EmacsTool window.
   (run-hooks 'suspend-resume-hook))