Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-mouse.el @ 22:8fc7fe29b841 r19-15b94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b94
author cvs
date Mon, 13 Aug 2007 08:50:29 +0200
parents 0293115a14e9
children 8d2a9b52c682
comparison
equal deleted inserted replaced
21:b88636d63495 22:8fc7fe29b841
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: 1997/01/18 00:42:22 3 ;; Created: 1997/02/13 23:05:39
4 ;; Version: 1.6 4 ;; Version: 1.7
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.
79 (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)
80 'w3-follow-mouse-other-frame) 80 'w3-follow-mouse-other-frame)
81 81
82 (if w3-running-FSF19 82 (if w3-running-FSF19
83 (progn 83 (progn
84 (define-key w3-mode-map [down-mouse-3] 'w3-popup-menu) 84 (define-key w3-mode-map [mouse-movement] 'w3-mouse-handler)
85 (define-key w3-mode-map [mouse-movement] 'w3-mouse-handler))) 85 (if w3-popup-menu-on-mouse-3
86 (define-key w3-mode-map [down-mouse-3] 'w3-popup-menu))))
87
86 88
87 (provide 'w3-mouse) 89 (provide 'w3-mouse)