/[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.50 by jpb, Tue Mar 29 16:15:49 2005 UTC revision 1.51 by jpb, Fri Apr 1 21:43:47 2005 UTC
# Line 206  Line 206 
206    
207  (require 'calc-macs)  (require 'calc-macs)
208    
209    (defgroup calc nil
210      "GNU Calc"
211      :prefix "calc-"
212      :tag    "Calc")
213    
214  ;;;###autoload  ;;;###autoload
215  (defvar calc-settings-file (convert-standard-filename "~/.calc.el")  (defcustom calc-settings-file
216    "*File in which to record permanent settings.")    (convert-standard-filename "~/.calc.el")
217      "*File in which to record permanent settings."
218      :group 'calc
219      :type '(file))
220    
221    (defcustom calc-language-alist
222      '((latex-mode . latex)
223        (tex-mode   . tex)
224        (plain-tex-mode . tex)
225        (context-mode . tex)
226        (nroff-mode . eqn)
227        (pascal-mode . pascal)
228        (c-mode . c)
229        (c++-mode . c)
230        (fortran-mode . fortran)
231        (f90-mode . fortran))
232      "*Alist of major modes with appropriate Calc languages."
233      :group 'calc
234      :type '(alist :key-type symbol :value-type symbol))
235    
236    (defcustom calc-embedded-announce-formula
237      "%Embed\n\\(% .*\n\\)*"
238      "*A regular expression which is sure to be followed by a calc-embedded formula."
239      :group 'calc
240      :type '(regexp))
241    
242    (defcustom calc-embedded-open-formula
243      "\\`\\|^\n\\|\\$\\$?\\|\\\\\\[\\|^\\\\begin[^{].*\n\\|^\\\\begin{.*[^x]}.*\n\\|^@.*\n\\|^\\.EQ.*\n\\|\\\\(\\|^%\n\\|^\\.\\\\\"\n"
244      "*A regular expression for the opening delimiter of a formula used by calc-embedded."
245      :group 'calc
246      :type '(regexp))
247    
248    (defcustom calc-embedded-close-formula
249      "\\'\\|\n$\\|\\$\\$?\\|\\\\]\\|^\\\\end[^{].*\n\\|^\\\\end{.*[^x]}.*\n\\|^@.*\n\\|^\\.EN.*\n\\|\\\\)\\|\n%\n\\|^\\.\\\\\"\n"
250      "*A regular expression for the closing delimiter of a formula used by calc-embedded."
251      :group 'calc
252      :type '(regexp))
253    
254    (defcustom calc-embedded-open-word
255      "^\\|[^-+0-9.eE]"
256      "*A regular expression for the opening delimiter of a formula used by calc-embedded-word."
257      :group 'calc
258      :type '(regexp))
259    
260    (defcustom calc-embedded-close-word
261      "$\\|[^-+0-9.eE]"
262      "*A regular expression for the closing delimiter of a formula used by calc-embedded-word."
263      :group 'calc
264      :type '(regexp))
265    
266    (defcustom calc-embedded-open-plain
267      "%%% "
268      "*A string which is the opening delimiter for a \"plain\" formula.
269    If calc-show-plain mode is enabled, this is inserted at the front of
270    each formula."
271      :group 'calc
272      :type '(string))
273    
274    (defcustom calc-embedded-close-plain
275      " %%%\n"
276      "*A string which is the closing delimiter for a \"plain\" formula.
277    See calc-embedded-open-plain."
278      :group 'calc
279      :type '(string))
280    
281    (defcustom calc-embedded-open-new-formula
282      "\n\n"
283      "*A string which is inserted at front of formula by calc-embedded-new-formula."
284      :group 'calc
285      :type '(string))
286    
287    (defcustom calc-embedded-close-new-formula
288      "\n\n"
289      "*A string which is inserted at end of formula by calc-embedded-new-formula."
290      :group 'calc
291      :type '(string))
292    
293    (defcustom calc-embedded-open-mode
294      "% "
295      "*A string which should precede calc-embedded mode annotations.
296    This is not required to be present for user-written mode annotations."
297      :group 'calc
298      :type '(string))
299    
300    (defcustom calc-embedded-close-mode
301      "\n"
302      "*A string which should follow calc-embedded mode annotations.
303    This is not required to be present for user-written mode annotations."
304      :group 'calc
305      :type '(string))
306    
307    (defcustom calc-gnuplot-name
308      "gnuplot"
309      "*Name of GNUPLOT program, for calc-graph features."
310      :group 'calc
311      :type '(string))
312    
313    (defcustom calc-gnuplot-plot-command
314      nil
315      "*Name of command for displaying GNUPLOT output; %s = file name to print."
316      :group 'calc
317      :type '(choice (string) (sexp)))
318    
319    (defcustom calc-gnuplot-print-command
320      "lp %s"
321      "*Name of command for printing GNUPLOT output; %s = file name to print."
322      :group 'calc
323      :type '(choice (string) (sexp)))
324    
325  (defvar calc-bug-address "belanger@truman.edu"  (defvar calc-bug-address "belanger@truman.edu"
326    "Address of the author of Calc, for use by `report-calc-bug'.")    "Address of the author of Calc, for use by `report-calc-bug'.")

Legend:
Removed from v.1.50  
changed lines
  Added in v.1.51

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