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

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

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

revision 1.2 by eliz, Tue Nov 13 07:29:33 2001 UTC revision 1.3 by walters, Wed Nov 14 09:06:21 2001 UTC
# Line 34  Line 34 
34    (calc-wrapper    (calc-wrapper
35     (message (if (calc-change-mode 'calc-line-numbering n t t)     (message (if (calc-change-mode 'calc-line-numbering n t t)
36                  "Displaying stack level numbers."                  "Displaying stack level numbers."
37                "Hiding stack level numbers.")))                "Hiding stack level numbers."))))
 )  
38    
39  (defun calc-line-breaking (n)  (defun calc-line-breaking (n)
40    (interactive "P")    (interactive "P")
# Line 49  Line 48 
48         (if (integerp calc-line-breaking)         (if (integerp calc-line-breaking)
49             (message "Breaking lines longer than %d characters." n)             (message "Breaking lines longer than %d characters." n)
50           (message "Breaking long lines in Stack display."))           (message "Breaking long lines in Stack display."))
51       (message "Not breaking long lines in Stack display.")))       (message "Not breaking long lines in Stack display."))))
 )  
52    
53    
54  (defun calc-left-justify (n)  (defun calc-left-justify (n)
# Line 61  Line 59 
59                       (list nil n) t)                       (list nil n) t)
60     (if n     (if n
61         (message "Displaying stack entries indented by %d." n)         (message "Displaying stack entries indented by %d." n)
62       (message "Displaying stack entries left-justified.")))       (message "Displaying stack entries left-justified."))))
 )  
63    
64  (defun calc-center-justify (n)  (defun calc-center-justify (n)
65    (interactive "P")    (interactive "P")
# Line 72  Line 69 
69                       (list 'center n) t)                       (list 'center n) t)
70     (if n     (if n
71         (message "Displaying stack entries centered on column %d." n)         (message "Displaying stack entries centered on column %d." n)
72       (message "Displaying stack entries centered in window.")))       (message "Displaying stack entries centered in window."))))
 )  
73    
74  (defun calc-right-justify (n)  (defun calc-right-justify (n)
75    (interactive "P")    (interactive "P")
# Line 83  Line 79 
79                       (list 'right n) t)                       (list 'right n) t)
80     (if n     (if n
81         (message "Displaying stack entries right-justified to column %d." n)         (message "Displaying stack entries right-justified to column %d." n)
82       (message "Displaying stack entries right-justified in window.")))       (message "Displaying stack entries right-justified in window."))))
 )  
83    
84  (defun calc-left-label (s)  (defun calc-left-label (s)
85    (interactive "sLefthand label: ")    (interactive "sLefthand label: ")
86    (calc-wrapper    (calc-wrapper
87     (or (equal s "")     (or (equal s "")
88         (setq s (concat s " ")))         (setq s (concat s " ")))
89     (calc-change-mode 'calc-left-label s t))     (calc-change-mode 'calc-left-label s t)))
 )  
90    
91  (defun calc-right-label (s)  (defun calc-right-label (s)
92    (interactive "sRighthand label: ")    (interactive "sRighthand label: ")
93    (calc-wrapper    (calc-wrapper
94     (or (equal s "")     (or (equal s "")
95         (setq s (concat " " s)))         (setq s (concat " " s)))
96     (calc-change-mode 'calc-right-label s t))     (calc-change-mode 'calc-right-label s t)))
 )  
97    
98  (defun calc-auto-why (n)  (defun calc-auto-why (n)
99    (interactive "P")    (interactive "P")
# Line 117  Line 110 
110           ((eq n t)           ((eq n t)
111            (message "Automatically doing `w' to explain unsimplified results."))            (message "Automatically doing `w' to explain unsimplified results."))
112           (t           (t
113            (message "Automatically doing `w' only for unusual messages."))))            (message "Automatically doing `w' only for unusual messages.")))))
 )  
114    
115  (defun calc-group-digits (n)  (defun calc-group-digits (n)
116    (interactive "P")    (interactive "P")
# Line 138  Line 130 
130           ((integerp n)           ((integerp n)
131            (message "Grouping every %d digits." (math-abs n)))            (message "Grouping every %d digits." (math-abs n)))
132           (t           (t
133            (message "Grouping is on."))))            (message "Grouping is on.")))))
 )  
