291 |
(princ ".") |
(princ ".") |
292 |
(terpri) |
(terpri) |
293 |
(when (commandp function) |
(when (commandp function) |
294 |
(let* ((remapped (remap-command function)) |
(let* ((remapped (command-remapping function)) |
295 |
(keys (where-is-internal |
(keys (where-is-internal |
296 |
(or remapped function) overriding-local-map nil nil))) |
(or remapped function) overriding-local-map nil nil))) |
297 |
(when remapped |
(when remapped |
298 |
(princ "It is remapped to `") |
(princ "It is remapped to `") |
299 |
(princ (symbol-name remapped)) |
(princ (symbol-name remapped)) |