Mercurial > emacs
comparison lisp/calc/calc-help.el @ 41271:fcd507927105
Change all toplevel `setq' forms to `defvar' forms, and move them
before their first use. Use `when', `unless'. Remove trailing
periods from error forms. Add description and headers suggested by
Emacs Lisp coding conventions.
author | Colin Walters <walters@gnu.org> |
---|---|
date | Mon, 19 Nov 2001 07:43:43 +0000 |
parents | 73f364fd8aaa |
children | 955efae16491 |
comparison
equal
deleted
inserted
replaced
41270:711f18abaf57 | 41271:fcd507927105 |
---|---|
1 ;; Calculator for GNU Emacs, part II [calc-help.el] | 1 ;;; calc-help.el --- help display functions for Calc, |
2 | |
2 ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. |
3 ;; Written by Dave Gillespie, daveg@synaptics.com. | 4 |
5 ;; Author: David Gillespie <daveg@synaptics.com> | |
6 ;; Maintainer: Colin Walters <walters@debian.org> | |
4 | 7 |
5 ;; This file is part of GNU Emacs. | 8 ;; This file is part of GNU Emacs. |
6 | 9 |
7 ;; GNU Emacs is distributed in the hope that it will be useful, | 10 ;; GNU Emacs is distributed in the hope that it will be useful, |
8 ;; but WITHOUT ANY WARRANTY. No author or distributor | 11 ;; but WITHOUT ANY WARRANTY. No author or distributor |
17 ;; supposed to have been given to you along with GNU Emacs so you | 20 ;; supposed to have been given to you along with GNU Emacs so you |
18 ;; can know your rights and responsibilities. It should be in a | 21 ;; can know your rights and responsibilities. It should be in a |
19 ;; file named COPYING. Among other things, the copyright notice | 22 ;; file named COPYING. Among other things, the copyright notice |
20 ;; and this notice must be preserved on all copies. | 23 ;; and this notice must be preserved on all copies. |
21 | 24 |
22 | 25 ;;; Commentary: |
26 | |
27 ;;; Code: | |
23 | 28 |
24 ;; This file is autoloaded from calc-ext.el. | 29 ;; This file is autoloaded from calc-ext.el. |
25 (require 'calc-ext) | 30 (require 'calc-ext) |
26 | 31 |
27 (require 'calc-macs) | 32 (require 'calc-macs) |
379 (interactive) | 384 (interactive) |
380 (with-output-to-temp-buffer "*Help*" | 385 (with-output-to-temp-buffer "*Help*" |
381 (princ (format "GNU Emacs Calculator version %s of %s.\n" | 386 (princ (format "GNU Emacs Calculator version %s of %s.\n" |
382 calc-version calc-version-date)) | 387 calc-version calc-version-date)) |
383 (princ " By Dave Gillespie, daveg@synaptics.com.\n") | 388 (princ " By Dave Gillespie, daveg@synaptics.com.\n") |
384 (princ (format " Installed %s.\n" calc-installed-date)) | |
385 (princ " Copyright (C) 1990, 1993 Free Software Foundation, Inc.\n\n") | 389 (princ " Copyright (C) 1990, 1993 Free Software Foundation, Inc.\n\n") |
386 (princ "Type `h s' for a more detailed summary.\n") | 390 (princ "Type `h s' for a more detailed summary.\n") |
387 (princ "Or type `h i' to read the full Calc manual on-line.\n\n") | 391 (princ "Or type `h i' to read the full Calc manual on-line.\n\n") |
388 (princ "Basic keys:\n") | 392 (princ "Basic keys:\n") |
389 (let* ((calc-full-help-flag t)) | 393 (let* ((calc-full-help-flag t)) |