Mercurial > emacs
diff lisp/calc/calc-alg.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 | 3e8874c2e70c |
| children | 2406cf2da1d4 |
line wrap: on
line diff
--- a/lisp/calc/calc-alg.el Mon Nov 19 07:43:05 2001 +0000 +++ b/lisp/calc/calc-alg.el Mon Nov 19 07:43:43 2001 +0000 @@ -1,6 +1,9 @@ -;; Calculator for GNU Emacs, part II [calc-alg.el] +;;; calc-alg.el --- algebraic functions for Calc + ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. -;; Written by Dave Gillespie, daveg@synaptics.com. + +;; Author: David Gillespie <daveg@synaptics.com> +;; Maintainer: Colin Walters <walters@debian.org> ;; This file is part of GNU Emacs. @@ -19,7 +22,9 @@ ;; file named COPYING. Among other things, the copyright notice ;; and this notice must be preserved on all copies. +;;; Commentary: +;;; Code: ;; This file is autoloaded from calc-ext.el. (require 'calc-ext) @@ -28,7 +33,6 @@ (defun calc-Need-calc-alg () nil) - ;;; Algebra commands. (defun calc-alg-evaluate (arg) @@ -169,7 +173,7 @@ (if (eq (car-safe old) 'error) (error "Bad format in expression: %s" (nth 1 old))) (or (math-expr-contains expr old) - (error "No occurrences found."))) + (error "No occurrences found"))) (calc-enter-result num "sbst" (math-expr-subst expr old new)))))