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

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

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

revision 1.23 by monnier, Fri Mar 26 15:29:13 2004 UTC revision 1.24 by jpb, Wed Sep 15 16:48:19 2004 UTC
# Line 257  Entries are 3-lists:  Formula, Height (i Line 257  Entries are 3-lists:  Formula, Height (i
257    "Index into `calc-stack' of \"top\" of stack.    "Index into `calc-stack' of \"top\" of stack.
258  This is 1 unless `calc-truncate-stack' has been used.")  This is 1 unless `calc-truncate-stack' has been used.")
259    
260  (defvar calc-always-load-extensions nil  (defvar calc-display-sci-high 0
261    "If non-nil, load the calc-ext module automatically when calc is loaded.")    "Floating-point numbers with this positive exponent or higher above the
262    current precision are displayed in scientific notation in calc-mode.")
263    
264  (defvar calc-line-numbering t  (defvar calc-display-sci-low -3
265    "If non-nil, display line numbers in Calculator stack.")    "Floating-point numbers with this negative exponent or lower are displayed
266    scientific notation in calc-mode.")
267    
268  (defvar calc-line-breaking t  (defvar calc-other-modes nil
269    "If non-nil, break long values across multiple lines in Calculator stack.")    "List of used-defined strings to append to Calculator mode line.")
270    
271  (defvar calc-display-just nil  (defvar calc-Y-help-msgs nil
272    "If nil, stack display is left-justified.    "List of strings for Y prefix help.")
273    
274    (defvar calc-loaded-settings-file nil
275      "t if `calc-settings-file' has been loaded yet.")
276    
277    (defvar calc-always-load-extensions)
278    (defvar calc-line-numbering)
279    (defvar calc-line-breaking)
280    (defvar calc-display-just)
281    (defvar calc-display-origin)
282    (defvar calc-number-radix)
283    (defvar calc-leading-zeros)
284    (defvar calc-group-digits)
285    (defvar calc-group-char)
286    (defvar calc-point-char)
287    (defvar calc-frac-format)
288    (defvar calc-prefer-frac)
289    (defvar calc-hms-format)
290    (defvar calc-date-format)
291    (defvar calc-float-format)
292    (defvar calc-full-float-format)
293    (defvar calc-complex-format)
294    (defvar calc-complex-mode)
295    (defvar calc-infinite-mode)
296    (defvar calc-display-strings)
297    (defvar calc-matrix-just)
298    (defvar calc-break-vectors)
299    (defvar calc-full-vectors)
300    (defvar calc-full-trail-vectors)
301    (defvar calc-vector-commas)
302    (defvar calc-vector-brackets)
303    (defvar calc-matrix-brackets)
304    (defvar calc-language)
305    (defvar calc-language-option)
306    (defvar calc-left-label)
307    (defvar calc-right-label)
308    (defvar calc-word-size)
309    (defvar calc-previous-modulo)
310    (defvar calc-simplify-mode)
311    (defvar calc-auto-recompute)
312    (defvar calc-display-raw)
313    (defvar calc-internal-prec)
314    (defvar calc-angle-mode)
315    (defvar calc-algebraic-mode)
316    (defvar calc-incomplete-algebraic-mode)
317    (defvar calc-symbolic-mode)
318    (defvar calc-matrix-mode)
319    (defvar calc-shift-prefix)
320    (defvar calc-window-height)
321    (defvar calc-display-trail)
322    (defvar calc-show-selections)
323    (defvar calc-use-selections)
324    (defvar calc-assoc-selections)
325    (defvar calc-display-working-message)
326    (defvar calc-auto-why)
327    (defvar calc-timing)
328    (defvar calc-mode-save-mode)
329    (defvar calc-standard-date-formats)
330    (defvar calc-autorange-units)
331    (defvar calc-was-keypad-mode)
332    (defvar calc-full-mode)
333    (defvar calc-user-parse-tables)
334    (defvar calc-gnuplot-default-device)
335    (defvar calc-gnuplot-default-output)
336    (defvar calc-gnuplot-print-device)
337    (defvar calc-gnuplot-print-output)
338    (defvar calc-gnuplot-geometry)
339    (defvar calc-graph-default-resolution)
340    (defvar calc-graph-default-resolution-3d)
341    (defvar calc-invocation-macro)
342    (defvar calc-show-banner)
343    
344    (defconst calc-mode-var-list '(
345      (calc-always-load-extensions nil
346       "If non-nil, load the calc-ext module automatically when calc is loaded.")
347    
348      (calc-line-numbering t
349       "If non-nil, display line numbers in Calculator stack.")
350    
351      (calc-line-breaking t
352       "If non-nil, break long values across multiple lines in Calculator stack.")
353    
354      (calc-display-just nil
355       "If nil, stack display is left-justified.
356  If `right', stack display is right-justified.  If `right', stack display is right-justified.
357  If `center', stack display is centered.")  If `center', stack display is centered.")
358    
359  (defvar calc-display-origin nil    (calc-display-origin nil
360    "Horizontal origin of displayed stack entries.     "Horizontal origin of displayed stack entries.
361  In left-justified mode, this is effectively indentation.  (Default 0).  In left-justified mode, this is effectively indentation.  (Default 0).
362  In right-justified mode, this is effectively window width.  In right-justified mode, this is effectively window width.
363  In centered mode, center of stack entry is placed here.")  In centered mode, center of stack entry is placed here.")
364    
365  (defvar calc-number-radix 10    (calc-number-radix 10
366    "Radix for entry and display of numbers in calc-mode, 2-36.")     "Radix for entry and display of numbers in calc-mode, 2-36.")
367    
368  (defvar calc-leading-zeros nil    (calc-leading-zeros nil
369    "If non-nil, leading zeros are provided to pad integers to calc-word-size.")     "If non-nil, leading zeros are provided to pad integers to calc-word-size.")
370    
371  (defvar calc-group-digits nil    (calc-group-digits nil
372    "If non-nil, group digits in large displayed integers by inserting spaces.     "If non-nil, group digits in large displayed integers by inserting spaces.
373  If an integer, group that many digits at a time.  If an integer, group that many digits at a time.
374  If t, use 4 for binary and hex, 3 otherwise.")  If t, use 4 for binary and hex, 3 otherwise.")
375    
376  (defvar calc-group-char ","    (calc-group-char ","
377    "The character (in the form of a string) to be used for grouping digits.     "The character (in the form of a string) to be used for grouping digits.
378  This is used only when calc-group-digits mode is on.")  This is used only when calc-group-digits mode is on.")
379    
380  (defvar calc-point-char "."    (calc-point-char "."
381    "The character (in the form of a string) to be used as a decimal point.")     "The character (in the form of a string) to be used as a decimal point.")
382      
383      (calc-frac-format (":" nil)
384       "Format of displayed fractions; a string of one or two of \":\" or \"/\".")
385    
386  (defvar calc-frac-format '(":" nil)    (calc-prefer-frac nil
387    "Format of displayed fractions; a string of one or two of \":\" or \"/\".")     "If non-nil, prefer fractional over floating-point results.")
388    
389  (defvar calc-prefer-frac nil    (calc-hms-format "%s@ %s' %s\""
390    "If non-nil, prefer fractional over floating-point results.")     "Format of displayed hours-minutes-seconds angles, a format string.
   
 (defvar calc-hms-format "%s@ %s' %s\""  
   "Format of displayed hours-minutes-seconds angles, a format string.  
391  String must contain three %s marks for hours, minutes, seconds respectively.")  String must contain three %s marks for hours, minutes, seconds respectively.")
392    
393  (defvar calc-date-format '((H ":" mm C SS pp " ")    (calc-date-format ((H ":" mm C SS pp " ")
394                             Www " " Mmm " " D ", " YYYY)                       Www " " Mmm " " D ", " YYYY)
395    "Format of displayed date forms.")     "Format of displayed date forms.")
396    
397  (defvar calc-float-format '(float 0)    (calc-float-format (float 0)
398    "Format to use for display of floating-point numbers in calc-mode.     "Format to use for display of floating-point numbers in calc-mode.
399  Must be a list of one of the following forms:  Must be a list of one of the following forms:
400   (float 0)      Floating point format, display full precision.   (float 0)      Floating point format, display full precision.
401   (float N)      N > 0: Floating point format, at most N significant figures.   (float N)      N > 0: Floating point format, at most N significant figures.
# Line 323  Must be a list of one of the following f Line 408  Must be a list of one of the following f
408   (eng N)        N > 0: Engineering notation, N significant figures.   (eng N)        N > 0: Engineering notation, N significant figures.
409   (eng -N)       -N < 0: Engineering notation, calc-internal-prec - N figs.")   (eng -N)       -N < 0: Engineering notation, calc-internal-prec - N figs.")
410    
411  (defvar calc-full-float-format '(float 0)    (calc-full-float-format (float 0)
412    "Format to use when full precision must be displayed.")     "Format to use when full precision must be displayed.")
413    
414  (defvar calc-complex-format nil    (calc-complex-format nil
415    "Format to use for display of complex numbers in calc-mode.  Must be one of:     "Format to use for display of complex numbers in calc-mode.  Must be one of:
416    nil            Use (x, y) form.    nil            Use (x, y) form.
417    i              Use x + yi form.    i              Use x + yi form.
418    j              Use x + yj form.")    j              Use x + yj form.")
419    
420  (defvar calc-complex-mode 'cplx    (calc-complex-mode cplx
421    "Preferred form, either `cplx' or `polar', for complex numbers.")     "Preferred form, either `cplx' or `polar', for complex numbers.")
422    
423  (defvar calc-infinite-mode nil    (calc-infinite-mode nil
424    "If nil, 1 / 0 is left unsimplified.     "If nil, 1 / 0 is left unsimplified.
425  If 0, 1 / 0 is changed to inf (zeros are considered positive).  If 0, 1 / 0 is changed to inf (zeros are considered positive).
426  Otherwise, 1 / 0 is changed to uinf (undirected infinity).")  Otherwise, 1 / 0 is changed to uinf (undirected infinity).")
427    
428  (defvar calc-display-strings nil    (calc-display-strings nil
429    "If non-nil, display vectors of byte-sized integers as strings.")     "If non-nil, display vectors of byte-sized integers as strings.")
430    
431  (defvar calc-matrix-just 'center    (calc-matrix-just 'center
432    "If nil, vector elements are left-justified.     "If nil, vector elements are left-justified.
433  If `right', vector elements are right-justified.  If `right', vector elements are right-justified.
434  If `center', vector elements are centered.")  If `center', vector elements are centered.")
435    
436  (defvar calc-break-vectors nil    (calc-break-vectors nil
437    "If non-nil, display vectors one element per line.")     "If non-nil, display vectors one element per line.")
438    
439  (defvar calc-full-vectors t    (calc-full-vectors t
440    "If non-nil, display long vectors in full.  If nil, use abbreviated form.")     "If non-nil, display long vectors in full.  If nil, use abbreviated form.")
441    
442  (defvar calc-full-trail-vectors t    (calc-full-trail-vectors t
443    "If non-nil, display long vectors in full in the trail.")     "If non-nil, display long vectors in full in the trail.")
444    
445  (defvar calc-vector-commas ","    (calc-vector-commas ","
446    "If non-nil, separate elements of displayed vectors with this string.")     "If non-nil, separate elements of displayed vectors with this string.")
447    
448  (defvar calc-vector-brackets "[]"    (calc-vector-brackets "[]"
449    "If non-nil, surround displayed vectors with these characters.")     "If non-nil, surround displayed vectors with these characters.")
450    
451  (defvar calc-matrix-brackets '(R O)    (calc-matrix-brackets '(R O)
452    "A list of code-letter symbols that control \"big\" matrix display.     "A list of code-letter symbols that control \"big\" matrix display.
453  If `R' is present, display inner brackets for matrices.  If `R' is present, display inner brackets for matrices.
454  If `O' is present, display outer brackets for matrices (above/below).  If `O' is present, display outer brackets for matrices (above/below).
455  If `C' is present, display outer brackets for matrices (centered).")  If `C' is present, display outer brackets for matrices (centered).")
456    
457  (defvar calc-language nil    (calc-language nil
458    "Language or format for entry and display of stack values.  Must be one of:     "Language or format for entry and display of stack values.  Must be one of:
459    nil           Use standard Calc notation.    nil           Use standard Calc notation.
460    flat          Use standard Calc notation, one-line format.    flat          Use standard Calc notation, one-line format.
461    big           Display formulas in 2-d notation (enter w/std notation).    big           Display formulas in 2-d notation (enter w/std notation).
# Line 383  If `C' is present, display outer bracket Line 468  If `C' is present, display outer bracket
468    math          Use Mathematica(tm) notation.    math          Use Mathematica(tm) notation.
469    maple         Use Maple notation.")    maple         Use Maple notation.")
470    
471  (defvar calc-language-option nil    (calc-language-option nil
472    "Numeric prefix argument for the command that set `calc-language'.")     "Numeric prefix argument for the command that set `calc-language'.")
473    
474  (defvar calc-function-open "("    (calc-left-label ""
475    "Open-parenthesis string for function call notation.")     "Label to display at left of formula.")
   
 (defvar calc-function-close ")"  
   "Close-parenthesis string for function call notation.")  
   
 (defvar calc-language-output-filter nil  
   "Function through which to pass strings after formatting.")  
   
 (defvar calc-language-input-filter nil  
   "Function through which to pass strings before parsing.")  
   
 (defvar calc-radix-formatter nil  
   "Formatting function used for non-decimal numbers.")  
   
 (defvar calc-left-label ""  
   "Label to display at left of formula.")  
476    
477  (defvar calc-right-label ""    (calc-right-label ""
478    "Label to display at right of formula.")     "Label to display at right of formula.")
479    
480  (defvar calc-word-size 32    (calc-word-size 32
481    "Minimum number of bits per word, if any, for binary operations in calc-mode.")     "Minimum number of bits per word, if any, for binary operations in calc-mode.")
482    
483  (defvar calc-previous-modulo nil    (calc-previous-modulo nil
484    "Most recently used value of M in a modulo form.")     "Most recently used value of M in a modulo form.")
485    
486  (defvar calc-simplify-mode nil    (calc-simplify-mode nil
487    "Type of simplification applied to results.     "Type of simplification applied to results.
488  If `none', results are not simplified when pushed on the stack.  If `none', results are not simplified when pushed on the stack.
489  If `num', functions are simplified only when args are constant.  If `num', functions are simplified only when args are constant.
490  If nil, only fast simplifications are applied.  If nil, only fast simplifications are applied.
# Line 423  If `alg', `math-simplify' is applied. Line 493  If `alg', `math-simplify' is applied.
493  If `ext', `math-simplify-extended' is applied.  If `ext', `math-simplify-extended' is applied.
494  If `units', `math-simplify-units' is applied.")  If `units', `math-simplify-units' is applied.")
495    
496  (defvar calc-auto-recompute t    (calc-auto-recompute t
497    "If non-nil, recompute evalto's automatically when necessary.")     "If non-nil, recompute evalto's automatically when necessary.")
   
 (defvar calc-display-raw nil  
   "If non-nil, display shows unformatted Lisp exprs.  (For debugging)")  
   
 (defvar calc-internal-prec 12  
   "Number of digits of internal precision for calc-mode calculations.")  
   
 (defvar calc-inverse-flag nil  
   "If non-nil, next operation is Inverse.")  
498    
499  (defvar calc-hyperbolic-flag nil    (calc-display-raw nil
500    "If non-nil, next operation is Hyperbolic.")     "If non-nil, display shows unformatted Lisp exprs.  (For debugging)")
501    
502  (defvar calc-keep-args-flag nil    (calc-internal-prec 12
503    "If non-nil, next operation should not remove its arguments from stack.")     "Number of digits of internal precision for calc-mode calculations.")
504    
505  (defvar calc-angle-mode 'deg    (calc-angle-mode deg
506    "If deg, angles are in degrees; if rad, angles are in radians.     "If deg, angles are in degrees; if rad, angles are in radians.
507  If hms, angles are in degrees-minutes-seconds.")  If hms, angles are in degrees-minutes-seconds.")
508    
509  (defvar calc-algebraic-mode nil    (calc-algebraic-mode nil
510    "If non-nil, numeric entry accepts whole algebraic expressions.     "If non-nil, numeric entry accepts whole algebraic expressions.
511  If nil, algebraic expressions must be preceded by \"'\".")  If nil, algebraic expressions must be preceded by \"'\".")
512    
513  (defvar calc-incomplete-algebraic-mode nil    (calc-incomplete-algebraic-mode nil
514    "Like calc-algebraic-mode except only affects ( and [ keys.")     "Like calc-algebraic-mode except only affects ( and [ keys.")
515    
516  (defvar calc-symbolic-mode nil    (calc-symbolic-mode nil
517    "If non-nil, inexact numeric computations like sqrt(2) are postponed.     "If non-nil, inexact numeric computations like sqrt(2) are postponed.
518  If nil, computations on numbers always yield numbers where possible.")  If nil, computations on numbers always yield numbers where possible.")
519    
520  (defvar calc-matrix-mode nil    (calc-matrix-mode nil
521    "If `matrix', variables are assumed to be matrix-valued.     "If `matrix', variables are assumed to be matrix-valued.
522  If a number, variables are assumed to be NxN matrices.  If a number, variables are assumed to be NxN matrices.
523  If `scalar', variables are assumed to be scalar-valued.  If `scalar', variables are assumed to be scalar-valued.
524  If nil, symbolic math routines make no assumptions about variables.")  If nil, symbolic math routines make no assumptions about variables.")
525    
526  (defvar calc-shift-prefix nil    (calc-shift-prefix nil
527    "If non-nil, shifted letter keys are prefix keys rather than normal meanings.")     "If non-nil, shifted letter keys are prefix keys rather than normal meanings.")
528    
529  (defvar calc-window-height 7    (calc-window-height 7
530    "Initial height of Calculator window.")     "Initial height of Calculator window.")
531    
532  (defvar calc-display-trail t    (calc-display-trail t
533    "If non-nil, M-x calc creates a window to display Calculator trail.")     "If non-nil, M-x calc creates a window to display Calculator trail.")
534    
535  (defvar calc-show-selections t    (calc-show-selections t
536    "If non-nil, selected sub-formulas are shown by obscuring rest of formula.     "If non-nil, selected sub-formulas are shown by obscuring rest of formula.
537  If nil, selected sub-formulas are highlighted by obscuring the sub-formulas.")  If nil, selected sub-formulas are highlighted by obscuring the sub-formulas.")
538    
539  (defvar calc-use-selections t    (calc-use-selections t
540    "If non-nil, commands operate only on selected portions of formulas.     "If non-nil, commands operate only on selected portions of formulas.
541  If nil, selections displayed but ignored.")  If nil, selections displayed but ignored.")
542    
543  (defvar calc-assoc-selections t    (calc-assoc-selections t
544    "If non-nil, selection hides deep structure of associative formulas.")     "If non-nil, selection hides deep structure of associative formulas.")
545    
546  (defvar calc-display-working-message 'lots    (calc-display-working-message 'lots
547    "If non-nil, display \"Working...\" for potentially slow Calculator commands.")     "If non-nil, display \"Working...\" for potentially slow Calculator commands.")
548    
549  (defvar calc-auto-why 'maybe    (calc-auto-why 'maybe
550    "If non-nil, automatically execute a \"why\" command to explain odd results.")     "If non-nil, automatically execute a \"why\" command to explain odd results.")
551    
552  (defvar calc-timing nil    (calc-timing nil
553    "If non-nil, display timing information on each slow command.")     "If non-nil, display timing information on each slow command.")
554    
555  (defvar calc-display-sci-high 0    (calc-mode-save-mode local)
   "Floating-point numbers with this positive exponent or higher above the  
 current precision are displayed in scientific notation in calc-mode.")  
556    
557  (defvar calc-display-sci-low -3    (calc-standard-date-formats
558    "Floating-point numbers with this negative exponent or lower are displayed     '("N"
559  scientific notation in calc-mode.")       "<H:mm:SSpp >Www Mmm D, YYYY"
560         "D Mmm YYYY<, h:mm:SS>"
561         "Www Mmm BD< hh:mm:ss> YYYY"
562         "M/D/Y< H:mm:SSpp>"
563         "D.M.Y< h:mm:SS>"
564         "M-D-Y< H:mm:SSpp>"
565         "D-M-Y< h:mm:SS>"
566         "j<, h:mm:SS>"
567         "YYddd< hh:mm:ss>"))
568    
569      (calc-autorange-units nil)
570      
571      (calc-was-keypad-mode nil)
572      
573      (calc-full-mode nil)
574    
575  (defvar calc-other-modes nil    (calc-user-parse-tables nil)
   "List of used-defined strings to append to Calculator mode line.")  
576    
577  (defvar calc-Y-help-msgs nil    (calc-gnuplot-default-device "default")
   "List of strings for Y prefix help.")  
578    
579  (defvar calc-loaded-settings-file nil    (calc-gnuplot-default-output "STDOUT")
580    "t if `calc-settings-file' has been loaded yet.")  
581      (calc-gnuplot-print-device "postscript")
582      
583      (calc-gnuplot-print-output "auto")
584    
585      (calc-gnuplot-geometry nil)
586    
587      (calc-graph-default-resolution 15)
588    
589      (calc-graph-default-resolution-3d 5)
590      
591      (calc-invocation-macro nil)
592    
593  (defvar calc-mode-save-mode 'local)    (calc-show-banner t))
594  (defvar calc-standard-date-formats    "List of variables (and default values) used in customizing GNU Calc.")
595    '("N"  
596      "<H:mm:SSpp >Www Mmm D, YYYY"  (mapcar (function (lambda (v)
597      "D Mmm YYYY<, h:mm:SS>"                      (or (boundp (car v))
598      "Www Mmm BD< hh:mm:ss> YYYY"                          (set (car v) (nth 1 v)))
599      "M/D/Y< H:mm:SSpp>"                      (if (nth 2 v)
600      "D.M.Y< h:mm:SS>"                          (put (car v) 'variable-documentation (nth 2 v)))))
601      "M-D-Y< H:mm:SSpp>"          calc-mode-var-list)
     "D-M-Y< h:mm:SS>"  
     "j<, h:mm:SS>"  
     "YYddd< hh:mm:ss>"))  
 (defvar calc-autorange-units nil)  
 (defvar calc-was-keypad-mode nil)  
 (defvar calc-full-mode nil)  
 (defvar calc-user-parse-tables nil)  
 (defvar calc-gnuplot-default-device "default")  
 (defvar calc-gnuplot-default-output "STDOUT")  
 (defvar calc-gnuplot-print-device "postscript")  
 (defvar calc-gnuplot-print-output "auto")  
 (defvar calc-gnuplot-geometry nil)  
 (defvar calc-graph-default-resolution 15)  
 (defvar calc-graph-default-resolution-3d 5)  
 (defvar calc-invocation-macro nil)  
 (defvar calc-show-banner t)  
602    
603  (defconst calc-local-var-list '(calc-stack  (defconst calc-local-var-list '(calc-stack
604                                  calc-stack-top                                  calc-stack-top
# Line 666  scientific notation in calc-mode.") Line 729  scientific notation in calc-mode.")
729  (defvar calc-trail-buffer nil)          ; Pointer to Calc Trail buffer.  (defvar calc-trail-buffer nil)          ; Pointer to Calc Trail buffer.
730  (defvar calc-why nil)                   ; Explanations of most recent errors.  (defvar calc-why nil)                   ; Explanations of most recent errors.
731  (defvar calc-next-why nil)  (defvar calc-next-why nil)
732  (defvar calc-inverse-flag nil)  (defvar calc-inverse-flag nil
733  (defvar calc-hyperbolic-flag nil)    "If non-nil, next operation is Inverse.")
734  (defvar calc-keep-args-flag nil)  (defvar calc-hyperbolic-flag nil
735      "If non-nil, next operation is Hyperbolic.")
736    (defvar calc-keep-args-flag nil
737      "If non-nil, next operation should not remove its arguments from stack.")
738    (defvar calc-function-open "("
739      "Open-parenthesis string for function call notation.")
740    (defvar calc-function-close ")"
741      "Close-parenthesis string for function call notation.")
742    (defvar calc-language-output-filter nil
743      "Function through which to pass strings after formatting.")
744    (defvar calc-language-input-filter nil
745      "Function through which to pass strings before parsing.")
746    (defvar calc-radix-formatter nil
747      "Formatting function used for non-decimal numbers.")
748    
749  (defvar calc-last-kill nil)             ; Last number killed in calc-mode.  (defvar calc-last-kill nil)             ; Last number killed in calc-mode.
750  (defvar calc-previous-alg-entry nil)    ; Previous algebraic entry.  (defvar calc-previous-alg-entry nil)    ; Previous algebraic entry.
751  (defvar calc-dollar-values nil)         ; Values to be used for '$'.  (defvar calc-dollar-values nil)         ; Values to be used for '$'.

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

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