/[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.7 by walters, Sat Nov 24 22:33:47 2001 UTC revision 1.8 by pj, Thu Dec 20 18:50:30 2001 UTC
# Line 239  This can safely be nil as long as the Ca Line 239  This can safely be nil as long as the Ca
239  ;; Address of the author of Calc, for use by report-calc-bug.  ;; Address of the author of Calc, for use by report-calc-bug.
240  (defvar calc-bug-address "walters@debian.org")  (defvar calc-bug-address "walters@debian.org")
241    
242  ;; If T, scan keymaps to find all DEL-like keys.  ;; If t, scan keymaps to find all DEL-like keys.
243  ;; If NIL, only DEL itself is mapped to calc-pop.  ;; if nil, only DEL itself is mapped to calc-pop.
244  (defvar calc-scan-for-dels t)  (defvar calc-scan-for-dels t)
245    
246  (defvar calc-extensions-loaded nil)  (defvar calc-extensions-loaded nil)
# Line 253  This can safely be nil as long as the Ca Line 253  This can safely be nil as long as the Ca
253  ;; This is 1 unless calc-truncate-stack has been used.  ;; This is 1 unless calc-truncate-stack has been used.
254  ;;(defvar calc-stack-top 1)  ;;(defvar calc-stack-top 1)
255    
256  ;; If non-NIL, load the calc-ext module automatically when calc is loaded.  ;; If non-nil, load the calc-ext module automatically when calc is loaded.
257  ;;(defvar calc-always-load-extensions nil)  ;;(defvar calc-always-load-extensions nil)
258    
259  ;; If non-NIL, display line numbers in Calculator stack.  ;; If non-nil, display line numbers in Calculator stack.
260  ;;(defvar calc-line-numbering t)  ;;(defvar calc-line-numbering t)
261    
262  ;; If non-NIL, break long values across multiple lines in Calculator stack.  ;; If non-nil, break long values across multiple lines in Calculator stack.
263  ;;(defvar calc-line-breaking t)  ;;(defvar calc-line-breaking t)
264    
265  ;; If NIL, stack display is left-justified.  ;; If nil, stack display is left-justified.
266  ;; If 'right, stack display is right-justified.  ;; If 'right, stack display is right-justified.
267  ;; If 'center, stack display is centered."  ;; If 'center, stack display is centered."
268  ;;(defvar calc-display-just nil)  ;;(defvar calc-display-just nil)
# Line 276  This can safely be nil as long as the Ca Line 276  This can safely be nil as long as the Ca
276  ;; Radix for entry and display of numbers in calc-mode, 2-36.  ;; Radix for entry and display of numbers in calc-mode, 2-36.
277  ;;(defvar calc-number-radix 10)  ;;(defvar calc-number-radix 10)
278    
279  ;; 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.
280  ;;(defvar calc-leading-zeros nil)  ;;(defvar calc-leading-zeros nil)
281    
282  ;; If non-NIL, group digits in large displayed integers by inserting spaces.  ;; If non-nil, group digits in large displayed integers by inserting spaces.
283  ;; If an integer, group that many digits at a time.  ;; If an integer, group that many digits at a time.
284  ;; If 't', use 4 for binary and hex, 3 otherwise.  ;; If 't', use 4 for binary and hex, 3 otherwise.
285  ;;(defvar calc-group-digits nil)  ;;(defvar calc-group-digits nil)
# Line 294  This can safely be nil as long as the Ca Line 294  This can safely be nil as long as the Ca
294  ;; Format of displayed fractions; a string of one or two of ":" or "/".  ;; Format of displayed fractions; a string of one or two of ":" or "/".
295  ;;(defvar calc-frac-format '(":" nil))  ;;(defvar calc-frac-format '(":" nil))
296    
297  ;; If non-NIL, prefer fractional over floating-point results.  ;; If non-nil, prefer fractional over floating-point results.
298  ;;(defvar calc-prefer-frac nil)  ;;(defvar calc-prefer-frac nil)
299    
300  ;; Format of displayed hours-minutes-seconds angles, a format string.  ;; Format of displayed hours-minutes-seconds angles, a format string.
# Line 330  This can safely be nil as long as the Ca Line 330  This can safely be nil as long as the Ca
330  ;; Preferred form, either 'cplx or 'polar, for complex numbers.  ;; Preferred form, either 'cplx or 'polar, for complex numbers.
331  ;;(defvar calc-complex-mode 'cplx)  ;;(defvar calc-complex-mode 'cplx)
332    
333  ;; If NIL, 1 / 0 is left unsimplified.  ;; If nil, 1 / 0 is left unsimplified.
334  ;; If 0, 1 / 0 is changed to inf (zeros are considered positive).  ;; If 0, 1 / 0 is changed to inf (zeros are considered positive).
335  ;; Otherwise, 1 / 0 is changed to uinf (undirected infinity).  ;; Otherwise, 1 / 0 is changed to uinf (undirected infinity).
336  ;;(defvar calc-infinite-mode nil)  ;;(defvar calc-infinite-mode nil)
337    
338  ;; If non-NIL, display vectors of byte-sized integers as strings.  ;; If non-nil, display vectors of byte-sized integers as strings.
339  ;;(defvar calc-display-strings nil)  ;;(defvar calc-display-strings nil)
340    
341  ;; If NIL, vector elements are left-justified.  ;; If nil, vector elements are left-justified.
342  ;; If 'right, vector elements are right-justified.  ;; If 'right, vector elements are right-justified.
343  ;; If 'center, vector elements are centered."  ;; If 'center, vector elements are centered."
344  ;;(defvar calc-matrix-just 'center)  ;;(defvar calc-matrix-just 'center)
345    
346  ;; If non-NIL, display vectors one element per line.  ;; If non-nil, display vectors one element per line.
347  ;;(defvar calc-break-vectors nil)  ;;(defvar calc-break-vectors nil)
348    
349  ;; 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.
350  ;;(defvar calc-full-vectors t)  ;;(defvar calc-full-vectors t)
351    
352  ;; If non-NIL, display long vectors in full in the trail.  ;; If non-nil, display long vectors in full in the trail.
353  ;;(defvar calc-full-trail-vectors t)  ;;(defvar calc-full-trail-vectors t)
354    
355  ;; If non-NIL, separate elements of displayed vectors with this string.  ;; If non-nil, separate elements of displayed vectors with this string.
356  ;;(defvar calc-vector-commas ",")  ;;(defvar calc-vector-commas ",")
357    
358  ;; If non-NIL, surround displayed vectors with these characters.  ;; If non-nil, surround displayed vectors with these characters.
359  ;;(defvar calc-vector-brackets "[]")  ;;(defvar calc-vector-brackets "[]")
360    
361  ;; A list of code-letter symbols that control "big" matrix display.  ;; A list of code-letter symbols that control "big" matrix display.
# Line 411  This can safely be nil as long as the Ca Line 411  This can safely be nil as long as the Ca
411  ;; Type of simplification applied to results.  ;; Type of simplification applied to results.
412  ;; If 'none, results are not simplified when pushed on the stack.  ;; If 'none, results are not simplified when pushed on the stack.
413  ;; If 'num, functions are simplified only when args are constant.  ;; If 'num, functions are simplified only when args are constant.
414  ;; If NIL, only fast simplifications are applied.  ;; If nil, only fast simplifications are applied.
415  ;; If 'binary, math-clip is applied if appropriate.  ;; If 'binary, math-clip is applied if appropriate.
416  ;; If 'alg, math-simplify is applied.  ;; If 'alg, math-simplify is applied.
417  ;; If 'ext, math-simplify-extended is applied.  ;; If 'ext, math-simplify-extended is applied.
418  ;; If 'units, math-simplify-units is applied.  ;; If 'units, math-simplify-units is applied.
419  ;;(defvar calc-simplify-mode nil)  ;;(defvar calc-simplify-mode nil)
420    
421  ;; If non-NIL, recompute evalto's automatically when necessary.  ;; If non-nil, recompute evalto's automatically when necessary.
422  ;;(defvar calc-auto-recompute t)  ;;(defvar calc-auto-recompute t)
423    
424  ;; If non-NIL, display shows unformatted Lisp exprs.  (For debugging)  ;; If non-nil, display shows unformatted Lisp exprs.  (For debugging)
425  ;;(defvar calc-display-raw nil)  ;;(defvar calc-display-raw nil)
426    
427  ;; Number of digits of internal precision for calc-mode calculations.  ;; Number of digits of internal precision for calc-mode calculations.
428  ;;(defvar calc-internal-prec 12)  ;;(defvar calc-internal-prec 12)
429    
430  ;; If non-NIL, next operation is Inverse.  ;; If non-nil, next operation is Inverse.
431  ;;(defvar calc-inverse-flag nil)  ;;(defvar calc-inverse-flag nil)
432    
433  ;; If non-NIL, next operation is Hyperbolic.  ;; If non-nil, next operation is Hyperbolic.
434  ;;(defvar calc-hyperbolic-flag nil)  ;;(defvar calc-hyperbolic-flag nil)
435    
436  ;; If non-NIL, next operation should not remove its arguments from stack.  ;; If non-nil, next operation should not remove its arguments from stack.
437  ;;(defvar calc-keep-args-flag nil)  ;;(defvar calc-keep-args-flag nil)
438    
439  ;; If deg, angles are in degrees; if rad, angles are in radians.  ;; If deg, angles are in degrees; if rad, angles are in radians.
440  ;; If hms, angles are in degrees-minutes-seconds.  ;; If hms, angles are in degrees-minutes-seconds.
441  ;;(defvar calc-angle-mode 'deg)  ;;(defvar calc-angle-mode 'deg)
442    
443  ;; If non-NIL, numeric entry accepts whole algebraic expressions.  ;; If non-nil, numeric entry accepts whole algebraic expressions.
444  ;; If NIL, algebraic expressions must be preceded by "'".  ;; If nil, algebraic expressions must be preceded by "'".
445  ;;(defvar calc-algebraic-mode nil)  ;;(defvar calc-algebraic-mode nil)
446    
447  ;; Like calc-algebraic-mode except only affects ( and [ keys.  ;; Like calc-algebraic-mode except only affects ( and [ keys.
448  ;;(defvar calc-incomplete-algebraic-mode nil)  ;;(defvar calc-incomplete-algebraic-mode nil)
449    
450  ;; If non-NIL, inexact numeric computations like sqrt(2) are postponed.  ;; If non-nil, inexact numeric computations like sqrt(2) are postponed.
451  ;; If NIL, computations on numbers always yield numbers where possible.  ;; If nil, computations on numbers always yield numbers where possible.
452  ;;(defvar calc-symbolic-mode nil)  ;;(defvar calc-symbolic-mode nil)
453    
454  ;; If 'matrix, variables are assumed to be matrix-valued.  ;; If 'matrix, variables are assumed to be matrix-valued.
455  ;; If a number, variables are assumed to be NxN matrices.  ;; If a number, variables are assumed to be NxN matrices.
456  ;; If 'scalar, variables are assumed to be scalar-valued.  ;; If 'scalar, variables are assumed to be scalar-valued.
457  ;; If NIL, symbolic math routines make no assumptions about variables.  ;; If nil, symbolic math routines make no assumptions about variables.
458  ;;(defvar calc-matrix-mode nil)  ;;(defvar calc-matrix-mode nil)
459    
460  ;; 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.
461  ;;(defvar calc-shift-prefix nil)  ;;(defvar calc-shift-prefix nil)
462    
463  ;; Initial height of Calculator window.  ;; Initial height of Calculator window.
464  ;;(defvar calc-window-height 7)  ;;(defvar calc-window-height 7)
465    
466  ;; 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.
467  ;;(defvar calc-display-trail t)  ;;(defvar calc-display-trail t)
468    
469  ;; 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.
470  ;; If NIL, selected sub-formulas are highlighted by obscuring the sub-formulas.  ;; If nil, selected sub-formulas are highlighted by obscuring the sub-formulas.
471  ;;(defvar calc-show-selections t)  ;;(defvar calc-show-selections t)
472    
473  ;; If non-NIL, commands operate only on selected portions of formulas.  ;; If non-nil, commands operate only on selected portions of formulas.
474  ;; If NIL, selections displayed but ignored.  ;; If nil, selections displayed but ignored.
475  ;;(defvar calc-use-selections t)  ;;(defvar calc-use-selections t)
476    
477  ;; If non-NIL, selection hides deep structure of associative formulas.  ;; If non-nil, selection hides deep structure of associative formulas.
478  ;;(defvar calc-assoc-selections t)  ;;(defvar calc-assoc-selections t)
479    
480  ;; If non-NIL, display "Working..." for potentially slow Calculator commands.  ;; If non-nil, display "Working..." for potentially slow Calculator commands.
481  ;;(defvar calc-display-working-message 'lots)  ;;(defvar calc-display-working-message 'lots)
482    
483  ;; If non-NIL, automatically execute a "why" command to explain odd results.  ;; If non-nil, automatically execute a "why" command to explain odd results.
484  ;;(defvar calc-auto-why nil)  ;;(defvar calc-auto-why nil)
485    
486  ;; If non-NIL, display timing information on each slow command.  ;; If non-nil, display timing information on each slow command.
487  ;;(defvar calc-timing nil)  ;;(defvar calc-timing nil)
488    
489  ;; Floating-point numbers with this positive exponent or higher above the  ;; Floating-point numbers with this positive exponent or higher above the
# Line 501  This can safely be nil as long as the Ca Line 501  This can safely be nil as long as the Ca
501  ;; List of strings for Y prefix help.  ;; List of strings for Y prefix help.
502  (defvar calc-Y-help-msgs nil)  (defvar calc-Y-help-msgs nil)
503    
504  ;; T if calc-settings-file has been loaded yet.  ;; t if calc-settings-file has been loaded yet.
505  (defvar calc-loaded-settings-file nil)  (defvar calc-loaded-settings-file nil)
506    
507    

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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