equal
deleted
inserted
replaced
131 ) |
131 ) |
132 |
132 |
133 (defun my-lookup-key (key) |
133 (defun my-lookup-key (key) |
134 "Search for KEY in all known keymaps." |
134 "Search for KEY in all known keymaps." |
135 (mapatoms (lambda (ob) (when (and (boundp ob) (keymapp (symbol-value ob))) |
135 (mapatoms (lambda (ob) (when (and (boundp ob) (keymapp (symbol-value ob))) |
136 (when (lookup-key (symbol-value ob) key) |
136 (when (functionp (lookup-key (symbol-value ob) key)) |
137 (message "%S" ob)))) |
137 (message "%S" ob)))) |
138 obarray)) |
138 obarray)) |
139 |
139 |
140 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
140 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
141 (message "lisp, elisp") |
141 (message "lisp, elisp") |