From b12e6de36e8d6422fed7f244cc009b8dd9f3a34c Mon Sep 17 00:00:00 2001 From: Dave Love Date: Sat, 7 Oct 2000 18:05:28 +0000 Subject: [PATCH] (browse-url-browser-function): Use it. --- lisp/ChangeLog | 17 ++++++++++++----- lisp/net/browse-url.el | 6 +++++- 2 files changed, 17 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index de909a4ff3c..0d473fa2554 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,11 +1,18 @@ +2000-10-07 Dave Love + + * 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 . + 2000-10-07 Peter Breton - * net/net-utils.el (nslookup-font-lock-keywords, ftp-font-lock-keywords, - smbclient-font-lock-keywords): Do not require font-lock. - Doc cleanups throughout (incorporate changes by Dave Love). + * net/net-utils.el (nslookup-font-lock-keywords) + (ftp-font-lock-keywords, smbclient-font-lock-keywords): Do not + require font-lock. Doc cleanups throughout (incorporate changes + by Dave Love). (network-connection-mode-setup): Comment out network-abbrev-table - variable. - Incorporate doc cleanups throughout. + variable. Incorporate doc cleanups throughout. 2000-10-07 Stefan Monnier diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el index ac3d43e2a84..3cc5512da76 100644 --- a/lisp/net/browse-url.el +++ b/lisp/net/browse-url.el @@ -47,6 +47,7 @@ ;; browse-url-mmm MMM ? ;; browse-url-generic arbitrary ;; 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 ;; , albeit not GPLed, so it is @@ -262,7 +263,9 @@ regexp should probably be \".\" to specify a default browser." (function-item :tag "Specified by `Browse Url Generic Program'" :value browse-url-generic) (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") (alist :tag "Regexp/function association list" :key-type regexp :value-type function)) @@ -750,6 +753,7 @@ How depends on `browse-url-netscape-version'." :type '(repeat (string :tag "Argument")) :group 'browse-url) +;;;###autoload (defun browse-url-gnome-moz (url &optional new-window) "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 -- 2.39.2