Mercurial > emacs

comparison lisp/term/sun-mouse.el @ 807:4f28bd14272c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Eric S. Raymond <esr@snark.thyrsus.com>
date Thu, 16 Jul 1992 21:47:34 +0000
parents c2dbf1fe0506
children 38b2499cb3e9
comparison
equal deleted inserted replaced
806:d42e1151eed8 807:4f28bd14272c
1 ;;; sun-mouse.el --- mouse handling for Sun windows 1 ;;; sun-mouse.el --- mouse handling for Sun windows
2
3 ;; Author: Jeff Peck
4 ;; Maintainer: FSF
5 ;; Last-Modified: 14 Jul 1992
2 6
3 ;; Copyright (C) 1987 Free Software Foundation, Inc. 7 ;; Copyright (C) 1987 Free Software Foundation, Inc.
4 8
5 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
6 10
7 ;; GNU Emacs is free software; you can redistribute it and/or modify 11 ;; GNU Emacs is free software; you can redistribute it and/or modify
8 ;; it under the terms of the GNU General Public License as published by 12 ;; it under the terms of the GNU General Public License as published by
9 ;; the Free Software Foundation; either version 1, or (at your option) 13 ;; the Free Software Foundation; either version 2, or (at your option)
10 ;; any later version. 14 ;; any later version.
11 15
12 ;; GNU Emacs is distributed in the hope that it will be useful, 16 ;; GNU Emacs is distributed in the hope that it will be useful,
13 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of 17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 ;; GNU General Public License for more details. 19 ;; GNU General Public License for more details.
16 20
17 ;; You should have received a copy of the GNU General Public License 21 ;; You should have received a copy of the GNU General Public License
18 ;; along with GNU Emacs; see the file COPYING. If not, write to 22 ;; along with GNU Emacs; see the file COPYING. If not, write to
19 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 23 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
24
25 ;;; Commentary:
20 26
21 ;;; Jeff Peck, Sun Microsystems, Jan 1987. 27 ;;; Jeff Peck, Sun Microsystems, Jan 1987.
22 ;;; Original idea by Stan Jefferson 28 ;;; Original idea by Stan Jefferson
23 29
24 ;;; 30 ;;;
31 ;;; mouse-lookup, describe-mouse-bindings 37 ;;; mouse-lookup, describe-mouse-bindings
32 ;;; 38 ;;;
33 ;;; Options: 39 ;;; Options:
34 ;;; extra-click-wait, scrollbar-width 40 ;;; extra-click-wait, scrollbar-width
35 ;;; 41 ;;;
42
43 ;;; Code:
36 44
37 (defvar extra-click-wait 150 45 (defvar extra-click-wait 150
38 "*Number of milliseconds to wait for an extra click. 46 "*Number of milliseconds to wait for an extra click.
39 Set this to zero if you don't want chords or double clicks.") 47 Set this to zero if you don't want chords or double clicks.")
40 48