*** browse-url.el 1999/12/17 15:30:45 1.2
--- browse-url.el 1999/12/17 15:38:38
***************
*** 45,50 ****
--- 45,51 ----
;; browse-url-lynx-* Lynx 0
;; browse-url-grail Grail 0.3b1
;; browse-url-mmm MMM ?
+ ;; browse-url-kfm kde
;; browse-url-generic arbitrary
;; [A version of the Netscape browser is now free software
***************
*** 534,539 ****
--- 535,542 ----
;; Replaced use of temporary-file-directory with call to
;; `temp-directory', change requires considering differences in
;; autoloading, use gnuclient instead of gnudoit.
+ ;;1999-12-17 Neal Becker <nbecker(a)fred.net>
+ ;; * Add kfm support
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Code:
***************
*** 576,581 ****
--- 579,585 ----
:value browse-url-lynx-emacs)
(function-item :tag "Grail" :value browse-url-grail)
(function-item :tag "MMM" :value browse-url-mmm)
+ (function-item :tag "kfm" :value browse-url-kfm)
(function-item :tag "Specified by `Browse Url Generic Program'"
:value browse-url-generic)
(function-item :tag "Default Windows browser"
***************
*** 1359,1364 ****
--- 1363,1376 ----
(apply 'start-process (concat browse-url-generic-program url) nil
browse-url-generic-program
(append browse-url-generic-args (list url))))
+
+ ;;;###autoload
+ (defun browse-url-kfm (url &optional new-window)
+ "Ask the kfm WWW browser to load URL.
+ Default to the URL around or before point."
+ (interactive (browse-url-interactive-arg "kfm URL: "))
+ (message "Sending URL to kfm...")
+ (start-process "kfmclient" nil "kfmclient" "openURL" url))
(provide 'browse-url)