Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
334:58353925ad93 335:54f7aa390f4f
154 ["Set coding system of terminal" 154 ["Set coding system of terminal"
155 set-terminal-coding-system :active nil] 155 set-terminal-coding-system :active nil]
156 ;; not implemented yet 156 ;; not implemented yet
157 ["Set coding system of keyboard" 157 ["Set coding system of keyboard"
158 set-keyboard-coding-system :active nil] 158 set-keyboard-coding-system :active nil]
159 ;; not implemented yet
160 ["Set coding system of process" 159 ["Set coding system of process"
161 set-current-process-coding-system :active nil] 160 set-buffer-process-coding-system
161 :active (get-buffer-process (current-buffer))]
162 "--" 162 "--"
163 ["Show character table" view-charset-by-menu] 163 ["Show character table" view-charset-by-menu]
164 ;; not implemented yet 164 ;; not implemented yet
165 ["Show diagnosis for MULE" mule-diag :active nil] 165 ["Show diagnosis for MULE" mule-diag :active nil]
166 ["Show many languages" view-hello-file]))) 166 ["Show many languages" view-hello-file])))
808 :style radio 808 :style radio
809 :selected (and (boundp 'browse-url-browser-function) 809 :selected (and (boundp 'browse-url-browser-function)
810 (eq browse-url-browser-function 'browse-url-grail)) 810 (eq browse-url-browser-function 'browse-url-grail))
811 :active (and (boundp 'browse-url-browser-function) 811 :active (and (boundp 'browse-url-browser-function)
812 (fboundp 'browse-url-grail))] 812 (fboundp 'browse-url-grail))]
813 ["Kfm"
814 (customize-set-variable 'browse-url-browser-function
815 'browse-url-kfm)
816 :style radio
817 :selected (and (boundp 'browse-url-browser-function)
818 (eq browse-url-browser-function 'browse-url-kfm))
819 :active (and (boundp 'browse-url-browser-function)
820 (fboundp 'browse-url-kfm))]
813 ) 821 )
814 "-----" 822 "-----"
815 ["Edit Faces..." (customize-face nil)] 823 ["Edit Faces..." (customize-face nil)]
816 ("Font" :filter font-menu-family-constructor) 824 ("Font" :filter font-menu-family-constructor)
817 ("Size" :filter font-menu-size-constructor) 825 ("Size" :filter font-menu-size-constructor)