Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/w3/w3-mouse.el	Mon Aug 13 09:12:43 2007 +0200
+++ b/lisp/w3/w3-mouse.el	Mon Aug 13 09:13:56 2007 +0200
@@ -1,7 +1,7 @@
 ;;; w3-xemac.el --- XEmacs specific functions for emacs-w3
 ;; Author: wmperry
-;; Created: 1997/01/18 00:42:22
-;; Version: 1.6
+;; Created: 1997/02/13 23:05:39
+;; Version: 1.7
 ;; Keywords: mouse, hypermedia
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -81,7 +81,9 @@
 
 (if w3-running-FSF19
     (progn
-      (define-key w3-mode-map [down-mouse-3] 'w3-popup-menu)
-      (define-key w3-mode-map [mouse-movement] 'w3-mouse-handler)))
+      (define-key w3-mode-map [mouse-movement] 'w3-mouse-handler)
+      (if w3-popup-menu-on-mouse-3
+	  (define-key w3-mode-map [down-mouse-3] 'w3-popup-menu))))
+
   
 (provide 'w3-mouse)