/[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.246 by kfstorm, Sat Feb 23 22:31:02 2002 UTC revision 1.247 by pj, Mon Mar 4 09:24:07 2002 UTC
# Line 473  If INSERT (the prefix arg) is non-nil, i Line 473  If INSERT (the prefix arg) is non-nil, i
473        (let ((defn (or (string-key-binding key)        (let ((defn (or (string-key-binding key)
474                        (key-binding key)))                        (key-binding key)))
475              (key-desc (key-description key)))              (key-desc (key-description key)))
476          (if (or (null defn) (integerp defn))          (if (or (null defn) (integerp defn) (equal defn 'undefined))
477              (princ (format "%s is undefined" key-desc))              (princ (format "%s is undefined" key-desc))
478            (princ (format (if (windowp window)            (princ (format (if (windowp window)
479                               "%s at that spot runs the command %s"                               "%s at that spot runs the command %s"
# Line 501  pass a string or a vector." Line 501  pass a string or a vector."
501              (set-buffer (window-buffer window))              (set-buffer (window-buffer window))
502          (goto-char position))          (goto-char position))
503        (let ((defn (or (string-key-binding key) (key-binding key))))        (let ((defn (or (string-key-binding key) (key-binding key))))
504          (if (or (null defn) (integerp defn))          (if (or (null defn) (integerp defn) (equal defn 'undefined))
505              (message "%s is undefined" (key-description key))              (message "%s is undefined" (key-description key))
506            (help-setup-xref (list #'describe-function defn) (interactive-p))            (help-setup-xref (list #'describe-function defn) (interactive-p))
507            (with-output-to-temp-buffer (help-buffer)            (with-output-to-temp-buffer (help-buffer)

Legend:
Removed from v.1.246  
changed lines
  Added in v.1.247

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