diff options
author | Glenn Morris <rgm@gnu.org> | 2014-02-02 16:40:49 -0800 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2014-02-02 16:40:49 -0800 |
commit | 6a6b8e405e82dfcc506bb926f742c9fa1f5b080b (patch) | |
tree | 5469241861b6b0501fdbce2486caec0789053e2b /lisp/calculator.el | |
parent | 5dca7759a78e8b2a50308a9d5f276799ec46c975 (diff) | |
download | emacs-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.el | 4 |
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: ") |