412 |
(list (if (equal val "") |
(list (if (equal val "") |
413 |
fn (intern val)) |
fn (intern val)) |
414 |
current-prefix-arg))) |
current-prefix-arg))) |
415 |
(let* ((keys (where-is-internal definition overriding-local-map nil nil)) |
(let* ((binding (and (symbolp definition) (commandp definition) |
416 |
|
(key-binding definition nil t))) |
417 |
|
(remap (and (symbolp binding) (commandp binding) binding)) |
418 |
|
(keys (where-is-internal definition overriding-local-map nil nil remap)) |
419 |
(keys1 (mapconcat 'key-description keys ", ")) |
(keys1 (mapconcat 'key-description keys ", ")) |
420 |
(standard-output (if insert (current-buffer) t))) |
(standard-output (if insert (current-buffer) t))) |
421 |
(if insert |
(if insert |
422 |
(if (> (length keys1) 0) |
(if (> (length keys1) 0) |
423 |
(princ (format "%s (%s)" keys1 definition)) |
(if remap |
424 |
|
(princ (format "%s (%s) (remapped from %s)" keys1 remap definition)) |
425 |
|
(princ (format "%s (%s)" keys1 definition))) |
426 |
(princ (format "M-x %s RET" definition))) |
(princ (format "M-x %s RET" definition))) |
427 |
(if (> (length keys1) 0) |
(if (> (length keys1) 0) |
428 |
(princ (format "%s is on %s" definition keys1)) |
(if remap |
429 |
|
(princ (format "%s is remapped to %s which is on %s" definition remap keys1)) |
430 |
|
(princ (format "%s is on %s" definition keys1))) |
431 |
(princ (format "%s is not on any key" definition))))) |
(princ (format "%s is not on any key" definition))))) |
432 |
nil) |
nil) |
433 |
|
|