/[emacs]/emacs/lisp/calc/calc-stuff.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-stuff.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by walters, Mon Nov 19 07:38:14 2001 UTC revision 1.3.4.1 by miles, Fri Apr 4 06:20:15 2003 UTC
# Line 3  Line 3 
3  ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.  ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.
4    
5  ;; Author: David Gillespie <daveg@synaptics.com>  ;; Author: David Gillespie <daveg@synaptics.com>
6  ;; Maintainer: Colin Walters <walters@debian.org>  ;; Maintainers: D. Goel <deego@gnufans.org>
7    ;;              Colin Walters <walters@debian.org>
8    
9  ;; This file is part of GNU Emacs.  ;; This file is part of GNU Emacs.
10    
# Line 165  With a prefix, push that prefix as a num Line 166  With a prefix, push that prefix as a num
166    (message "Calc %s" calc-version))    (message "Calc %s" calc-version))
167    
168    
169  (defun calc-flush-caches ()  (defun calc-flush-caches (&optional inhibit-msg)
170    (interactive)    (interactive "P")
171    (calc-wrapper    (calc-wrapper
172     (setq math-lud-cache nil     (setq math-lud-cache nil
173           math-log2-cache nil           math-log2-cache nil
# Line 184  With a prefix, push that prefix as a num Line 185  With a prefix, push that prefix as a num
185           math-format-date-cache nil           math-format-date-cache nil
186           math-holidays-cache-tag t)           math-holidays-cache-tag t)
187     (mapcar (function (lambda (x) (set x -100))) math-cache-list)     (mapcar (function (lambda (x) (set x -100))) math-cache-list)
188     (message "All internal calculator caches have been reset")))     (unless inhibit-msg
189         (message "All internal calculator caches have been reset"))))
190    
191    
192  ;;; Conversions.  ;;; Conversions.
# Line 207  With a prefix, push that prefix as a num Line 209  With a prefix, push that prefix as a num
209  (defun calc-clean-num (num)  (defun calc-clean-num (num)
210    (interactive "P")    (interactive "P")
211    (calc-clean (- (if num    (calc-clean (- (if num
212                       (prefix-numeric-value num)                       (prefix-numeric-value num)
213                     (if (and (>= last-command-char ?0)                     (if (and (>= last-command-char ?0)
214                              (<= last-command-char ?9))                              (<= last-command-char ?9))
215                         (- last-command-char ?0)                         (- last-command-char ?0)

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.3.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26