Mercurial > emacs
comparison lisp/term/sun-mouse.el @ 2636:0b90475af405
* sun-mouse.el (suspend-emacstool): Run suspend-hook, not
suspend-hooks.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Mon, 03 May 1993 04:05:33 +0000 |
| parents | 79865d704b20 |
| children | 1c1a6e2961c2 |
comparison
equal
deleted
inserted
replaced
| 2635:87b070dfb087 | 2636:0b90475af405 |
|---|---|
| 663 "Suspend emacstool. | 663 "Suspend emacstool. |
| 664 If running under as a detached process emacstool, | 664 If running under as a detached process emacstool, |
| 665 you don't want to suspend (there is no way to resume), | 665 you don't want to suspend (there is no way to resume), |
| 666 just close the window, and wait for reopening." | 666 just close the window, and wait for reopening." |
| 667 (interactive) | 667 (interactive) |
| 668 (run-hooks 'suspend-hooks) | 668 (run-hooks 'suspend-hook) |
| 669 (if stuffstring (send-string-to-terminal stuffstring)) | 669 (if stuffstring (send-string-to-terminal stuffstring)) |
| 670 (send-string-to-terminal "\033[2t") ; To close EmacsTool window. | 670 (send-string-to-terminal "\033[2t") ; To close EmacsTool window. |
| 671 (run-hooks 'suspend-resume-hook)) | 671 (run-hooks 'suspend-resume-hook)) |
| 672 ;;; | 672 ;;; |
| 673 ;;; initialize mouse maps | 673 ;;; initialize mouse maps |