Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-mouse.el @ 16:0293115a14e9 r19-15b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b91
author cvs
date Mon, 13 Aug 2007 08:49:20 +0200
parents 9ee227acff29
children 8fc7fe29b841
comparison
equal deleted inserted replaced
15:ad457d5f7d04 16:0293115a14e9
1 ;;; w3-xemac.el --- XEmacs specific functions for emacs-w3 1 ;;; w3-xemac.el --- XEmacs specific functions for emacs-w3
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1996/10/09 19:00:59 3 ;; Created: 1997/01/18 00:42:22
4 ;; Version: 1.4 4 ;; Version: 1.6
5 ;; Keywords: mouse, hypermedia 5 ;; Keywords: mouse, hypermedia
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; Copyright (c) 1996 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
10 ;;; 10 ;;;
11 ;;; This file is part of GNU Emacs. 11 ;;; This file is part of GNU Emacs.
12 ;;; 12 ;;;
13 ;;; GNU Emacs is free software; you can redistribute it and/or modify 13 ;;; GNU Emacs is free software; you can redistribute it and/or modify
14 ;;; it under the terms of the GNU General Public License as published by 14 ;;; it under the terms of the GNU General Public License as published by
53 (and (widget-get widget 'src) 53 (and (widget-get widget 'src)
54 (w3-fetch (widget-get widget 'src))))) 54 (w3-fetch (widget-get widget 'src)))))
55 55
56 (defvar w3-mouse-button1 (cond 56 (defvar w3-mouse-button1 (cond
57 ((and w3-running-xemacs (featurep 'mouse)) 'button1) 57 ((and w3-running-xemacs (featurep 'mouse)) 'button1)
58 (w3-running-xemacs 'return) 58 (w3-running-xemacs nil)
59 (t 'mouse-1))) 59 (t 'mouse-1)))
60 (defvar w3-mouse-button2 (cond 60 (defvar w3-mouse-button2 (cond
61 ((and w3-running-xemacs (featurep 'mouse)) 'button2) 61 ((and w3-running-xemacs (featurep 'mouse)) 'button2)
62 (w3-running-xemacs 'return) 62 (w3-running-xemacs nil)
63 (t 'mouse-2))) 63 (t 'mouse-2)))
64 (defvar w3-mouse-button3 (cond 64 (defvar w3-mouse-button3 (cond
65 ((and w3-running-xemacs (featurep 'mouse)) 'button3) 65 ((and w3-running-xemacs (featurep 'mouse)) 'button3)
66 (w3-running-xemacs (list 'meta ?`)) 66 (w3-running-xemacs nil)
67 (t 'mouse-3))) 67 (t 'mouse-3)))
68 68
69 (define-key w3-mode-map (vector w3-mouse-button2) 'w3-widget-button-click) 69 (if w3-mouse-button2
70 (define-key w3-mode-map (vector w3-mouse-button3) 'w3-popup-menu) 70 (define-key w3-mode-map (vector w3-mouse-button2) 'w3-widget-button-click))
71 (define-key w3-mode-map (vector (list 'shift w3-mouse-button2)) 71 (if w3-mouse-button3
72 'w3-follow-mouse-other-frame) 72 (define-key w3-mode-map (vector w3-mouse-button3) 'w3-popup-menu))
73 (if w3-mouse-button2
74 (define-key w3-mode-map (vector (list 'shift w3-mouse-button2))
75 'w3-follow-mouse-other-frame))
73 76
74 (define-key w3-netscape-emulation-minor-mode-map (vector w3-mouse-button1) 77 (define-key w3-netscape-emulation-minor-mode-map (vector w3-mouse-button1)
75 'w3-widget-button-click) 78 'w3-widget-button-click)
76 (define-key w3-netscape-emulation-minor-mode-map (vector w3-mouse-button2) 79 (define-key w3-netscape-emulation-minor-mode-map (vector w3-mouse-button2)
77 'w3-follow-mouse-other-frame) 80 'w3-follow-mouse-other-frame)