diff options
| author | Eli Zaretskii <eliz@is.elta.co.il> | 2004-02-16 17:16:22 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@is.elta.co.il> | 2004-02-16 17:16:22 +0000 |
| commit | bc47b3f8c5df34b032877cb097a57d6776cd0595 (patch) | |
| tree | 0e6ad48269f70657bc65340ccbe8aeecdef5da92 /lisp/calc/calc-embed.el | |
| parent | ca4bc494c208ac5b721e46ccec21ab4613ccf348 (diff) | |
| download | emacs-bc47b3f8c5df34b032877cb097a57d6776cd0595.tar.gz | |
(calc-do-embedded-activate): Add autoload
cookie. Don't check if we are looking-at open-formula.
Diffstat (limited to 'lisp/calc/calc-embed.el')
| -rw-r--r-- | lisp/calc/calc-embed.el | 5 |
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)))))) |