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

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      08/11/15 06:19:12

Index: help-fns.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/help-fns.el,v
retrieving revision 1.129
retrieving revision 1.130
diff -u -b -r1.129 -r1.130
--- help-fns.el 25 Oct 2008 01:31:35 -0000      1.129
+++ help-fns.el 15 Nov 2008 06:19:12 -0000      1.130
@@ -413,16 +413,16 @@
                                  (point)))
       (terpri)(terpri)
       (when (commandp function)
-       (let ((pt2 (with-current-buffer (help-buffer) (point))))
-         (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
+       (let ((pt2 (with-current-buffer (help-buffer) (point)))
+             (remapped (command-remapping function)))
+         (unless (memq remapped '(ignore undefined))
+           (let ((keys (where-is-internal
                          (or remapped function) overriding-local-map nil nil))
                   non-modified-keys)
+             (if (and (eq function 'self-insert-command)
+                      (vectorp (car-safe keys))
+                      (consp (aref (car keys) 0)))
+                 (princ "It is bound to many ordinary text characters.\n")
              ;; Which non-control non-meta keys run this command?
              (dolist (key keys)
                (if (member (event-modifiers (aref key 0)) '(nil (shift)))
@@ -447,7 +447,8 @@
                    (princ "many ordinary text characters"))))
              (when (or remapped keys non-modified-keys)
                (princ ".")
-               (terpri))))
+                 (terpri)))))
+
          (with-current-buffer (help-buffer)
            (fill-region-as-paragraph pt2 (point))
            (unless (looking-back "\n\n")