207 |
(princ ".") |
(princ ".") |
208 |
(terpri) |
(terpri) |
209 |
(when (commandp function) |
(when (commandp function) |
210 |
(let* ((binding (and (symbolp function) (commandp function) |
(let* ((remapped (remap-command function)) |
|
(key-binding function nil t))) |
|
|
(remapped (and (symbolp binding) (commandp binding) binding)) |
|
211 |
(keys (where-is-internal |
(keys (where-is-internal |
212 |
(or remapped function) overriding-local-map nil nil))) |
(or remapped function) overriding-local-map nil nil))) |
213 |
(when remapped |
(when remapped |