[AUCTeX-diffs] Changes to auctex/preview/prv-emacs.el

[David Kastrup]

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)))