emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/calc/calc-mtx.el


From: Colin Walters
Subject: [Emacs-diffs] Changes to emacs/lisp/calc/calc-mtx.el
Date: Mon, 19 Nov 2001 02:37:12 -0500

Index: emacs/lisp/calc/calc-mtx.el
diff -u emacs/lisp/calc/calc-mtx.el:1.2 emacs/lisp/calc/calc-mtx.el:1.3
--- emacs/lisp/calc/calc-mtx.el:1.2     Wed Nov 14 04:06:29 2001
+++ emacs/lisp/calc/calc-mtx.el Mon Nov 19 02:37:12 2001
@@ -1,6 +1,9 @@
-;; Calculator for GNU Emacs, part II [calc-mat.el]
+;;; calc-mtx.el --- matrix 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,6 +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.
@@ -215,6 +221,7 @@
 
 ;;; This returns a list (LU index d), or NIL if not possible.
 ;;; Argument M must be a square matrix.
+(defvar math-lud-cache nil)
 (defun math-matrix-lud (m)
   (let ((old (assoc m math-lud-cache))
        (context (list calc-internal-prec calc-prefer-frac)))
@@ -226,7 +233,6 @@
            (setcdr old entry)
          (setq math-lud-cache (cons (cons m entry) math-lud-cache)))
        lud))))
-(defvar math-lud-cache nil)
 
 ;;; Numerical Recipes section 2.3; implicit pivoting omitted.
 (defun math-do-matrix-lud (m)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]