[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calc/calc-alg.el
From: |
Colin Walters |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calc/calc-alg.el |
Date: |
Mon, 19 Nov 2001 02:31:38 -0500 |
Index: emacs/lisp/calc/calc-alg.el
diff -u emacs/lisp/calc/calc-alg.el:1.2 emacs/lisp/calc/calc-alg.el:1.3
--- emacs/lisp/calc/calc-alg.el:1.2 Wed Nov 14 04:00:01 2001
+++ emacs/lisp/calc/calc-alg.el Mon Nov 19 02:31:38 2001
@@ -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, address@hidden
+
+;; Author: David Gillespie <address@hidden>
+;; Maintainer: Colin Walters <address@hidden>
;; 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)))))