420 |
(list (if (equal val "") |
(list (if (equal val "") |
421 |
fn (intern val)) |
fn (intern val)) |
422 |
current-prefix-arg))) |
current-prefix-arg))) |
423 |
(let* ((remapped (remap-command definition)) |
(let ((func (indirect-function definition)) |
424 |
(keys (where-is-internal definition overriding-local-map nil nil remapped)) |
(map nil) |
425 |
(keys1 (mapconcat 'key-description keys ", ")) |
(standard-output (if insert (current-buffer) t))) |
426 |
(standard-output (if insert (current-buffer) t))) |
(mapatoms #'(lambda (symbol) |
427 |
(if insert |
(when (and (not (eq symbol definition)) |
428 |
(if (> (length keys1) 0) |
(fboundp symbol) |
429 |
(if remapped |
(eq func (indirect-function symbol))) |
430 |
(princ (format "%s (%s) (remapped from %s)" keys1 remapped definition)) |
(setq map (cons symbol map))))) |
431 |
(princ (format "%s (%s)" keys1 definition))) |
(princ (mapconcat |
432 |
(princ (format "M-x %s RET" definition))) |
#'(lambda (symbol) |
433 |
(if (> (length keys1) 0) |
(let* ((remapped (remap-command symbol)) |
434 |
(if remapped |
(keys (mapconcat 'key-description |
435 |
(princ (format "%s is remapped to %s which is on %s" definition remapped keys1)) |
(where-is-internal symbol |
436 |
(princ (format "%s is on %s" definition keys1))) |
overriding-local-map |
437 |
(princ (format "%s is not on any key" definition))))) |
nil nil |
438 |
|
remapped) |
439 |
|
", "))) |
440 |
|
(if insert |
441 |
|
(if (> (length keys) 0) |
442 |
|
(if remapped |
443 |
|
(format "%s (%s) (remapped from %s)" |
444 |
|
keys remapped symbol) |
445 |
|
(format "%s (%s)" keys symbol)) |
446 |
|
(format "M-x %s RET" symbol)) |
447 |
|
(if (> (length keys) 0) |
448 |
|
(if remapped |
449 |
|
(format "%s is remapped to %s which is on %s" |
450 |
|
definition symbol keys) |
451 |
|
(format "%s is on %s" symbol keys)) |
452 |
|
(format "%s is not on any key" symbol))))) |
453 |
|
(cons definition map) |
454 |
|
";\nand "))) |
455 |
nil) |
nil) |
456 |
|
|
457 |
(defun string-key-binding (key) |
(defun string-key-binding (key) |