# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1223649022 0
# Node ID 8bc022b29e810f4340fa561ab50b2ae902d621ff
# Parent  c53a955375b8f77dd89a6b048ec20036c9d1b10f
(calc-embedded-word-regexp, calc-embedded-word-regexp-alist):
New variables.
(calc-embedded-open-word, calc-embedded-close-word)
(calc-embedded-open-close-word-alist): Remove unused variables.

diff -r c53a955375b8 -r 8bc022b29e81 lisp/calc/calc.el
--- a/lisp/calc/calc.el	Fri Oct 10 13:47:49 2008 +0000
+++ b/lisp/calc/calc.el	Fri Oct 10 14:30:22 2008 +0000
@@ -294,25 +294,18 @@
                 :value-type (list (regexp :tag "Opening formula delimiter")
                                   (regexp :tag "Closing formula delimiter"))))
 
-(defcustom calc-embedded-open-word
-  "^\\|[^-+0-9.eE]"
-  "*A regular expression for the opening delimiter of a formula used by calc-embedded-word."
+(defcustom calc-embedded-word-regexp
+  "[-+]?[0-9]+\\(\\.[0-9]+\\)?\\([eE][-+]?[0-9]+\\)?"
+  "A regular expression determining a word for calc-embedded-word."
   :group 'calc
   :type '(regexp))
 
-(defcustom calc-embedded-close-word
-  "$\\|[^-+0-9.eE]"
-  "*A regular expression for the closing delimiter of a formula used by calc-embedded-word."
-  :group 'calc
-  :type '(regexp))
-
-(defcustom calc-embedded-open-close-word-alist
+(defcustom calc-embedded-word-regexp-alist
   nil
-  "*Alist of major modes with pairs of word delimiters used by calc-embedded."
+  "*Alist of major modes with word regexps used by calc-embedded-word."
   :group 'calc
   :type '(alist :key-type (symbol :tag "Major mode")
-                :value-type (list (regexp :tag "Opening word delimiter")
-                                  (regexp :tag "Closing word delimiter"))))
+                :value-type (regexp :tag "Regexp for word")))
 
 (defcustom calc-embedded-open-plain
   "%%% "