134    
135  (defun calc-group-char (ch)  (defun calc-group-char (ch)
136    (interactive "cGrouping character: ")    (interactive "cGrouping character: ")
# Line 150  Line 141 
141         (setq ch "\\,")         (setq ch "\\,")
142       (setq ch (char-to-string ch)))       (setq ch (char-to-string ch)))
143     (calc-change-mode 'calc-group-char ch calc-group-digits)     (calc-change-mode 'calc-group-char ch calc-group-digits)
144     (message "Digit grouping character is \"%s\"." ch))     (message "Digit grouping character is \"%s\"." ch)))
 )  
145    
146  (defun calc-point-char (ch)  (defun calc-point-char (ch)
147    (interactive "cCharacter to use as decimal point: ")    (interactive "cCharacter to use as decimal point: ")
# Line 159  Line 149 
149     (or (>= ch 32)     (or (>= ch 32)
150         (error "Control characters not allowed as decimal point."))         (error "Control characters not allowed as decimal point."))
151     (calc-change-mode 'calc-point-char (char-to-string ch) t)     (calc-change-mode 'calc-point-char (char-to-string ch) t)
152     (message "Decimal point character is \"%c\"." ch))     (message "Decimal point character is \"%c\"." ch)))
 )  
153    
154  (defun calc-normal-notation (n)  (defun calc-normal-notation (n)
155    (interactive "P")    (interactive "P")
# Line 180  Line 169 
169            "Displaying floating-point numbers with %d significant digits."            "Displaying floating-point numbers with %d significant digits."
170            (nth 1 n))            (nth 1 n))
171         (message "Displaying floating-point numbers with (precision%d)."         (message "Displaying floating-point numbers with (precision%d)."
172                  (nth 1 n)))))                  (nth 1 n))))))
 )  
173    
174  (defun calc-fix-notation (n)  (defun calc-fix-notation (n)
175    (interactive "NDigits after decimal point: ")    (interactive "NDigits after decimal point: ")
# Line 190  Line 178 
178                       (setq n (list 'fix (if n (prefix-numeric-value n) 0)))                       (setq n (list 'fix (if n (prefix-numeric-value n) 0)))
179                       t)                       t)
180     (message "Displaying floats with %d digits after decimal."     (message "Displaying floats with %d digits after decimal."
181              (math-abs (nth 1 n))))              (math-abs (nth 1 n)))))
 )  
182    
183  (defun calc-sci-notation (n)  (defun calc-sci-notation (n)
184    (interactive "P")    (interactive "P")
# Line 205  Line 192 
192           (message "Displaying scientific notation with %d significant digits."           (message "Displaying scientific notation with %d significant digits."
193                    (nth 1 n))                    (nth 1 n))
194         (message "Displaying scientific notation with (precision%d)."         (message "Displaying scientific notation with (precision%d)."
195                  (nth 1 n)))))                  (nth 1 n))))))
 )  
196    
197  (defun calc-eng-notation (n)  (defun calc-eng-notation (n)
198    (interactive "P")    (interactive "P")
# Line 220  Line 206 
206           (message "Displaying engineering notation with %d significant digits."           (message "Displaying engineering notation with %d significant digits."
207                    (nth 1 n))                    (nth 1 n))
208         (message "Displaying engineering notation with (precision%d)."         (message "Displaying engineering notation with (precision%d)."
209                  (nth 1 n)))))                  (nth 1 n))))))
 )  
210    
211    
212  (defun calc-truncate-stack (n &optional rel)  (defun calc-truncate-stack (n &optional rel)
# Line 253  Line 238 
238           (if calc-line-numbering           (if calc-line-numbering
239               (calc-refresh))))               (calc-refresh))))
240       (calc-record-undo (list 'set 'saved-stack-top 0))       (calc-record-undo (list 'set 'saved-stack-top 0))
241       (setq calc-stack-top newtop)))       (setq calc-stack-top newtop))))
 )  
242    
243  (defun calc-truncate-up (n)  (defun calc-truncate-up (n)
244    (interactive "p")    (interactive "p")
245    (calc-truncate-stack n t)    (calc-truncate-stack n t))
 )  
246    
247  (defun calc-truncate-down (n)  (defun calc-truncate-down (n)
248    (interactive "p")    (interactive "p")
249    (calc-truncate-stack (- n) t)    (calc-truncate-stack (- n) t))
 )  
