Mercurial > emacs

comparison lisp/calc/calc.el @ 61094:e1aa8774d8a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update copyright date. (calc-version): Increase to 2.1 (calc-version-date): Remove.
author Jay Belanger <jay.p.belanger@gmail.com>
date Tue, 29 Mar 2005 16:15:49 +0000
parents a91fcdcbdd69
children a513872cd8a1 4da4a09e8b1b
comparison
equal deleted inserted replaced
61093:27c2765e06c8 61094:e1aa8774d8a0
1 ;;; calc.el --- the GNU Emacs calculator 1 ;;; calc.el --- the GNU Emacs calculator
2 2
3 ;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2003, 2004 Free Software Foundation, Inc. 3 ;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2003, 2004, 2005
4 ;; Free Software Foundation, Inc.
4 5
5 ;; Author: David Gillespie <daveg@synaptics.com> 6 ;; Author: David Gillespie <daveg@synaptics.com>
6 ;; Maintainer: Jay Belanger <belanger@truman.edu> 7 ;; Maintainer: Jay Belanger <belanger@truman.edu>
7 ;; Keywords: convenience, extensions 8 ;; Keywords: convenience, extensions
8 ;; Version: 2.02g 9 ;; Version: 2.02g
654 (put 'math-overflow 'error-conditions '(error math-overflow calc-error)) 655 (put 'math-overflow 'error-conditions '(error math-overflow calc-error))
655 (put 'math-overflow 'error-message "Floating-point overflow occurred") 656 (put 'math-overflow 'error-message "Floating-point overflow occurred")
656 (put 'math-underflow 'error-conditions '(error math-underflow calc-error)) 657 (put 'math-underflow 'error-conditions '(error math-underflow calc-error))
657 (put 'math-underflow 'error-message "Floating-point underflow occurred") 658 (put 'math-underflow 'error-message "Floating-point underflow occurred")
658 659
659 (defconst calc-version "2.02g") 660 (defconst calc-version "2.1")
660 (defconst calc-version-date "Mon Nov 19 2001")
661 (defvar calc-trail-pointer nil) ; "Current" entry in trail buffer. 661 (defvar calc-trail-pointer nil) ; "Current" entry in trail buffer.
662 (defvar calc-trail-overlay nil) ; Value of overlay-arrow-string. 662 (defvar calc-trail-overlay nil) ; Value of overlay-arrow-string.
663 (defvar calc-undo-list nil) ; List of previous operations for undo. 663 (defvar calc-undo-list nil) ; List of previous operations for undo.
664 (defvar calc-redo-list nil) ; List of recent undo operations. 664 (defvar calc-redo-list nil) ; List of recent undo operations.
665 (defvar calc-main-buffer nil) ; Pointer to Calculator buffer. 665 (defvar calc-main-buffer nil) ; Pointer to Calculator buffer.