Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-mouse.el @ 169:15872534500d r20-3b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b11
author cvs
date Mon, 13 Aug 2007 09:46:53 +0200
parents 5a88923fcbfe
children
comparison
equal deleted inserted replaced
168:9851d5c6556e 169:15872534500d
1 ;;; w3-menu.el --- Mouse specific functions for emacs-w3 1 ;;; w3-menu.el --- Mouse specific functions for emacs-w3
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/06/20 18:56:21 3 ;; Created: 1997/06/27 15:41:35
4 ;; Version: 1.12 4 ;; Version: 1.13
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, 1997 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
81 (define-key w3-mode-map (vector (list 'meta w3-mouse-button2)) 81 (define-key w3-mode-map (vector (list 'meta w3-mouse-button2))
82 'w3-follow-mouse-other-frame) 82 'w3-follow-mouse-other-frame)
83 (define-key w3-netscape-emulation-minor-mode-map 83 (define-key w3-netscape-emulation-minor-mode-map
84 (vector w3-mouse-button2) 'w3-follow-mouse-other-frame))) 84 (vector w3-mouse-button2) 'w3-follow-mouse-other-frame)))
85 85
86 (if w3-running-FSF19 86 (if (not w3-running-xemacs)
87 (progn 87 (progn
88 (define-key w3-mode-map [mouse-movement] 'w3-mouse-handler) 88 (define-key w3-mode-map [mouse-movement] 'w3-mouse-handler)
89 (if w3-popup-menu-on-mouse-3 89 (if w3-popup-menu-on-mouse-3
90 (define-key w3-mode-map [down-mouse-3] 'w3-popup-menu)))) 90 (define-key w3-mode-map [down-mouse-3] 'w3-popup-menu))))
91 91