Mercurial > emacs

comparison lisp/term/sun-mouse.el @ 584:4cd7543be581

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Mon, 16 Mar 1992 20:39:07 +0000
parents 63b375f17a65
children 7cbd4fcd8b0f
comparison
equal deleted inserted replaced
583:3c0c1cd8428a 584:4cd7543be581
17 ;; along with GNU Emacs; see the file COPYING. If not, write to 17 ;; along with GNU Emacs; see the file COPYING. If not, write to
18 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 18 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
19 19
20 ;;; Jeff Peck, Sun Microsystems, Jan 1987. 20 ;;; Jeff Peck, Sun Microsystems, Jan 1987.
21 ;;; Original idea by Stan Jefferson 21 ;;; Original idea by Stan Jefferson
22
23 (provide 'sun-mouse)
24 22
25 ;;; 23 ;;;
26 ;;; Modelled after the GNUEMACS keymap interface. 24 ;;; Modelled after the GNUEMACS keymap interface.
27 ;;; 25 ;;;
28 ;;; User Functions: 26 ;;; User Functions:
664 ;;; 662 ;;;
665 663
666 (make-variable-buffer-local 'current-local-mousemap) 664 (make-variable-buffer-local 'current-local-mousemap)
667 (setq-default current-local-mousemap nil) 665 (setq-default current-local-mousemap nil)
668 (defvar current-global-mousemap (make-mousemap)) 666 (defvar current-global-mousemap (make-mousemap))
667
668 (provide 'sun-mouse)
669