Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-mouse.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 6a378aca36af
children 9f59509498e1
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
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)