Mercurial > emacs

comparison lisp/tmm.el @ 19505:fe381b9e1953

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tmm-get-keymap): Ignore any command now disabled for menus.
author Richard M. Stallman <rms@gnu.org>
date Sun, 24 Aug 1997 04:00:25 +0000
parents de905e8be2e0
children ac1673121774
comparison
equal deleted inserted replaced
19504:fd1ee3c25839 19505:fe381b9e1953
424 (if (or in-x-menu (stringp (car-safe elt))) 424 (if (or in-x-menu (stringp (car-safe elt)))
425 (setq str event event nil km elt) 425 (setq str event event nil km elt)
426 (setq str event event nil km (cons 'keymap elt)) 426 (setq str event event nil km (cons 'keymap elt))
427 ))) 427 )))
428 (and km (stringp km) (setq str km)) 428 (and km (stringp km) (setq str km))
429 ;; Verify that the command is enabled;
430 ;; if not, don't mention it.
431 (when (and km (symbolp km) (get km 'menu-enable))
432 (unless (eval (get km 'menu-enable))
433 (setq km nil)))
429 (and km str 434 (and km str
430 (or (assoc str tmm-km-list) 435 (or (assoc str tmm-km-list)
431 (setq tmm-km-list 436 (setq tmm-km-list
432 (cons (cons str (cons event km)) tmm-km-list))) 437 (cons (cons str (cons event km)) tmm-km-list)))
433 )))) 438 ))))