250    
251  (defun calc-display-raw (arg)  (defun calc-display-raw (arg)
252    (interactive "P")    (interactive "P")
# Line 272  Line 254 
254     (setq calc-display-raw (if calc-display-raw nil (if arg 0 t)))     (setq calc-display-raw (if calc-display-raw nil (if arg 0 t)))
255     (calc-do-refresh)     (calc-do-refresh)
256     (if calc-display-raw     (if calc-display-raw
257         (message "Press d ' again to cancel \"raw\" display mode.")))         (message "Press d ' again to cancel \"raw\" display mode."))))
 )  
258    
259    
260    
# Line 323  Line 304 
304           ;; FIXME: why is this here? -cgw 2001.11.12           ;; FIXME: why is this here? -cgw 2001.11.12
305           (let ((executing-kbd-macro ""))   ; what a kludge!           (let ((executing-kbd-macro ""))   ; what a kludge!
306             (save-buffer))             (save-buffer))
307         (save-buffer))))         (save-buffer)))))
 )  
308    
309  (defun calc-settings-file-name (name &optional arg)  (defun calc-settings-file-name (name &optional arg)
310    (interactive    (interactive
# Line 381  Line 361 
361                (t 1))                (t 1))
362          (cond ((eq calc-infinite-mode 1) 0)          (cond ((eq calc-infinite-mode 1) 0)
363                (calc-infinite-mode 1)                (calc-infinite-mode 1)
364                (t -1)))                (t -1))))
 )  
365    
366  (defun calc-get-modes (n)  (defun calc-get-modes (n)
367    (interactive "P")    (interactive "P")
# Line 394  Line 373 
373                                       (< n (length modes)))                                       (< n (length modes)))
374                                  (nth n modes)                                  (nth n modes)
375                                (error "Prefix out of range"))                                (error "Prefix out of range"))
376                            modes))))                            modes)))))
 )  
377    
378  (defun calc-shift-prefix (arg)  (defun calc-shift-prefix (arg)
379    (interactive "P")    (interactive "P")
# Line 406  Line 384 
384     (calc-init-prefixes)     (calc-init-prefixes)
385     (message (if calc-shift-prefix     (message (if calc-shift-prefix
386                  "Prefix keys are now case-insensitive"                  "Prefix keys are now case-insensitive"
387                "Prefix keys must be unshifted (except V, Z)")))                "Prefix keys must be unshifted (except V, Z)"))))
 )  
388    
389  (defun calc-mode-record-mode (n)  (defun calc-mode-record-mode (n)
390    (interactive "P")    (interactive "P")
# Line 441  Line 418 
418                     (format "Recording mode changes in \"%s\"."                     (format "Recording mode changes in \"%s\"."
419                             calc-settings-file))                             calc-settings-file))
420                    (t                    (t
421                     "Not recording mode changes permanently."))))                     "Not recording mode changes permanently.")))))
 )  
422    
423  (defun calc-total-algebraic-mode (flag)  (defun calc-total-algebraic-mode (flag)
424    (interactive "P")    (interactive "P")
# Line 455  Line 431 
431                         '(total nil))                         '(total nil))
432       (use-local-map calc-alg-map)       (use-local-map calc-alg-map)
433       (message       (message
434        "All keys begin algebraic entry; use Meta (ESC) for Calc keys.")))        "All keys begin algebraic entry; use Meta (ESC) for Calc keys."))))
 )  
435    
436  (defun calc-algebraic-mode (flag)  (defun calc-algebraic-mode (flag)
437    (interactive "P")    (interactive "P")
# Line 472  Line 447 
447                  "Numeric keys and ( and [ begin algebraic entry."                  "Numeric keys and ( and [ begin algebraic entry."
448                (if calc-incomplete-algebraic-mode                (if calc-incomplete-algebraic-mode
449                    "Only ( and [ begin algebraic entry."                    "Only ( and [ begin algebraic entry."
450                  "No keys except ' and $ begin algebraic entry."))))                  "No keys except ' and $ begin algebraic entry.")))))
 )  
