summaryrefslogtreecommitdiff
path: root/lisp/calculator.el
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2014-02-02 16:40:49 -0800
committerGlenn Morris <rgm@gnu.org>2014-02-02 16:40:49 -0800
commit6a6b8e405e82dfcc506bb926f742c9fa1f5b080b (patch)
tree5469241861b6b0501fdbce2486caec0789053e2b /lisp/calculator.el
parent5dca7759a78e8b2a50308a9d5f276799ec46c975 (diff)
downloademacs-6a6b8e405e82dfcc506bb926f742c9fa1f5b080b.tar.gz
Be more consistent in using register-read-with-preview to read registers
* frameset.el (frameset-to-register): * kmacro.el (kmacro-to-register): * register.el (increment-register): * calc/calc-yank.el (calc-copy-to-register, calc-insert-register) (calc-append-to-register, calc-prepend-to-register): * play/gametree.el (gametree-layout-to-register) (gametree-apply-register-layout): * textmodes/picture.el (picture-clear-rectangle-to-register) (picture-yank-rectangle-from-register): * vc/emerge.el (emerge-combine-versions-register): Use register-read-with-preview to read registers. * cedet/semantic/senator.el (senator-copy-tag-to-register): Use register-read-with-preview, if available. * calculator.el, emulation/viper-cmd.el: Comments.
Diffstat (limited to 'lisp/calculator.el')
-rw-r--r--lisp/calculator.el4
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/calculator.el b/lisp/calculator.el
index 3018080da9d..d6eb892f7fb 100644
--- a/lisp/calculator.el
+++ b/lisp/calculator.el
@@ -1618,6 +1618,8 @@ Optional string argument KEYS will force using it as the keys entered."
(setq s (match-string 1 s)))
(kill-new s)))))
+;; FIXME this should use register-read-with-preview, but it
+;; uses calculator-registers rather than register-alist.
(defun calculator-set-register (reg)
"Set a register value for REG."
(interactive "cRegister to store into: ")
@@ -1660,6 +1662,8 @@ Used by `calculator-paste' and `get-register'."
(or (match-string 3 str) ""))))
(ignore-errors (calculator-string-to-number str)))))
+;; FIXME this should use register-read-with-preview, but it
+;; uses calculator-registers rather than register-alist.
(defun calculator-get-register (reg)
"Get a value from a register REG."
(interactive "cRegister to get value from: ")