← Back to branch summary

~tcross/vm/605799

« back to all changes in this revision

Viewing changes to lisp/vm-mouse.el

  • Committer: Uday S Reddy
  • Date: 2011-02-19 13:53:59 UTC
  • Revision ID: u.s.reddy@cs.bham.ac.uk-20110219135359-iudunchyb53whg6x
Added and extended a few compatibility functions for xemacs/fsfemacs.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lisp/vm-mouse.el
135
135
                 (setq o-list (cdr o-list))))
136
136
             string ))
137
137
          (vm-xemacs-p
138
 
           (let ((e (vm-extent-at (point) nil 'highlight)))
 
138
           (let ((e (vm-extent-at (point) 'highlight)))
139
139
             (if e
140
140
                 (buffer-substring (vm-extent-start-position e)
141
141
                                   (vm-extent-end-position e))
169
169
         (set-buffer (window-buffer (event-window event)))
170
170
         (and (event-point event) (goto-char (event-point event)))
171
171
         (let (e)
172
 
           (cond ((vm-extent-at (point) (current-buffer) 'vm-url)
 
172
           (cond ((vm-extent-at (point) 'vm-url)
173
173
                  (vm-mouse-send-url-at-event event))
174
 
                 ((setq e (vm-extent-at (point) nil 'vm-mime-function))
 
174
                 ((setq e (vm-extent-at (point) 'vm-mime-function))
175
175
                  (funcall (vm-extent-property e 'vm-mime-function) e))
176
176
                 (t (vm-menu-popup-context-menu event)))))))
177
177
 
191
191
  (save-restriction
192
192
    (widen)
193
193
    (cond ((vm-mouse-xemacs-mouse-p)
194
 
           (let ((e (vm-extent-at pos (current-buffer) 'vm-url))
 
194
           (let ((e (vm-extent-at pos 'vm-url))
195
195
                 url)
196
196
             (if (null e)
197
197
                 nil