Mercurial > hg > xemacs-beta

comparison lisp/utils/browse-url.el @ 134:34a5b81f86ba r20-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b1
author cvs
date Mon, 13 Aug 2007 09:30:11 +0200
parents c7528f8e288d
children 85ec50267440
comparison
equal deleted inserted replaced
133:b27e67717092 134:34a5b81f86ba
346 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 346 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
347 ;; Variables 347 ;; Variables
348 348
349 (eval-when-compile (require 'dired)) 349 (eval-when-compile (require 'dired))
350 350
351 (defgroup browse-url nil
352 "Ask a WWW browser to load a URL."
353 :group 'hypermedia)
354
355
351 (defvar browse-url-path-regexp 356 (defvar browse-url-path-regexp
352 "[^]\t\n \"'()<>[^`{}]*[^]\t\n \"'()<>[^`{}.,;]+" 357 "[^]\t\n \"'()<>[^`{}]*[^]\t\n \"'()<>[^`{}.,;]+"
353 "A regular expression probably matching the host, path or e-mail 358 "A regular expression probably matching the host, path or e-mail
354 part of a URL.") 359 part of a URL.")
355 360
365 browse-url-path-regexp) 370 browse-url-path-regexp)
366 "A regular expression probably matching a complete URL.") 371 "A regular expression probably matching a complete URL.")
367 372
368 373
369 ;;;###autoload 374 ;;;###autoload
370 (defvar browse-url-browser-function 'browse-url-w3 375 (defcustom browse-url-browser-function 'browse-url-w3
371 "*Function to display the current buffer in a WWW browser. 376 "*Function to display the current buffer in a WWW browser.
372 Used by the `browse-url-at-point', `browse-url-at-mouse', and 377 Used by the `browse-url-at-point', `browse-url-at-mouse', and
373 `browse-url-of-file' commands.") 378 `browse-url-of-file' commands."
374 379 :type 'function
375 (defvar browse-url-netscape-command "netscape" 380 :group 'browse-url)
376 "*The name by which to invoke Netscape.") 381
377 382 (defcustom browse-url-netscape-command "netscape"
378 (defvar browse-url-netscape-arguments nil 383 "*The name by which to invoke Netscape."
379 "*A list of strings to pass to Netscape as arguments.") 384 :type 'string
380 385 :group 'browse-url)
381 (defvar browse-url-new-window-p nil 386
387 (defcustom browse-url-netscape-arguments nil
388 "*A list of strings to pass to Netscape as arguments."
389 :type '(repeat (string :tag "Argument"))
390 :group 'browse-url)
391
392 (defcustom browse-url-new-window-p nil
382 "*If non-nil, always open a new browser window. 393 "*If non-nil, always open a new browser window.
383 Passing an interactive argument to \\[browse-url-netscape] or 394 Passing an interactive argument to \\[browse-url-netscape] or
384 \\[browse-url-cci] reverses the effect of this variable. Requires 395 \\[browse-url-cci] reverses the effect of this variable. Requires
385 Netscape version 1.1N or later or XMosaic version 2.5 or later.") 396 Netscape version 1.1N or later or XMosaic version 2.5 or later."
386 397 :type 'boolean
387 (defvar browse-url-mosaic-arguments nil 398 :group 'browse-url)
388 "*A list of strings to pass to Mosaic as arguments.") 399
400 (defcustom browse-url-mosaic-arguments nil
401 "*A list of strings to pass to Mosaic as arguments."
402 :type '(repeat (string :tag "Argument"))
403 :group 'browse-url)
389 404
390 (defvar browse-url-filename-alist 405 (defvar browse-url-filename-alist
391 '(("^/+" . "file:/")) 406 '(("^/+" . "file:/"))
392 "An alist of (REGEXP . STRING) pairs. 407 "An alist of (REGEXP . STRING) pairs.
393 Any substring of a filename matching one of the REGEXPs is replaced by 408 Any substring of a filename matching one of the REGEXPs is replaced by