[PATCH] fix browse-url-kfm

*** 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&gt; + ;; * 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)