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

[Pavel Janík]

Index: emacs/lisp/help.el
diff -c emacs/lisp/help.el:1.246 emacs/lisp/help.el:1.247
*** emacs/lisp/help.el:1.246    Sat Feb 23 17:31:02 2002
--- emacs/lisp/help.el  Mon Mar  4 04:24:07 2002
***************
*** 473,479 ****
        (let ((defn (or (string-key-binding key)
                      (key-binding key)))
            (key-desc (key-description key)))
!       (if (or (null defn) (integerp defn))
            (princ (format "%s is undefined" key-desc))
          (princ (format (if (windowp window)
                             "%s at that spot runs the command %s"
--- 473,479 ----
        (let ((defn (or (string-key-binding key)
                      (key-binding key)))
            (key-desc (key-description key)))
!       (if (or (null defn) (integerp defn) (equal defn 'undefined))
            (princ (format "%s is undefined" key-desc))
          (princ (format (if (windowp window)
                             "%s at that spot runs the command %s"
***************
*** 501,507 ****
            (set-buffer (window-buffer window))
        (goto-char position))
        (let ((defn (or (string-key-binding key) (key-binding key))))
!       (if (or (null defn) (integerp defn))
            (message "%s is undefined" (key-description key))
          (help-setup-xref (list #'describe-function defn) (interactive-p))
          (with-output-to-temp-buffer (help-buffer)
--- 501,507 ----
            (set-buffer (window-buffer window))
        (goto-char position))
        (let ((defn (or (string-key-binding key) (key-binding key))))
!       (if (or (null defn) (integerp defn) (equal defn 'undefined))
            (message "%s is undefined" (key-description key))
          (help-setup-xref (list #'describe-function defn) (interactive-p))
          (with-output-to-temp-buffer (help-buffer)