comparison lisp/term/sun-mouse.el @ 14170:23cc3f54e536

Update FSF's office address.
author Erik Naggum <erik@naggum.no>
date Sun, 14 Jan 1996 09:58:28 +0000
parents dd14d8d6e7db
children 36d37ad609f0
comparison
equal deleted inserted replaced
14169:83f275dcd93a 14170:23cc3f54e536
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of 17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 ;; GNU General Public License for more details. 19 ;; GNU General Public License for more details.
20 20
21 ;; 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
22 ;; 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 the
23 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
24 ;; Boston, MA 02111-1307, USA.
24 25
25 ;;; Commentary: 26 ;;; Commentary:
26 27
27 ;;; Jeff Peck, Sun Microsystems, Jan 1987. 28 ;; Jeff Peck, Sun Microsystems, Jan 1987.
28 ;;; Original idea by Stan Jefferson 29 ;; Original idea by Stan Jefferson
29 30
30 ;;; 31 ;; Modeled after the GNUEMACS keymap interface.
31 ;;; Modeled after the GNUEMACS keymap interface. 32 ;;
32 ;;; 33 ;; User Functions:
33 ;;; User Functions: 34 ;; make-mousemap, copy-mousemap,
34 ;;; make-mousemap, copy-mousemap, 35 ;; define-mouse, global-set-mouse, local-set-mouse,
35 ;;; define-mouse, global-set-mouse, local-set-mouse, 36 ;; use-global-mousemap, use-local-mousemap,
36 ;;; use-global-mousemap, use-local-mousemap, 37 ;; mouse-lookup, describe-mouse-bindings
37 ;;; mouse-lookup, describe-mouse-bindings 38 ;;
38 ;;; 39 ;; Options:
39 ;;; Options: 40 ;; extra-click-wait, scrollbar-width
40 ;;; extra-click-wait, scrollbar-width
41 ;;;
42 41
43 ;;; Code: 42 ;;; Code:
44 43
45 (defvar extra-click-wait 150 44 (defvar extra-click-wait 150
46 "*Number of milliseconds to wait for an extra click. 45 "*Number of milliseconds to wait for an extra click.