mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-17 11:20:39 -08:00
Code Issues Projects Releases Wiki Activity

(browse-url-browser-function): Use it.

Browse source
This commit is contained in:
Dave Love 2000-10-07 18:05:28 +00:00
parent de5552d505
commit b12e6de36e
2 changed files with 17 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/ChangeLog
View file

@ -1,11 +1,18 @@
2000-10-07 Dave Love <fx@gnu.org>
* net/browse-url.el (browse-url-gnome-moz-arguments): New option.
(browse-url-gnome-moz): New function.
(browse-url-browser-function): Use it.
Suggested by Colin Walters <walters@cis.ohio-state.edu>.
2000-10-07 Peter Breton <pbreton@ne.mediaone.net> 2000-10-07 Peter Breton <pbreton@ne.mediaone.net>
* net/net-utils.el (nslookup-font-lock-keywords, ftp-font-lock-keywords, * net/net-utils.el (nslookup-font-lock-keywords)
smbclient-font-lock-keywords): Do not require font-lock. (ftp-font-lock-keywords, smbclient-font-lock-keywords): Do not
Doc cleanups throughout (incorporate changes by Dave Love). require font-lock. Doc cleanups throughout (incorporate changes
by Dave Love).
(network-connection-mode-setup): Comment out network-abbrev-table (network-connection-mode-setup): Comment out network-abbrev-table
variable. variable. Incorporate doc cleanups throughout.
Incorporate doc cleanups throughout.
2000-10-07 Stefan Monnier <monnier@cs.yale.edu> 2000-10-07 Stefan Monnier <monnier@cs.yale.edu>

4
lisp/net/browse-url.el
View file

@ -47,6 +47,7 @@
;; browse-url-mmm MMM ? ;; browse-url-mmm MMM ?
;; browse-url-generic arbitrary ;; browse-url-generic arbitrary
;; browse-url-default-windows-browser MS-Windows browser ;; browse-url-default-windows-browser MS-Windows browser
;; browse-url-gnome-moz GNOME interface to Mozilla
;; [A version of the Netscape browser is now free software ;; [A version of the Netscape browser is now free software
;; <URL:http://www.mozilla.org/>, albeit not GPLed, so it is ;; <URL:http://www.mozilla.org/>, albeit not GPLed, so it is
@ -263,6 +264,8 @@ regexp should probably be \".\" to specify a default browser."
:value browse-url-generic) :value browse-url-generic)
(function-item :tag "Default Windows browser" (function-item :tag "Default Windows browser"
:value browse-url-default-windows-browser) :value browse-url-default-windows-browser)
(function-item :tag "GNOME invoking Mozilla"
:value browse-url-gnome-moz)
(function :tag "Your own function") (function :tag "Your own function")
(alist :tag "Regexp/function association list" (alist :tag "Regexp/function association list"
:key-type regexp :value-type function)) :key-type regexp :value-type function))
@ -750,6 +753,7 @@ How depends on `browse-url-netscape-version'."
:type '(repeat (string :tag "Argument")) :type '(repeat (string :tag "Argument"))
:group 'browse-url) :group 'browse-url)
;;;###autoload
(defun browse-url-gnome-moz (url &optional new-window) (defun browse-url-gnome-moz (url &optional new-window)
"Ask Mozilla/Netscape to load URL via the GNOME program `gnome-moz-remote'. "Ask Mozilla/Netscape to load URL via the GNOME program `gnome-moz-remote'.
Default to the URL around or before point. The strings in variable Default to the URL around or before point. The strings in variable