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

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

diff --git a/lisp/calc/calc-embed.el b/lisp/calc/calc-embed.el
index 2542a8f648a7f5dbb5c60d3b0c882bafa062ba88..5fd77fe625f87157f34e3a78f5e6e8728b22126a 100644 (file)
--- 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))))))