Mercurial > emacs
comparison lisp/calc/calc-help.el @ 90737:95d0cdf160ea
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 586-614)
- Update from CVS
- Update from erc--emacs--22
- Merge from gnus--rel--5.10
- Merge from erc--main--0
- Make byte compiler correctly write circular constants
* gnus--rel--5.10 (patch 186-196)
- Update from CVS
- Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-162
author | Miles Bader <miles@gnu.org> |
---|---|
date | Fri, 26 Jan 2007 06:16:11 +0000 |
parents | c5406394f567 7a3f13e2dd57 |
children | c0409ee15cee |
comparison
equal
deleted
inserted
replaced
90736:ef1369583937 | 90737:95d0cdf160ea |
---|---|
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 Free Software Foundation, Inc. | 4 ;; 2005, 2006, 2007 Free Software Foundation, Inc. |
5 | 5 |
6 ;; Author: David Gillespie <daveg@synaptics.com> | 6 ;; Author: David Gillespie <daveg@synaptics.com> |
7 ;; Maintainer: Jay Belanger <belanger@truman.edu> | 7 ;; Maintainer: Jay Belanger <belanger@truman.edu> |
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) 2006 Free Software Foundation, Inc.\n\n") | 417 (princ " Copyright (C) 2007 Free Software Foundation, Inc.\n\n") |
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)))) |