Mercurial > hg > xemacs-beta

comparison lisp/x11/x-menubar.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents 25f70ba0133c
children 5a88923fcbfe
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
2 2
3 ;; Copyright (C) 1991, 1992, 1993, 1994, 1995 Free Software Foundation, Inc. 3 ;; Copyright (C) 1991, 1992, 1993, 1994, 1995 Free Software Foundation, Inc.
4 ;; Copyright (C) 1995 Tinker Systems and INS Engineering Corp. 4 ;; Copyright (C) 1995 Tinker Systems and INS Engineering Corp.
5 ;; Copyright (C) 1995 Sun Microsystems. 5 ;; Copyright (C) 1995 Sun Microsystems.
6 ;; Copyright (C) 1995, 1996 Ben Wing. 6 ;; Copyright (C) 1995, 1996 Ben Wing.
7 ;; Copyright (C) 1997 MORIOKA Tomohiko
7 8
8 ;; This file is part of XEmacs. 9 ;; This file is part of XEmacs.
9 10
10 ;; XEmacs is free software; you can redistribute it and/or modify it 11 ;; XEmacs is free software; you can redistribute it and/or modify it
11 ;; under the terms of the GNU General Public License as published by 12 ;; under the terms of the GNU General Public License as published by
100 "----" 101 "----"
101 ["Start Macro Recording" start-kbd-macro (not defining-kbd-macro)] 102 ["Start Macro Recording" start-kbd-macro (not defining-kbd-macro)]
102 ["End Macro Recording" end-kbd-macro defining-kbd-macro] 103 ["End Macro Recording" end-kbd-macro defining-kbd-macro]
103 ["Execute Last Macro" call-last-kbd-macro last-kbd-macro] 104 ["Execute Last Macro" call-last-kbd-macro last-kbd-macro]
104 ) 105 )
105 106
107 ,@(if (featurep 'mule)
108 '(("Mule"
109 ["Describe language support"
110 mule-describe-language-support-prefix nil] ; not implemented yet
111 ["Set language environment"
112 mule-set-language-environment-prefix nil] ; not implemented yet
113 "--"
114 ["Toggle input method" toggle-input-method t]
115 ["Select input method" select-input-method t]
116 ["Describe input method" describe-input-method t]
117 "--"
118 ["Describe current coding systems"
119 describe-current-coding-system t]
120 ["Set coding system of buffer file"
121 set-buffer-file-coding-system t]
122 ["Set coding system of terminal"
123 set-terminal-coding-system nil] ; not implemented yet
124 ["Set coding system of keyboard"
125 set-keyboard-coding-system nil] ; not implemented yet
126 ["Set coding system of process"
127 set-current-process-coding-system nil] ; not implemented yet
128 "--"
129 ["Show diagnosis for MULE" mule-diag nil] ; not implemented yet
130 ["Show many languages" view-hello-file t]
131 )))
132
106 ("Apps" 133 ("Apps"
107 ["Read Mail (VM)..." vm t] 134 ["Read Mail (VM)..." vm t]
108 ["Read Mail (MH)..." (mh-rmail t) t] 135 ["Read Mail (MH)..." (mh-rmail t) t]
109 ["Send mail..." mail t] 136 ["Send mail..." mail t]
110 ["Usenet News" gnus t] 137 ["Usenet News" gnus t]