451    
452  (defun calc-symbolic-mode (n)  (defun calc-symbolic-mode (n)
453    (interactive "P")    (interactive "P")
# Line 481  Line 455 
455        
456     (message (if (calc-change-mode 'calc-symbolic-mode n nil t)     (message (if (calc-change-mode 'calc-symbolic-mode n nil t)
457                  "Inexact computations like sqrt(2) are deferred."                  "Inexact computations like sqrt(2) are deferred."
458                "Numerical computations are always done immediately.")))                "Numerical computations are always done immediately."))))
 )  
459    
460  (defun calc-infinite-mode (n)  (defun calc-infinite-mode (n)
461    (interactive "P")    (interactive "P")
# Line 493  Line 466 
466           (message "Computations like 1 / 0 produce \"inf\"."))           (message "Computations like 1 / 0 produce \"inf\"."))
467       (message (if (calc-change-mode 'calc-infinite-mode n nil t)       (message (if (calc-change-mode 'calc-infinite-mode n nil t)
468                    "Computations like 1 / 0 produce \"uinf\"."                    "Computations like 1 / 0 produce \"uinf\"."
469                  "Computations like 1 / 0 are left unsimplified."))))                  "Computations like 1 / 0 are left unsimplified.")))))
 )  
470    
471  (defun calc-matrix-mode (arg)  (defun calc-matrix-mode (arg)
472    (interactive "P")    (interactive "P")
# Line 514  Line 486 
486                    "Variables are assumed to be matrices."                    "Variables are assumed to be matrices."
487                  (if calc-matrix-mode                  (if calc-matrix-mode
488                      "Variables are assumed to be scalars (non-matrices)."                      "Variables are assumed to be scalars (non-matrices)."
489                    "Variables are not assumed to be matrix or scalar.")))))                    "Variables are not assumed to be matrix or scalar."))))))
 )  
490    
491  (defun calc-set-simplify-mode (mode arg msg)  (defun calc-set-simplify-mode (mode arg msg)
492    (calc-change-mode 'calc-simplify-mode    (calc-change-mode 'calc-simplify-mode
# Line 526  Line 497 
497                             mode)))                             mode)))
498    (message (if (eq calc-simplify-mode mode)    (message (if (eq calc-simplify-mode mode)
499                 msg                 msg
500               "Default simplifications enabled."))               "Default simplifications enabled.")))
 )  
501    
502  (defun calc-no-simplify-mode (arg)  (defun calc-no-simplify-mode (arg)
503    (interactive "P")    (interactive "P")
504    (calc-wrapper    (calc-wrapper
505     (calc-set-simplify-mode 'none arg     (calc-set-simplify-mode 'none arg
506                             "All default simplifications are disabled."))                             "All default simplifications are disabled.")))
 )  
507    
508  (defun calc-num-simplify-mode (arg)  (defun calc-num-simplify-mode (arg)
509    (interactive "P")    (interactive "P")
510    (calc-wrapper    (calc-wrapper
511     (calc-set-simplify-mode 'num arg     (calc-set-simplify-mode 'num arg
512                             "Default simplifications apply only if arguments are numeric."))                             "Default simplifications apply only if arguments are numeric.")))
 )  
513    
514  (defun calc-default-simplify-mode (arg)  (defun calc-default-simplify-mode (arg)
515    (interactive "p")    (interactive "p")
# Line 555  Line 523 
523          ((= arg 3) (calc-alg-simplify-mode 1))          ((= arg 3) (calc-alg-simplify-mode 1))
524          ((= arg 4) (calc-ext-simplify-mode 1))          ((= arg 4) (calc-ext-simplify-mode 1))
525          ((= arg 5) (calc-units-simplify-mode 1))          ((= arg 5) (calc-units-simplify-mode 1))
526          (t (error "Prefix argument out of range")))          (t (error "Prefix argument out of range"))))
 )  
527    
528  (defun calc-bin-simplify-mode (arg)  (defun calc-bin-simplify-mode (arg)
529    (interactive "P")    (interactive "P")
530    (calc-wrapper    (calc-wrapper
531     (calc-set-simplify-mode 'binary arg     (calc-set-simplify-mode 'binary arg
532                             (format "Binary simplification occurs by default (word size=%d)."                             (format "Binary simplification occurs by default (word size=%d)."
533                                     calc-word-size)))                                     calc-word-size))))
 )  
534    
535  (defun calc-alg-simplify-mode (arg)  (defun calc-alg-simplify-mode (arg)
536    (interactive "P")    (interactive "P")
537    (calc-wrapper    (calc-wrapper
538     (calc-set-simplify-mode 'alg arg     (calc-set-simplify-mode 'alg arg
539                             "Algebraic simplification occurs by default."))                             "Algebraic simplification occurs by default.")))
 )  
