Lines Matching defs:browse
0 ;;; browse-url.el --- pass a URL to a WWW browser
40 ;; browse-url-mozilla Mozilla Don't know
41 ;; browse-url-firefox Firefox Don't know (tried with 1.0.1)
42 ;; browse-url-galeon Galeon Don't know
43 ;; browse-url-epiphany Epiphany Don't know
44 ;; browse-url-netscape Netscape 1.1b1
45 ;; browse-url-mosaic XMosaic/mMosaic <= 2.4
46 ;; browse-url-cci XMosaic 2.5
47 ;; browse-url-w3 w3 0
48 ;; browse-url-w3-gnudoit w3 remotely
49 ;; browse-url-iximosaic IXI Mosaic ?
50 ;; browse-url-lynx-* Lynx 0
51 ;; browse-url-grail Grail 0.3b1
52 ;; browse-url-mmm MMM ?
53 ;; browse-url-generic arbitrary
54 ;; browse-url-default-windows-browser MS-Windows browser
55 ;; browse-url-default-macosx-browser Mac OS X browser
56 ;; browse-url-gnome-moz GNOME interface to Mozilla
57 ;; browse-url-kde KDE konqueror (kfm)
77 ;; doesn't let you edit the URL like browse-url.
88 ;; browse-url.el written by Barry Warsaw <bwarsaw@python.org>.
93 ;; Free graphical browsers that could be used by `browse-url-generic'
101 ;; setting `browse-url-mosaic-program' appropriately.
131 ;; M-x browse-url-at-point RET
134 ;; M-x browse-url
138 ;; (global-set-key [S-mouse-2] 'browse-url-at-mouse)
143 ;; M-x browse-url-of-buffer RET
146 ;; M-x browse-url-of-region RET
149 ;; M-x browse-url-of-dired-file RET
155 ;; `M-x set-variable browse-url TAB'. Better, use
156 ;; `M-x customize-group browse-url'.
158 ;; Bind the browse-url commands to keys with the `C-c C-z' prefix
160 ;; (global-set-key "\C-c\C-z." 'browse-url-at-point)
161 ;; (global-set-key "\C-c\C-zb" 'browse-url-of-buffer)
162 ;; (global-set-key "\C-c\C-zr" 'browse-url-of-region)
163 ;; (global-set-key "\C-c\C-zu" 'browse-url)
164 ;; (global-set-key "\C-c\C-zv" 'browse-url-of-file)
167 ;; (local-set-key "\C-c\C-zf" 'browse-url-of-dired-file)))
171 ;; (define-key rmail-mode-map [mouse-2] 'browse-url-at-mouse)))
175 ;; buffers for invocation of browse-url.
179 ;; (setq browse-url-browser-function 'browse-url-w3))
182 ;; (setq browse-url-save-file t)
187 ;; (autoload 'browse-url-netscape-reload "browse-url"
195 ;; (browse-url-netscape-reload)
199 ;; OR have browse-url-of-file ask Netscape to load and then reload the
202 ;; (add-hook 'browse-url-of-file-hook 'browse-url-netscape-reload)
204 ;; You may also want to customise browse-url-netscape-arguments, e.g.
205 ;; (setq browse-url-netscape-arguments '("-install"))
210 ;; (setq browse-url-browser-function '(("^mailto:" . browse-url-mail)
211 ;; ("." . browse-url-netscape)))
225 (defgroup browse-url nil
227 :prefix "browse-url-"
228 :link '(emacs-commentary-link "browse-url")
232 (defcustom browse-url-browser-function
235 'browse-url-default-windows-browser)
236 ((memq system-type '(darwin)) 'browse-url-default-macosx-browser)
237 (t 'browse-url-default-browser))
239 This is used by the `browse-url-at-point', `browse-url-at-mouse', and
240 `browse-url-of-file' commands.
245 function is passed the URL and any other args of `browse-url'. The last
248 (function-item :tag "Emacs W3" :value browse-url-w3)
250 :value browse-url-w3-gnudoit)
251 (function-item :tag "Mozilla" :value browse-url-mozilla)
252 (function-item :tag "Firefox" :value browse-url-firefox)
253 (function-item :tag "Galeon" :value browse-url-galeon)
254 (function-item :tag "Epiphany" :value browse-url-epiphany)
255 (function-item :tag "Netscape" :value browse-url-netscape)
256 (function-item :tag "Mosaic" :value browse-url-mosaic)
257 (function-item :tag "Mosaic using CCI" :value browse-url-cci)
258 (function-item :tag "IXI Mosaic" :value browse-url-iximosaic)
260 :value browse-url-lynx-xterm)
262 :value browse-url-lynx-emacs)
263 (function-item :tag "Grail" :value browse-url-grail)
264 (function-item :tag "MMM" :value browse-url-mmm)
265 (function-item :tag "KDE" :value browse-url-kde)
267 :value browse-url-generic)
269 :value browse-url-default-windows-browser)
271 :value browse-url-default-macosx-browser)
273 :value browse-url-gnome-moz)
275 :value browse-url-default-browser)
280 :group 'browse-url)
282 (defcustom browse-url-netscape-program "netscape"
292 :group 'browse-url)
294 (defcustom browse-url-netscape-arguments nil
297 :group 'browse-url)
299 (defcustom browse-url-netscape-startup-arguments browse-url-netscape-arguments
301 Defaults to the value of `browse-url-netscape-arguments' at the time
302 `browse-url' is loaded."
304 :group 'browse-url)
306 (defcustom browse-url-browser-display nil
309 :group 'browse-url)
311 (defcustom browse-url-mozilla-program "mozilla"
314 :group 'browse-url)
316 (defcustom browse-url-mozilla-arguments nil
319 :group 'browse-url)
321 (defcustom browse-url-mozilla-startup-arguments browse-url-mozilla-arguments
323 Defaults to the value of `browse-url-mozilla-arguments' at the time
324 `browse-url' is loaded."
326 :group 'browse-url)
329 (defcustom browse-url-firefox-program "firefox"
332 :group 'browse-url)
334 (defcustom browse-url-firefox-arguments nil
337 :group 'browse-url)
339 (defcustom browse-url-firefox-startup-arguments browse-url-firefox-arguments
341 Defaults to the value of `browse-url-firefox-arguments' at the time
342 `browse-url' is loaded."
344 :group 'browse-url)
347 (defcustom browse-url-galeon-program "galeon"
350 :group 'browse-url)
352 (defcustom browse-url-galeon-arguments nil
355 :group 'browse-url)
357 (defcustom browse-url-galeon-startup-arguments browse-url-galeon-arguments
359 Defaults to the value of `browse-url-galeon-arguments' at the time
360 `browse-url' is loaded."
362 :group 'browse-url)
364 (defcustom browse-url-epiphany-program "epiphany"
367 :group 'browse-url)
369 (defcustom browse-url-epiphany-arguments nil
372 :group 'browse-url)
374 (defcustom browse-url-epiphany-startup-arguments browse-url-epiphany-arguments
376 Defaults to the value of `browse-url-epiphany-arguments' at the time
377 `browse-url' is loaded."
379 :group 'browse-url)
382 (defvar browse-url-gnome-moz-program "gnome-moz-remote")
384 (defcustom browse-url-gnome-moz-arguments '()
388 :group 'browse-url)
390 (defcustom browse-url-mozilla-new-window-is-tab nil
393 `browse-url-mozilla' is asked to open it in a new window."
395 :group 'browse-url)
397 (defcustom browse-url-firefox-new-window-is-tab nil
400 `browse-url-firefox' is asked to open it in a new window.
405 :group 'browse-url)
407 (defcustom browse-url-galeon-new-window-is-tab nil
410 `browse-url-galeon' is asked to open it in a new window."
412 :group 'browse-url)
414 (defcustom browse-url-epiphany-new-window-is-tab nil
417 `browse-url-epiphany' is asked to open it in a new window."
419 :group 'browse-url)
421 (defcustom browse-url-netscape-new-window-is-tab nil
424 window if `browse-url-netscape' is asked to open it in a new
427 :group 'browse-url)
429 (defcustom browse-url-new-window-flag nil
431 Passing an interactive argument to \\[browse-url], or specific browser
435 :group 'browse-url)
437 (defcustom browse-url-mosaic-program "xmosaic"
441 :group 'browse-url)
443 (defcustom browse-url-mosaic-arguments nil
446 :group 'browse-url)
448 (defcustom browse-url-mosaic-pidfile "~/.mosaicpid"
451 :group 'browse-url)
453 (defcustom browse-url-filename-alist
464 "*An alist of (REGEXP . STRING) pairs used by `browse-url-of-file'.
474 (setq browse-url-filename-alist
485 :group 'browse-url)
487 (defcustom browse-url-save-file nil
489 Used by the `browse-url-of-file' command."
491 :group 'browse-url)
493 (defcustom browse-url-of-file-hook nil
494 "*Run after `browse-url-of-file' has asked a browser to load a file.
496 Set this to `browse-url-netscape-reload' to force Netscape to load the
499 :options '(browse-url-netscape-reload)
500 :group 'browse-url)
502 (defcustom browse-url-CCI-port 3003
507 :group 'browse-url)
509 (defcustom browse-url-CCI-host "localhost"
512 enabled. The port number should be set in `browse-url-CCI-port'."
514 :group 'browse-url)
516 (defvar browse-url-temp-file-name nil)
517 (make-variable-buffer-local 'browse-url-temp-file-name)
519 (defcustom browse-url-xterm-program "xterm"
520 "*The name of the terminal emulator used by `browse-url-lynx-xterm'.
523 :group 'browse-url)
525 (defcustom browse-url-xterm-args nil
526 "*A list of strings defining options for `browse-url-xterm-program'.
529 :group 'browse-url)
531 (defcustom browse-url-lynx-emacs-args (and (not window-system)
540 :group 'browse-url)
542 (defcustom browse-url-gnudoit-program "gnudoit"
543 "*The name of the `gnudoit' program used by `browse-url-w3-gnudoit'."
545 :group 'browse-url)
547 (defcustom browse-url-gnudoit-args '("-q")
548 "*A list of strings defining options for `browse-url-gnudoit-program'.
551 :group 'browse-url)
553 (defcustom browse-url-generic-program nil
554 "*The name of the browser program used by `browse-url-generic'."
556 :group 'browse-url)
558 (defcustom browse-url-generic-args nil
559 "*A list of strings defining options for `browse-url-generic-program'."
561 :group 'browse-url)
563 (defcustom browse-url-temp-dir temporary-file-directory
564 "*The name of a directory for browse-url's temporary files.
565 Such files are generated by functions like `browse-url-of-region'.
569 :group 'browse-url)
571 (defcustom browse-url-netscape-version
577 :group 'browse-url)
579 (defcustom browse-url-lynx-input-field 'avoid
591 :group 'browse-url)
593 (defcustom browse-url-lynx-input-attempts 10
596 :group 'browse-url)
598 (defcustom browse-url-lynx-input-delay 0.2
601 :group 'browse-url)
603 (defcustom browse-url-kde-program "kfmclient"
607 :group 'browse-url)
609 (defcustom browse-url-kde-args '("openURL")
610 "*A list of strings defining options for `browse-url-kde-program'."
612 :group 'browse-url)
618 (defun browse-url-url-at-point ()
627 (defun browse-url-interactive-arg (prompt)
644 (browse-url-url-at-point)))
645 (not (eq (null browse-url-new-window-flag)
651 (defmacro browse-url-maybe-new-window (arg)
654 browse-url-new-window-flag))
660 (defun browse-url-of-file (&optional file)
664 `browse-url-file-url'. Pass the URL to a browser using the
665 `browse-url' function then run `browse-url-of-file-hook'."
675 (browse-url-save-file (save-buffer))
677 (browse-url (browse-url-file-url file))
678 (run-hooks 'browse-url-of-file-hook))
680 (defun browse-url-file-url (file)
682 Use variable `browse-url-filename-alist' to map filenames to URLs."
695 (dolist (map browse-url-filename-alist)
701 (defun browse-url-of-buffer (&optional buffer)
716 (or browse-url-temp-file-name
717 (setq browse-url-temp-file-name
720 (expand-file-name "burl" browse-url-temp-dir)
722 (setq file-name browse-url-temp-file-name)
724 (browse-url-of-file file-name))))
726 (defun browse-url-delete-temp-file (&optional temp-file-name)
727 ;; Delete browse-url-temp-file-name from the file system
729 (let ((file-name (or temp-file-name browse-url-temp-file-name)))
733 (add-hook 'kill-buffer-hook 'browse-url-delete-temp-file)
736 (defun browse-url-of-dired-file ()
739 (browse-url-of-file (dired-get-filename)))
742 (defun browse-url-of-region (min max)
748 (browse-url-of-buffer))))
753 ;; A generic command to call the current browse-url-browser-function
756 (defun browse-url (url &rest args)
759 `browse-url-browser-function' says which browser to use."
760 (interactive (browse-url-interactive-arg "URL: "))
762 (setq args (or args (list browse-url-new-window-flag))))
769 (if (functionp browse-url-browser-function)
770 (apply browse-url-browser-function url args)
774 (dolist (bf browse-url-browser-function)
778 (error "No browse-url-browser-function matching URL %s"
782 (defun browse-url-at-point (&optional arg)
784 Doesn't let you edit the URL like `browse-url'. Variable
785 `browse-url-browser-function' says which browser to use."
787 (let ((url (browse-url-url-at-point)))
789 (browse-url url (if arg
790 (not browse-url-new-window-flag)
791 browse-url-new-window-flag))
795 (defun browse-url-at-mouse (event)
799 `browse-url'. Variable `browse-url-browser-function' says which browser
804 ;; This handles browse-url-new-window-flag properly
806 (browse-url-at-point)))
815 (defun browse-url-default-windows-browser (url &optional new-window)
816 (interactive (browse-url-interactive-arg "URL: "))
823 (defun browse-url-default-macosx-browser (url &optional new-window)
824 (interactive (browse-url-interactive-arg "URL: "))
829 (defun browse-url-process-environment ()
831 This is either the value of variable `browse-url-browser-display' if
834 (let ((display (or browse-url-browser-display (browse-url-emacs-display))))
839 (defun browse-url-emacs-display ()
850 (defun browse-url-default-browser (url &rest args)
854 When called interactively, if variable `browse-url-new-window-flag' is
857 the effect of `browse-url-new-window-flag'.
860 used instead of `browse-url-new-window-flag'.
867 ((executable-find browse-url-gnome-moz-program) 'browse-url-gnome-moz)
868 ((executable-find browse-url-mozilla-program) 'browse-url-mozilla)
869 ((executable-find browse-url-firefox-program) 'browse-url-firefox)
870 ((executable-find browse-url-galeon-program) 'browse-url-galeon)
871 ((executable-find browse-url-kde-program) 'browse-url-kde)
872 ((executable-find browse-url-netscape-program) 'browse-url-netscape)
873 ((executable-find browse-url-mosaic-program) 'browse-url-mosaic)
874 ((executable-find "tellw3b") 'browse-url-iximosaic)
875 ((executable-find browse-url-xterm-program) 'browse-url-lynx-xterm)
876 ((executable-find "mmm") 'browse-url-mmm)
877 ((locate-library "w3") 'browse-url-w3)
883 (defun browse-url-netscape (url &optional new-window)
886 `browse-url-netscape-arguments' are also passed to Netscape.
888 When called interactively, if variable `browse-url-new-window-flag' is
891 the effect of `browse-url-new-window-flag'.
893 If `browse-url-netscape-new-window-is-tab' is non-nil, then
898 used instead of `browse-url-new-window-flag'."
899 (interactive (browse-url-interactive-arg "URL: "))
905 (let* ((process-environment (browse-url-process-environment))
909 browse-url-netscape-program
911 browse-url-netscape-arguments
918 (if (browse-url-maybe-new-window
920 (if browse-url-netscape-new-window-is-tab
926 (browse-url-netscape-sentinel process ,url)))))
928 (defun browse-url-netscape-sentinel (process url)
931 (let* ((process-environment (browse-url-process-environment)))
933 (message "Starting %s..." browse-url-netscape-program)
935 browse-url-netscape-program
936 (append browse-url-netscape-startup-arguments (list url))))))
938 (defun browse-url-netscape-reload ()
940 How depends on `browse-url-netscape-version'."
944 (browse-url-netscape-send (if (>= browse-url-netscape-version 4)
948 (defun browse-url-netscape-send (command)
950 (let* ((process-environment (browse-url-process-environment)))
952 browse-url-netscape-program
953 (append browse-url-netscape-arguments
957 (defun browse-url-mozilla (url &optional new-window)
960 `browse-url-mozilla-arguments' are also passed to Mozilla.
962 When called interactively, if variable `browse-url-new-window-flag' is
965 the effect of `browse-url-new-window-flag'.
967 If `browse-url-mozilla-new-window-is-tab' is non-nil, then whenever a
972 used instead of `browse-url-new-window-flag'."
973 (interactive (browse-url-interactive-arg "URL: "))
979 (let* ((process-environment (browse-url-process-environment))
983 browse-url-mozilla-program
985 browse-url-mozilla-arguments
989 (if (browse-url-maybe-new-window
991 (if browse-url-mozilla-new-window-is-tab
997 (browse-url-mozilla-sentinel process ,url)))))
999 (defun browse-url-mozilla-sentinel (process url)
1002 (let* ((process-environment (browse-url-process-environment)))
1004 (message "Starting %s..." browse-url-mozilla-program)
1006 browse-url-mozilla-program
1007 (append browse-url-mozilla-startup-arguments (list url))))))
1010 (defun browse-url-firefox (url &optional new-window)
1013 variable `browse-url-firefox-arguments' are also passed to
1017 `browse-url-new-window-flag' is non-nil, load the document in a
1020 `browse-url-new-window-flag'.
1022 If `browse-url-firefox-new-window-is-tab' is non-nil, then
1027 NEW-WINDOW is used instead of `browse-url-new-window-flag'.
1032 `browse-url-new-window-flag' and `browse-url-firefox-new-window-is-tab'
1035 (interactive (browse-url-interactive-arg "URL: "))
1041 (let* ((process-environment (browse-url-process-environment))
1045 browse-url-firefox-program
1047 browse-url-firefox-arguments
1054 (if (browse-url-maybe-new-window
1056 (if browse-url-firefox-new-window-is-tab
1062 (browse-url-firefox-sentinel process ,url)))))
1064 (defun browse-url-firefox-sentinel (process url)
1067 (let* ((process-environment (browse-url-process-environment)))
1071 browse-url-firefox-program
1072 (append browse-url-firefox-startup-arguments (list url))))))
1075 (defun browse-url-galeon (url &optional new-window)
1078 `browse-url-galeon-arguments' are also passed to Galeon.
1080 When called interactively, if variable `browse-url-new-window-flag' is
1083 the effect of `browse-url-new-window-flag'.
1085 If `browse-url-galeon-new-window-is-tab' is non-nil, then whenever a
1090 used instead of `browse-url-new-window-flag'."
1091 (interactive (browse-url-interactive-arg "URL: "))
1097 (let* ((process-environment (browse-url-process-environment))
1101 browse-url-galeon-program
1103 browse-url-galeon-arguments
1104 (if (browse-url-maybe-new-window new-window)
1105 (if browse-url-galeon-new-window-is-tab
1112 (browse-url-galeon-sentinel process ,url)))))
1114 (defun browse-url-galeon-sentinel (process url)
1117 (let* ((process-environment (browse-url-process-environment)))
1119 (message "Starting %s..." browse-url-galeon-program)
1121 browse-url-galeon-program
1122 (append browse-url-galeon-startup-arguments (list url))))))
1124 (defun browse-url-epiphany (url &optional new-window)
1127 `browse-url-galeon-arguments' are also passed to Epiphany.
1129 When called interactively, if variable `browse-url-new-window-flag' is
1132 the effect of `browse-url-new-window-flag'.
1134 If `browse-url-epiphany-new-window-is-tab' is non-nil, then whenever a
1139 used instead of `browse-url-new-window-flag'."
1140 (interactive (browse-url-interactive-arg "URL: "))
1146 (let* ((process-environment (browse-url-process-environment))
1150 browse-url-epiphany-program
1152 browse-url-epiphany-arguments
1153 (if (browse-url-maybe-new-window new-window)
1154 (if browse-url-epiphany-new-window-is-tab
1161 (browse-url-epiphany-sentinel process ,url)))))
1163 (defun browse-url-epiphany-sentinel (process url)
1166 (let* ((process-environment (browse-url-process-environment)))
1168 (message "Starting %s..." browse-url-epiphany-program)
1170 browse-url-epiphany-program
1171 (append browse-url-epiphany-startup-arguments (list url))))))
1174 (defun browse-url-gnome-moz (url &optional new-window)
1177 `browse-url-gnome-moz-arguments' are also passed.
1179 When called interactively, if variable `browse-url-new-window-flag' is
1182 effect of `browse-url-new-window-flag'.
1185 used instead of `browse-url-new-window-flag'."
1186 (interactive (browse-url-interactive-arg "URL: "))
1189 browse-url-gnome-moz-program
1191 browse-url-gnome-moz-arguments
1192 (if (browse-url-maybe-new-window new-window)
1199 (defun browse-url-mosaic (url &optional new-window)
1203 `browse-url-mosaic-arguments' are also passed to Mosaic and the
1205 `browse-url-mosaic-program'.
1207 When called interactively, if variable `browse-url-new-window-flag' is
1210 the effect of `browse-url-new-window-flag'.
1213 used instead of `browse-url-new-window-flag'."
1214 (interactive (browse-url-interactive-arg "Mosaic URL: "))
1215 (let ((pidfile (expand-file-name browse-url-mosaic-pidfile))
1227 (insert (if (browse-url-maybe-new-window new-window)
1241 (message "Starting %s..." browse-url-mosaic-program)
1242 (apply 'start-process "xmosaic" nil browse-url-mosaic-program
1243 (append browse-url-mosaic-arguments (list url)))
1244 (message "Starting %s...done" browse-url-mosaic-program))))
1248 (defvar browse-url-grail
1254 (defun browse-url-grail (url &optional new-window)
1257 variable `browse-url-grail'."
1258 (interactive (browse-url-interactive-arg "Grail URL: "))
1264 (if (browse-url-maybe-new-window new-window)
1265 (call-process browse-url-grail nil 0 nil "-b" url)
1266 (call-process browse-url-grail nil 0 nil url))
1272 (defun browse-url-cci (url &optional new-window)
1278 value of variable `browse-url-CCI-port', and enable `Accept requests'.
1280 When called interactively, if variable `browse-url-new-window-flag' is
1283 the effect of `browse-url-new-window-flag'.
1286 used instead of `browse-url-new-window-flag'."
1287 (interactive (browse-url-interactive-arg "Mosaic URL: "))
1288 (open-network-stream "browse-url" " *browse-url*"
1289 browse-url-CCI-host browse-url-CCI-port)
1291 (process-send-string "browse-url"
1293 (if (browse-url-maybe-new-window new-window)
1297 (process-send-string "browse-url" "disconnect\r\n")
1298 (delete-process "browse-url"))
1303 (defun browse-url-iximosaic (url &optional new-window)
1307 (interactive (browse-url-interactive-arg "IXI Mosaic URL: "))
1314 (defun browse-url-w3 (url &optional new-window)
1318 When called interactively, if variable `browse-url-new-window-flag' is
1320 prefix argument reverses the effect of `browse-url-new-window-flag'.
1323 used instead of `browse-url-new-window-flag'."
1324 (interactive (browse-url-interactive-arg "W3 URL: "))
1326 (if (browse-url-maybe-new-window new-window)
1331 (defun browse-url-w3-gnudoit (url &optional new-window)
1334 The `browse-url-gnudoit-program' program is used with options given by
1335 `browse-url-gnudoit-args'. Default to the URL around or before point."
1336 (interactive (browse-url-interactive-arg "W3 URL: "))
1338 browse-url-gnudoit-program
1339 (append browse-url-gnudoit-args
1346 (defun browse-url-lynx-xterm (url &optional new-window)
1350 in an Xterm window using the Xterm program named by `browse-url-xterm-program'
1351 with possible additional arguments `browse-url-xterm-args'."
1352 (interactive (browse-url-interactive-arg "Lynx URL: "))
1353 (apply #'start-process `(,(concat "lynx" url) nil ,browse-url-xterm-program
1354 ,@browse-url-xterm-args "-e" "lynx"
1360 (defun browse-url-lynx-emacs (url &optional new-buffer)
1365 When called interactively, if variable `browse-url-new-window-flag' is
1368 reverses the effect of `browse-url-new-window-flag'.
1371 used instead of `browse-url-new-window-flag'."
1372 (interactive (browse-url-interactive-arg "Lynx URL: "))
1377 (n browse-url-lynx-input-attempts))
1378 (if (and (browse-url-maybe-new-window new-buffer) buf)
1384 (if (or (browse-url-maybe-new-window new-buffer)
1392 `("lynx" "lynx" nil ,@browse-url-lynx-emacs-args
1410 (cond ((eq browse-url-lynx-input-field 'warn)
1412 ((eq browse-url-lynx-input-field 'avoid)
1415 (sit-for browse-url-lynx-input-delay))
1426 (defun browse-url-mmm (url &optional new-window)
1429 (interactive (browse-url-interactive-arg "MMM URL: "))
1447 (defun browse-url-mail (url &optional new-window)
1454 When called interactively, if variable `browse-url-new-window-flag' is
1457 `browse-url-new-window-flag'.
1460 used instead of `browse-url-new-window-flag'."
1461 (interactive (browse-url-interactive-arg "Mailto URL: "))
1472 (if (browse-url-maybe-new-window new-window)
1485 (defun browse-url-generic (url &optional new-window)
1487 "Ask the WWW browser defined by `browse-url-generic-program' to load URL.
1490 `browse-url-generic-args'. This is appropriate for browsers which
1492 (interactive (browse-url-interactive-arg "URL: "))
1493 (if (not browse-url-generic-program)
1494 (error "No browser defined (`browse-url-generic-program')"))
1495 (apply 'call-process browse-url-generic-program nil
1497 (append browse-url-generic-args (list url))))
1500 (defun browse-url-kde (url &optional new-window)
1503 (interactive (browse-url-interactive-arg "KDE URL: "))
1505 (apply #'start-process (concat "KDE " url) nil browse-url-kde-program
1506 (append browse-url-kde-args (list url))))
1508 (provide 'browse-url)
1511 ;;; browse-url.el ends here