Mercurial > emacs
comparison lisp/net/browse-url.el @ 78640:33d0b6780fb2
Remove spurious * in custom docstrings.
(browse-url-filename-alist): Use new-style backquote.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Thu, 23 Aug 2007 18:41:14 +0000 |
parents | ac3a937d0270 |
children | f5052c0c5c45 c05c0eff3e11 b83d0dadb2a7 |
comparison
equal
deleted
inserted
replaced
78639:0c7ac1e33f19 | 78640:33d0b6780fb2 |
---|---|
233 (cond | 233 (cond |
234 ((memq system-type '(windows-nt ms-dos cygwin)) | 234 ((memq system-type '(windows-nt ms-dos cygwin)) |
235 'browse-url-default-windows-browser) | 235 'browse-url-default-windows-browser) |
236 ((memq system-type '(darwin)) 'browse-url-default-macosx-browser) | 236 ((memq system-type '(darwin)) 'browse-url-default-macosx-browser) |
237 (t 'browse-url-default-browser)) | 237 (t 'browse-url-default-browser)) |
238 "*Function to display the current buffer in a WWW browser. | 238 "Function to display the current buffer in a WWW browser. |
239 This is used by the `browse-url-at-point', `browse-url-at-mouse', and | 239 This is used by the `browse-url-at-point', `browse-url-at-mouse', and |
240 `browse-url-of-file' commands. | 240 `browse-url-of-file' commands. |
241 | 241 |
242 If the value is not a function it should be a list of pairs | 242 If the value is not a function it should be a list of pairs |
243 \(REGEXP . FUNCTION). In this case the function called will be the one | 243 \(REGEXP . FUNCTION). In this case the function called will be the one |
279 :version "21.1" | 279 :version "21.1" |
280 :group 'browse-url) | 280 :group 'browse-url) |
281 | 281 |
282 (defcustom browse-url-netscape-program "netscape" | 282 (defcustom browse-url-netscape-program "netscape" |
283 ;; Info about netscape-remote from Karl Berry. | 283 ;; Info about netscape-remote from Karl Berry. |
284 "*The name by which to invoke Netscape. | 284 "The name by which to invoke Netscape. |
285 | 285 |
286 The free program `netscape-remote' from | 286 The free program `netscape-remote' from |
287 <URL:http://home.netscape.com/newsref/std/remote.c> is said to start | 287 <URL:http://home.netscape.com/newsref/std/remote.c> is said to start |
288 up very much quicker than `netscape'. Reported to compile on a GNU | 288 up very much quicker than `netscape'. Reported to compile on a GNU |
289 system, given vroot.h from the same directory, with cc flags | 289 system, given vroot.h from the same directory, with cc flags |
290 -DSTANDALONE -L/usr/X11R6/lib -lXmu -lX11." | 290 -DSTANDALONE -L/usr/X11R6/lib -lXmu -lX11." |
291 :type 'string | 291 :type 'string |
292 :group 'browse-url) | 292 :group 'browse-url) |
293 | 293 |
294 (defcustom browse-url-netscape-arguments nil | 294 (defcustom browse-url-netscape-arguments nil |
295 "*A list of strings to pass to Netscape as arguments." | 295 "A list of strings to pass to Netscape as arguments." |
296 :type '(repeat (string :tag "Argument")) | 296 :type '(repeat (string :tag "Argument")) |
297 :group 'browse-url) | 297 :group 'browse-url) |
298 | 298 |
299 (defcustom browse-url-netscape-startup-arguments browse-url-netscape-arguments | 299 (defcustom browse-url-netscape-startup-arguments browse-url-netscape-arguments |
300 "*A list of strings to pass to Netscape when it starts up. | 300 "A list of strings to pass to Netscape when it starts up. |
301 Defaults to the value of `browse-url-netscape-arguments' at the time | 301 Defaults to the value of `browse-url-netscape-arguments' at the time |
302 `browse-url' is loaded." | 302 `browse-url' is loaded." |
303 :type '(repeat (string :tag "Argument")) | 303 :type '(repeat (string :tag "Argument")) |
304 :group 'browse-url) | 304 :group 'browse-url) |
305 | 305 |
306 (defcustom browse-url-browser-display nil | 306 (defcustom browse-url-browser-display nil |
307 "*The X display for running the browser, if not same as Emacs'." | 307 "The X display for running the browser, if not same as Emacs'." |
308 :type '(choice string (const :tag "Default" nil)) | 308 :type '(choice string (const :tag "Default" nil)) |
309 :group 'browse-url) | 309 :group 'browse-url) |
310 | 310 |
311 (defcustom browse-url-mozilla-program "mozilla" | 311 (defcustom browse-url-mozilla-program "mozilla" |
312 "*The name by which to invoke Mozilla." | 312 "The name by which to invoke Mozilla." |
313 :type 'string | 313 :type 'string |
314 :group 'browse-url) | 314 :group 'browse-url) |
315 | 315 |
316 (defcustom browse-url-mozilla-arguments nil | 316 (defcustom browse-url-mozilla-arguments nil |
317 "*A list of strings to pass to Mozilla as arguments." | 317 "A list of strings to pass to Mozilla as arguments." |
318 :type '(repeat (string :tag "Argument")) | 318 :type '(repeat (string :tag "Argument")) |
319 :group 'browse-url) | 319 :group 'browse-url) |
320 | 320 |
321 (defcustom browse-url-mozilla-startup-arguments browse-url-mozilla-arguments | 321 (defcustom browse-url-mozilla-startup-arguments browse-url-mozilla-arguments |
322 "*A list of strings to pass to Mozilla when it starts up. | 322 "A list of strings to pass to Mozilla when it starts up. |
323 Defaults to the value of `browse-url-mozilla-arguments' at the time | 323 Defaults to the value of `browse-url-mozilla-arguments' at the time |
324 `browse-url' is loaded." | 324 `browse-url' is loaded." |
325 :type '(repeat (string :tag "Argument")) | 325 :type '(repeat (string :tag "Argument")) |
326 :group 'browse-url) | 326 :group 'browse-url) |
327 | 327 |
328 ;;;###autoload | 328 ;;;###autoload |
329 (defcustom browse-url-firefox-program "firefox" | 329 (defcustom browse-url-firefox-program "firefox" |
330 "*The name by which to invoke Firefox." | 330 "The name by which to invoke Firefox." |
331 :type 'string | 331 :type 'string |
332 :group 'browse-url) | 332 :group 'browse-url) |
333 | 333 |
334 (defcustom browse-url-firefox-arguments nil | 334 (defcustom browse-url-firefox-arguments nil |
335 "*A list of strings to pass to Firefox as arguments." | 335 "A list of strings to pass to Firefox as arguments." |
336 :type '(repeat (string :tag "Argument")) | 336 :type '(repeat (string :tag "Argument")) |
337 :group 'browse-url) | 337 :group 'browse-url) |
338 | 338 |
339 (defcustom browse-url-firefox-startup-arguments browse-url-firefox-arguments | 339 (defcustom browse-url-firefox-startup-arguments browse-url-firefox-arguments |
340 "*A list of strings to pass to Firefox when it starts up. | 340 "A list of strings to pass to Firefox when it starts up. |
341 Defaults to the value of `browse-url-firefox-arguments' at the time | 341 Defaults to the value of `browse-url-firefox-arguments' at the time |
342 `browse-url' is loaded." | 342 `browse-url' is loaded." |
343 :type '(repeat (string :tag "Argument")) | 343 :type '(repeat (string :tag "Argument")) |
344 :group 'browse-url) | 344 :group 'browse-url) |
345 | 345 |
346 ;;;###autoload | 346 ;;;###autoload |
347 (defcustom browse-url-galeon-program "galeon" | 347 (defcustom browse-url-galeon-program "galeon" |
348 "*The name by which to invoke Galeon." | 348 "The name by which to invoke Galeon." |
349 :type 'string | 349 :type 'string |
350 :group 'browse-url) | 350 :group 'browse-url) |
351 | 351 |
352 (defcustom browse-url-galeon-arguments nil | 352 (defcustom browse-url-galeon-arguments nil |
353 "*A list of strings to pass to Galeon as arguments." | 353 "A list of strings to pass to Galeon as arguments." |
354 :type '(repeat (string :tag "Argument")) | 354 :type '(repeat (string :tag "Argument")) |
355 :group 'browse-url) | 355 :group 'browse-url) |
356 | 356 |
357 (defcustom browse-url-galeon-startup-arguments browse-url-galeon-arguments | 357 (defcustom browse-url-galeon-startup-arguments browse-url-galeon-arguments |
358 "*A list of strings to pass to Galeon when it starts up. | 358 "A list of strings to pass to Galeon when it starts up. |
359 Defaults to the value of `browse-url-galeon-arguments' at the time | 359 Defaults to the value of `browse-url-galeon-arguments' at the time |
360 `browse-url' is loaded." | 360 `browse-url' is loaded." |
361 :type '(repeat (string :tag "Argument")) | 361 :type '(repeat (string :tag "Argument")) |
362 :group 'browse-url) | 362 :group 'browse-url) |
363 | 363 |
364 (defcustom browse-url-epiphany-program "epiphany" | 364 (defcustom browse-url-epiphany-program "epiphany" |
365 "*The name by which to invoke Epiphany." | 365 "The name by which to invoke Epiphany." |
366 :type 'string | 366 :type 'string |
367 :group 'browse-url) | 367 :group 'browse-url) |
368 | 368 |
369 (defcustom browse-url-epiphany-arguments nil | 369 (defcustom browse-url-epiphany-arguments nil |
370 "*A list of strings to pass to Epiphany as arguments." | 370 "A list of strings to pass to Epiphany as arguments." |
371 :type '(repeat (string :tag "Argument")) | 371 :type '(repeat (string :tag "Argument")) |
372 :group 'browse-url) | 372 :group 'browse-url) |
373 | 373 |
374 (defcustom browse-url-epiphany-startup-arguments browse-url-epiphany-arguments | 374 (defcustom browse-url-epiphany-startup-arguments browse-url-epiphany-arguments |
375 "*A list of strings to pass to Epiphany when it starts up. | 375 "A list of strings to pass to Epiphany when it starts up. |
376 Defaults to the value of `browse-url-epiphany-arguments' at the time | 376 Defaults to the value of `browse-url-epiphany-arguments' at the time |
377 `browse-url' is loaded." | 377 `browse-url' is loaded." |
378 :type '(repeat (string :tag "Argument")) | 378 :type '(repeat (string :tag "Argument")) |
379 :group 'browse-url) | 379 :group 'browse-url) |
380 | 380 |
381 ;; GNOME means of invoking either Mozilla or Netrape. | 381 ;; GNOME means of invoking either Mozilla or Netrape. |
382 (defvar browse-url-gnome-moz-program "gnome-moz-remote") | 382 (defvar browse-url-gnome-moz-program "gnome-moz-remote") |
383 | 383 |
384 (defcustom browse-url-gnome-moz-arguments '() | 384 (defcustom browse-url-gnome-moz-arguments '() |
385 "*A list of strings passed to the GNOME mozilla viewer as arguments." | 385 "A list of strings passed to the GNOME mozilla viewer as arguments." |
386 :version "21.1" | 386 :version "21.1" |
387 :type '(repeat (string :tag "Argument")) | 387 :type '(repeat (string :tag "Argument")) |
388 :group 'browse-url) | 388 :group 'browse-url) |
389 | 389 |
390 (defcustom browse-url-mozilla-new-window-is-tab nil | 390 (defcustom browse-url-mozilla-new-window-is-tab nil |
391 "*Whether to open up new windows in a tab or a new window. | 391 "Whether to open up new windows in a tab or a new window. |
392 If non-nil, then open the URL in a new tab rather than a new window if | 392 If non-nil, then open the URL in a new tab rather than a new window if |
393 `browse-url-mozilla' is asked to open it in a new window." | 393 `browse-url-mozilla' is asked to open it in a new window." |
394 :type 'boolean | 394 :type 'boolean |
395 :group 'browse-url) | 395 :group 'browse-url) |
396 | 396 |
397 (defcustom browse-url-firefox-new-window-is-tab nil | 397 (defcustom browse-url-firefox-new-window-is-tab nil |
398 "*Whether to open up new windows in a tab or a new window. | 398 "Whether to open up new windows in a tab or a new window. |
399 If non-nil, then open the URL in a new tab rather than a new window if | 399 If non-nil, then open the URL in a new tab rather than a new window if |
400 `browse-url-firefox' is asked to open it in a new window. | 400 `browse-url-firefox' is asked to open it in a new window. |
401 | 401 |
402 This option is currently ignored on MS-Windows, since the necessary | 402 This option is currently ignored on MS-Windows, since the necessary |
403 functionality is not available there." | 403 functionality is not available there." |
404 :type 'boolean | 404 :type 'boolean |
405 :group 'browse-url) | 405 :group 'browse-url) |
406 | 406 |
407 (defcustom browse-url-galeon-new-window-is-tab nil | 407 (defcustom browse-url-galeon-new-window-is-tab nil |
408 "*Whether to open up new windows in a tab or a new window. | 408 "Whether to open up new windows in a tab or a new window. |
409 If non-nil, then open the URL in a new tab rather than a new window if | 409 If non-nil, then open the URL in a new tab rather than a new window if |
410 `browse-url-galeon' is asked to open it in a new window." | 410 `browse-url-galeon' is asked to open it in a new window." |
411 :type 'boolean | 411 :type 'boolean |
412 :group 'browse-url) | 412 :group 'browse-url) |
413 | 413 |
414 (defcustom browse-url-epiphany-new-window-is-tab nil | 414 (defcustom browse-url-epiphany-new-window-is-tab nil |
415 "*Whether to open up new windows in a tab or a new window. | 415 "Whether to open up new windows in a tab or a new window. |
416 If non-nil, then open the URL in a new tab rather than a new window if | 416 If non-nil, then open the URL in a new tab rather than a new window if |
417 `browse-url-epiphany' is asked to open it in a new window." | 417 `browse-url-epiphany' is asked to open it in a new window." |
418 :type 'boolean | 418 :type 'boolean |
419 :group 'browse-url) | 419 :group 'browse-url) |
420 | 420 |
421 (defcustom browse-url-netscape-new-window-is-tab nil | 421 (defcustom browse-url-netscape-new-window-is-tab nil |
422 "*Whether to open up new windows in a tab or a new window. | 422 "Whether to open up new windows in a tab or a new window. |
423 If non-nil, then open the URL in a new tab rather than a new | 423 If non-nil, then open the URL in a new tab rather than a new |
424 window if `browse-url-netscape' is asked to open it in a new | 424 window if `browse-url-netscape' is asked to open it in a new |
425 window." | 425 window." |
426 :type 'boolean | 426 :type 'boolean |
427 :group 'browse-url) | 427 :group 'browse-url) |
428 | 428 |
429 (defcustom browse-url-new-window-flag nil | 429 (defcustom browse-url-new-window-flag nil |
430 "*If non-nil, always open a new browser window with appropriate browsers. | 430 "If non-nil, always open a new browser window with appropriate browsers. |
431 Passing an interactive argument to \\[browse-url], or specific browser | 431 Passing an interactive argument to \\[browse-url], or specific browser |
432 commands reverses the effect of this variable. Requires Netscape version | 432 commands reverses the effect of this variable. Requires Netscape version |
433 1.1N or later or XMosaic version 2.5 or later if using those browsers." | 433 1.1N or later or XMosaic version 2.5 or later if using those browsers." |
434 :type 'boolean | 434 :type 'boolean |
435 :group 'browse-url) | 435 :group 'browse-url) |
436 | 436 |
437 (defcustom browse-url-mosaic-program "xmosaic" | 437 (defcustom browse-url-mosaic-program "xmosaic" |
438 "*The name by which to invoke Mosaic (or mMosaic)." | 438 "The name by which to invoke Mosaic (or mMosaic)." |
439 :type 'string | 439 :type 'string |
440 :version "20.3" | 440 :version "20.3" |
441 :group 'browse-url) | 441 :group 'browse-url) |
442 | 442 |
443 (defcustom browse-url-mosaic-arguments nil | 443 (defcustom browse-url-mosaic-arguments nil |
444 "*A list of strings to pass to Mosaic as arguments." | 444 "A list of strings to pass to Mosaic as arguments." |
445 :type '(repeat (string :tag "Argument")) | 445 :type '(repeat (string :tag "Argument")) |
446 :group 'browse-url) | 446 :group 'browse-url) |
447 | 447 |
448 (defcustom browse-url-mosaic-pidfile "~/.mosaicpid" | 448 (defcustom browse-url-mosaic-pidfile "~/.mosaicpid" |
449 "*The name of the pidfile created by Mosaic." | 449 "The name of the pidfile created by Mosaic." |
450 :type 'string | 450 :type 'string |
451 :group 'browse-url) | 451 :group 'browse-url) |
452 | 452 |
453 (defcustom browse-url-filename-alist | 453 (defcustom browse-url-filename-alist |
454 (\` ; Backquote syntax won't work. | 454 `(("^/\\(ftp@\\|anonymous@\\)?\\([^:]+\\):/*" . "ftp://\\2/") |
455 (("^/\\(ftp@\\|anonymous@\\)?\\([^:]+\\):/*" . "ftp://\\2/") | |
456 ;; The above loses the username to avoid the browser prompting for | 455 ;; The above loses the username to avoid the browser prompting for |
457 ;; it in anonymous cases. If it's not anonymous the next regexp | 456 ;; it in anonymous cases. If it's not anonymous the next regexp |
458 ;; applies. | 457 ;; applies. |
459 ("^/\\([^:@]+@\\)?\\([^:]+\\):/*" . "ftp://\\1\\2/") | 458 ("^/\\([^:@]+@\\)?\\([^:]+\\):/*" . "ftp://\\1\\2/") |
460 (,@ (if (memq system-type '(windows-nt ms-dos cygwin)) | 459 ,@(if (memq system-type '(windows-nt ms-dos cygwin)) |
461 '(("^\\([a-zA-Z]:\\)[\\/]" . "file:\\1/") | 460 '(("^\\([a-zA-Z]:\\)[\\/]" . "file:\\1/") |
462 ("^[\\/][\\/]+" . "file://")))) | 461 ("^[\\/][\\/]+" . "file://"))) |
463 ("^/+" . "file:/"))) | 462 ("^/+" . "file:/")) |
464 "*An alist of (REGEXP . STRING) pairs used by `browse-url-of-file'. | 463 "An alist of (REGEXP . STRING) pairs used by `browse-url-of-file'. |
465 Any substring of a filename matching one of the REGEXPs is replaced by | 464 Any substring of a filename matching one of the REGEXPs is replaced by |
466 the corresponding STRING using `replace-match', not treating STRING | 465 the corresponding STRING using `replace-match', not treating STRING |
467 literally. All pairs are applied in the order given. The default | 466 literally. All pairs are applied in the order given. The default |
468 value converts ange-ftp/EFS-style file names into ftp URLs and prepends | 467 value converts ange-ftp/EFS-style file names into ftp URLs and prepends |
469 `file:' to any file name beginning with `/'. | 468 `file:' to any file name beginning with `/'. |
474 (setq browse-url-filename-alist | 473 (setq browse-url-filename-alist |
475 '((\"/webmaster@webserver:/home/www/html/\" . | 474 '((\"/webmaster@webserver:/home/www/html/\" . |
476 \"http://www.acme.co.uk/\") | 475 \"http://www.acme.co.uk/\") |
477 (\"^/\\(ftp@\\|anonymous@\\)?\\([^:]+\\):/*\" . \"ftp://\\2/\") | 476 (\"^/\\(ftp@\\|anonymous@\\)?\\([^:]+\\):/*\" . \"ftp://\\2/\") |
478 (\"^/\\([^:@]+@\\)?\\([^:]+\\):/*\" . \"ftp://\\1\\2/\") | 477 (\"^/\\([^:@]+@\\)?\\([^:]+\\):/*\" . \"ftp://\\1\\2/\") |
479 (\"^/+\" . \"file:/\"))) | 478 (\"^/+\" . \"file:/\")))" |
480 " | |
481 :type '(repeat (cons :format "%v" | 479 :type '(repeat (cons :format "%v" |
482 (regexp :tag "Regexp") | 480 (regexp :tag "Regexp") |
483 (string :tag "Replacement"))) | 481 (string :tag "Replacement"))) |
484 :version "20.3" | 482 :version "20.3" |
485 :group 'browse-url) | 483 :group 'browse-url) |
486 | 484 |
487 (defcustom browse-url-save-file nil | 485 (defcustom browse-url-save-file nil |
488 "*If non-nil, save the buffer before displaying its file. | 486 "If non-nil, save the buffer before displaying its file. |
489 Used by the `browse-url-of-file' command." | 487 Used by the `browse-url-of-file' command." |
490 :type 'boolean | 488 :type 'boolean |
491 :group 'browse-url) | 489 :group 'browse-url) |
492 | 490 |
493 (defcustom browse-url-of-file-hook nil | 491 (defcustom browse-url-of-file-hook nil |
494 "*Run after `browse-url-of-file' has asked a browser to load a file. | 492 "Run after `browse-url-of-file' has asked a browser to load a file. |
495 | 493 |
496 Set this to `browse-url-netscape-reload' to force Netscape to load the | 494 Set this to `browse-url-netscape-reload' to force Netscape to load the |
497 file rather than displaying a cached copy." | 495 file rather than displaying a cached copy." |
498 :type 'hook | 496 :type 'hook |
499 :options '(browse-url-netscape-reload) | 497 :options '(browse-url-netscape-reload) |
500 :group 'browse-url) | 498 :group 'browse-url) |
501 | 499 |
502 (defcustom browse-url-CCI-port 3003 | 500 (defcustom browse-url-CCI-port 3003 |
503 "*Port to access XMosaic via CCI. | 501 "Port to access XMosaic via CCI. |
504 This can be any number between 1024 and 65535 but must correspond to | 502 This can be any number between 1024 and 65535 but must correspond to |
505 the value set in the browser." | 503 the value set in the browser." |
506 :type 'integer | 504 :type 'integer |
507 :group 'browse-url) | 505 :group 'browse-url) |
508 | 506 |
509 (defcustom browse-url-CCI-host "localhost" | 507 (defcustom browse-url-CCI-host "localhost" |
510 "*Host to access XMosaic via CCI. | 508 "Host to access XMosaic via CCI. |
511 This should be the host name of the machine running XMosaic with CCI | 509 This should be the host name of the machine running XMosaic with CCI |
512 enabled. The port number should be set in `browse-url-CCI-port'." | 510 enabled. The port number should be set in `browse-url-CCI-port'." |
513 :type 'string | 511 :type 'string |
514 :group 'browse-url) | 512 :group 'browse-url) |
515 | 513 |
516 (defvar browse-url-temp-file-name nil) | 514 (defvar browse-url-temp-file-name nil) |
517 (make-variable-buffer-local 'browse-url-temp-file-name) | 515 (make-variable-buffer-local 'browse-url-temp-file-name) |
518 | 516 |
519 (defcustom browse-url-xterm-program "xterm" | 517 (defcustom browse-url-xterm-program "xterm" |
520 "*The name of the terminal emulator used by `browse-url-lynx-xterm'. | 518 "The name of the terminal emulator used by `browse-url-lynx-xterm'. |
521 This might, for instance, be a separate color version of xterm." | 519 This might, for instance, be a separate color version of xterm." |
522 :type 'string | 520 :type 'string |
523 :group 'browse-url) | 521 :group 'browse-url) |
524 | 522 |
525 (defcustom browse-url-xterm-args nil | 523 (defcustom browse-url-xterm-args nil |
526 "*A list of strings defining options for `browse-url-xterm-program'. | 524 "A list of strings defining options for `browse-url-xterm-program'. |
527 These might set its size, for instance." | 525 These might set its size, for instance." |
528 :type '(repeat (string :tag "Argument")) | 526 :type '(repeat (string :tag "Argument")) |
529 :group 'browse-url) | 527 :group 'browse-url) |
530 | 528 |
531 (defcustom browse-url-lynx-emacs-args (and (not window-system) | 529 (defcustom browse-url-lynx-emacs-args (and (not window-system) |
532 '("-show_cursor")) | 530 '("-show_cursor")) |
533 "*A list of strings defining options for Lynx in an Emacs buffer. | 531 "A list of strings defining options for Lynx in an Emacs buffer. |
534 | 532 |
535 The default is none in a window system, otherwise `-show_cursor' to | 533 The default is none in a window system, otherwise `-show_cursor' to |
536 indicate the position of the current link in the absence of | 534 indicate the position of the current link in the absence of |
537 highlighting, assuming the normal default for showing the cursor." | 535 highlighting, assuming the normal default for showing the cursor." |
538 :type '(repeat (string :tag "Argument")) | 536 :type '(repeat (string :tag "Argument")) |
539 :version "20.3" | 537 :version "20.3" |
540 :group 'browse-url) | 538 :group 'browse-url) |
541 | 539 |
542 (defcustom browse-url-gnudoit-program "gnudoit" | 540 (defcustom browse-url-gnudoit-program "gnudoit" |
543 "*The name of the `gnudoit' program used by `browse-url-w3-gnudoit'." | 541 "The name of the `gnudoit' program used by `browse-url-w3-gnudoit'." |
544 :type 'string | 542 :type 'string |
545 :group 'browse-url) | 543 :group 'browse-url) |
546 | 544 |
547 (defcustom browse-url-gnudoit-args '("-q") | 545 (defcustom browse-url-gnudoit-args '("-q") |
548 "*A list of strings defining options for `browse-url-gnudoit-program'. | 546 "A list of strings defining options for `browse-url-gnudoit-program'. |
549 These might set the port, for instance." | 547 These might set the port, for instance." |
550 :type '(repeat (string :tag "Argument")) | 548 :type '(repeat (string :tag "Argument")) |
551 :group 'browse-url) | 549 :group 'browse-url) |
552 | 550 |
553 (defcustom browse-url-generic-program nil | 551 (defcustom browse-url-generic-program nil |
554 "*The name of the browser program used by `browse-url-generic'." | 552 "The name of the browser program used by `browse-url-generic'." |
555 :type '(choice string (const :tag "None" nil)) | 553 :type '(choice string (const :tag "None" nil)) |
556 :group 'browse-url) | 554 :group 'browse-url) |
557 | 555 |
558 (defcustom browse-url-generic-args nil | 556 (defcustom browse-url-generic-args nil |
559 "*A list of strings defining options for `browse-url-generic-program'." | 557 "A list of strings defining options for `browse-url-generic-program'." |
560 :type '(repeat (string :tag "Argument")) | 558 :type '(repeat (string :tag "Argument")) |
561 :group 'browse-url) | 559 :group 'browse-url) |
562 | 560 |
563 (defcustom browse-url-temp-dir temporary-file-directory | 561 (defcustom browse-url-temp-dir temporary-file-directory |
564 "*The name of a directory for browse-url's temporary files. | 562 "The name of a directory for browse-url's temporary files. |
565 Such files are generated by functions like `browse-url-of-region'. | 563 Such files are generated by functions like `browse-url-of-region'. |
566 You might want to set this to somewhere with restricted read permissions | 564 You might want to set this to somewhere with restricted read permissions |
567 for privacy's sake." | 565 for privacy's sake." |
568 :type 'string | 566 :type 'string |
569 :group 'browse-url) | 567 :group 'browse-url) |
570 | 568 |
571 (defcustom browse-url-netscape-version | 569 (defcustom browse-url-netscape-version 3 |
572 3 | 570 "The version of Netscape you are using. |
573 "*The version of Netscape you are using. | |
574 This affects how URL reloading is done; the mechanism changed | 571 This affects how URL reloading is done; the mechanism changed |
575 incompatibly at version 4." | 572 incompatibly at version 4." |
576 :type 'number | 573 :type 'number |
577 :group 'browse-url) | 574 :group 'browse-url) |
578 | 575 |
579 (defcustom browse-url-lynx-input-field 'avoid | 576 (defcustom browse-url-lynx-input-field 'avoid |
580 "*Action on selecting an existing Lynx buffer at an input field. | 577 "Action on selecting an existing Lynx buffer at an input field. |
581 What to do when sending a new URL to an existing Lynx buffer in Emacs | 578 What to do when sending a new URL to an existing Lynx buffer in Emacs |
582 if the Lynx cursor is on an input field (in which case the `g' command | 579 if the Lynx cursor is on an input field (in which case the `g' command |
583 would be entered as data). Such fields are recognized by the | 580 would be entered as data). Such fields are recognized by the |
584 underlines ____. Allowed values: nil: disregard it, 'warn: warn the | 581 underlines ____. Allowed values: nil: disregard it, 'warn: warn the |
585 user and don't emit the URL, 'avoid: try to avoid the field by moving | 582 user and don't emit the URL, 'avoid: try to avoid the field by moving |
589 (const :tag "Warn, don't emit URL" :value warn)) | 586 (const :tag "Warn, don't emit URL" :value warn)) |
590 :version "20.3" | 587 :version "20.3" |
591 :group 'browse-url) | 588 :group 'browse-url) |
592 | 589 |
593 (defcustom browse-url-lynx-input-attempts 10 | 590 (defcustom browse-url-lynx-input-attempts 10 |
594 "*How many times to try to move down from a series of lynx input fields." | 591 "How many times to try to move down from a series of lynx input fields." |
595 :type 'integer | 592 :type 'integer |
596 :group 'browse-url) | 593 :group 'browse-url) |
597 | 594 |
598 (defcustom browse-url-lynx-input-delay 0.2 | 595 (defcustom browse-url-lynx-input-delay 0.2 |
599 "*How many seconds to wait for lynx between moves down from an input field." | 596 "How many seconds to wait for lynx between moves down from an input field." |
600 :type 'number | 597 :type 'number |
601 :group 'browse-url) | 598 :group 'browse-url) |
602 | 599 |
603 (defcustom browse-url-kde-program "kfmclient" | 600 (defcustom browse-url-kde-program "kfmclient" |
604 "*The name by which to invoke the KDE web browser." | 601 "The name by which to invoke the KDE web browser." |
605 :type 'string | 602 :type 'string |
606 :version "21.1" | 603 :version "21.1" |
607 :group 'browse-url) | 604 :group 'browse-url) |
608 | 605 |
609 (defcustom browse-url-kde-args '("openURL") | 606 (defcustom browse-url-kde-args '("openURL") |
610 "*A list of strings defining options for `browse-url-kde-program'." | 607 "A list of strings defining options for `browse-url-kde-program'." |
611 :type '(repeat (string :tag "Argument")) | 608 :type '(repeat (string :tag "Argument")) |
612 :group 'browse-url) | 609 :group 'browse-url) |
613 | 610 |
614 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 611 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
615 ;; URL input | 612 ;; URL input |