Mercurial > emacs

comparison lisp/calc/calc-yank.el @ 105792:2c12fbae77c2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* calc/calc.el (calc, calc-refresh, calc-trail-buffer, calc-record) (calcDigit-nondigit): * calc/calc-yank.el (calc-copy-to-buffer): * calc/calc-units.el (calc-invalidate-units-table): * calc/calc-trail.el (calc-trail-yank): * calc/calc-store.el (calc-insert-variables): * calc/calc-rewr.el (math-rewrite, math-rewrite-phase): * calc/calc-prog.el (calc-read-parse-table): * calc/calc-keypd.el (calc-do-keypad, calc-keypad-right-click): * calc/calc-help.el (calc-describe-bindings, calc-describe-key): * calc/calc-graph.el (calc-graph-delete, calc-graph-add-curve) (calc-graph-juggle, calc-graph-count-curves, calc-graph-plot) (calc-graph-plot, calc-graph-format-data, calc-graph-set-styles) (calc-graph-name, calc-graph-find-command, calc-graph-view) (calc-graph-view, calc-gnuplot-command, calc-graph-init): * calc/calc-ext.el (calc-realign): * calc/calc-embed.el (calc-do-embedded, calc-do-embedded) (calc-embedded-finish-edit, calc-embedded-make-info) (calc-embedded-finish-command, calc-embedded-stack-change): * calc/calc-aent.el (calcAlg-enter): Use with-current-buffer.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 28 Oct 2009 18:35:33 +0000
parents 14b421290b2f
children 1d1d5d9bd884
comparison
equal deleted inserted replaced
105791:84d7bc7104ac 105792:2c12fbae77c2
442 (goto-char (point-min)) 442 (goto-char (point-min))
443 (forward-line 1) 443 (forward-line 1)
444 (setq top (point)) 444 (setq top (point))
445 (calc-cursor-stack-index 0) 445 (calc-cursor-stack-index 0)
446 (setq bot (point)))) 446 (setq bot (point))))
447 (save-excursion 447 (with-current-buffer newbuf
448 (set-buffer newbuf)
449 (if (consp nn) 448 (if (consp nn)
450 (kill-region (region-beginning) (region-end))) 449 (kill-region (region-beginning) (region-end)))
451 (push-mark (point) t) 450 (push-mark (point) t)
452 (if (and overwrite-mode (not (consp nn))) 451 (if (and overwrite-mode (not (consp nn)))
453 (calc-overwrite-string (save-excursion 452 (calc-overwrite-string (with-current-buffer oldbuf
454 (set-buffer oldbuf)
455 (buffer-substring top bot)) 453 (buffer-substring top bot))
456 eat-lnums) 454 eat-lnums)
457 (or (bolp) (setq eat-lnums nil)) 455 (or (bolp) (setq eat-lnums nil))
458 (insert-buffer-substring oldbuf top bot) 456 (insert-buffer-substring oldbuf top bot)
459 (and eat-lnums 457 (and eat-lnums