# HG changeset patch
# User Eli Zaretskii <eliz@is.elta.co.il>
# Date 1076951782 0
# Node ID 28c3a99598f0bad718bc976fcc165a82afeec103
# Parent  dbb1852d84480ea9eebb784047e7261f848000e6
(calc-do-embedded-activate): Add autoload
cookie.  Don't check if we are looking-at open-formula.

diff -r dbb1852d8448 -r 28c3a99598f0 lisp/calc/calc-embed.el
--- a/lisp/calc/calc-embed.el	Mon Feb 16 17:05:44 2004 +0000
+++ b/lisp/calc/calc-embed.el	Mon Feb 16 17:16:22 2004 +0000
@@ -320,6 +320,7 @@
       (aset info 8 val)
       (calc-embedded-update info 14 t t))))
 
+;;;###autoload
 (defun calc-do-embedded-activate (arg cbuf)
   (calc-plain-buffer-only)
   (if arg
@@ -341,8 +342,8 @@
 	      (setcdr active (delq (car info) (cdr active)))))
 	(goto-char (point-min))
 	(while (re-search-forward pat nil t)
-	  (if (looking-at calc-embedded-open-formula)
-	      (goto-char (match-end 1)))
+;;;	  (if (looking-at calc-embedded-open-formula)
+;;;	      (goto-char (match-end 1)))
 	  (setq info (calc-embedded-make-info (point) cbuf nil))
 	  (or (eq (car-safe (aref info 8)) 'error)
 	      (goto-char (aref info 5))))))