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/play/gametree.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/play/gametree.el')
| -rw-r--r-- | lisp/play/gametree.el | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/lisp/play/gametree.el b/lisp/play/gametree.el index 5bb3ca94afc..a2a93730cf0 100644 --- a/lisp/play/gametree.el +++ b/lisp/play/gametree.el @@ -531,8 +531,10 @@ Subnodes which have been manually scored are honored." (defun gametree-layout-to-register (register) "Store current tree layout in register REGISTER. Use \\[gametree-apply-register-layout] to restore that configuration. -Argument is a character, naming the register." - (interactive "cLayout to register: ") +Argument is a character, naming the register. + +Interactively, reads the register using `register-read-with-preview'." + (interactive (list (register-read-with-preview "Layout to register: "))) (save-excursion (goto-char (point-min)) (set-register register @@ -540,8 +542,13 @@ Argument is a character, naming the register." (defun gametree-apply-register-layout (char) "Return to a tree layout stored in a register. -Argument is a character, naming the register." - (interactive "*cApply layout from register: ") +Argument is a character, naming the register. + +Interactively, reads the register using `register-read-with-preview'." + (interactive + (progn + (barf-if-buffer-read-only) + (list (register-read-with-preview "Apply layout from register: ")))) (save-excursion (goto-char (point-min)) (gametree-apply-layout (get-register char) 0 t))) |