From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Tue, 1 Feb 2005 03:57:08 +0000 (+0000)
Subject: (calc-embedded-find-bounds): Set formula bound on line with formula.
X-Git-Tag: ttn-vms-21-2-B4~2490
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0a18efee864b73dca2f1463a6c753cc33fc99e03;p=emacs.git

(calc-embedded-find-bounds): Set formula bound on line with formula.
---

diff --git a/lisp/calc/calc-embed.el b/lisp/calc/calc-embed.el
index 080d48f2062..4c6311c9a5b 100644
--- a/lisp/calc/calc-embed.el
+++ b/lisp/calc/calc-embed.el
@@ -417,6 +417,8 @@ With any prefix argument, marks only the formula itself."
 	 (forward-char -1))
     (setq calc-embed-outer-top (point))
     (goto-char (match-end 0))
+    (if (looking-at "[ \t]*$")
+        (end-of-line))
     (if (eq (following-char) ?\n)
 	(forward-char 1))
     (or (bolp)