Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-mouse.el @ 114:8619ce7e4c50 r20-1b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b9
author cvs
date Mon, 13 Aug 2007 09:21:54 +0200
parents fe104dbd9147
children cca96a509cfe
comparison
equal deleted inserted replaced
113:2ec2fe4a4c89 114:8619ce7e4c50
189 (message "Sending URL to %s... done" browser)))))) 189 (message "Sending URL to %s... done" browser))))))
190 190
191 (defun vm-mouse-send-url-to-netscape (url &optional new-netscape new-window) 191 (defun vm-mouse-send-url-to-netscape (url &optional new-netscape new-window)
192 (message "Sending URL to Netscape...") 192 (message "Sending URL to Netscape...")
193 (if new-netscape 193 (if new-netscape
194 (vm-run-background-command vm-netscape-program url) 194 (apply 'vm-run-background-command vm-netscape-program
195 (or (equal 0 (vm-run-command vm-netscape-program "-remote" 195 (append vm-netscape-program-switches (list url)))
196 (concat "openURL(" url 196 (or (equal 0 (apply 'vm-run-command vm-netscape-program "-remote"
197 (if new-window ", new-window" "") 197 (append (list (concat "openURL(" url
198 ")"))) 198 (if new-window ", new-window" "")
199 ")"))
200 vm-netscape-program-switches)))
199 (vm-mouse-send-url-to-netscape url t new-window))) 201 (vm-mouse-send-url-to-netscape url t new-window)))
200 (message "Sending URL to Netscape... done")) 202 (message "Sending URL to Netscape... done"))
201 203
202 (defun vm-mouse-send-url-to-mosaic (url &optional new-mosaic new-window) 204 (defun vm-mouse-send-url-to-mosaic (url &optional new-mosaic new-window)
203 (message "Sending URL to Mosaic...") 205 (message "Sending URL to Mosaic...")
225 (kill-buffer work-buffer))) 227 (kill-buffer work-buffer)))
226 (cond ((or (null pid) 228 (cond ((or (null pid)
227 (not (equal 0 (vm-run-command "kill" "-USR1" pid)))) 229 (not (equal 0 (vm-run-command "kill" "-USR1" pid))))
228 (setq new-mosaic t))))) 230 (setq new-mosaic t)))))
229 (if new-mosaic 231 (if new-mosaic
230 (vm-run-background-command vm-mosaic-program url)) 232 (apply 'vm-run-background-command vm-mosaic-program
233 (append vm-mosaic-program-switches (list url))))
231 (message "Sending URL to Mosaic... done")) 234 (message "Sending URL to Mosaic... done"))
232
233 235
234 (defun vm-mouse-install-mouse () 236 (defun vm-mouse-install-mouse ()
235 (cond ((vm-mouse-xemacs-mouse-p) 237 (cond ((vm-mouse-xemacs-mouse-p)
236 (if (null (lookup-key vm-mode-map 'button2)) 238 (if (null (lookup-key vm-mode-map 'button2))
237 (define-key vm-mode-map 'button2 'vm-mouse-button-2))) 239 (define-key vm-mode-map 'button2 'vm-mouse-button-2)))