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

(calc-embedded-update): Don't put in unnecessary newlines.

Browse source 
Adjust the end of formula marker.
This commit is contained in:
Jay Belanger 2005-02-04 06:22:18 +00:00
parent 7592e97042
commit 954fc58360
1 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -967,19 +967,24 @@ The command \\[yank] can retrieve it from there."
(calc-embedded-original-buffer t info)
(or (equal str (aref info 6))
(let ((delta (- (aref info 5) (aref info 3)))
(adjbot 0)
(buffer-read-only nil))
(goto-char (aref info 2))
(delete-region (point) (aref info 3))
(and (> (nth 1 entry) (1+ extra))
(aref info 7)
(progn
(aset info 7 nil)
(delete-horizontal-space)
(insert "\n\n")
(delete-horizontal-space)
(backward-char 1)))
(if (looking-at "\n")
;; If there's a newline there, don't add one
(insert "\n")
(insert "\n\n")
(delete-horizontal-space)
(setq adjbot 1)
; (setq delta (1+ delta))
(backward-char 1))))
(insert str)
(set-marker (aref info 3) (point))
(set-marker (aref info 3) (+ (point) adjbot))
(set-marker (aref info 5) (+ (point) delta))
(aset info 6 str))))))
(if (eq (car-safe val) 'calcFunc-evalto)