From: Gerd Moellmann <gerd@gnu.org>
Date: Fri, 18 May 2001 11:27:38 +0000 (+0000)
Subject: (browse-url-browser-function): Add kde.
X-Git-Tag: emacs-pretest-21.0.104~447
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=af06f4599db58ce5ac46101adc2460561e8a5db8;p=emacs.git

(browse-url-browser-function): Add kde.
(browse-url-kde-program, browse-url-kde-args): New variables.
(browse-url-kde): New function.
---

diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index ee579d859c1..5419ed63686 100644
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -49,6 +49,7 @@
 ;; browse-url-generic                 arbitrary
 ;; browse-url-default-windows-browser MS-Windows browser
 ;; browse-url-gnome-moz               GNOME interface to Mozilla
+;; browse-url-kde                     KDE konqueror (kfm)
 
 ;; [A version of the Netscape browser is now free software
 ;; <URL:http://www.mozilla.org/>, albeit not GPLed, so it is
@@ -261,6 +262,7 @@ regexp should probably be \".\" to specify a default browser."
 			 :value browse-url-lynx-emacs)
 	  (function-item :tag "Grail" :value  browse-url-grail)
 	  (function-item :tag "MMM" :value  browse-url-mmm)
+	  (function-item :tag "KDE" :value browse-url-kde)
 	  (function-item :tag "Specified by `Browse Url Generic Program'"
 			 :value browse-url-generic)
 	  (function-item :tag "Default Windows browser"
@@ -480,6 +482,17 @@ down (this *won't* always work)."
 (defcustom browse-url-lynx-input-delay 0.2
   "How many seconds to wait for lynx between moves down from an input field.")
 
+(defcustom browse-url-kde-program "kfmclient"
+  "The name by which to invoke the KDE web browser."
+  :type 'string
+  :version "21.1"
+  :group 'browse-url)
+
+(defcustom browse-url-kde-args '("openURL")
+  "*A list of strings defining options for `browse-url-kde-program'."
+  :type '(repeat (string :tag "Argument"))
+  :group 'browse-url)
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; URL input
 
@@ -1071,6 +1084,15 @@ don't offer a form of remote control."
 	 browse-url-generic-program
 	 (append browse-url-generic-args (list url))))
 
+;;;###autoload
+(defun browse-url-kde (url &optional new-window)
+  "Ask the KDE WWW browser to load URL.
+Default to the URL around or before point."
+  (interactive (browse-url-interactive-arg "KDE URL: "))
+  (message "Sending URL to KDE...")
+  (apply #'start-process `(,(concat "KDE" url) nil ,browse-url-kde-program
+			   ,@browse-url-kde-args ,url)))
+
 (provide 'browse-url)
 
 ;;; browse-url.el ends here