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

Legend:
Removed from v.1.21.4.1  
changed lines
  Added in v.1.21.4.2

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