/[emacs]/emacs/lisp/help.el
ViewVC logotype

Diff of /emacs/lisp/help.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.252 by monnier, Tue Jul 16 16:08:44 2002 UTC revision 1.253 by lektu, Thu Nov 7 16:45:46 2002 UTC
# Line 420  If INSERT (the prefix arg) is non-nil, i Line 420  If INSERT (the prefix arg) is non-nil, i
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)

Legend:
Removed from v.1.252  
changed lines
  Added in v.1.253

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26