Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-cmds.el @ 213:78f53ef88e17 r20-4b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b5
author cvs
date Mon, 13 Aug 2007 10:06:47 +0200
parents 41ff10fd062f
children 262b8bb4a523
comparison
equal deleted inserted replaced
212:d8688acf4c5b 213:78f53ef88e17
206 ;; (vector (intern language-name)) 206 ;; (vector (intern language-name))
207 ;; (cons language-name 'describe-specified-language-support) 207 ;; (cons language-name 'describe-specified-language-support)
208 ;; t) 208 ;; t)
209 (if (consp info) 209 (if (consp info)
210 (setq info (car info))) 210 (setq info (car info)))
211 (eval-after-load "x-menubar" 211 (when (featurep 'menubar)
212 `(add-menu-button 212 (eval-after-load
213 '("Mule" "Describe Language Support") 213 "x-menubar"
214 (vector ,language-name 214 `(add-menu-button
215 '(describe-language-environment ,language-name) 215 '("Mule" "Describe Language Support")
216 t))) 216 (vector ,language-name
217 '(describe-language-environment ,language-name)
218 t))))
217 ) 219 )
218 ((eq key 'setup-function) 220 ((eq key 'setup-function)
219 ;; (define-key-after 221 ;; (define-key-after
220 ;; (if (consp info) 222 ;; (if (consp info)
221 ;; (prog1 (symbol-value (cdr info)) 223 ;; (prog1 (symbol-value (cdr info))
224 ;; (vector (intern language-name)) 226 ;; (vector (intern language-name))
225 ;; (cons language-name 'setup-specified-language-environment) 227 ;; (cons language-name 'setup-specified-language-environment)
226 ;; t) 228 ;; t)
227 (if (consp info) 229 (if (consp info)
228 (setq info (car info))) 230 (setq info (car info)))
229 (eval-after-load "x-menubar" 231 (when (featurep 'menubar)
230 `(add-menu-button 232 (eval-after-load
231 '("Mule" "Set Language Environment") 233 "x-menubar"
232 (vector ,language-name 234 `(add-menu-button
233 '(set-language-environment ,language-name) 235 '("Mule" "Set Language Environment")
234 t))) 236 (vector ,language-name
237 '(set-language-environment ,language-name)
238 t))))
235 )) 239 ))
236 240
237 (setcdr key-slot info) 241 (setcdr key-slot info)
238 )) 242 ))
239 243