Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-cmds.el @ 406:b8cc9ab3f761 r21-2-33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-33
author cvs
date Mon, 13 Aug 2007 11:17:09 +0200
parents 2f8bb876ab1d
children 697ef44129c6
comparison
equal deleted inserted replaced
405:0e08f63c74d2 406:b8cc9ab3f761
609 ;; (cons lang-env 'describe-specified-language-support) t) 609 ;; (cons lang-env 'describe-specified-language-support) t)
610 (when (featurep 'menubar) 610 (when (featurep 'menubar)
611 (eval-after-load 611 (eval-after-load
612 "menubar-items.elc" 612 "menubar-items.elc"
613 `(add-menu-button 613 `(add-menu-button
614 '("Mule" "Describe Language Support") 614 '("%_Edit" "%_Multilingual (\"Mule\")"
615 "%_Describe Language Support")
615 (vector ,lang-env 616 (vector ,lang-env
616 '(describe-language-environment ,lang-env) 617 '(describe-language-environment ,lang-env)
617 t)))) 618 t))))
618 )) 619 ))
619 ;; (define-key-after setup-map (vector (intern lang-env)) 620 ;; (define-key-after setup-map (vector (intern lang-env))
620 ;; (cons lang-env 'setup-specified-language-environment) t) 621 ;; (cons lang-env 'setup-specified-language-environment) t)
621 (when (featurep 'menubar) 622 (when (featurep 'menubar)
622 (eval-after-load 623 (eval-after-load
623 "menubar-items.elc" 624 "menubar-items.elc"
624 `(add-menu-button 625 `(add-menu-button
625 '("Mule" "Set Language Environment") 626 '("%_Edit" "%_Multilingual (\"Mule\")"
627 "%_Set Language Environment")
626 (vector ,lang-env 628 (vector ,lang-env
627 '(set-language-environment ,lang-env) 629 '(set-language-environment ,lang-env)
628 t)))) 630 t))))
629 631
630 (while alist 632 (while alist
631 (set-language-info lang-env (car (car alist)) (cdr (car alist))) 633 (set-language-info lang-env (car (car alist)) (cdr (car alist)))
632 (setq alist (cdr alist))))) 634 (setq alist (cdr alist)))))
633 635
634 (defun read-language-name (key prompt &optional default) 636 (defun read-language-name (key prompt &optional default)