mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(tmm-get-keymap): Eval the menu name in `menu-item'.

Browse source
This commit is contained in:
Stefan Monnier 2000-12-02 21:31:12 +00:00
parent 250cfeced5
commit c19cc27530
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -1,5 +1,7 @@
2000-12-02 Stefan Monnier <monnier@cs.yale.edu>
* tmm.el (tmm-get-keymap): Eval the menu name in `menu-item'.
* textmodes/ispell.el (check-ispell-version): Don't use match-beginning
to check if the match succeeded.

6
lisp/tmm.el
View file

@ -429,7 +429,7 @@ It uses the free variable `tmm-table-undef' to keep undefined keys."
((eq (car-safe elt) 'menu-item)
(setq plist (cdr-safe (cdr-safe (cdr-safe elt))))
(setq km (nth 2 elt))
(setq str (nth 1 elt))
(setq str (eval (nth 1 elt)))
(setq filter (plist-get plist :filter))
(if filter
(setq km (funcall filter km)))
@ -463,9 +463,7 @@ It uses the free variable `tmm-table-undef' to keep undefined keys."
(setq km nil)))
(and km str
(or (assoc str tmm-km-list)
(setq tmm-km-list
(cons (cons str (cons event km)) tmm-km-list)))
))))
(push (cons str (cons event km)) tmm-km-list))))))
(defun tmm-get-keybind (keyseq)
"Return the current binding of KEYSEQ, merging prefix definitions.