Index: auctex/preview/prv-emacs.el
diff -u auctex/preview/prv-emacs.el:1.66 auctex/preview/prv-emacs.el:1.67
--- auctex/preview/prv-emacs.el:1.66 Thu May 25 07:50:57 2006
+++ auctex/preview/prv-emacs.el Fri Jun 2 18:18:32 2006
@@ -148,8 +148,8 @@
(setcdr (car img) (cdar replacement))
(setcdr img (cdr replacement))))
-(defvar preview-button-1 [mouse-2])
-(defvar preview-button-2 [mouse-3])
+(defvar preview-button-1 'mouse-2)
+(defvar preview-button-2 'down-mouse-3)
(defmacro preview-make-clickable (&optional map glyph helpstring click1 click2)
"Generate a clickable string or keymap.
@@ -161,9 +161,9 @@
are functions to call on preview's clicks."
`(let ((resmap ,(or map '(make-sparse-keymap))))
,@(if click1
- `((define-key resmap preview-button-1 ,click1)))
+ `((define-key resmap [,preview-button-1] ,click1)))
,@(if click2
- `((define-key resmap preview-button-2 ,click2)))
+ `((define-key resmap [,preview-button-2] ,click2)))
,(if glyph
`(propertize
"x"
@@ -171,8 +171,10 @@
'mouse-face 'highlight
'help-echo
,(if (stringp helpstring)
- (format helpstring preview-button-1 preview-button-2)
- `(format ,helpstring preview-button-1 preview-button-2))
+ (format helpstring preview-button-1
+ (event-basic-type preview-button-2))
+ `(format ,helpstring preview-button-1
+ (event-basic-type preview-button-2)))
'keymap resmap)
'resmap)))
_______________________________________________
auctex-diffs mailing list
[EMAIL PROTECTED]
http://lists.gnu.org/mailman/listinfo/auctex-diffs
