/[emacs]/emacs/lisp/net/browse-url.el
ViewVC logotype

Diff of /emacs/lisp/net/browse-url.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.20 by rms, Fri Mar 8 09:56:30 2002 UTC revision 1.21 by rms, Mon Mar 18 04:24:09 2002 UTC
# Line 272  regexp should probably be \".\" to speci Line 272  regexp should probably be \".\" to speci
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
# Line 283  system, given vroot.h from the same dire Line 283  system, given vroot.h from the same dire
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"))
# Line 301  Defaults to the value of `browse-url-net Line 301  Defaults to the value of `browse-url-net
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"))
# Line 319  Defaults to the value of `browse-url-moz Line 319  Defaults to the value of `browse-url-moz
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
# Line 352  commands reverses the effect of this var Line 352  commands reverses the effect of this var
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/")
# Line 373  commands reverses the effect of this var Line 378  commands reverses the effect of this var
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
# Line 404  Used by the `browse-url-of-file' command Line 409  Used by the `browse-url-of-file' command
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."
# Line 422  Emacs 19.29 accepts 'SIGUSR1, earlier ve Line 427  Emacs 19.29 accepts 'SIGUSR1, earlier ve
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
# Line 439  enabled.  The port number should be set Line 444  enabled.  The port number should be set
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)
# Line 452  These might set its size, for instance." Line 457  These might set its size, for instance."
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
# Line 462  highlighting, assuming the normal defaul Line 467  highlighting, assuming the normal defaul
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    
# Line 484  These might set the port, for instance." Line 489  These might set the port, for instance."
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."
# Line 493  for privacy's sake." Line 498  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
# Line 517  down (this *won't* always work)." Line 522  down (this *won't* always work)."
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)
# Line 927  used instead of `browse-url-new-window-f Line 932  used instead of `browse-url-new-window-f
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)
# Line 974  the effect of `browse-url-new-window-fla Line 979  the effect of `browse-url-new-window-fla
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

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26