45 lines
1.9 KiB
Diff
45 lines
1.9 KiB
Diff
|
diff -up emacs-23.1/lisp/net/browse-url.el.xdg emacs-23.1/lisp/net/browse-url.el
|
||
|
|
--- emacs-23.1/lisp/net/browse-url.el.xdg 2009-09-18 15:10:03.000000000 -0400
|
||
|
|
+++ emacs-23.1/lisp/net/browse-url.el 2009-09-18 15:18:51.000000000 -0400
|
||
|
|
@@ -234,6 +234,7 @@ associated with the first REGEXP which m
|
||
|
|
function is passed the URL and any other args of `browse-url'. The last
|
||
|
|
regexp should probably be \".\" to specify a default browser."
|
||
|
|
:type '(choice
|
||
|
|
+ (function-item :tag "Default freedesktop.org browser" :value browse-url-default-xdg-browser)
|
||
|
|
(function-item :tag "Emacs W3" :value browse-url-w3)
|
||
|
|
(function-item :tag "W3 in another Emacs via `gnudoit'"
|
||
|
|
:value browse-url-w3-gnudoit)
|
||
|
|
@@ -266,6 +267,23 @@ regexp should probably be \".\" to speci
|
||
|
|
:version "21.1"
|
||
|
|
:group 'browse-url)
|
||
|
|
|
||
|
|
+;;;###autoload
|
||
|
|
+(defcustom browse-url-xdg-open-program "xdg-open"
|
||
|
|
+ "*The name by which to invoke xdg-open."
|
||
|
|
+ :type 'string
|
||
|
|
+ :group 'browse-url)
|
||
|
|
+
|
||
|
|
+
|
||
|
|
+;;;###autoload
|
||
|
|
+(defun browse-url-default-xdg-browser (url &optional new-window)
|
||
|
|
+ (interactive (browse-url-interactive-arg "URL: "))
|
||
|
|
+ (let ((process-environment (browse-url-process-environment))
|
||
|
|
+ (process-connection-type nil))
|
||
|
|
+ (start-process (concat browse-url-xdg-open-program " " url) nil
|
||
|
|
+ browse-url-xdg-open-program url)))
|
||
|
|
+
|
||
|
|
+
|
||
|
|
+
|
||
|
|
(defcustom browse-url-netscape-program "netscape"
|
||
|
|
;; Info about netscape-remote from Karl Berry.
|
||
|
|
"The name by which to invoke Netscape.
|
||
|
|
@@ -876,6 +894,8 @@ The order attempted is gnome-moz-remote,
|
||
|
|
Galeon, Konqueror, Netscape, Mosaic, Lynx in an xterm, and then W3."
|
||
|
|
(apply
|
||
|
|
(cond
|
||
|
|
+ ((executable-find browse-url-xdg-open-program)
|
||
|
|
+ 'browse-url-default-xdg-browser)
|
||
|
|
((executable-find browse-url-gnome-moz-program) 'browse-url-gnome-moz)
|
||
|
|
((executable-find browse-url-mozilla-program) 'browse-url-mozilla)
|
||
|
|
((executable-find browse-url-firefox-program) 'browse-url-firefox)
|