home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume26 / gnucalc / patch01 next >
Text File  |  1991-11-25  |  58KB  |  1,597 lines
  1. Newsgroups: comp.sources.misc
  2. From: daveg@synaptics.com (David Gillespie)
  3. Subject:  v26i068:  gnucalc - GNU Emacs Calculator, Patch01
  4. Message-ID: <1991Nov26.032130.29517@sparky.imd.sterling.com>
  5. X-Md4-Signature: 02c138808c750dc841b38a3b691ec542
  6. Date: Tue, 26 Nov 1991 03:21:30 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: daveg@synaptics.com (David Gillespie)
  10. Posting-number: Volume 26, Issue 68
  11. Archive-name: gnucalc/patch01
  12. Environment: Emacs
  13. Patch-To: gnucalc: Volume 24, Issue 49-104
  14.  
  15. The following patches convert Calc version 2.00 into Calc
  16. version 2.01.  To apply them automatically with Patch v2.0,
  17. first cd into your Calc distribution directory, then execute
  18. "patch < calc.patch", where "calc.patch" is the name of this file.
  19.  
  20. A list of changes appears at the end of the README file.  Several
  21. bugs that prevented Calc from being installed or loaded on certain
  22. systems have been fixed.  A few other bugs have been fixed, and one
  23. new feature (some commands for manipulating percentages) has been
  24. introduced.
  25.  
  26. Patches and complete tar files are also available for anonymous FTP
  27. from csvax.cs.caltech.edu [131.215.131.131], in the "pub" subdirectory.
  28.  
  29. Enjoy!
  30.                                                         -- Dave
  31.  
  32. Dave Gillespie
  33. daveg@synaptics.com (or daveg@csvax.cs.caltech.edu)
  34.  
  35.  
  36. *** README    Sun Oct 27 14:57:27 1991
  37. --- ../dist/README    Thu Nov 21 23:23:16 1991
  38. ***************
  39. *** 1,5 ****
  40.   
  41. ! This directory contains version 2.00 of Calc, an advanced desk
  42.   calculator for GNU Emacs.
  43.   
  44.   "Calc"  Copyright 1990, 1991  Free Software Foundation, Inc.
  45. --- 1,5 ----
  46.   
  47. ! This directory contains version 2.01 of Calc, an advanced desk
  48.   calculator for GNU Emacs.
  49.   
  50.   "Calc"  Copyright 1990, 1991  Free Software Foundation, Inc.
  51. ***************
  52. *** 53,65 ****
  53.   
  54.   To install Calc:
  55.   
  56. !   1. Type "uncompress calc-2.00.tar.Z"
  57.   
  58. !   2. Type "tar xvf calc-2.00.tar"
  59.   
  60. ! 1,2. Alternatively: "zcat calc-2.00.tar.Z | tar xvf -"
  61.   
  62. !   3. Note that the Calc tar file now creates a "calc-2.00" subdirectory
  63.        of the current directory in which to place its files.
  64.   
  65.     4. Follow the instructions in the file "INSTALL".
  66. --- 53,65 ----
  67.   
  68.   To install Calc:
  69.   
  70. !   1. Type "uncompress calc-2.01.tar.Z"
  71.   
  72. !   2. Type "tar xvf calc-2.01.tar"
  73.   
  74. ! 1,2. Alternatively: "zcat calc-2.01.tar.Z | tar xvf -"
  75.   
  76. !   3. Note that the Calc tar file now creates a "calc-2.01" subdirectory
  77.        of the current directory in which to place its files.
  78.   
  79.     4. Follow the instructions in the file "INSTALL".
  80. ***************
  81. *** 69,75 ****
  82.   Calc is written entirely in Emacs Lisp, for maximum portability.
  83.   You do not need to recompile Emacs to install and use Calc.
  84.   
  85. ! You will need about eight megabytes of disk space to install Calc
  86.   and its Info documentation.
  87.   
  88.   See the file INSTALL for installation instructions.  The instructions
  89. --- 69,75 ----
  90.   Calc is written entirely in Emacs Lisp, for maximum portability.
  91.   You do not need to recompile Emacs to install and use Calc.
  92.   
  93. ! You will need about six megabytes of disk space to install Calc
  94.   and its Info documentation.
  95.   
  96.   See the file INSTALL for installation instructions.  The instructions
  97. ***************
  98. *** 90,96 ****
  99.   
  100.   The latest Calc tar files and patches are always available for anonymous
  101.   FTP on csvax.cs.caltech.edu [131.215.131.131].  Look in the "pub"
  102. ! subdirectory.  Calc may also be available soon on prep.ai.mit.edu.
  103.   
  104.   Thanks,
  105.   
  106. --- 90,97 ----
  107.   
  108.   The latest Calc tar files and patches are always available for anonymous
  109.   FTP on csvax.cs.caltech.edu [131.215.131.131].  Look in the "pub"
  110. ! subdirectory.  Calc is also available on prep.ai.mit.edu, and in the
  111. ! archives of the comp.sources.misc Usenet group.
  112.   
  113.   Thanks,
  114.   
  115. ***************
  116. *** 104,109 ****
  117. --- 105,137 ----
  118.   ------- -- ------- --  ----
  119.   
  120.   
  121. + Version 2.01:
  122. + 
  123. +  * Added percentage commands `M-%', `b %', and `c %'.
  124. + 
  125. +  * Changed Big mode to force radix-10 in superscripts.
  126. + 
  127. +  * Improved display of fractions in various language modes.
  128. + 
  129. +  * Changed `a n' to work properly with equations and inequalities.
  130. + 
  131. +  * The problem with cross references to Index nodes in TeX has been fixed.
  132. + 
  133. +  * Fixed a bug where recursive esc-maps make calc-ext/-aent unloadable.
  134. + 
  135. +  * Fixed a bug in `M-# k', then `OFF' right away, with fresh Emacs.
  136. + 
  137. +  * Fixed a bug in which "S_i_j" was formatted wrong after `j s'.
  138. + 
  139. +  * Fixed a bug in which `h k u c' positioned cursor on wrong line.
  140. + 
  141. +  * Fixed a bug where `z ?' crashed if `z %' was defined.
  142. + 
  143. +  * Fixed a bug in `j O' (calc-select-once-maybe).
  144. + 
  145. +  * Fixed "make private" not to ask "Delete excess versions" and crash.
  146. + 
  147. + 
  148.   Version 2.00:
  149.   
  150.    * First complete posting of Calc since 1.01.
  151. *** INSTALL    Sun Oct 27 14:57:28 1991
  152. --- ../dist/INSTALL    Thu Nov 21 23:23:17 1991
  153. ***************
  154. *** 2,8 ****
  155.   Installation
  156.   ************
  157.   
  158. ! Calc 2.00 comes as a set of GNU Emacs Lisp files, with names like
  159.   `calc.el' and `calc-ext.el', and also as a `calc.texinfo' file which
  160.   can be used to generate both on-line and printed documentation.
  161.   
  162. --- 2,8 ----
  163.   Installation
  164.   ************
  165.   
  166. ! Calc 2.01 comes as a set of GNU Emacs Lisp files, with names like
  167.   `calc.el' and `calc-ext.el', and also as a `calc.texinfo' file which
  168.   can be used to generate both on-line and printed documentation.
  169.   
  170. ***************
  171. *** 142,150 ****
  172.      Unless you have installed the Calc files in Emacs' main `lisp/'
  173.   directory, you will also have to add a command that looks like the
  174.   following to tell Emacs where to find them.  In this example, we have
  175. ! put the files in directory `/usr/gnu/src/calc-2.00'.
  176.   
  177. !      (setq load-path (append load-path (list "/usr/gnu/src/calc-2.00")))
  178.   
  179.   The `make public' and `make private' commands also do this (they use
  180.   the then-current directory as the name to add to the path).  If you
  181. --- 142,150 ----
  182.      Unless you have installed the Calc files in Emacs' main `lisp/'
  183.   directory, you will also have to add a command that looks like the
  184.   following to tell Emacs where to find them.  In this example, we have
  185. ! put the files in directory `/usr/gnu/src/calc-2.01'.
  186.   
  187. !      (setq load-path (append load-path (list "/usr/gnu/src/calc-2.01")))
  188.   
  189.   The `make public' and `make private' commands also do this (they use
  190.   the then-current directory as the name to add to the path).  If you
  191. ***************
  192. *** 187,198 ****
  193.   `autoload' command for `calc-dispatch'.  If that name included
  194.   directory information, Calc adds that directory to the `load-path':
  195.   
  196. !      (autoload 'calc-dispatch "calc-2.00/calc" "Calculator" t)
  197.   
  198.   Suppose the directory `/usr/gnu/src/emacs/lisp' is on the path, and
  199.   the above `autoload' allows Emacs to find Calc under the name
  200. ! `/usr/gnu/src/emacs/lisp/calc-2.00/calc.elc'.  Then when Calc starts
  201. ! up it will add `/usr/gnu/src/emacs/lisp/calc-2.00' to the path so that
  202.   it will later be able to find its component files.
  203.   
  204.      If the above strategy does not locate the component files, Calc
  205. --- 187,198 ----
  206.   `autoload' command for `calc-dispatch'.  If that name included
  207.   directory information, Calc adds that directory to the `load-path':
  208.   
  209. !      (autoload 'calc-dispatch "calc-2.01/calc" "Calculator" t)
  210.   
  211.   Suppose the directory `/usr/gnu/src/emacs/lisp' is on the path, and
  212.   the above `autoload' allows Emacs to find Calc under the name
  213. ! `/usr/gnu/src/emacs/lisp/calc-2.01/calc.elc'.  Then when Calc starts
  214. ! up it will add `/usr/gnu/src/emacs/lisp/calc-2.01' to the path so that
  215.   it will later be able to find its component files.
  216.   
  217.      If the above strategy does not locate the component files, Calc
  218. ***************
  219. *** 313,319 ****
  220.   copy if you really need it.  To print the manual, you will need the
  221.   TeX typesetting program (this is a free program by Donald Knuth at
  222.   Stanford University) as well as the `texindex' program and
  223. ! `texinfo.tex' file that come with GNU Emacs.
  224.   
  225.      To print the Calc manual in one huge 550 page tome, type `make tex'. 
  226.   This will take care of running the manual through TeX twice so that
  227. --- 313,320 ----
  228.   copy if you really need it.  To print the manual, you will need the
  229.   TeX typesetting program (this is a free program by Donald Knuth at
  230.   Stanford University) as well as the `texindex' program and
  231. ! `texinfo.tex' file, both of which can be obtained from the FSF under
  232. ! the name `texinfo2'.
  233.   
  234.      To print the Calc manual in one huge 550 page tome, type `make tex'. 
  235.   This will take care of running the manual through TeX twice so that
  236. *** Makefile    Sun Oct 27 14:57:28 1991
  237. --- ../dist/Makefile    Thu Nov 21 23:23:17 1991
  238. ***************
  239. *** 1,7 ****
  240. ! # Makefile for "Calc 2.00", the GNU Emacs Calculator.
  241.   #  Copyright (C) 1991 Free Software Foundation.
  242.   #  Author: Dave Gillespie.
  243. ! #  Author's address: daveg@csvax.caltech.edu; 256-80 Caltech/Pasadena CA 91125.
  244.   
  245.   # This program is free software; you can redistribute it and/or modify
  246.   # it under the terms of the GNU General Public License as published by
  247. --- 1,7 ----
  248. ! # Makefile for "Calc 2.01", the GNU Emacs Calculator.
  249.   #  Copyright (C) 1991 Free Software Foundation.
  250.   #  Author: Dave Gillespie.
  251. ! #  Author's address: daveg@synaptics.com; 256-80 Caltech/Pasadena CA 91125.
  252.   
  253.   # This program is free software; you can redistribute it and/or modify
  254.   # it under the terms of the GNU General Public License as published by
  255. *** calc.el    Sun Oct 27 14:57:29 1991
  256. --- ../dist/calc.el    Thu Nov 21 23:24:10 1991
  257. ***************
  258. *** 1,4 ****
  259. ! ;; Calculator for GNU Emacs version 2.00, part I
  260.   ;; Copyright (C) 1990, 1991 Free Software Foundation, Inc.
  261.   ;; Written by Dave Gillespie, daveg@csvax.cs.caltech.edu.
  262.   
  263. --- 1,4 ----
  264. ! ;; Calculator for GNU Emacs version 2.01, part I
  265.   ;; Copyright (C) 1990, 1991 Free Software Foundation, Inc.
  266.   ;; Written by Dave Gillespie, daveg@csvax.cs.caltech.edu.
  267.   
  268. ***************
  269. *** 674,681 ****
  270.     (put 'math-underflow 'error-conditions '(error math-underflow calc-error))
  271.     (put 'math-underflow 'error-message "Floating-point underflow occurred")
  272.     
  273. !   (setq calc-version "2.00"
  274. !     calc-version-date "Sat Oct 26 17:36:38 PDT 1991"
  275.       calc-trail-pointer nil        ; "Current" entry in trail buffer.
  276.           calc-trail-overlay nil        ; Value of overlay-arrow-string.
  277.       calc-was-split nil        ; Had multiple windows before Calc.
  278. --- 674,681 ----
  279.     (put 'math-underflow 'error-conditions '(error math-underflow calc-error))
  280.     (put 'math-underflow 'error-message "Floating-point underflow occurred")
  281.     
  282. !   (setq calc-version "2.01"
  283. !     calc-version-date "Thu Nov 21 23:23:17 PST 1991"
  284.       calc-trail-pointer nil        ; "Current" entry in trail buffer.
  285.           calc-trail-overlay nil        ; Value of overlay-arrow-string.
  286.       calc-was-split nil        ; Had multiple windows before Calc.
  287. ***************
  288. *** 1991,1997 ****
  289.           (calc-prev-char nil)
  290.           (calc-prev-prev-char nil)
  291.           (calc-buffer (current-buffer))
  292. !         (buf (read-from-minibuffer "Calc: " "" calc-digit-map)))
  293.          (or calc-digit-value (setq calc-digit-value (math-read-number buf)))
  294.          (if (stringp calc-digit-value)
  295.          (calc-alg-entry calc-digit-value)
  296. --- 1991,2002 ----
  297.           (calc-prev-char nil)
  298.           (calc-prev-prev-char nil)
  299.           (calc-buffer (current-buffer))
  300. !         (old-esc (aref global-map 27))
  301. !         (buf (unwind-protect
  302. !              (progn
  303. !                (aset global-map 27 nil)
  304. !                (read-from-minibuffer "Calc: " "" calc-digit-map))
  305. !            (aset global-map 27 old-esc))))
  306.          (or calc-digit-value (setq calc-digit-value (math-read-number buf)))
  307.          (if (stringp calc-digit-value)
  308.          (calc-alg-entry calc-digit-value)
  309. ***************
  310. *** 2019,2025 ****
  311.       (calc-temp-minibuffer-message " [Bad format]"))
  312.       (or (memq last-command-char '(32 13))
  313.       (setq prefix-arg current-prefix-arg
  314. !           unread-command-char last-command-char))
  315.       (exit-minibuffer))
  316.   )
  317.   
  318. --- 2024,2033 ----
  319.       (calc-temp-minibuffer-message " [Bad format]"))
  320.       (or (memq last-command-char '(32 13))
  321.       (setq prefix-arg current-prefix-arg
  322. !           unread-command-char (if (and (eq last-command-char 27)
  323. !                        (>= last-input-char 128))
  324. !                       last-input-char
  325. !                     last-command-char)))
  326.       (exit-minibuffer))
  327.   )
  328.   
  329. *** calc-aent.el    Sun Oct 27 14:57:48 1991
  330. --- ../dist/calc-aent.el    Thu Nov 21 23:24:12 1991
  331. ***************
  332. *** 305,311 ****
  333.         (define-key calc-alg-ent-map "`" 'calcAlg-edit)
  334.         (define-key calc-alg-ent-map "\C-m" 'calcAlg-enter)
  335.         (define-key calc-alg-ent-map "\C-j" 'calcAlg-enter)
  336. !       (setq calc-alg-ent-esc-map (copy-keymap esc-map))
  337.         (let ((i 33))
  338.       (while (< i 127)
  339.         (aset calc-alg-ent-esc-map i 'calcAlg-escape)
  340. --- 305,311 ----
  341.         (define-key calc-alg-ent-map "`" 'calcAlg-edit)
  342.         (define-key calc-alg-ent-map "\C-m" 'calcAlg-enter)
  343.         (define-key calc-alg-ent-map "\C-j" 'calcAlg-enter)
  344. !       (setq calc-alg-ent-esc-map (copy-sequence esc-map))
  345.         (let ((i 33))
  346.       (while (< i 127)
  347.         (aset calc-alg-ent-esc-map i 'calcAlg-escape)
  348. ***************
  349. *** 314,320 ****
  350.       (if (eq calc-algebraic-mode 'total)
  351.       (define-key calc-alg-ent-map "\e" calc-alg-ent-esc-map)
  352.         (define-key calc-alg-ent-map "\ep" 'calcAlg-plus-minus)
  353. !       (define-key calc-alg-ent-map "\em" 'calcAlg-mod))
  354.       (setq calc-aborted-prefix nil)
  355.       (let ((buf (read-from-minibuffer (or prompt "Algebraic: ")
  356.                        (or initial "")
  357. --- 314,321 ----
  358.       (if (eq calc-algebraic-mode 'total)
  359.       (define-key calc-alg-ent-map "\e" calc-alg-ent-esc-map)
  360.         (define-key calc-alg-ent-map "\ep" 'calcAlg-plus-minus)
  361. !       (define-key calc-alg-ent-map "\em" 'calcAlg-mod)
  362. !       (define-key calc-alg-ent-map "\e%" 'self-insert-command))
  363.       (setq calc-aborted-prefix nil)
  364.       (let ((buf (read-from-minibuffer (or prompt "Algebraic: ")
  365.                        (or initial "")
  366. ***************
  367. *** 819,833 ****
  368.                  (throw 'syntax "Expected ']'")))
  369.              val)))))
  370.         ((eq exp-token 'dollar)
  371. !        (if (>= (length calc-dollar-values) (math-abs exp-data))
  372. !            (let ((num exp-data))
  373. !          (math-read-token)
  374. !          (setq calc-dollar-used (max calc-dollar-used num))
  375. !          (math-check-complete (nth (1- (math-abs num))
  376. !                        calc-dollar-values)))
  377. !          (throw 'syntax (if calc-dollar-values
  378. !                 "Too many $'s"
  379. !                   "$'s not allowed in this context"))))
  380.         ((eq exp-token 'hash)
  381.          (or calc-hashes-used
  382.              (throw 'syntax "#'s not allowed in this context"))
  383. --- 820,834 ----
  384.                  (throw 'syntax "Expected ']'")))
  385.              val)))))
  386.         ((eq exp-token 'dollar)
  387. !        (let ((abs (if (> exp-data 0) exp-data (- exp-data))))
  388. !          (if (>= (length calc-dollar-values) abs)
  389. !          (let ((num exp-data))
  390. !            (math-read-token)
  391. !            (setq calc-dollar-used (max calc-dollar-used num))
  392. !            (math-check-complete (nth (1- abs) calc-dollar-values)))
  393. !            (throw 'syntax (if calc-dollar-values
  394. !                   "Too many $'s"
  395. !                 "$'s not allowed in this context")))))
  396.         ((eq exp-token 'hash)
  397.          (or calc-hashes-used
  398.              (throw 'syntax "#'s not allowed in this context"))
  399. No differences encountered
  400. No differences encountered
  401. No differences encountered
  402. *** calc-arith.el    Sun Oct 27 14:57:50 1991
  403. --- ../dist/calc-arith.el    Thu Nov 21 23:24:47 1991
  404. ***************
  405. *** 2636,2643 ****
  406.   
  407.   (defun calcFunc-percent (x)
  408.     (if (math-objectp x)
  409. !       (math-mul x '(float 1 -2))
  410.       (list 'calcFunc-percent x))
  411.   )
  412.   
  413.   
  414. --- 2636,2650 ----
  415.   
  416.   (defun calcFunc-percent (x)
  417.     (if (math-objectp x)
  418. !       (let ((calc-prefer-frac nil))
  419. !     (math-div x 100))
  420.       (list 'calcFunc-percent x))
  421. + )
  422. + 
  423. + (defun calcFunc-relch (x y)
  424. +   (if (and (math-objectp x) (math-objectp y))
  425. +       (math-div (math-sub y x) x)
  426. +     (list 'calcFunc-relch x y))
  427.   )
  428.   
  429.   
  430. No differences encountered
  431. No differences encountered
  432. *** calc-comp.el    Sun Oct 27 14:58:02 1991
  433. --- ../dist/calc-comp.el    Thu Nov 21 23:25:24 1991
  434. ***************
  435. *** 61,70 ****
  436.        ((math-scalarp a)
  437.         (if (or (eq (car-safe a) 'frac)
  438.             (and (nth 1 calc-frac-format) (Math-integerp a)))
  439. !       (if (memq calc-language '(tex eqn math))
  440.             (let ((aa (math-adjust-fraction a))
  441.               (calc-frac-format nil))
  442. !         (math-compose-expr (list '/ (nth 1 aa) (nth 2 aa)) prec))
  443.           (if (and (eq calc-language 'big)
  444.                (= (length (car calc-frac-format)) 1))
  445.           (let* ((aa (math-adjust-fraction a))
  446. --- 61,74 ----
  447.        ((math-scalarp a)
  448.         (if (or (eq (car-safe a) 'frac)
  449.             (and (nth 1 calc-frac-format) (Math-integerp a)))
  450. !       (if (memq calc-language '(tex eqn math maple c fortran pascal))
  451.             (let ((aa (math-adjust-fraction a))
  452.               (calc-frac-format nil))
  453. !         (math-compose-expr (list '/
  454. !                      (if (memq calc-language '(c fortran))
  455. !                          (math-float (nth 1 aa))
  456. !                        (nth 1 aa))
  457. !                      (nth 2 aa)) prec))
  458.           (if (and (eq calc-language 'big)
  459.                (= (length (car calc-frac-format)) 1))
  460.           (let* ((aa (math-adjust-fraction a))
  461. ***************
  462. *** 344,350 ****
  463.            (a2 (math-compose-expr (nth 2 a) 0)))
  464.       (if (or (eq (car-safe a1) 'subscr)
  465.           (and (eq (car-safe a1) 'tag)
  466. !              (eq (car-safe (nth 2 a1)) 'subscr)))
  467.           (list 'subscr
  468.             (nth 1 a1)
  469.             (list 'horiz
  470. --- 348,355 ----
  471.            (a2 (math-compose-expr (nth 2 a) 0)))
  472.       (if (or (eq (car-safe a1) 'subscr)
  473.           (and (eq (car-safe a1) 'tag)
  474. !              (eq (car-safe (nth 2 a1)) 'subscr)
  475. !              (setq a1 (nth 2 a1))))
  476.           (list 'subscr
  477.             (nth 1 a1)
  478.             (list 'horiz
  479. ***************
  480. *** 381,387 ****
  481.                (eq (nth 2 (nth 1 a)) 0)))
  482.           (list 'horiz "(" (math-compose-expr (nth 1 a) 0) ")")
  483.             (math-compose-expr (nth 1 a) 201))
  484. !         (let ((calc-language 'flat))
  485.             (math-compose-expr (nth 2 a) 0))))
  486.        ((and (eq (car a) '/)
  487.          (eq calc-language 'big))
  488. --- 386,393 ----
  489.                (eq (nth 2 (nth 1 a)) 0)))
  490.           (list 'horiz "(" (math-compose-expr (nth 1 a) 0) ")")
  491.             (math-compose-expr (nth 1 a) 201))
  492. !         (let ((calc-language 'flat)
  493. !           (calc-number-radix 10))
  494.             (math-compose-expr (nth 2 a) 0))))
  495.        ((and (eq (car a) '/)
  496.          (eq calc-language 'big))
  497. ***************
  498. *** 701,707 ****
  499.                        (equal (car op) "**")
  500.                        (and (equal (car op) "*")
  501.                         (math-comp-last-char lhs)
  502. !                       (math-comp-first-char rhs)))
  503.                    (car op)
  504.                      (if (and (eq calc-language 'big)
  505.                       (equal (car op) "=>"))
  506. --- 707,716 ----
  507.                        (equal (car op) "**")
  508.                        (and (equal (car op) "*")
  509.                         (math-comp-last-char lhs)
  510. !                       (math-comp-first-char rhs))
  511. !                      (and (equal (car op) "/")
  512. !                       (math-num-integerp (nth 1 a))
  513. !                       (math-integerp (nth 2 a))))
  514.                    (car op)
  515.                      (if (and (eq calc-language 'big)
  516.                       (equal (car op) "=>"))
  517. No differences encountered
  518. No differences encountered
  519. *** calc-ext.el    Sun Oct 27 14:57:30 1991
  520. --- ../dist/calc-ext.el    Thu Nov 21 23:24:42 1991
  521. ***************
  522. *** 1,4 ****
  523. ! ;; Calculator for GNU Emacs version 2.00, part II
  524.   ;; Copyright (C) 1990, 1991 Free Software Foundation, Inc.
  525.   ;; Written by Dave Gillespie, daveg@csvax.cs.caltech.edu.
  526.   
  527. --- 1,4 ----
  528. ! ;; Calculator for GNU Emacs version 2.01, part II
  529.   ;; Copyright (C) 1990, 1991 Free Software Foundation, Inc.
  530.   ;; Written by Dave Gillespie, daveg@csvax.cs.caltech.edu.
  531.   
  532. ***************
  533. *** 94,99 ****
  534. --- 94,100 ----
  535.     (define-key calc-mode-map "\C-_" 'calc-undo)
  536.     (define-key calc-mode-map "\C-xu" 'calc-undo)
  537.     (define-key calc-mode-map "\M-\C-m" 'calc-last-args)
  538. +   (define-key calc-mode-map "\M-%" 'calc-percent)
  539.   
  540.     (define-key calc-mode-map "a" nil)
  541.     (define-key calc-mode-map "a?" 'calc-a-prefix-help)
  542. ***************
  543. *** 171,176 ****
  544. --- 172,178 ----
  545.     (define-key calc-mode-map "bT" 'calc-fin-rate)
  546.     (define-key calc-mode-map "bY" 'calc-fin-syd)
  547.     (define-key calc-mode-map "b#" 'calc-fin-nper)
  548. +   (define-key calc-mode-map "b%" 'calc-percent-change)
  549.   
  550.     (define-key calc-mode-map "c" nil)
  551.     (define-key calc-mode-map "c?" 'calc-c-prefix-help)
  552. ***************
  553. *** 182,187 ****
  554. --- 184,190 ----
  555.     (define-key calc-mode-map "cr" 'calc-to-radians)
  556.     (define-key calc-mode-map "cC" 'calc-cos)
  557.     (define-key calc-mode-map "cF" 'calc-fraction)
  558. +   (define-key calc-mode-map "c%" 'calc-convert-percent)
  559.   
  560.     (define-key calc-mode-map "d" nil)
  561.     (define-key calc-mode-map "d?" 'calc-d-prefix-help)
  562. ***************
  563. *** 620,627 ****
  564.                       (cdr (aref calc-mode-map i))))))
  565.         (setq i (1+ i))))
  566.   
  567. !   (setq calc-alg-map (copy-keymap calc-mode-map)
  568. !     calc-alg-esc-map (copy-keymap esc-map))
  569.     (let ((i 32))
  570.       (while (< i 127)
  571.         (or (memq i '(?' ?` ?= ??))
  572. --- 623,630 ----
  573.                       (cdr (aref calc-mode-map i))))))
  574.         (setq i (1+ i))))
  575.   
  576. !   (setq calc-alg-map (copy-sequence calc-mode-map)
  577. !     calc-alg-esc-map (copy-sequence esc-map))
  578.     (let ((i 32))
  579.       (while (< i 127)
  580.         (or (memq i '(?' ?` ?= ??))
  581. ***************
  582. *** 690,697 ****
  583.   calcFunc-fround calcFunc-frounde calcFunc-froundu calcFunc-ftrunc
  584.   calcFunc-idiv calcFunc-incr calcFunc-mant calcFunc-max calcFunc-min
  585.   calcFunc-mod calcFunc-mul calcFunc-neg calcFunc-percent calcFunc-pow
  586. ! calcFunc-round calcFunc-rounde calcFunc-roundu calcFunc-scf
  587. ! calcFunc-sub calcFunc-xpon math-abs math-abs-approx
  588.   math-add-objects-fancy math-add-or-sub math-add-symb-fancy
  589.   math-ceiling math-combine-prod math-combine-sum math-div-by-zero
  590.   math-div-objects-fancy math-div-symb-fancy math-div-zero
  591. --- 693,700 ----
  592.   calcFunc-fround calcFunc-frounde calcFunc-froundu calcFunc-ftrunc
  593.   calcFunc-idiv calcFunc-incr calcFunc-mant calcFunc-max calcFunc-min
  594.   calcFunc-mod calcFunc-mul calcFunc-neg calcFunc-percent calcFunc-pow
  595. ! calcFunc-relch calcFunc-round calcFunc-rounde calcFunc-roundu
  596. ! calcFunc-scf calcFunc-sub calcFunc-xpon math-abs math-abs-approx
  597.   math-add-objects-fancy math-add-or-sub math-add-symb-fancy
  598.   math-ceiling math-combine-prod math-combine-sum math-div-by-zero
  599.   math-div-objects-fancy math-div-symb-fancy math-div-zero
  600. ***************
  601. *** 739,749 ****
  602.   calc-do-embedded-activate calc-embedded-evaluate-expr
  603.   calc-embedded-modes-change calc-embedded-var-change)
  604.   
  605. !  ("calc-fin" calc-Need-calc-fin calcFunc-ddb calcFunc-fv calcFunc-fvb
  606. ! calcFunc-fvl calcFunc-irr calcFunc-irrb calcFunc-nper calcFunc-nperb
  607. ! calcFunc-nperl calcFunc-npv calcFunc-npvb calcFunc-pmt calcFunc-pmtb
  608. ! calcFunc-pv calcFunc-pvb calcFunc-pvl calcFunc-rate calcFunc-rateb
  609. ! calcFunc-ratel calcFunc-sln calcFunc-syd)
  610.   
  611.    ("calc-forms" calc-Need-calc-forms calcFunc-date calcFunc-day
  612.   calcFunc-dsadj calcFunc-hms calcFunc-hour calcFunc-incmonth
  613. --- 742,752 ----
  614.   calc-do-embedded-activate calc-embedded-evaluate-expr
  615.   calc-embedded-modes-change calc-embedded-var-change)
  616.   
  617. !  ("calc-fin" calc-Need-calc-fin calc-to-percentage calcFunc-ddb
  618. ! calcFunc-fv calcFunc-fvb calcFunc-fvl calcFunc-irr calcFunc-irrb
  619. ! calcFunc-nper calcFunc-nperb calcFunc-nperl calcFunc-npv calcFunc-npvb
  620. ! calcFunc-pmt calcFunc-pmtb calcFunc-pv calcFunc-pvb calcFunc-pvl
  621. ! calcFunc-rate calcFunc-rateb calcFunc-ratel calcFunc-sln calcFunc-syd)
  622.   
  623.    ("calc-forms" calc-Need-calc-forms calcFunc-date calcFunc-day
  624.   calcFunc-dsadj calcFunc-hms calcFunc-hour calcFunc-incmonth
  625. ***************
  626. *** 951,959 ****
  627.   calc-embedded-select calc-embedded-update-formula calc-embedded-word
  628.   calc-find-globals calc-show-plain)
  629.   
  630. !  ("calc-fin" calc-fin-ddb calc-fin-fv calc-fin-irr calc-fin-nper
  631. ! calc-fin-npv calc-fin-pmt calc-fin-pv calc-fin-rate calc-fin-sln
  632. ! calc-fin-syd)
  633.   
  634.    ("calc-forms" calc-convert-time-zones calc-date calc-date-notation
  635.   calc-date-part calc-from-hms calc-hms-mode calc-hms-notation
  636. --- 954,963 ----
  637.   calc-embedded-select calc-embedded-update-formula calc-embedded-word
  638.   calc-find-globals calc-show-plain)
  639.   
  640. !  ("calc-fin" calc-convert-percent calc-fin-ddb calc-fin-fv
  641. ! calc-fin-irr calc-fin-nper calc-fin-npv calc-fin-pmt calc-fin-pv
  642. ! calc-fin-rate calc-fin-sln calc-fin-syd calc-percent
  643. ! calc-percent-change)
  644.   
  645.    ("calc-forms" calc-convert-time-zones calc-date calc-date-notation
  646.   calc-date-part calc-from-hms calc-hms-mode calc-hms-notation
  647. ***************
  648. *** 1234,1243 ****
  649.         (setq calc-prefix-help-phase 0)
  650.         (if key
  651.         (if msgs
  652. !           (message (concat group ": " (car msgs) ":  "
  653. !                    (char-to-string key) "-"))
  654. !         (message (concat group ": (none)  " (char-to-string key) "-")))
  655. !     (message (concat group ": " (car msgs)))))
  656.       (and key
  657.        (setq unread-command-char key)))
  658.   )
  659. --- 1238,1246 ----
  660.         (setq calc-prefix-help-phase 0)
  661.         (if key
  662.         (if msgs
  663. !           (message "%s: %s: %c-" group (car msgs) key)
  664. !         (message "%s: (none)  %c-" group (car msgs) key))
  665. !     (message "%s: %s" group (car msgs))))
  666.       (and key
  667.        (setq unread-command-char key)))
  668.   )
  669. *** calc-fin.el    Sun Oct 27 14:57:57 1991
  670. --- ../dist/calc-fin.el    Thu Nov 21 23:25:08 1991
  671. ***************
  672. *** 84,97 ****
  673.   (defun calc-fin-rate ()
  674.     (interactive)
  675.     (calc-slow-wrapper
  676. !    (if (calc-is-hyperbolic)
  677. !        (calc-enter-result 3 "ratl" (cons 'calcFunc-ratel
  678. !                      (calc-top-list-n 3)))
  679. !      (if (calc-is-inverse)
  680. !      (calc-enter-result 3 "ratb" (cons 'calcFunc-rateb
  681. !                        (calc-top-list-n 3)))
  682. !        (calc-enter-result 3 "rate" (cons 'calcFunc-rate
  683. !                      (calc-top-list-n 3))))))
  684.   )
  685.   
  686.   (defun calc-fin-irr (arg)
  687. --- 84,98 ----
  688.   (defun calc-fin-rate ()
  689.     (interactive)
  690.     (calc-slow-wrapper
  691. !    (calc-pop-push-record 3
  692. !              (if (calc-is-hyperbolic) "ratl"
  693. !                (if (calc-is-inverse) "ratb" "rate"))
  694. !              (calc-to-percentage
  695. !               (calc-normalize
  696. !                (cons (if (calc-is-hyperbolic) 'calcFunc-ratel
  697. !                    (if (calc-is-hyperbolic) 'calcFunc-rateb
  698. !                      'calcFunc-rate))
  699. !                  (calc-top-list-n 3))))))
  700.   )
  701.   
  702.   (defun calc-fin-irr (arg)
  703. ***************
  704. *** 120,125 ****
  705. --- 121,156 ----
  706.      (calc-enter-result 4 "ddb" (cons 'calcFunc-ddb (calc-top-list-n 4))))
  707.   )
  708.   
  709. + 
  710. + (defun calc-to-percentage (x)
  711. +   (cond ((Math-objectp x)
  712. +      (setq x (math-mul x 100))
  713. +      (if (Math-num-integerp x)
  714. +          (setq x (math-trunc x)))
  715. +      (list 'calcFunc-percent x))
  716. +     ((Math-vectorp x)
  717. +      (cons 'vec (mapcar 'calc-to-percentage (cdr x))))
  718. +     (t x))
  719. + )
  720. + 
  721. + (defun calc-convert-percent ()
  722. +   (interactive)
  723. +   (calc-slow-wrapper
  724. +    (calc-pop-push-record 1 "c%" (calc-to-percentage (calc-top-n 1))))
  725. + )
  726. + 
  727. + (defun calc-percent ()
  728. +   (interactive)
  729. +   (calc-slow-wrapper
  730. +    (calc-pop-push-record 1 "%" (list 'calcFunc-percent (calc-top-n 1))))
  731. + )
  732. + 
  733. + (defun calc-percent-change ()
  734. +   (interactive)
  735. +   (calc-slow-wrapper
  736. +    (let ((res (calc-normalize (cons 'calcFunc-relch (calc-top-list 2)))))
  737. +      (calc-pop-push-record 2 "%ch" (calc-to-percentage res))))
  738. + )
  739.   
  740.   
  741.   
  742. No differences encountered
  743. No differences encountered
  744. No differences encountered
  745. No differences encountered
  746. *** calc-help.el    Sun Oct 27 14:57:49 1991
  747. --- ../dist/calc-help.el    Thu Nov 21 23:24:43 1991
  748. ***************
  749. *** 297,303 ****
  750.       (if inv (setq desc (concat "I " desc)))
  751.       (if hyp (setq desc (concat "H " desc)))
  752.       (calc-describe-thing desc "Key Index" nil
  753. !                  (> (length desc) (length key))))))
  754.   )
  755.   
  756.   (defun calc-describe-function (&optional func)
  757. --- 297,303 ----
  758.       (if inv (setq desc (concat "I " desc)))
  759.       (if hyp (setq desc (concat "H " desc)))
  760.       (calc-describe-thing desc "Key Index" nil
  761. !                  (string-match "[A-Z][A-Z][A-Z]" desc)))))
  762.   )
  763.   
  764.   (defun calc-describe-function (&optional func)
  765. ***************
  766. *** 572,578 ****
  767.      '("And, Or, Xor, Diff, Not; Wordsize, Clip"
  768.        "Lshift, Rshift, roTate; SHIFT + signed Lshift, Rshift"
  769.        "SHIFT + business: Pv, Npv, Fv, pMt, #pmts, raTe, Irr"
  770. !      "SHIFT + business: Sln, sYd, Ddb")
  771.      "binary/bus" ?b)
  772.   )
  773.   
  774. --- 572,578 ----
  775.      '("And, Or, Xor, Diff, Not; Wordsize, Clip"
  776.        "Lshift, Rshift, roTate; SHIFT + signed Lshift, Rshift"
  777.        "SHIFT + business: Pv, Npv, Fv, pMt, #pmts, raTe, Irr"
  778. !      "SHIFT + business: Sln, sYd, Ddb; %ch")
  779.      "binary/bus" ?b)
  780.   )
  781.   
  782. ***************
  783. *** 580,586 ****
  784.   (defun calc-c-prefix-help ()
  785.     (interactive)
  786.     (calc-do-prefix-help
  787. !    '("Deg, Rad, HMS; Float; Polar/rect; Clean, 0-9"
  788.        "SHIFT + Fraction")
  789.      "convert" ?c)
  790.   )
  791. --- 580,586 ----
  792.   (defun calc-c-prefix-help ()
  793.     (interactive)
  794.     (calc-do-prefix-help
  795. !    '("Deg, Rad, HMS; Float; Polar/rect; Clean, 0-9; %"
  796.        "SHIFT + Fraction")
  797.      "convert" ?c)
  798.   )
  799. No differences encountered
  800. *** calc-keypd.el    Sun Oct 27 14:58:02 1991
  801. --- ../dist/calc-keypd.el    Thu Nov 21 23:25:25 1991
  802. ***************
  803. *** 65,71 ****
  804.         (put 'calc-keypad 'mode-class 'special)
  805.         (make-local-variable 'calc-main-buffer)
  806.         (setq calc-main-buffer calcbuf)
  807. !       (calc-keypad-redraw)))
  808.       (let ((width 29)
  809.         (height 17)
  810.         win old-win)
  811. --- 65,72 ----
  812.         (put 'calc-keypad 'mode-class 'special)
  813.         (make-local-variable 'calc-main-buffer)
  814.         (setq calc-main-buffer calcbuf)
  815. !       (calc-keypad-redraw)
  816. !       (calc-trail-buffer)))
  817.       (let ((width 29)
  818.         (height 17)
  819.         win old-win)
  820. No differences encountered
  821. No differences encountered
  822. *** calc-maint.el    Sun Oct 27 14:57:47 1991
  823. --- ../dist/calc-maint.el    Thu Nov 21 23:24:03 1991
  824. ***************
  825. *** 319,325 ****
  826.   )
  827.   
  828.   (defun calc-private-autoloads ()
  829. !   "Modify the public \"default\" file to contain the necessary autoload and
  830.   global-set-key commands for Calc."
  831.     (interactive)
  832.     (let ((home default-directory))
  833. --- 319,325 ----
  834.   )
  835.   
  836.   (defun calc-private-autoloads ()
  837. !   "Modify the user's \".emacs\" file to contain the necessary autoload and
  838.   global-set-key commands for Calc."
  839.     (interactive)
  840.     (let ((home default-directory))
  841. ***************
  842. *** 361,367 ****
  843.   \(setq load-path (append load-path (list \"" (directory-file-name home) "\")))
  844.   \(global-set-key \"\\e#\" 'calc-dispatch)
  845.   ;;; End of Calc autoloads.\n")
  846. !   (save-buffer)
  847.   )
  848.   
  849.   
  850. --- 361,368 ----
  851.   \(setq load-path (append load-path (list \"" (directory-file-name home) "\")))
  852.   \(global-set-key \"\\e#\" 'calc-dispatch)
  853.   ;;; End of Calc autoloads.\n")
  854. !   (let ((trim-versions-without-asking t))
  855. !     (save-buffer))
  856.   )
  857.   
  858.   
  859. *** calc-map.el    Sun Oct 27 14:58:00 1991
  860. --- ../dist/calc-map.el    Thu Nov 21 23:25:20 1991
  861. ***************
  862. *** 583,589 ****
  863.                   ( ?S 3 calcFunc-sln )
  864.                   ( ?T 3 calcFunc-rate )
  865.                   ( ?Y 4 calcFunc-syd )
  866. !                 ( ?\# 3 calcFunc-nper ) )
  867.                     ( ( ?F 3 calcFunc-fvb )
  868.                   ( ?I 1 calcFunc-irrb )
  869.                   ( ?M 3 calcFunc-pmtb )
  870. --- 583,590 ----
  871.                   ( ?S 3 calcFunc-sln )
  872.                   ( ?T 3 calcFunc-rate )
  873.                   ( ?Y 4 calcFunc-syd )
  874. !                 ( ?\# 3 calcFunc-nper )
  875. !                 ( ?\% 2 calcFunc-relch ) )
  876.                     ( ( ?F 3 calcFunc-fvb )
  877.                   ( ?I 1 calcFunc-irrb )
  878.                   ( ?M 3 calcFunc-pmtb )
  879. No differences encountered
  880. No differences encountered
  881. *** calc-misc.el    Sun Oct 27 14:57:48 1991
  882. --- ../dist/calc-misc.el    Thu Nov 21 23:24:11 1991
  883. ***************
  884. *** 282,288 ****
  885.          "Prefix keys: Trail/time, Units/statistics, Vector/matrix"
  886.          "Prefix keys: Z (user), SHIFT + Z (define)"
  887.          "Prefix keys: prefix + ? gives further help for that prefix"
  888. !        "  Calc 2.00 by Dave Gillespie, daveg@csvax.cs.caltech.edu")))
  889.       (if calc-full-help-flag
  890.       msgs
  891.         (if (or calc-inverse-flag calc-hyperbolic-flag)
  892. --- 282,288 ----
  893.          "Prefix keys: Trail/time, Units/statistics, Vector/matrix"
  894.          "Prefix keys: Z (user), SHIFT + Z (define)"
  895.          "Prefix keys: prefix + ? gives further help for that prefix"
  896. !        "  Calc 2.01 by Dave Gillespie, daveg@csvax.cs.caltech.edu")))
  897.       (if calc-full-help-flag
  898.       msgs
  899.         (if (or calc-inverse-flag calc-hyperbolic-flag)
  900. No differences encountered
  901. *** calc-poly.el    Sun Oct 27 14:58:01 1991
  902. --- ../dist/calc-poly.el    Thu Nov 21 23:25:22 1991
  903. ***************
  904. *** 847,854 ****
  905.   (defun calcFunc-nrat (expr)
  906.     (if (math-any-floats expr)
  907.         (setq expr (calcFunc-pfrac expr)))
  908. !   (if (math-vectorp expr)
  909. !       (cons 'vec (mapcar 'calcFunc-nrat (cdr expr)))
  910.       (let* ((calc-prefer-frac t)
  911.          (res (math-to-ratpoly expr))
  912.          (num (math-simplify (math-sort-terms (calcFunc-expand (car res)))))
  913. --- 847,855 ----
  914.   (defun calcFunc-nrat (expr)
  915.     (if (math-any-floats expr)
  916.         (setq expr (calcFunc-pfrac expr)))
  917. !   (if (or (math-vectorp expr)
  918. !       (assq (car-safe expr) calc-tweak-eqn-table))
  919. !       (cons (car expr) (mapcar 'calcFunc-nrat (cdr expr)))
  920.       (let* ((calc-prefer-frac t)
  921.          (res (math-to-ratpoly expr))
  922.          (num (math-simplify (math-sort-terms (calcFunc-expand (car res)))))
  923. No differences encountered
  924. No differences encountered
  925. No differences encountered
  926. No differences encountered
  927. *** calc-sel.el    Sun Oct 27 14:57:53 1991
  928. --- ../dist/calc-sel.el    Thu Nov 21 23:24:55 1991
  929. ***************
  930. *** 67,73 ****
  931.   
  932.   (defun calc-select-once-maybe (num)
  933.     (interactive "P")
  934. !   (calc-select-once num t t)
  935.   )
  936.   
  937.   (defun calc-select-additional ()
  938. --- 67,73 ----
  939.   
  940.   (defun calc-select-once-maybe (num)
  941.     (interactive "P")
  942. !   (calc-select-here num t t)
  943.   )
  944.   
  945.   (defun calc-select-additional ()
  946. No differences encountered
  947. No differences encountered
  948. No differences encountered
  949. No differences encountered
  950. No differences encountered
  951. *** calc-units.el    Sun Oct 27 14:58:00 1991
  952. --- ../dist/calc-units.el    Thu Nov 21 23:25:18 1991
  953. ***************
  954. *** 731,737 ****
  955.              u1
  956.              u2)))
  957.       ((eq (car expr) '/)
  958. !      (if (math-units-in-expr-p (nth 2 expr))
  959.            'wrong
  960.          (math-single-units-in-expr-p (nth 1 expr))))
  961.       (t 'wrong))
  962. --- 731,737 ----
  963.              u1
  964.              u2)))
  965.       ((eq (car expr) '/)
  966. !      (if (math-units-in-expr-p (nth 2 expr) nil)
  967.            'wrong
  968.          (math-single-units-in-expr-p (nth 1 expr))))
  969.       (t 'wrong))
  970. No differences encountered
  971. No differences encountered
  972. No differences encountered
  973. *** calc.texinfo    Sun Oct 27 14:57:47 1991
  974. --- ../dist/calc.texinfo    Thu Nov 21 23:24:03 1991
  975. ***************
  976. *** 3,9 ****
  977.   @c smallbook
  978.   @setfilename calc.info
  979.   @c [title]
  980. ! @settitle GNU Emacs Calc 2.00 Manual
  981.   @setchapternewpage odd
  982.   @comment %**end of header (This is for running Texinfo on a region.)
  983.   
  984. --- 3,9 ----
  985.   @c smallbook
  986.   @setfilename calc.info
  987.   @c [title]
  988. ! @settitle GNU Emacs Calc 2.01 Manual
  989.   @setchapternewpage odd
  990.   @comment %**end of header (This is for running Texinfo on a region.)
  991.   
  992. ***************
  993. *** 98,107 ****
  994.   @sp 6
  995.   @center @titlefont{Calc Manual}
  996.   @sp 4
  997. ! @center GNU Emacs Calc Version 2.00
  998.   @c [volume]
  999.   @sp 1
  1000. ! @center October 1991
  1001.   @sp 5
  1002.   @center Dave Gillespie
  1003.   @center daveg@@synaptics.com
  1004. --- 98,107 ----
  1005.   @sp 6
  1006.   @center @titlefont{Calc Manual}
  1007.   @sp 4
  1008. ! @center GNU Emacs Calc Version 2.01
  1009.   @c [volume]
  1010.   @sp 1
  1011. ! @center November 1991
  1012.   @sp 5
  1013.   @center Dave Gillespie
  1014.   @center daveg@@synaptics.com
  1015. ***************
  1016. *** 140,146 ****
  1017.   @ichapter The GNU Emacs Calculator
  1018.   
  1019.   @noindent
  1020. ! @dfn{Calc 2.00} is an advanced desk calculator and mathematical tool
  1021.   that runs as part of the GNU Emacs environment.
  1022.   
  1023.   This manual is divided into three major parts: "Getting Started," the
  1024. --- 140,146 ----
  1025.   @ichapter The GNU Emacs Calculator
  1026.   
  1027.   @noindent
  1028. ! @dfn{Calc 2.01} is an advanced desk calculator and mathematical tool
  1029.   that runs as part of the GNU Emacs environment.
  1030.   
  1031.   This manual is divided into three major parts: "Getting Started," the
  1032. ***************
  1033. *** 490,497 ****
  1034.   read is the ``Getting Started'' chapter of this manual and possibly the
  1035.   first few sections of the tutorial.  As you become more comfortable with
  1036.   the program you can learn its additional features.  In terms of efficiency,
  1037. ! scope and depth, Calc cannot replace a powerful tool like Mathematica@c{\trademark}
  1038. ! @asis{ (tm)}.
  1039.   But Calc has the advantages of convenience, portability, and availability
  1040.   of the source code.  And, of course, it's free!
  1041.   
  1042. --- 490,498 ----
  1043.   read is the ``Getting Started'' chapter of this manual and possibly the
  1044.   first few sections of the tutorial.  As you become more comfortable with
  1045.   the program you can learn its additional features.  In terms of efficiency,
  1046. ! scope and depth, Calc cannot replace a powerful tool like Mathematica.
  1047. ! @c Removed this per RMS' request:
  1048. ! @c Mathematica@c{\trademark} @asis{ (tm)}.
  1049.   But Calc has the advantages of convenience, portability, and availability
  1050.   of the source code.  And, of course, it's free!
  1051.   
  1052. ***************
  1053. *** 667,673 ****
  1054.   
  1055.   ...
  1056.   --**-Emacs: myfile             (Fundamental)----All----------------------
  1057. ! --- Emacs Calculator Mode ---                   |Emacs Calc Mode v2.00...
  1058.   2:  17.3                                        |    17.3
  1059.   1:  -5                                          |    3
  1060.       .                                           |    2
  1061. --- 668,674 ----
  1062.   
  1063.   ...
  1064.   --**-Emacs: myfile             (Fundamental)----All----------------------
  1065. ! --- Emacs Calculator Mode ---                   |Emacs Calc Mode v2.01...
  1066.   2:  17.3                                        |    17.3
  1067.   1:  -5                                          |    3
  1068.       .                                           |    2
  1069. ***************
  1070. *** 789,795 ****
  1071.                                           |1:  -5
  1072.                                           |    .
  1073.                                           |--%%-Calc: 12 Deg       (Calcul
  1074. !                                         |----+-----Calc 2.00-----+----1
  1075.                                           |FLR |CEIL|RND |TRNC|CLN2|FLT |
  1076.                                           |----+----+----+----+----+----|
  1077.                                           | LN |EXP |    |ABS |IDIV|MOD |
  1078. --- 790,796 ----
  1079.                                           |1:  -5
  1080.                                           |    .
  1081.                                           |--%%-Calc: 12 Deg       (Calcul
  1082. !                                         |----+-----Calc 2.01-----+----1
  1083.                                           |FLR |CEIL|RND |TRNC|CLN2|FLT |
  1084.                                           |----+----+----+----+----+----|
  1085.                                           | LN |EXP |    |ABS |IDIV|MOD |
  1086. ***************
  1087. *** 5244,5250 ****
  1088.   
  1089.   @group
  1090.   @smallexample
  1091. ! 2:  34*x - 24*pow(x, 3)               2:  34*x - 24*x ** 3
  1092.   1:  @{sqrt(51) / 6, sqrt(51) / -6, 0@}  1:  /sqrt(51) / 6, sqrt(51) / -6, 0/
  1093.       .                                     .
  1094.   
  1095. --- 5245,5251 ----
  1096.   
  1097.   @group
  1098.   @smallexample
  1099. ! 2:  34*x - 24*pow(x, 3)               2:  34*x - 24*x**3
  1100.   1:  @{sqrt(51) / 6, sqrt(51) / -6, 0@}  1:  /sqrt(51) / 6, sqrt(51) / -6, 0/
  1101.       .                                     .
  1102.   
  1103. ***************
  1104. *** 5273,5279 ****
  1105.   Notice that @samp{sqrt(51)} may cause problems with older
  1106.   implementations of C and FORTRAN, which would require something more
  1107.   like @samp{sqrt(51.0)}.  It is always wise to check over the formulas
  1108. ! produced by the various language modes to make sure they fully correct.
  1109.   
  1110.   Type @kbd{m s}, @kbd{m f}, and @kbd{d N} to reset these modes.  (You
  1111.   may prefer to remain in Big mode, but all the examples in the tutorial
  1112. --- 5274,5281 ----
  1113.   Notice that @samp{sqrt(51)} may cause problems with older
  1114.   implementations of C and FORTRAN, which would require something more
  1115.   like @samp{sqrt(51.0)}.  It is always wise to check over the formulas
  1116. ! produced by the various language modes to make sure they are fully
  1117. ! correct.
  1118.   
  1119.   Type @kbd{m s}, @kbd{m f}, and @kbd{d N} to reset these modes.  (You
  1120.   may prefer to remain in Big mode, but all the examples in the tutorial
  1121. ***************
  1122. *** 5433,5439 ****
  1123.   @noindent
  1124.   where @cite{n} (which must be even) is the number of slices and @cite{h}
  1125.   is the width of each slice.  These are 10 and 0.1 in our example.
  1126. ! For reference, here is the corresponding equation for the stairstep
  1127.   method:
  1128.   
  1129.   @ifinfo
  1130. --- 5435,5441 ----
  1131.   @noindent
  1132.   where @cite{n} (which must be even) is the number of slices and @cite{h}
  1133.   is the width of each slice.  These are 10 and 0.1 in our example.
  1134. ! For reference, here is the corresponding formula for the stairstep
  1135.   method:
  1136.   
  1137.   @ifinfo
  1138. ***************
  1139. *** 5491,5498 ****
  1140.   @noindent
  1141.   If we were simplifying this by hand, we'd probably replace the
  1142.   @samp{tan} with a @samp{sin/cos} first, then combine over a common
  1143. ! denominator.  There is no Calc command to do the former; the @kbd{j M}
  1144. ! selection command will do the latter but we'll do both with rewrite
  1145.   rules just for practice.
  1146.   
  1147.   Rewrite rules are written with the @samp{:=} symbol.
  1148. --- 5493,5500 ----
  1149.   @noindent
  1150.   If we were simplifying this by hand, we'd probably replace the
  1151.   @samp{tan} with a @samp{sin/cos} first, then combine over a common
  1152. ! denominator.  There is no Calc command to do the former; the @kbd{a n}
  1153. ! algebra command will do the latter but we'll do both with rewrite
  1154.   rules just for practice.
  1155.   
  1156.   Rewrite rules are written with the @samp{:=} symbol.
  1157. ***************
  1158. *** 11361,11367 ****
  1159.   interval @samp{[3 .. inf)} represents all real numbers greater than
  1160.   or equal to 3, and @samp{(-inf .. inf)} represents all real numbers.
  1161.   In fact, @samp{[-inf .. inf]} represents all real numbers including
  1162. ! infinity.
  1163.   
  1164.   Intervals are entered in the notation shown here, either as algebraic
  1165.   formulas, or using incomplete forms.  (@xref{Incomplete Objects}.)
  1166. --- 11363,11369 ----
  1167.   interval @samp{[3 .. inf)} represents all real numbers greater than
  1168.   or equal to 3, and @samp{(-inf .. inf)} represents all real numbers.
  1169.   In fact, @samp{[-inf .. inf]} represents all real numbers including
  1170. ! the real infinities.
  1171.   
  1172.   Intervals are entered in the notation shown here, either as algebraic
  1173.   formulas, or using incomplete forms.  (@xref{Incomplete Objects}.)
  1174. ***************
  1175. *** 11405,11410 ****
  1176. --- 11407,11423 ----
  1177.   be 0 for @samp{(..)}, 1 for @samp{(..]}, 2 for @samp{[..)}, or
  1178.   3 for @samp{[..]}.
  1179.   
  1180. + Please note that in fully rigorous interval arithmetic, care would be
  1181. + taken to make sure that computation of the lower bound rounds toward
  1182. + minus infinity, while upper bound computations round toward plus
  1183. + infinity.  Calc's arithmetic always uses a round-to-nearest mode,
  1184. + which means that roundoff errors could creep into an interval
  1185. + calculation to produce intervals slightly smaller than they ought to
  1186. + be.  For example, entering @samp{[1..2]} and pressing @kbd{Q 2 ^}
  1187. + should yield the interval @samp{[1..2]}, but in fact it yields the
  1188. + (slightly too small) interval @samp{[1..1.9999999]} due to roundoff
  1189. + error.
  1190. + 
  1191.   @node Incomplete Objects, Variables, Interval Forms, Data Types
  1192.   @section Incomplete Objects
  1193.   
  1194. ***************
  1195. *** 11742,11751 ****
  1196.   
  1197.   @kindex M-DEL
  1198.   @pindex calc-pop-above
  1199. ! The @kbd{M-DEL} (@code{calc-pop-above}) command is to @kbd{DEL} what
  1200. ! @kbd{LFD} is to @kbd{RET}, i.e., it interprets the sign of the numeric
  1201.   prefix argument in the opposite way, and the default argument is 2.
  1202. ! Thus @kbd{M-DEL} by itself removes the second-from-top stack element,
  1203.   leaving the first, third, fourth, and so on; @kbd{M-3 M-DEL} deletes
  1204.   the third stack element.
  1205.   
  1206. --- 11755,11764 ----
  1207.   
  1208.   @kindex M-DEL
  1209.   @pindex calc-pop-above
  1210. ! The @key{M-DEL} (@code{calc-pop-above}) command is to @key{DEL} what
  1211. ! @key{LFD} is to @key{RET}, i.e., it interprets the sign of the numeric
  1212.   prefix argument in the opposite way, and the default argument is 2.
  1213. ! Thus @key{M-DEL} by itself removes the second-from-top stack element,
  1214.   leaving the first, third, fourth, and so on; @kbd{M-3 M-DEL} deletes
  1215.   the third stack element.
  1216.   
  1217. ***************
  1218. *** 14245,14251 ****
  1219.   @samp{string([65, 66, 67])} and can still be manipulated this way; for
  1220.   example, the selection and vector commands @kbd{j 1 v v j u} would
  1221.   select the vector portion of this object and reverse the elements, then
  1222. ! deselect to reveal a string whose characters have been reversed.
  1223.   
  1224.   The composition functions do the same thing in all language modes
  1225.   (although their components will of course be formatted in the current
  1226. --- 14258,14264 ----
  1227.   @samp{string([65, 66, 67])} and can still be manipulated this way; for
  1228.   example, the selection and vector commands @kbd{j 1 v v j u} would
  1229.   select the vector portion of this object and reverse the elements, then
  1230. ! deselect to reveal a string whose characters had been reversed.
  1231.   
  1232.   The composition functions do the same thing in all language modes
  1233.   (although their components will of course be formatted in the current
  1234. ***************
  1235. *** 16167,16193 ****
  1236.   key followed by a shifted letter.  (The @kbd{b} prefix followed by
  1237.   a lower-case letter is used for operations on binary numbers.)
  1238.   
  1239. ! @tindex %
  1240. ! @tindex percent
  1241. ! Since many of these functions have @var{rate} arguments which would
  1242. ! normally be written as percentages, Calc accepts the notation
  1243. ! @samp{@var{x}%} during algebraic entry.  This is equivalent to
  1244. ! @samp{@var{x} * .01}.  In other words, the @var{rate} argument
  1245. ! to these functions wants something like @samp{8%} or @samp{.08}
  1246. ! as a value, @emph{not} 8 (which would correspond to a rate of
  1247. ! 800%!).
  1248.   
  1249. ! Also note that the rate and the number of intervals must be on the
  1250. ! same time scale, e.g., months or years.  Mixing an annual interest
  1251. ! rate with a time expressed in months will give you very wrong
  1252. ! answers!
  1253. ! 
  1254. ! Finally, it is wise to compute these functions to a higher precision
  1255. ! than you really need, just to make sure your answer is correct to
  1256. ! the last penny; also, you may wish to check the definitions at the end
  1257.   of this section to make sure the functions have the meaning you expect.
  1258.   
  1259.   @menu
  1260.   * Future Value::
  1261.   * Present Value::
  1262.   * Related Financial Functions::
  1263. --- 16180,16197 ----
  1264.   key followed by a shifted letter.  (The @kbd{b} prefix followed by
  1265.   a lower-case letter is used for operations on binary numbers.)
  1266.   
  1267. ! Note that the rate and the number of intervals given to these
  1268. ! functions must be on the same time scale, e.g., both months or
  1269. ! both years.  Mixing an annual interest rate with a time expressed
  1270. ! in months will give you very wrong answers!
  1271.   
  1272. ! It is wise to compute these functions to a higher precision than
  1273. ! you really need, just to make sure your answer is correct to the
  1274. ! last penny; also, you may wish to check the definitions at the end
  1275.   of this section to make sure the functions have the meaning you expect.
  1276.   
  1277.   @menu
  1278. + * Percentages::
  1279.   * Future Value::
  1280.   * Present Value::
  1281.   * Related Financial Functions::
  1282. ***************
  1283. *** 16195,16201 ****
  1284.   * Definitions of Financial Functions::
  1285.   @end menu
  1286.   
  1287. ! @node Future Value, Present Value, Financial Functions, Financial Functions
  1288.   @subsection Future Value
  1289.   
  1290.   @noindent
  1291. --- 16199,16270 ----
  1292.   * Definitions of Financial Functions::
  1293.   @end menu
  1294.   
  1295. ! @node Percentages, Future Value, Financial Functions, Financial Functions
  1296. ! @subsection Percentages
  1297. ! 
  1298. ! @kindex M-%
  1299. ! @pindex calc-percent
  1300. ! @tindex %
  1301. ! @tindex percent
  1302. ! The @kbd{M-%} (@code{calc-percent}) command takes a percentage value,
  1303. ! say 5.4, and converts it to an equivalent actual number.  For example,
  1304. ! @kbd{5.4 M-%} enters 0.054 on the stack.  (That's the @key{META} or
  1305. ! @key{ESC} key combined with @kbd{%}.)
  1306. ! 
  1307. ! Actually, @kbd{M-%} creates a formula of the form @samp{5.4%}.
  1308. ! You can enter @samp{5.4%} yourself during algebraic entry.  The
  1309. ! @samp{%} operator simply means, ``the preceding value divided by
  1310. ! 100.''  The @samp{%} operator has very high precedence, so that
  1311. ! @samp{1+8%} is interpreted as @samp{1+(8%)}, not as @samp{(1+8)%}.
  1312. ! (The @samp{%} operator is just a postfix notation for the
  1313. ! @code{percent} function, just like @samp{20!} is the notation for
  1314. ! @samp{fact(20)}, or twenty-factorial).
  1315. ! 
  1316. ! The formula @samp{5.4%} would normally evaluate immediately to
  1317. ! 0.054, but the @kbd{M-%} command suppresses evaluation as it puts
  1318. ! the formula onto the stack.  However, the next Calc command that
  1319. ! uses the formula @samp{5.4%} will evaluate it as its first step.
  1320. ! The net effect is that you get to look at @samp{5.4%} on the stack,
  1321. ! but Calc commands see it as @samp{0.054}, which is what they expect.
  1322. ! 
  1323. ! In particular, @samp{5.4%} and @samp{0.054} are suitable values
  1324. ! for the @var{rate} arguments of the various financial functions,
  1325. ! but the number @samp{5.4} is probably @emph{not} suitable---it
  1326. ! represents a rate of 540 percent!
  1327. ! 
  1328. ! The key sequence @kbd{M-% *} effectively means ``percent-of.''
  1329. ! For example, @kbd{68 RET 25 M-% *} computes 17, which is 25% of
  1330. ! 68 (and also 68% of 25, which comes out to the same thing).
  1331. ! 
  1332. ! @kindex c %
  1333. ! @pindex calc-convert-percent
  1334. ! The @kbd{c %} (@code{calc-convert-percent}) command converts the
  1335. ! value on the top of the stack from numeric to percentage form.
  1336. ! For example, if 0.08 is on the stack, @kbd{c %} converts it to
  1337. ! @samp{8%}.  The quantity is the same, it's just represented
  1338. ! differently.  (Contrast this with @kbd{M-%}, which would convert
  1339. ! this number to @samp{0.08%}.)  The @kbd{=} key is a convenient way
  1340. ! to convert a formula like @samp{8%} back to numeric form, 0.08.
  1341. ! 
  1342. ! To compute what percentage one quantity is of another quantity,
  1343. ! use @kbd{/ c %}.  For example, @kbd{17 RET 68 / c %} displays
  1344. ! @samp{25%}.
  1345. ! 
  1346. ! @kindex b %
  1347. ! @pindex calc-percent-change
  1348. ! @tindex relch
  1349. ! The @kbd{b %} (@code{calc-percent-change}) [@code{relch}] command
  1350. ! calculates the percentage change from one number to another.
  1351. ! For example, @kbd{40 RET 50 b %} produces the answer @samp{25%},
  1352. ! since 50 is 25% larger than 40.  A negative result represents a
  1353. ! decrease:  @kbd{50 RET 40 b %} produces @samp{-20%}, since 40 is
  1354. ! 20% smaller than 50.  (The answers are different in magnitude
  1355. ! because, in the first case, we're increasing by 25% of 40, but
  1356. ! in the second case, we're decreasing by 20% of 50.)  The effect
  1357. ! of @kbd{40 RET 50 b %} is to compute @cite{(50-40)/40}, converting
  1358. ! the answer to percentage form as if by @kbd{c %}.
  1359. ! 
  1360. ! @node Future Value, Present Value, Percentages, Financial Functions
  1361.   @subsection Future Value
  1362.   
  1363.   @noindent
  1364. ***************
  1365. *** 16222,16228 ****
  1366.   in the account after five years?  @code{fvb(5.4%, 5, 1000) = 5870.73}.
  1367.   Thus you will have earned $870 worth of interest over the years.
  1368.   Using the stack, this calculation would have been
  1369. ! @kbd{.054 RET 5 RET 1000 I b F}.  Note that the rate is expressed
  1370.   as a number between 0 and 1, @emph{not} as a percentage.
  1371.   
  1372.   @kindex H b F
  1373. --- 16291,16297 ----
  1374.   in the account after five years?  @code{fvb(5.4%, 5, 1000) = 5870.73}.
  1375.   Thus you will have earned $870 worth of interest over the years.
  1376.   Using the stack, this calculation would have been
  1377. ! @kbd{5.4 M-% 5 RET 1000 I b F}.  Note that the rate is expressed
  1378.   as a number between 0 and 1, @emph{not} as a percentage.
  1379.   
  1380.   @kindex H b F
  1381. ***************
  1382. *** 16401,16407 ****
  1383.   the rate of return on an investment.  This is also an inverse of @code{pv}:
  1384.   @code{rate(@var{n}, @var{payment}, @var{amount})} computes the value of
  1385.   @var{rate} such that @code{pv(@var{rate}, @var{n}, @var{payment}) =
  1386. ! @var{amount}}.@refill
  1387.   
  1388.   @kindex I b T
  1389.   @tindex H b T
  1390. --- 16470,16476 ----
  1391.   the rate of return on an investment.  This is also an inverse of @code{pv}:
  1392.   @code{rate(@var{n}, @var{payment}, @var{amount})} computes the value of
  1393.   @var{rate} such that @code{pv(@var{rate}, @var{n}, @var{payment}) =
  1394. ! @var{amount}}.  The result is expressed as a formula like @samp{6.3%}.@refill
  1395.   
  1396.   @kindex I b T
  1397.   @tindex H b T
  1398. ***************
  1399. *** 16412,16418 ****
  1400.   in place of @code{pv}.  Also, @code{rate} and @code{rateb} can
  1401.   accept an optional fourth argument just like @code{pv} and @code{pvb}.
  1402.   To redo the above example from a different perspective,
  1403. ! @code{ratel(9, 2000, 1000) = .08}, which says you will need an
  1404.   interest rate of 8% in order to double your account in nine years.@refill
  1405.   
  1406.   @kindex b I
  1407. --- 16481,16487 ----
  1408.   in place of @code{pv}.  Also, @code{rate} and @code{rateb} can
  1409.   accept an optional fourth argument just like @code{pv} and @code{pvb}.
  1410.   To redo the above example from a different perspective,
  1411. ! @code{ratel(9, 2000, 1000) = 8.00597%}, which says you will need an
  1412.   interest rate of 8% in order to double your account in nine years.@refill
  1413.   
  1414.   @kindex b I
  1415. ***************
  1416. *** 27406,27412 ****
  1417.   
  1418.   @group
  1419.   @smallexample
  1420. ! |----+-----Calc 2.00-----+----1
  1421.   |FLR |CEIL|RND |TRNC|CLN2|FLT |
  1422.   |----+----+----+----+----+----|
  1423.   | LN |EXP |    |ABS |IDIV|MOD |
  1424. --- 27475,27481 ----
  1425.   
  1426.   @group
  1427.   @smallexample
  1428. ! |----+-----Calc 2.01-----+----1
  1429.   |FLR |CEIL|RND |TRNC|CLN2|FLT |
  1430.   |----+----+----+----+----+----|
  1431.   | LN |EXP |    |ABS |IDIV|MOD |
  1432. ***************
  1433. *** 32336,32342 ****
  1434.   @appendix Installation
  1435.   
  1436.   @noindent
  1437. ! Calc 2.00 comes as a set of GNU Emacs Lisp files, with names like
  1438.   @file{calc.el} and @file{calc-ext.el}, and also as a @file{calc.texinfo}
  1439.   file which can be used to generate both on-line and printed
  1440.   documentation.@refill
  1441. --- 32405,32411 ----
  1442.   @appendix Installation
  1443.   
  1444.   @noindent
  1445. ! Calc 2.01 comes as a set of GNU Emacs Lisp files, with names like
  1446.   @file{calc.el} and @file{calc-ext.el}, and also as a @file{calc.texinfo}
  1447.   file which can be used to generate both on-line and printed
  1448.   documentation.@refill
  1449. ***************
  1450. *** 32506,32515 ****
  1451.   Unless you have installed the Calc files in Emacs' main @file{lisp/}
  1452.   directory, you will also have to add a command that looks like the
  1453.   following to tell Emacs where to find them.  In this example, we
  1454. ! have put the files in directory @file{/usr/gnu/src/calc-2.00}.
  1455.   
  1456.   @smallexample
  1457. ! (setq load-path (append load-path (list "/usr/gnu/src/calc-2.00")))
  1458.   @end smallexample
  1459.   
  1460.   @noindent
  1461. --- 32575,32584 ----
  1462.   Unless you have installed the Calc files in Emacs' main @file{lisp/}
  1463.   directory, you will also have to add a command that looks like the
  1464.   following to tell Emacs where to find them.  In this example, we
  1465. ! have put the files in directory @file{/usr/gnu/src/calc-2.01}.
  1466.   
  1467.   @smallexample
  1468. ! (setq load-path (append load-path (list "/usr/gnu/src/calc-2.01")))
  1469.   @end smallexample
  1470.   
  1471.   @noindent
  1472. ***************
  1473. *** 32561,32574 ****
  1474.   @code{load-path}:
  1475.   
  1476.   @example
  1477. ! (autoload 'calc-dispatch "calc-2.00/calc" "Calculator" t)
  1478.   @end example
  1479.   
  1480.   @noindent
  1481.   Suppose the directory @file{/usr/gnu/src/emacs/lisp} is on the path, and
  1482.   the above @code{autoload} allows Emacs to find Calc under the name
  1483. ! @file{/usr/gnu/src/emacs/lisp/calc-2.00/calc.elc}.  Then when Calc
  1484. ! starts up it will add @file{/usr/gnu/src/emacs/lisp/calc-2.00}
  1485.   to the path so that it will later be able to find its component files.
  1486.   
  1487.   @vindex calc-autoload-directory
  1488. --- 32630,32643 ----
  1489.   @code{load-path}:
  1490.   
  1491.   @example
  1492. ! (autoload 'calc-dispatch "calc-2.01/calc" "Calculator" t)
  1493.   @end example
  1494.   
  1495.   @noindent
  1496.   Suppose the directory @file{/usr/gnu/src/emacs/lisp} is on the path, and
  1497.   the above @code{autoload} allows Emacs to find Calc under the name
  1498. ! @file{/usr/gnu/src/emacs/lisp/calc-2.01/calc.elc}.  Then when Calc
  1499. ! starts up it will add @file{/usr/gnu/src/emacs/lisp/calc-2.01}
  1500.   to the path so that it will later be able to find its component files.
  1501.   
  1502.   @vindex calc-autoload-directory
  1503. ***************
  1504. *** 32728,32734 ****
  1505.   copy if you really need it.  To print the manual, you will need the
  1506.   @TeX{} typesetting program (this is a free program by Donald Knuth
  1507.   at Stanford University) as well as the @file{texindex} program and
  1508. ! @file{texinfo.tex} file that come with GNU Emacs.@refill
  1509.   
  1510.   To print the Calc manual in one huge 550 page tome, type @samp{make tex}.
  1511.   This will take care of running the manual through @TeX{} twice so that
  1512. --- 32797,32804 ----
  1513.   copy if you really need it.  To print the manual, you will need the
  1514.   @TeX{} typesetting program (this is a free program by Donald Knuth
  1515.   at Stanford University) as well as the @file{texindex} program and
  1516. ! @file{texinfo.tex} file, both of which can be obtained from the FSF
  1517. ! under the name @code{texinfo2}.@refill
  1518.   
  1519.   To print the Calc manual in one huge 550 page tome, type @samp{make tex}.
  1520.   This will take care of running the manual through @TeX{} twice so that
  1521. ***************
  1522. *** 32870,32876 ****
  1523.   @appendix Calc Summary
  1524.   
  1525.   @noindent
  1526. ! This section includes a complete list of Calc 2.00 keystroke commands.
  1527.   Each line lists the stack entries used by the command (top-of-stack
  1528.   last), the keystrokes themselves, the prompts asked by the command,
  1529.   and the result of the command (also with top-of-stack last).
  1530. --- 32940,32946 ----
  1531.   @appendix Calc Summary
  1532.   
  1533.   @noindent
  1534. ! This section includes a complete list of Calc 2.01 keystroke commands.
  1535.   Each line lists the stack entries used by the command (top-of-stack
  1536.   last), the keystrokes themselves, the prompts asked by the command,
  1537.   and the result of the command (also with top-of-stack last).
  1538. ***************
  1539. *** 32884,32889 ****
  1540. --- 32954,32960 ----
  1541.   @xref{Command Index}.  @xref{Function Index}.
  1542.   
  1543.   @iftex
  1544. + @begingroup
  1545.   @tex
  1546.   \gdef\sumrow#1{\sumrowx#1\relax}%
  1547.   \gdef\sumrowx#1\:#2\:#3\:#4\:#5\:#6\relax{%
  1548. ***************
  1549. *** 32978,32983 ****
  1550. --- 33049,33055 ----
  1551.   @r{      a@:      &     @:             @:     1  @:inv@:(a)  1/a}
  1552.   @r{      a@:      !     @:             @:     1  @:fact@:(a)  a!}
  1553.   @r{      a@:      =     @:             @:     1  @:evalv@:(a)}
  1554. + @r{      a@:      M-%   @:             @:        @:percent@:(a)}
  1555.    
  1556.   @c 
  1557.   @r{  ... a@:      RET   @:             @:     1  @:@:... a a}
  1558. ***************
  1559. *** 33186,33191 ****
  1560. --- 33258,33264 ----
  1561.   @r{  r p a@:      b #   @:             @:        @:nper@:(r,p,a)}
  1562.   @r{  r p a@:    I b #   @:             @:        @:nperb@:(r,p,a)}
  1563.   @r{  r p a@:    H b #   @:             @:        @:nperl@:(r,p,a)}
  1564. + @r{    a b@:      b %   @:             @:        @:relch@:(a,b)}
  1565.    
  1566.   @c 
  1567.   @r{      a@:      c c   @:             @:     5  @:pclean@:(a,p)}
  1568. ***************
  1569. *** 33205,33210 ****
  1570. --- 33278,33286 ----
  1571.   @r{      a@:    H c F   @:             @:     5  @:frac@:(a,p)}
  1572.    
  1573.   @c 
  1574. + @r{      a@:      c %   @:             @:        @:percent@:(a*100)}
  1575. +  
  1576. + @c 
  1577.   @r{       @:      d .   @:char         @:    50  @:calc-point-char@:}
  1578.   @r{       @:      d ,   @:char         @:    50  @:calc-group-char@:}
  1579.   @r{       @:      d <   @:             @: 13,50  @:calc-left-justify@:}
  1580. ***************
  1581. *** 34068,34073 ****
  1582. --- 34144,34150 ----
  1583.   @iftex
  1584.   (Space is provided below for you to keep your own written notes.)
  1585.   @page
  1586. + @endgroup
  1587.   @end iftex
  1588.   
  1589.   
  1590.  
  1591. exit 0 # Just in case...
  1592. -- 
  1593. Kent Landfield                   INTERNET: kent@sparky.IMD.Sterling.COM
  1594. Sterling Software, IMD           UUCP:     uunet!sparky!kent
  1595. Phone:    (402) 291-8300         FAX:      (402) 291-4362
  1596. Please send comp.sources.misc-related mail to kent@uunet.uu.net.
  1597.