diff options
Diffstat (limited to 'lisp/term/sun-mouse.el')
| -rw-r--r-- | lisp/term/sun-mouse.el | 17 |
1 files changed, 1 insertions, 16 deletions
diff --git a/lisp/term/sun-mouse.el b/lisp/term/sun-mouse.el index 65ebe193c71..d3e85508b03 100644 --- a/lisp/term/sun-mouse.el +++ b/lisp/term/sun-mouse.el @@ -501,7 +501,7 @@ If there is no documentation string, then the string (defun print-mouse-format (binding) (princ (car binding)) (princ ": ") - (mapcar (function + (mapc (function (lambda (mouse-list) (princ mouse-list) (princ " "))) @@ -660,21 +660,6 @@ Insert contents into the current buffer at point." (interactive "r") (sun-set-selection (buffer-substring beg end))) -;;; -;;; Support for emacstool -;;; This closes the window instead of stopping emacs. -;;; -(defun suspend-emacstool (&optional stuffstring) - "Suspend emacstool. -If running under as a detached process emacstool, -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) - (if stuffstring (send-string-to-terminal stuffstring)) - (send-string-to-terminal "\033[2t") ; To close EmacsTool window. - (run-hooks 'suspend-resume-hook)) - (provide 'sun-mouse) (provide 'term/sun-mouse) ; have to (require 'term/sun-mouse) |