Mercurial > emacs
comparison lisp/term/sun-mouse.el @ 90224:2d92f5c9d6ae
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-78
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 514-518)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 104-105)
- Update from CVS
author | Miles Bader <miles@gnu.org> |
---|---|
date | Fri, 26 Aug 2005 09:51:52 +0000 |
parents | edf295560b5a f8a4e96b69d3 |
children | c5406394f567 |
comparison
equal
deleted
inserted
replaced
90223:edf295560b5a | 90224:2d92f5c9d6ae |
---|---|
55 ;;; Mousemaps | 55 ;;; Mousemaps |
56 ;;; | 56 ;;; |
57 (defun make-mousemap () | 57 (defun make-mousemap () |
58 "Returns a new mousemap." | 58 "Returns a new mousemap." |
59 (cons 'mousemap nil)) | 59 (cons 'mousemap nil)) |
60 | |
61 ;;; initialize mouse maps | |
62 (defvar current-global-mousemap (make-mousemap)) | |
63 (defvar current-local-mousemap nil) | |
64 (make-variable-buffer-local 'current-local-mousemap) | |
60 | 65 |
61 (defun copy-mousemap (mousemap) | 66 (defun copy-mousemap (mousemap) |
62 "Return a copy of mousemap." | 67 "Return a copy of mousemap." |
63 (copy-alist mousemap)) | 68 (copy-alist mousemap)) |
64 | 69 |
666 (interactive) | 671 (interactive) |
667 (run-hooks 'suspend-hook) | 672 (run-hooks 'suspend-hook) |
668 (if stuffstring (send-string-to-terminal stuffstring)) | 673 (if stuffstring (send-string-to-terminal stuffstring)) |
669 (send-string-to-terminal "\033[2t") ; To close EmacsTool window. | 674 (send-string-to-terminal "\033[2t") ; To close EmacsTool window. |
670 (run-hooks 'suspend-resume-hook)) | 675 (run-hooks 'suspend-resume-hook)) |
671 ;;; | |
672 ;;; initialize mouse maps | |
673 ;;; | |
674 | |
675 (make-variable-buffer-local 'current-local-mousemap) | |
676 (setq-default current-local-mousemap nil) | |
677 (defvar current-global-mousemap (make-mousemap)) | |
678 | 676 |
679 (provide 'sun-mouse) | 677 (provide 'sun-mouse) |
680 (provide 'term/sun-mouse) ; have to (require 'term/sun-mouse) | 678 (provide 'term/sun-mouse) ; have to (require 'term/sun-mouse) |
681 | 679 |
682 ;;; arch-tag: 6e879372-b899-4509-833f-d7f6250e309a | 680 ;;; arch-tag: 6e879372-b899-4509-833f-d7f6250e309a |