procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
cookie.  Don't check if we are looking-at open-formula.
This commit is contained in:
Eli Zaretskii 2004-02-16 17:16:22 +00:00
parent ca4bc494c2
commit bc47b3f8c5
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/calc/calc-embed.el
View file

@ -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))))))