Mercurial > hg > xemacs-beta

comparison lisp/x11/x-menubar.el @ 167:85ec50267440 r20-3b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b10
author cvs
date Mon, 13 Aug 2007 09:45:46 +0200
parents 5a88923fcbfe
children 15872534500d
comparison
equal deleted inserted replaced
166:7a77eb660975 167:85ec50267440
102 ["What Line" what-line t] 102 ["What Line" what-line t]
103 "----" 103 "----"
104 ["Start Macro Recording" start-kbd-macro (not defining-kbd-macro)] 104 ["Start Macro Recording" start-kbd-macro (not defining-kbd-macro)]
105 ["End Macro Recording" end-kbd-macro defining-kbd-macro] 105 ["End Macro Recording" end-kbd-macro defining-kbd-macro]
106 ["Execute Last Macro" call-last-kbd-macro last-kbd-macro] 106 ["Execute Last Macro" call-last-kbd-macro last-kbd-macro]
107 "----"
108 ["Show Message Log" show-message-log t]
107 ) 109 )
108 110
109 ,@(if (featurep 'mule) 111 ,@(if (featurep 'mule)
110 '(("Mule" 112 '(("Mule"
111 ;; ["Describe language support" 113 ("Describe language support")
112 ;; mule-describe-language-support-prefix nil] 114 ("Set language environment")
113 ;; ["Set language environment" 115 "--"
114 ;; mule-set-language-environment-prefix nil]
115 ;; "--"
116 ["Toggle input method" toggle-input-method t] 116 ["Toggle input method" toggle-input-method t]
117 ["Select input method" select-input-method t] 117 ["Select input method" select-input-method t]
118 ["Describe input method" describe-input-method t] 118 ["Describe input method" describe-input-method t]
119 "--" 119 "--"
120 ["Describe current coding systems" 120 ["Describe current coding systems"
126 ["Set coding system of keyboard" 126 ["Set coding system of keyboard"
127 set-keyboard-coding-system nil] ; not implemented yet 127 set-keyboard-coding-system nil] ; not implemented yet
128 ["Set coding system of process" 128 ["Set coding system of process"
129 set-current-process-coding-system nil] ; not implemented yet 129 set-current-process-coding-system nil] ; not implemented yet
130 "--" 130 "--"
131 ["Show character table" view-charset-by-menu t]
131 ["Show diagnosis for MULE" mule-diag nil] ; not implemented yet 132 ["Show diagnosis for MULE" mule-diag nil] ; not implemented yet
132 ["Show many languages" view-hello-file t] 133 ["Show many languages" view-hello-file t]
133 ))) 134 )))
134 135
135 ("Apps" 136 ("Apps"