Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/w3/w3-mouse.el	Mon Aug 13 08:50:06 2007 +0200
+++ b/lisp/w3/w3-mouse.el	Mon Aug 13 08:50:29 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)