Patch to xemacs-21.2b10 to browse urls with kfm: Index: menubar-items.el =================================================================== RCS file: /usr/CVSroot/XEmacs/xemacs/lisp/menubar-items.el,v retrieving revision 1.6.2.4 diff -c -r1.6.2.4 menubar-items.el *** menubar-items.el 1998/11/26 11:38:34 1.6.2.4 --- menubar-items.el 1999/02/16 03:06:34 *************** *** 812,817 **** --- 812,825 ---- (eq browse-url-browser-function 'browse-url-grail)) :active (and (boundp 'browse-url-browser-function) (fboundp 'browse-url-grail))] + ["Kfm" + (customize-set-variable 'browse-url-browser-function + 'browse-url-kfm) + :style radio + :selected (and (boundp 'browse-url-browser-function) + (eq browse-url-browser-function 'browse-url-kfm)) + :active (and (boundp 'browse-url-browser-function) + (fboundp 'browse-url-kfm))] ) "-----" ["Edit Faces..." (customize-face nil)] *** browse-url.el 1999/02/15 18:59:56 1.1 --- browse-url.el 1999/02/15 19:02:30 *************** *** 48,53 **** --- 48,54 ---- ;; browse-url-iximosaic IXI Mosaic ? ;; browse-url-lynx-* Lynx 0 ;; browse-url-grail Grail 0.3b1 + ;; browse-url-kfm kde ;; Note that versions of Netscape before 1.1b1 did not have remote ;; control. <URL:http://www.netscape.com/newsref/std/x-remote.html> *************** *** 341,346 **** --- 342,350 ---- ;; b-u-file-url encodes fewer chars. Multi-display support for ;; Netscape. Thanks Richard Mlynarik <mly(a)adoc.xerox.com&gt; + ;; 0.39 15 Feb 1999 + ;; Add kfm <nbecker(a)fred.net&gt; + ;;; Code: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; *************** *** 384,389 **** --- 388,394 ---- (function-item browse-url-lynx-xterm) (function-item browse-url-lynx-emacs) (function-item browse-url-grail) + (function-item browse-url-kfm) (function :tag "Other" nil)) :group 'browse-url) *************** *** 869,874 **** --- 874,888 ---- ((fboundp 'terminal-emulator) (terminal-emulator "*browse-url*" "lynx" (list url))) (t (error "No terminal emulation in this XEmacs"))))) + + ;;;###autoload + (defun browse-url-kfm (url &optional new-window) + ;; new-window ignored + "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)