Lines Matching +defs:menu +defs:table
60 (defvar mule-menu-keymap
62 "Keymap for Mule (Multilingual environment) menu specific commands.")
73 (define-key-after mule-menu-keymap [set-language-environment]
74 (list 'menu-item "Set Language Environment" setup-language-environment-map))
75 (define-key-after mule-menu-keymap [separator-mule]
78 (define-key-after mule-menu-keymap [toggle-input-method]
79 '(menu-item "Toggle Input Method" toggle-input-method)
81 (define-key-after mule-menu-keymap [set-input-method]
82 '(menu-item "Select Input Method..." set-input-method)
84 (define-key-after mule-menu-keymap [describe-input-method]
85 '(menu-item "Describe Input Method" describe-input-method))
86 (define-key-after mule-menu-keymap [separator-input-method]
89 (define-key-after mule-menu-keymap [set-various-coding-system]
90 (list 'menu-item "Set Coding Systems" set-coding-system-map
92 (define-key-after mule-menu-keymap [view-hello-file]
93 '(menu-item "Show Multi-lingual Text" view-hello-file
98 (define-key-after mule-menu-keymap [separator-coding-system]
101 (define-key-after mule-menu-keymap [describe-language-environment]
102 (list 'menu-item "Describe Language Environment"
106 (define-key-after mule-menu-keymap [describe-input-method]
107 '(menu-item "Describe Input Method..." describe-input-method
110 (define-key-after mule-menu-keymap [describe-coding-system]
111 '(menu-item "Describe Coding System..." describe-coding-system)
113 (define-key-after mule-menu-keymap [list-character-sets]
114 '(menu-item "List Character Sets" list-character-sets
115 :help "Show table of available character sets"))
116 (define-key-after mule-menu-keymap [mule-diag]
117 '(menu-item "Show All of Mule Status" mule-diag
122 '(menu-item "For Next Command" universal-coding-system-argument
129 '(menu-item "For Saving This Buffer" set-buffer-file-coding-system
133 '(menu-item "For Reverting This File Now" revert-buffer-with-coding-system
138 '(menu-item "For File Name" set-file-name-coding-system
146 '(menu-item "For Keyboard" set-keyboard-coding-system
150 '(menu-item "For Terminal" set-terminal-coding-system
158 '(menu-item "For X Selections/Clipboard" set-selection-coding-system
163 '(menu-item "For Next X Selection" set-next-selection-coding-system
168 '(menu-item "For I/O with Subprocess" set-buffer-process-coding-system
176 [Default] '(menu-item "Default" setup-specified-language-environment))
179 [Default] '(menu-item "Default" describe-specified-language-support))
336 (if (fboundp 'ucs-set-table-for-input)
339 (ucs-set-table-for-input buffer))))
1103 value is a translation table to be set in the
1104 variable `nonascii-translation-table' in this
1196 Optional arg PARENTS is a list of parent menu names; it specifies
1214 ;; that the map it creates will be suitable for a menu.
1235 ;; Set up menu items for this language env.
1826 (setq nonascii-translation-table nil
1836 (defun set-display-table-and-terminal-coding-system (language-name &optional coding-system)
1837 "Set up the display table and terminal coding system for LANGUAGE-NAME."
1848 (when standard-display-table
1850 (aset standard-display-table (+ i 128) nil))))
1917 (aset standard-display-table 160 [32]))
1925 (aset standard-display-table 146 [39]))))
1959 (dos-table
1962 (format "cp%d-nonascii-translation-table" dos-codepage)))))
1964 ((char-table-p nonascii)
1965 (setq nonascii-translation-table nonascii))
1966 ((and (eq window-system 'pc) (boundp dos-table))
1968 ;; table as appropriate for the installed codepage.
1969 (setq nonascii-translation-table (symbol-value dos-table)))
1994 ;; Syntax and case table.
2000 (let ((syntax-table (standard-syntax-table))
2001 (standard-table (standard-case-table))
2002 (case-table (make-char-table 'case-table))
2005 (modify-syntax-entry ch " " syntax-table)
2008 (aset case-table i (aref standard-table i)))
2009 (set-char-table-extra-slot case-table 0 nil)
2010 (set-char-table-extra-slot case-table 1 nil)
2011 (set-char-table-extra-slot case-table 2 nil)
2012 (set-standard-case-table case-table))
2016 (set-case-table (standard-case-table)))
2018 (set-display-table-and-terminal-coding-system language-name))
2029 ;; called from the menu:
2030 ;; [menu-bar mule describe-language-environment LANGUAGE]
2479 will be translated according to the table specified by
2589 ;; so the display table and terminal coding system are irrelevant.
2591 (set-display-table-and-terminal-coding-system
2684 (put 'char-code-property-table 'char-table-extra-slots 0)
2686 (defvar char-code-property-table
2687 (make-char-table 'char-code-property-table)
2688 "Char-table containing a property list of each character code.
2694 "Return the value of CHAR's PROPNAME property in `char-code-property-table'."
2695 (let ((plist (aref char-code-property-table char)))
2700 "Store CHAR's PROPNAME property with VALUE in `char-code-property-table'.
2702 (let ((plist (aref char-code-property-table char)))
2708 (aset char-code-property-table char (list propname value)))))