Mercurial > emacs

comparison lisp/calc/calc-help.el @ 79700:a0995ad442d5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-full-help): Use emacs-copyright.
author Glenn Morris <rgm@gnu.org>
date Mon, 07 Jan 2008 00:58:49 +0000
parents 095d08e7d6bb
children 107ccd98fa12
comparison
equal deleted inserted replaced
79699:1ad384d8d37a 79700:a0995ad442d5
1 ;;; calc-help.el --- help display functions for Calc, 1 ;;; calc-help.el --- help display functions for Calc,
2 2
3 ;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2003, 2004, 3 ;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2003, 2004,
4 ;; 2005, 2006, 2007 Free Software Foundation, Inc. 4 ;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
5 5
6 ;; Author: David Gillespie <daveg@synaptics.com> 6 ;; Author: David Gillespie <daveg@synaptics.com>
7 ;; Maintainer: Jay Belanger <jay.p.belanger@gmail.com> 7 ;; Maintainer: Jay Belanger <jay.p.belanger@gmail.com>
8 8
9 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
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))))