Mercurial > emacs
comparison lisp/calc/calc-embed.el @ 59840:a4073cba09cb
(calc-embedded-find-bounds): Set formula bound on line with formula.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Tue, 01 Feb 2005 03:57:08 +0000 |
| parents | c329c97b84e6 |
| children | 7e83e55fbe19 fa9654493afb |
comparison
equal
deleted
inserted
replaced
| 59839:9128c1837a85 | 59840:a4073cba09cb |
|---|---|
| 415 (and (eq (preceding-char) ?\$) ; backward search for \$\$? won't back | 415 (and (eq (preceding-char) ?\$) ; backward search for \$\$? won't back |
| 416 (eq (following-char) ?\$) ; up over a second $, so do it by hand. | 416 (eq (following-char) ?\$) ; up over a second $, so do it by hand. |
| 417 (forward-char -1)) | 417 (forward-char -1)) |
| 418 (setq calc-embed-outer-top (point)) | 418 (setq calc-embed-outer-top (point)) |
| 419 (goto-char (match-end 0)) | 419 (goto-char (match-end 0)) |
| 420 (if (looking-at "[ \t]*$") | |
| 421 (end-of-line)) | |
| 420 (if (eq (following-char) ?\n) | 422 (if (eq (following-char) ?\n) |
| 421 (forward-char 1)) | 423 (forward-char 1)) |
| 422 (or (bolp) | 424 (or (bolp) |
| 423 (while (eq (following-char) ?\ ) | 425 (while (eq (following-char) ?\ ) |
| 424 (forward-char 1))) | 426 (forward-char 1))) |