Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
0a3fc8a2
Commit
0a3fc8a2
authored
Apr 14, 1997
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Add defgroup; use defcustom for user vars.
parent
305ec106
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
35 additions
and
18 deletions
+35
-18
lisp/browse-url.el
lisp/browse-url.el
+35
-18
No files found.
lisp/browse-url.el
View file @
0a3fc8a2
...
...
@@ -289,33 +289,50 @@ Hostname matching is stricter in this case than for
browse-url-path-regexp
)
"A regular expression probably matching a complete URL."
)
;;;###autoload
(
defgroup
browse-url
nil
"Use a web browser to look at a URL."
:group
'emacs
)
;;;###autoload
(
def
var
browse-url-browser-function
(
def
custom
browse-url-browser-function
'browse-url-netscape
"*Function to display the current buffer in a WWW browser.
Used by the `browse-url-at-point', `browse-url-at-mouse', and
`browse-url-of-file' commands."
)
(
defvar
browse-url-netscape-command
"netscape"
"*The name by which to invoke Netscape."
)
(
defvar
browse-url-netscape-arguments
nil
"*A list of strings to pass to Netscape as arguments."
)
(
defvar
browse-url-netscape-startup-arguments
browse-url-netscape-arguments
This is used by the `browse-url-at-point', `browse-url-at-mouse', and
`browse-url-of-file' commands."
The
function
should
take
one
argument,
an
URL.
"
:type 'function
:group 'browse-url)
(defcustom browse-url-netscape-program "
netscape
"
"
*The
name
by
which
to
invoke
Netscape.
"
:type 'string
:group 'browse-url)
(defcustom browse-url-netscape-arguments nil
"
*A
list
of
strings
to
pass
to
Netscape
as
arguments.
"
:type '(repeat (string :tag "
Argument
"))
:group 'browse-url)
(defcustom browse-url-netscape-startup-arguments browse-url-netscape-arguments
"
*A
list
of
strings
to
pass
to
Netscape
when
it
starts
up.
Defaults to the value of browse-url-netscape-arguments at the time
browse-url is loaded."
)
Defaults
to
the
value
of
`
browse-url-netscape-arguments
'
at
the
time
browse-url
is
loaded.
"
:type '(repeat (string :tag "
Argument
"))
:group 'browse-url)
(
def
var
browse-url-new-window-p
nil
(def
custom
browse-url-new-window-p nil
"
*If
non-nil,
always
open
a
new
browser
window.
Passing
an
interactive
argument
to
\\[browse-url-netscape]
or
\\[browse-url-cci]
reverses
the
effect
of
this
variable.
Requires
Netscape version 1.1N or later or XMosaic version 2.5 or later."
)
(
defvar
browse-url-mosaic-arguments
nil
"*A list of strings to pass to Mosaic as arguments."
)
Netscape
version
1.1N
or
later
or
XMosaic
version
2.5
or
later.
"
:type 'boolean
:group 'browse-url)
(defcustom browse-url-mosaic-arguments nil
"
*A
list
of
strings
to
pass
to
Mosaic
as
arguments.
"
:type '(repeat (string :tag "
Argument
"))
:group 'browse-url)
(defvar browse-url-filename-alist
'(("
^/+
" . "
file:/
"))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment