Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-mouse.el @ 120:cca96a509cfe r20-1b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b12
author cvs
date Mon, 13 Aug 2007 09:25:29 +0200
parents 8619ce7e4c50
children 1370575f1259
comparison
equal deleted inserted replaced
119:d101af7320b8 120:cca96a509cfe
16 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. 16 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
17 17
18 (provide 'vm-mouse) 18 (provide 'vm-mouse)
19 19
20 (defun vm-mouse-fsfemacs-mouse-p () 20 (defun vm-mouse-fsfemacs-mouse-p ()
21 (and (vm-fsfemacs-19-p) 21 (and vm-fsfemacs-19-p
22 (fboundp 'set-mouse-position))) 22 (fboundp 'set-mouse-position)))
23 23
24 (defun vm-mouse-xemacs-mouse-p () 24 (defun vm-mouse-xemacs-mouse-p ()
25 (and (vm-xemacs-p) 25 (and vm-xemacs-p
26 (fboundp 'set-mouse-position))) 26 (fboundp 'set-mouse-position)))
27 27
28 (defun vm-mouse-set-mouse-track-highlight (start end) 28 (defun vm-mouse-set-mouse-track-highlight (start end)
29 (cond ((fboundp 'make-overlay) 29 (cond (vm-fsfemacs-19-p
30 (let ((o (make-overlay start end))) 30 (let ((o (make-overlay start end)))
31 (overlay-put o 'mouse-face 'highlight))) 31 (overlay-put o 'mouse-face 'highlight)))
32 ((fboundp 'make-extent) 32 (vm-xemacs-p
33 (let ((o (make-extent start end))) 33 (let ((o (make-extent start end)))
34 (set-extent-property o 'highlight t))))) 34 (set-extent-property o 'highlight t)))))
35 35
36 (defun vm-mouse-button-2 (event) 36 (defun vm-mouse-button-2 (event)
37 (interactive "e") 37 (interactive "e")
216 (insert (if new-window "newwin" "goto") ?\n) 216 (insert (if new-window "newwin" "goto") ?\n)
217 (insert url ?\n) 217 (insert url ?\n)
218 ;; newline convention used should be the local 218 ;; newline convention used should be the local
219 ;; one, whatever that is. 219 ;; one, whatever that is.
220 (setq buffer-file-type nil) 220 (setq buffer-file-type nil)
221 (and (vm-xemacs-mule-p) 221 (and vm-xemacs-mule-p
222 (set-buffer-file-coding-system 'no-conversion nil)) 222 (set-buffer-file-coding-system 'no-conversion nil))
223 (write-region (point-min) (point-max) 223 (write-region (point-min) (point-max)
224 (concat "/tmp/Mosaic." pid) 224 (concat "/tmp/Mosaic." pid)
225 nil 0) 225 nil 0)
226 (set-buffer-modified-p nil) 226 (set-buffer-modified-p nil)