[Emacs-diffs] Changes to emacs/lisp/help-fns.el,v

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Richard M. Stallman <rms>       06/10/16 14:57:01

Index: help-fns.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/help-fns.el,v
retrieving revision 1.90
retrieving revision 1.91
diff -u -b -r1.90 -r1.91
--- help-fns.el 12 Jul 2006 15:58:10 -0000      1.90
+++ help-fns.el 16 Oct 2006 14:57:01 -0000      1.91
@@ -383,6 +383,11 @@
     (princ ".")
     (terpri)
     (when (commandp function)
+      (if (and (eq function 'self-insert-command)
+              (eq (key-binding "a") 'self-insert-command)
+              (eq (key-binding "b") 'self-insert-command)
+              (eq (key-binding "c") 'self-insert-command))
+         (princ "It is bound to many ordinary text characters.\n")
       (let* ((remapped (command-remapping function))
             (keys (where-is-internal
                    (or remapped function) overriding-local-map nil nil))
@@ -398,8 +403,8 @@
 
        (when keys
          (princ (if remapped " which is bound to " "It is bound to "))
-         ;; FIXME: This list can be very long (f.ex. for self-insert-command).
-         ;; If there are many, remove them from KEYS.
+           ;; If lots of ordinary text characters run this command,
+           ;; don't mention them one by one.
          (if (< (length non-modified-keys) 10)
              (princ (mapconcat 'key-description keys ", "))
            (dolist (key non-modified-keys)
@@ -411,7 +416,7 @@
              (princ "many ordinary text characters"))))
        (when (or remapped keys non-modified-keys)
          (princ ".")
-         (terpri))))
+           (terpri)))))
     (let* ((arglist (help-function-arglist def))
           (doc (documentation function))
           (usage (help-split-fundoc doc function)))