Mercurial > emacs
comparison lisp/calc/calc-trail.el @ 105792:2c12fbae77c2
* 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 | a9dc0e7c3f2b |
children | 1d1d5d9bd884 |
comparison
equal
deleted
inserted
replaced
105791:84d7bc7104ac | 105792:2c12fbae77c2 |
---|---|
140 (error "Can't yank (vector was abbreviated)")) | 140 (error "Can't yank (vector was abbreviated)")) |
141 (forward-char 4) | 141 (forward-char 4) |
142 (search-forward " ") | 142 (search-forward " ") |
143 (let* ((next (save-excursion (forward-line 1) (point))) | 143 (let* ((next (save-excursion (forward-line 1) (point))) |
144 (str (buffer-substring (point) (1- next))) | 144 (str (buffer-substring (point) (1- next))) |
145 (val (save-excursion | 145 (val (with-current-buffer save-buf |
146 (set-buffer save-buf) | |
147 (math-read-plain-expr str)))) | 146 (math-read-plain-expr str)))) |
148 (if (eq (car-safe val) 'error) | 147 (if (eq (car-safe val) 'error) |
149 (error "Can't yank that line: %s" (nth 2 val)) | 148 (error "Can't yank that line: %s" (nth 2 val)) |
150 val)))))) | 149 val)))))) |
151 | 150 |