272 |
|
|
273 |
(defcustom browse-url-netscape-program "netscape" |
(defcustom browse-url-netscape-program "netscape" |
274 |
;; Info about netscape-remote from Karl Berry. |
;; Info about netscape-remote from Karl Berry. |
275 |
"The name by which to invoke Netscape. |
"*The name by which to invoke Netscape. |
276 |
|
|
277 |
The free program `netscape-remote' from |
The free program `netscape-remote' from |
278 |
<URL:http://home.netscape.com/newsref/std/remote.c> is said to start |
<URL:http://home.netscape.com/newsref/std/remote.c> is said to start |
283 |
:group 'browse-url) |
:group 'browse-url) |
284 |
|
|
285 |
(defcustom browse-url-netscape-arguments nil |
(defcustom browse-url-netscape-arguments nil |
286 |
"A list of strings to pass to Netscape as arguments." |
"*A list of strings to pass to Netscape as arguments." |
287 |
:type '(repeat (string :tag "Argument")) |
:type '(repeat (string :tag "Argument")) |
288 |
:group 'browse-url) |
:group 'browse-url) |
289 |
|
|
290 |
(defcustom browse-url-netscape-startup-arguments browse-url-netscape-arguments |
(defcustom browse-url-netscape-startup-arguments browse-url-netscape-arguments |
291 |
"A list of strings to pass to Netscape when it starts up. |
"*A list of strings to pass to Netscape when it starts up. |
292 |
Defaults to the value of `browse-url-netscape-arguments' at the time |
Defaults to the value of `browse-url-netscape-arguments' at the time |
293 |
`browse-url' is loaded." |
`browse-url' is loaded." |
294 |
:type '(repeat (string :tag "Argument")) |
:type '(repeat (string :tag "Argument")) |
301 |
:group 'browse-url) |
:group 'browse-url) |
302 |
|
|
303 |
(defcustom browse-url-mozilla-program "mozilla" |
(defcustom browse-url-mozilla-program "mozilla" |
304 |
"The name by which to invoke Mozilla." |
"*The name by which to invoke Mozilla." |
305 |
:type 'string |
:type 'string |
306 |
:group 'browse-url) |
:group 'browse-url) |
307 |
|
|
308 |
(defcustom browse-url-mozilla-arguments nil |
(defcustom browse-url-mozilla-arguments nil |
309 |
"A list of strings to pass to Mozilla as arguments." |
"*A list of strings to pass to Mozilla as arguments." |
310 |
:type '(repeat (string :tag "Argument")) |
:type '(repeat (string :tag "Argument")) |
311 |
:group 'browse-url) |
:group 'browse-url) |
312 |
|
|
313 |
(defcustom browse-url-mozilla-startup-arguments browse-url-mozilla-arguments |
(defcustom browse-url-mozilla-startup-arguments browse-url-mozilla-arguments |
314 |
"A list of strings to pass to Mozilla when it starts up. |
"*A list of strings to pass to Mozilla when it starts up. |
315 |
Defaults to the value of `browse-url-mozilla-arguments' at the time |
Defaults to the value of `browse-url-mozilla-arguments' at the time |
316 |
`browse-url' is loaded." |
`browse-url' is loaded." |
317 |
:type '(repeat (string :tag "Argument")) |
:type '(repeat (string :tag "Argument")) |
319 |
|
|
320 |
;;;###autoload |
;;;###autoload |
321 |
(defcustom browse-url-galeon-program "galeon" |
(defcustom browse-url-galeon-program "galeon" |
322 |
"The name by which to invoke Galeon." |
"*The name by which to invoke Galeon." |
323 |
:type 'string |
:type 'string |
324 |
:group 'browse-url) |
:group 'browse-url) |
325 |
|
|
326 |
(defcustom browse-url-galeon-arguments nil |
(defcustom browse-url-galeon-arguments nil |
327 |
"A list of strings to pass to Galeon as arguments." |
"*A list of strings to pass to Galeon as arguments." |
328 |
:type '(repeat (string :tag "Argument")) |
:type '(repeat (string :tag "Argument")) |
329 |
:group 'browse-url) |
:group 'browse-url) |
330 |
|
|
331 |
(defcustom browse-url-galeon-startup-arguments browse-url-galeon-arguments |
(defcustom browse-url-galeon-startup-arguments browse-url-galeon-arguments |
332 |
"A list of strings to pass to Galeon when it starts up. |
"*A list of strings to pass to Galeon when it starts up. |
333 |
Defaults to the value of `browse-url-galeon-arguments' at the time |
Defaults to the value of `browse-url-galeon-arguments' at the time |
334 |
`browse-url' is loaded." |
`browse-url' is loaded." |
335 |
:type '(repeat (string :tag "Argument")) |
:type '(repeat (string :tag "Argument")) |
336 |
:group 'browse-url) |
:group 'browse-url) |
337 |
|
|
338 |
(defcustom browse-url-galeon-new-window-is-tab nil |
(defcustom browse-url-galeon-new-window-is-tab nil |
339 |
"Whether to open up new windows in a tab or a new window. |
"*Whether to open up new windows in a tab or a new window. |
340 |
If non-nil, then open the URL in a new tab rather than a new window if |
If non-nil, then open the URL in a new tab rather than a new window if |
341 |
`browse-url-galeon' is asked to open it in a new window." |
`browse-url-galeon' is asked to open it in a new window." |
342 |
:type 'boolean |
:type 'boolean |
352 |
:group 'browse-url) |
:group 'browse-url) |
353 |
|
|
354 |
(defcustom browse-url-mosaic-program "xmosaic" |
(defcustom browse-url-mosaic-program "xmosaic" |
355 |
"The name by which to invoke Mosaic (or mMosaic)." |
"*The name by which to invoke Mosaic (or mMosaic)." |
356 |
:type 'string |
:type 'string |
357 |
:version "20.3" |
:version "20.3" |
358 |
:group 'browse-url) |
:group 'browse-url) |
359 |
|
|
360 |
(defcustom browse-url-mosaic-arguments nil |
(defcustom browse-url-mosaic-arguments nil |
361 |
"A list of strings to pass to Mosaic as arguments." |
"*A list of strings to pass to Mosaic as arguments." |
362 |
:type '(repeat (string :tag "Argument")) |
:type '(repeat (string :tag "Argument")) |
363 |
:group 'browse-url) |
:group 'browse-url) |
364 |
|
|
365 |
|
(defcustom browse-url-mosaic-pidfile "~/.mosaicpid" |
366 |
|
"*The name of the pidfile created by Mosaic." |
367 |
|
:type 'string |
368 |
|
:group 'browse-url) |
369 |
|
|
370 |
(defcustom browse-url-filename-alist |
(defcustom browse-url-filename-alist |
371 |
(\` ; Backquote syntax won't work. |
(\` ; Backquote syntax won't work. |
372 |
(("^/\\(ftp@\\|anonymous@\\)?\\([^:]+\\):/*" . "ftp://\\2/") |
(("^/\\(ftp@\\|anonymous@\\)?\\([^:]+\\):/*" . "ftp://\\2/") |
378 |
'(("^\\([a-zA-Z]:\\)[\\/]" . "file:\\1/") |
'(("^\\([a-zA-Z]:\\)[\\/]" . "file:\\1/") |
379 |
("^[\\/][\\/]+" . "file://")))) |
("^[\\/][\\/]+" . "file://")))) |
380 |
("^/+" . "file:/"))) |
("^/+" . "file:/"))) |
381 |
"An alist of (REGEXP . STRING) pairs used by `browse-url-of-file'. |
"*An alist of (REGEXP . STRING) pairs used by `browse-url-of-file'. |
382 |
Any substring of a filename matching one of the REGEXPs is replaced by |
Any substring of a filename matching one of the REGEXPs is replaced by |
383 |
the corresponding STRING using `replace-match', not treating STRING |
the corresponding STRING using `replace-match', not treating STRING |
384 |
literally. All pairs are applied in the order given. The default |
literally. All pairs are applied in the order given. The default |
409 |
:group 'browse-url) |
:group 'browse-url) |
410 |
|
|
411 |
(defcustom browse-url-of-file-hook nil |
(defcustom browse-url-of-file-hook nil |
412 |
"Run after `browse-url-of-file' has asked a browser to load a file. |
"*Run after `browse-url-of-file' has asked a browser to load a file. |
413 |
|
|
414 |
Set this to `browse-url-netscape-reload' to force Netscape to load the |
Set this to `browse-url-netscape-reload' to force Netscape to load the |
415 |
file rather than displaying a cached copy." |
file rather than displaying a cached copy." |
427 |
which is 30 on SunOS and 16 on HP-UX and Solaris.") |
which is 30 on SunOS and 16 on HP-UX and Solaris.") |
428 |
|
|
429 |
(defcustom browse-url-CCI-port 3003 |
(defcustom browse-url-CCI-port 3003 |
430 |
"Port to access XMosaic via CCI. |
"*Port to access XMosaic via CCI. |
431 |
This can be any number between 1024 and 65535 but must correspond to |
This can be any number between 1024 and 65535 but must correspond to |
432 |
the value set in the browser." |
the value set in the browser." |
433 |
:type 'integer |
:type 'integer |
444 |
(make-variable-buffer-local 'browse-url-temp-file-name) |
(make-variable-buffer-local 'browse-url-temp-file-name) |
445 |
|
|
446 |
(defcustom browse-url-xterm-program "xterm" |
(defcustom browse-url-xterm-program "xterm" |
447 |
"The name of the terminal emulator used by `browse-url-lynx-xterm'. |
"*The name of the terminal emulator used by `browse-url-lynx-xterm'. |
448 |
This might, for instance, be a separate colour version of xterm." |
This might, for instance, be a separate colour version of xterm." |
449 |
:type 'string |
:type 'string |
450 |
:group 'browse-url) |
:group 'browse-url) |
457 |
|
|
458 |
(defcustom browse-url-lynx-emacs-args (and (not window-system) |
(defcustom browse-url-lynx-emacs-args (and (not window-system) |
459 |
'("-show_cursor")) |
'("-show_cursor")) |
460 |
"A list of strings defining options for Lynx in an Emacs buffer. |
"*A list of strings defining options for Lynx in an Emacs buffer. |
461 |
|
|
462 |
The default is none in a window system, otherwise `-show_cursor' to |
The default is none in a window system, otherwise `-show_cursor' to |
463 |
indicate the position of the current link in the absence of |
indicate the position of the current link in the absence of |
467 |
:group 'browse-url) |
:group 'browse-url) |
468 |
|
|
469 |
(defcustom browse-url-gnudoit-program "gnudoit" |
(defcustom browse-url-gnudoit-program "gnudoit" |
470 |
"The name of the `gnudoit' program used by `browse-url-w3-gnudoit'." |
"*The name of the `gnudoit' program used by `browse-url-w3-gnudoit'." |
471 |
:type 'string |
:type 'string |
472 |
:group 'browse-url) |
:group 'browse-url) |
473 |
|
|
489 |
:group 'browse-url) |
:group 'browse-url) |
490 |
|
|
491 |
(defcustom browse-url-temp-dir temporary-file-directory |
(defcustom browse-url-temp-dir temporary-file-directory |
492 |
"The name of a directory for browse-url's temporary files. |
"*The name of a directory for browse-url's temporary files. |
493 |
Such files are generated by functions like `browse-url-of-region'. |
Such files are generated by functions like `browse-url-of-region'. |
494 |
You might want to set this to somewhere with restricted read permissions |
You might want to set this to somewhere with restricted read permissions |
495 |
for privacy's sake." |
for privacy's sake." |
498 |
|
|
499 |
(defcustom browse-url-netscape-version |
(defcustom browse-url-netscape-version |
500 |
3 |
3 |
501 |
"The version of Netscape you are using. |
"*The version of Netscape you are using. |
502 |
This affects how URL reloading is done; the mechanism changed |
This affects how URL reloading is done; the mechanism changed |
503 |
incompatibly at version 4." |
incompatibly at version 4." |
504 |
:type 'number |
:type 'number |
522 |
"*How many times to try to move down from a series of lynx input fields.") |
"*How many times to try to move down from a series of lynx input fields.") |
523 |
|
|
524 |
(defcustom browse-url-lynx-input-delay 0.2 |
(defcustom browse-url-lynx-input-delay 0.2 |
525 |
"How many seconds to wait for lynx between moves down from an input field.") |
"*How many seconds to wait for lynx between moves down from an input field.") |
526 |
|
|
527 |
(defcustom browse-url-kde-program "kfmclient" |
(defcustom browse-url-kde-program "kfmclient" |
528 |
"The name by which to invoke the KDE web browser." |
"*The name by which to invoke the KDE web browser." |
529 |
:type 'string |
:type 'string |
530 |
:version "21.1" |
:version "21.1" |
531 |
:group 'browse-url) |
:group 'browse-url) |
932 |
;; GNOME means of invoking either Mozilla or Netrape. |
;; GNOME means of invoking either Mozilla or Netrape. |
933 |
|
|
934 |
(defcustom browse-url-gnome-moz-arguments '() |
(defcustom browse-url-gnome-moz-arguments '() |
935 |
"A list of strings passed to the GNOME mozilla viewer as arguments." |
"*A list of strings passed to the GNOME mozilla viewer as arguments." |
936 |
:version "21.1" |
:version "21.1" |
937 |
:type '(repeat (string :tag "Argument")) |
:type '(repeat (string :tag "Argument")) |
938 |
:group 'browse-url) |
:group 'browse-url) |
979 |
When called non-interactively, optional second argument NEW-WINDOW is |
When called non-interactively, optional second argument NEW-WINDOW is |
980 |
used instead of `browse-url-new-window-flag'." |
used instead of `browse-url-new-window-flag'." |
981 |
(interactive (browse-url-interactive-arg "Mosaic URL: ")) |
(interactive (browse-url-interactive-arg "Mosaic URL: ")) |
982 |
(let ((pidfile (expand-file-name "~/.mosaicpid")) |
(let ((pidfile (expand-file-name browse-url-mosaic-pidfile)) |
983 |
pid) |
pid) |
984 |
(if (file-readable-p pidfile) |
(if (file-readable-p pidfile) |
985 |
(save-excursion |
(save-excursion |