540    
541  (defun calc-ext-simplify-mode (arg)  (defun calc-ext-simplify-mode (arg)
542    (interactive "P")    (interactive "P")
543    (calc-wrapper    (calc-wrapper
544     (calc-set-simplify-mode 'ext arg     (calc-set-simplify-mode 'ext arg
545                             "Extended algebraic simplification occurs by default."))                             "Extended algebraic simplification occurs by default.")))
 )  
546    
547  (defun calc-units-simplify-mode (arg)  (defun calc-units-simplify-mode (arg)
548    (interactive "P")    (interactive "P")
549    (calc-wrapper    (calc-wrapper
550     (calc-set-simplify-mode 'units arg     (calc-set-simplify-mode 'units arg
551                             "Units simplification occurs by default."))                             "Units simplification occurs by default.")))
 )  
552    
553  (defun calc-auto-recompute (arg)  (defun calc-auto-recompute (arg)
554    (interactive "P")    (interactive "P")
# Line 594  Line 557 
557     (calc-refresh-evaltos)     (calc-refresh-evaltos)
558     (message (if calc-auto-recompute     (message (if calc-auto-recompute
559                  "Automatically recomputing `=>' forms when necessary."                  "Automatically recomputing `=>' forms when necessary."
560                "Not recomputing `=>' forms automatically.")))                "Not recomputing `=>' forms automatically."))))
 )  
561    
562  (defun calc-working (n)  (defun calc-working (n)
563    (interactive "P")    (interactive "P")
# Line 613  Line 575 
575           (calc-display-working-message           (calc-display-working-message
576            (message "Detailed \"Working...\" messages enabled."))            (message "Detailed \"Working...\" messages enabled."))
577           (t           (t
578            (message "\"Working...\" messages disabled."))))            (message "\"Working...\" messages disabled.")))))
 )  
579    
580  (defun calc-always-load-extensions ()  (defun calc-always-load-extensions ()
581    (interactive)    (interactive)
582    (calc-wrapper    (calc-wrapper
583     (if (setq calc-always-load-extensions (not calc-always-load-extensions))     (if (setq calc-always-load-extensions (not calc-always-load-extensions))
584         (message "Always loading extensions package.")         (message "Always loading extensions package.")
585       (message "Loading extensions package on demand only.")))       (message "Loading extensions package on demand only."))))
 )  
586    
587    
588  (defun calc-matrix-left-justify ()  (defun calc-matrix-left-justify ()
589    (interactive)    (interactive)
590    (calc-wrapper    (calc-wrapper
591     (calc-change-mode 'calc-matrix-just nil t)     (calc-change-mode 'calc-matrix-just nil t)
592     (message "Matrix elements will be left-justified in columns."))     (message "Matrix elements will be left-justified in columns.")))
 )  
593    
594  (defun calc-matrix-center-justify ()  (defun calc-matrix-center-justify ()
595    (interactive)    (interactive)
596    (calc-wrapper    (calc-wrapper
597     (calc-change-mode 'calc-matrix-just 'center t)     (calc-change-mode 'calc-matrix-just 'center t)
598     (message "Matrix elements will be centered in columns."))     (message "Matrix elements will be centered in columns.")))
 )  
599    
600  (defun calc-matrix-right-justify ()  (defun calc-matrix-right-justify ()
601    (interactive)    (interactive)
602    (calc-wrapper    (calc-wrapper
603     (calc-change-mode 'calc-matrix-just 'right t)     (calc-change-mode 'calc-matrix-just 'right t)
604     (message "Matrix elements will be right-justified in columns."))     (message "Matrix elements will be right-justified in columns.")))
 )  
605    
606  (defun calc-full-vectors (n)  (defun calc-full-vectors (n)
607    (interactive "P")    (interactive "P")
608    (calc-wrapper    (calc-wrapper
609     (message (if (calc-change-mode 'calc-full-vectors n t t)     (message (if (calc-change-mode 'calc-full-vectors n t t)
610                  "Displaying long vectors in full."                  "Displaying long vectors in full."
611                "Displaying long vectors in [a, b, c, ..., z] notation.")))                "Displaying long vectors in [a, b, c, ..., z] notation."))))
 )  
