Lines Matching refs:km
45 (defvar tmm-km-list)
164 tmm-km-list out history history-len tmm-table-undef tmm-c-prompt
169 ;; Compute tmm-km-list from MENU.
170 ;; tmm-km-list is an alist of (STRING . MEANING).
172 ;; The order of elements in tmm-km-list is the order of the menu bar.
178 ;; Choose an element of tmm-km-list; put it in choice.
179 (if (and not-menu (= 1 (length tmm-km-list)))
184 (setq choice (cdr (car tmm-km-list)))
185 (unless tmm-km-list
187 (and tmm-km-list
190 (setq tmm-km-list (tmm-add-shortcuts tmm-km-list))
219 tmm-km-list)))))
225 (setq out (car (nth index-of-default tmm-km-list)))
232 tmm-km-list nil t nil
242 (setq choice (cdr (assoc out tmm-km-list)))
247 choice (cdr (assoc out tmm-km-list))))
249 (setq out (try-completion out tmm-km-list)
250 choice (cdr (assoc out tmm-km-list)))))
428 tmm-km-list)
442 "Prepends (DOCSTRING EVENT BINDING) to free variable `tmm-km-list'.
448 (let (km str cache plist filter visible enable (event (car elt)))
456 (setq km elt))
462 (setq km (cdr elt))
469 (setq km (cdr (cdr elt)))
481 (setq km (nth 2 elt))
485 (setq km (funcall filter km)))
488 (setq km (and (eval visible) km)))
491 (setq km (if (eval enable) km 'ignore)))
504 (setq km (cdr (cdr (cdr elt))))
513 (setq str event event nil km elt)
514 (setq str event event nil km (cons 'keymap elt))
516 (and km (stringp km) (setq str km))
519 (when (and km (symbolp km) (get km 'menu-enable))
520 (setq km (if (eval (get km 'menu-enable)) km 'ignore)))
521 (and km str
522 (or (assoc str tmm-km-list)
523 (push (cons str (cons event km)) tmm-km-list))))))