Mercurial > emacs

comparison lisp/calc/calc-help.el @ 90918:e9f94688a064

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 781-792) - Update from CVS - Merge from gnus--rel--5.10 - Merge from emacs--rel--22 * emacs--rel--22 (patch 33-41) * gnus--rel--5.10 (patch 226-228) - Update from CVS Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-219
author Miles Bader <miles@gnu.org>
date Mon, 11 Jun 2007 00:58:11 +0000
parents e6fdae9180d4 81426ba0e7d8
children f55f9811f5d7
comparison
equal deleted inserted replaced
90917:9f1c3e957d3e 90918:e9f94688a064
412 (interactive) 412 (interactive)
413 (with-output-to-temp-buffer "*Help*" 413 (with-output-to-temp-buffer "*Help*"
414 (princ (format "GNU Emacs Calculator version %s.\n" 414 (princ (format "GNU Emacs Calculator version %s.\n"
415 calc-version)) 415 calc-version))
416 (princ " By Dave Gillespie.\n") 416 (princ " By Dave Gillespie.\n")
417 (princ " Copyright (C) 2007 Free Software Foundation, Inc.\n\n") 417 (princ (format " %s\n\n" emacs-copyright))
418 (princ "Type `h s' for a more detailed summary.\n") 418 (princ "Type `h s' for a more detailed summary.\n")
419 (princ "Or type `h i' to read the full Calc manual on-line.\n\n") 419 (princ "Or type `h i' to read the full Calc manual on-line.\n\n")
420 (princ "Basic keys:\n") 420 (princ "Basic keys:\n")
421 (let* ((calc-full-help-flag t)) 421 (let* ((calc-full-help-flag t))
422 (mapcar (function (lambda (x) (princ (format " %s\n" x)))) 422 (mapcar (function (lambda (x) (princ (format " %s\n" x))))