(calc-do-embedded-activate): Add autoload

cookie.  Don't check if we are looking-at open-formula.

1 files changed, 3 insertions, 2 deletions

diff --git a/lisp/calc/calc-embed.el b/lisp/calc/calc-embed.el
index 2542a8f648a..5fd77fe625f 100644
--- a/lisp/calc/calc-embed.el
+++ b/lisp/calc/calc-embed.el
@@ -320,6 +320,7 @@ This is not required to be present for user-written mode annotations.")
       (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 @@ This is not required to be present for user-written mode annotations.")
               (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))))))