612    
613  (defun calc-full-trail-vectors (n)  (defun calc-full-trail-vectors (n)
614    (interactive "P")    (interactive "P")
615    (calc-wrapper    (calc-wrapper
616     (message (if (calc-change-mode 'calc-full-trail-vectors n nil t)     (message (if (calc-change-mode 'calc-full-trail-vectors n nil t)
617                  "Recording long vectors in full."                  "Recording long vectors in full."
618                "Recording long vectors in [a, b, c, ..., z] notation.")))                "Recording long vectors in [a, b, c, ..., z] notation."))))
 )  
619    
620  (defun calc-break-vectors (n)  (defun calc-break-vectors (n)
621    (interactive "P")    (interactive "P")
622    (calc-wrapper    (calc-wrapper
623     (message (if (calc-change-mode 'calc-break-vectors n t t)     (message (if (calc-change-mode 'calc-break-vectors n t t)
624                  "Displaying vector elements one-per-line."                  "Displaying vector elements one-per-line."
625                "Displaying vector elements all on one line.")))                "Displaying vector elements all on one line."))))
 )  
626    
627  (defun calc-vector-commas ()  (defun calc-vector-commas ()
628    (interactive)    (interactive)
629    (calc-wrapper    (calc-wrapper
630     (if (calc-change-mode 'calc-vector-commas (if calc-vector-commas nil ",") t)     (if (calc-change-mode 'calc-vector-commas (if calc-vector-commas nil ",") t)
631         (message "Separating vector elements with \",\".")         (message "Separating vector elements with \",\".")
632       (message "Separating vector elements with spaces.")))       (message "Separating vector elements with spaces."))))
 )  
633    
634  (defun calc-vector-brackets ()  (defun calc-vector-brackets ()
635    (interactive)    (interactive)
# Line 684  Line 637 
637     (if (calc-change-mode 'calc-vector-brackets     (if (calc-change-mode 'calc-vector-brackets
638                           (if (equal calc-vector-brackets "[]") nil "[]") t)                           (if (equal calc-vector-brackets "[]") nil "[]") t)
639         (message "Surrounding vectors with \"[]\".")         (message "Surrounding vectors with \"[]\".")
640       (message "Not surrounding vectors with brackets.")))       (message "Not surrounding vectors with brackets."))))
 )  
641    
642  (defun calc-vector-braces ()  (defun calc-vector-braces ()
643    (interactive)    (interactive)
# Line 693  Line 645 
645     (if (calc-change-mode 'calc-vector-brackets     (if (calc-change-mode 'calc-vector-brackets
646                           (if (equal calc-vector-brackets "{}") nil "{}") t)                           (if (equal calc-vector-brackets "{}") nil "{}") t)
647         (message "Surrounding vectors with \"{}\".")         (message "Surrounding vectors with \"{}\".")
648       (message "Not surrounding vectors with brackets.")))       (message "Not surrounding vectors with brackets."))))
 )  
649    
650  (defun calc-vector-parens ()  (defun calc-vector-parens ()
651    (interactive)    (interactive)
# Line 702  Line 653 
653     (if (calc-change-mode 'calc-vector-brackets     (if (calc-change-mode 'calc-vector-brackets
654                           (if (equal calc-vector-brackets "()") nil "()") t)                           (if (equal calc-vector-brackets "()") nil "()") t)
655         (message "Surrounding vectors with \"()\".")         (message "Surrounding vectors with \"()\".")
656       (message "Not surrounding vectors with brackets.")))       (message "Not surrounding vectors with brackets."))))
 )  
657    
658  (defun calc-matrix-brackets (arg)  (defun calc-matrix-brackets (arg)
659    (interactive "sCode letters (R, O, C, P): ")    (interactive "sCode letters (R, O, C, P): ")
# Line 715  Line 665 
665           (bad (string-match "[^rRoOcCpP ]" arg)))           (bad (string-match "[^rRoOcCpP ]" arg)))
666       (if bad       (if bad
667           (error "Unrecognized character: %c" (aref arg bad)))           (error "Unrecognized character: %c" (aref arg bad)))
668       (calc-change-mode 'calc-matrix-brackets code t)))       (calc-change-mode 'calc-matrix-brackets code t))))
 )  
669    
670    ;;; calc-mode.el ends here

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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