/[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.244 by kfstorm, Wed Feb 6 23:03:56 2002 UTC revision 1.245 by rms, Fri Feb 15 19:59:25 2002 UTC
# Line 477  If INSERT (the prefix arg) is non-nil, i Line 477  If INSERT (the prefix arg) is non-nil, i
477              (key-desc (key-description key)))              (key-desc (key-description key)))
478          (if (or (null defn) (integerp defn))          (if (or (null defn) (integerp defn))
479              (princ (format "%s is undefined" key-desc))              (princ (format "%s is undefined" key-desc))
480            (princ (format (if insert            (princ (format (if (windowp window)
481                               "`%s' (`%s')"                               "%s at that spot runs the command %s"
482                             (if (windowp window)                             "%s runs the command %s")
                                "%s at that spot runs the command %s"  
                              "%s runs the command %s"))  
483                           key-desc                           key-desc
484                           (if (symbolp defn) defn (prin1-to-string defn)))))))))                           (if (symbolp defn) defn (prin1-to-string defn)))))))))
485    

Legend:
Removed from v.1.244  
changed lines
  Added in v.1.245

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