[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calc/calc-stuff.el
From: |
Colin Walters |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calc/calc-stuff.el |
Date: |
Mon, 19 Nov 2001 02:38:14 -0500 |
Index: emacs/lisp/calc/calc-stuff.el
diff -u emacs/lisp/calc/calc-stuff.el:1.2 emacs/lisp/calc/calc-stuff.el:1.3
--- emacs/lisp/calc/calc-stuff.el:1.2 Wed Nov 14 04:07:22 2001
+++ emacs/lisp/calc/calc-stuff.el Mon Nov 19 02:38:14 2001
@@ -1,6 +1,9 @@
-;; Calculator for GNU Emacs, part II [calc-stuff.el]
+;;; calc-stuff.el --- miscellaneous 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)
@@ -68,6 +73,8 @@
(message "max-lisp-eval-depth is now %d" max-lisp-eval-depth))
+(defvar calc-which-why nil)
+(defvar calc-last-why-command nil)
(defun calc-explain-why (why &optional more)
(if (eq (car why) '*)
(setq why (cdr why)))
@@ -151,13 +158,11 @@
(message "(No further explanations available)")
(setq calc-which-why calc-why))
(message "No explanations available"))))
-(setq calc-which-why nil)
-(setq calc-last-why-command nil)
(defun calc-version ()
(interactive)
- (message "Calc %s, installed %s" calc-version calc-installed-date))
+ (message "Calc %s" calc-version))
(defun calc-flush-caches ()
@@ -179,7 +184,7 @@
math-format-date-cache nil
math-holidays-cache-tag t)
(mapcar (function (lambda (x) (set x -100))) math-cache-list)
- (message "All internal calculator caches have been reset.")))
+ (message "All internal calculator caches have been reset")))
;;; Conversions.
@@ -209,6 +214,7 @@
(error "Number required"))))))
+(defvar math-chopping-small nil)
(defun calcFunc-clean (a &optional prec) ; [X X S] [Public]
(if prec
(cond ((Math-messy-integerp prec)
@@ -250,7 +256,6 @@
((Math-objectp a) a)
((math-infinitep a) a)
(t (list 'calcFunc-clean a)))))
-(setq math-chopping-small nil)
(defun calcFunc-pclean (a &optional prec)
(math-map-over-constants (function (lambda (x) (calcFunc-clean x prec)))