Mercurial > hg > xemacs-beta

diff lisp/menubar-items.el @ 335:54f7aa390f4f r21-0-65

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0-65
author cvs
date Mon, 13 Aug 2007 10:50:39 +0200
parents 4f79e16b1112
children fbbf69b4e8a7
line wrap: on
line diff
--- a/lisp/menubar-items.el	Mon Aug 13 10:49:52 2007 +0200
+++ b/lisp/menubar-items.el	Mon Aug 13 10:50:39 2007 +0200
@@ -156,9 +156,9 @@
 	      ;; not implemented yet
 	      ["Set coding system of keyboard"
 	       set-keyboard-coding-system :active nil]
-	      ;; not implemented yet
 	      ["Set coding system of process"
-	       set-current-process-coding-system :active nil]
+	       set-buffer-process-coding-system
+	       :active (get-buffer-process (current-buffer))]
 	      "--"
 	      ["Show character table" view-charset-by-menu]
 	      ;; not implemented yet
@@ -810,6 +810,14 @@
 		       (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)]