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

[Chong Yidong]

Index: emacs/lisp/help.el
diff -c emacs/lisp/help.el:1.288 emacs/lisp/help.el:1.289
*** emacs/lisp/help.el:1.288    Tue Nov 29 03:13:06 2005
--- emacs/lisp/help.el  Tue Nov 29 15:42:42 2005
***************
*** 590,596 ****
            (goto-char position)))
        ;; Ok, now look up the key and name the command.
        (let ((defn (or (string-key-binding key)
!                     (key-binding key)))
            key-desc)
        ;; Don't bother user with strings from (e.g.) the select-paste menu.
        (if (stringp (aref key (1- (length key))))
--- 590,596 ----
            (goto-char position)))
        ;; Ok, now look up the key and name the command.
        (let ((defn (or (string-key-binding key)
!                     (key-binding key t)))
            key-desc)
        ;; Don't bother user with strings from (e.g.) the select-paste menu.
        (if (stringp (aref key (1- (length key))))
***************
*** 635,641 ****
        (when (windowp window)
            (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" (help-key-description key untranslated))
          (help-setup-xref (list #'describe-function defn) (interactive-p))
--- 635,641 ----
        (when (windowp window)
            (set-buffer (window-buffer window))
        (goto-char position))
!       (let ((defn (or (string-key-binding key) (key-binding key t))))
        (if (or (null defn) (integerp defn) (equal defn 'undefined))
            (message "%s is undefined" (help-key-description key untranslated))
          (help-setup-xref (list #'describe-function defn) (interactive-p))