Mercurial > emacs

changeset 58544:2dce87e7b5d8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(math-grade-vec): New variable. (calcFunc-grade, calcFunc-rgrade, math-grade-beforep): Replace variable grade-vec by declared variable. (math-rb-close): New variable. (math-read-brackets, math-read-vector): Replace variable close by declared variable.
author Jay Belanger <jay.p.belanger@gmail.com>
date Fri, 26 Nov 2004 22:33:49 +0000
parents 129486947645
children e4aa15831776
files lisp/calc/calc-vec.el
diffstat 1 files changed, 26 insertions(+), 19 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calc-vec.el	Fri Nov 26 22:33:19 2004 +0000
+++ b/lisp/calc/calc-vec.el	Fri Nov 26 22:33:49 2004 +0000
@@ -3,8 +3,7 @@
 ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.
 
 ;; Author: David Gillespie <daveg@synaptics.com>
-;; Maintainers: D. Goel <deego@gnufans.org>
-;;              Colin Walters <walters@debian.org>
+;; Maintainer: Jay Belanger <belanger@truman.edu>
 
 ;; This file is part of GNU Emacs.
 
@@ -1101,21 +1100,26 @@
       (cons 'vec (nreverse (sort (copy-sequence (cdr vec)) 'math-beforep)))
     (math-reject-arg vec 'vectorp)))
 
-(defun calcFunc-grade (grade-vec)
-  (if (math-vectorp grade-vec)
-      (let* ((len (1- (length grade-vec))))
+;; The variable math-grade-vec is local to calcFunc-grade and 
+;; calcFunc-rgrade, but is used by math-grade-beforep, which is called
+;; by calcFunc-grade and calcFunc-rgrade.
+(defvar math-grade-vec)
+
+(defun calcFunc-grade (math-grade-vec)
+  (if (math-vectorp math-grade-vec)
+      (let* ((len (1- (length math-grade-vec))))
 	(cons 'vec (sort (cdr (calcFunc-index len)) 'math-grade-beforep)))
-    (math-reject-arg grade-vec 'vectorp)))
+    (math-reject-arg math-grade-vec 'vectorp)))
 
-(defun calcFunc-rgrade (grade-vec)
-  (if (math-vectorp grade-vec)
-      (let* ((len (1- (length grade-vec))))
+(defun calcFunc-rgrade (math-grade-vec)
+  (if (math-vectorp math-grade-vec)
+      (let* ((len (1- (length math-grade-vec))))
 	(cons 'vec (nreverse (sort (cdr (calcFunc-index len))
 				   'math-grade-beforep))))
-    (math-reject-arg grade-vec 'vectorp)))
+    (math-reject-arg math-grade-vec 'vectorp)))
 
 (defun math-grade-beforep (i j)
-  (math-beforep (nth i grade-vec) (nth j grade-vec)))
+  (math-beforep (nth i math-grade-vec) (nth j math-grade-vec)))
 
 
 ;;; Compile a histogram of data from a vector.
@@ -1461,14 +1465,17 @@
 
 
 
-
+;; The variable math-rb-close is local to math-read-brackets, but
+;; is used by math-read-vector, which is called (directly and
+;; indirectly) by math-read-brackets.
+(defvar math-rb-close)
 
-(defun math-read-brackets (space-sep close)
+(defun math-read-brackets (space-sep math-rb-close)
   (and space-sep (setq space-sep (not (math-check-for-commas))))
   (math-read-token)
   (while (eq math-exp-token 'space)
     (math-read-token))
-  (if (or (equal math-expr-data close)
+  (if (or (equal math-expr-data math-rb-close)
 	  (eq math-exp-token 'end))
       (progn
 	(math-read-token)
@@ -1495,7 +1502,7 @@
 		  (setq vals2 (catch 'syntax (math-read-vector))))
 		(if (and (not (stringp vals2))
 			 (or (assoc math-expr-data '(("\\ldots") ("\\dots") (";")))
-			     (equal math-expr-data close)
+			     (equal math-expr-data math-rb-close)
 			     (eq math-exp-token 'end)))
 		    (setq space-sep nil
 			  vals vals2)
@@ -1509,7 +1516,7 @@
 	    (math-read-token)
 	    (setq vals (if (> (length vals) 2)
 			   (cons 'calcFunc-mul (cdr vals)) (nth 1 vals)))
-	    (let ((exp2 (if (or (equal math-expr-data close)
+	    (let ((exp2 (if (or (equal math-expr-data math-rb-close)
 				(equal math-expr-data ")")
 				(eq math-exp-token 'end))
 			    '(var inf var-inf)
@@ -1519,14 +1526,14 @@
 			  (if (equal math-expr-data ")") 2 3)
 			  vals
 			  exp2)))
-	    (if (not (or (equal math-expr-data close)
+	    (if (not (or (equal math-expr-data math-rb-close)
 			 (equal math-expr-data ")")
 			 (eq math-exp-token 'end)))
 		(throw 'syntax "Expected `]'")))
 	(if (equal math-expr-data ";")
 	    (let ((math-exp-keep-spaces space-sep))
 	      (setq vals (cons 'vec (math-read-matrix (list vals))))))
-	(if (not (or (equal math-expr-data close)
+	(if (not (or (equal math-expr-data math-rb-close)
 		     (eq math-exp-token 'end)))
 	    (throw 'syntax "Expected `]'")))
       (or (eq math-exp-token 'end)
@@ -1557,7 +1564,7 @@
 	       (math-read-token))
 	     (and (not (eq math-exp-token 'end))
 		  (not (equal math-expr-data ";"))
-		  (not (equal math-expr-data close))
+		  (not (equal math-expr-data math-rb-close))
 		  (not (equal math-expr-data "\\dots"))
 		  (not (equal math-expr-data "\\ldots"))))
       (if (equal math-expr-data ",")