Commit 7bcbca40 authored by Glenn Morris's avatar Glenn Morris

Tidy up some -to-register function argument specs

* lisp/register.el (window-configuration-to-register)
(frame-configuration-to-register): Unadvertise unused argument.

* lisp/frameset.el (frameset-to-register): Remove unused argument.
parent 15baaea8
2014-02-03 Glenn Morris <rgm@gnu.org>
* frameset.el (frameset-to-register):
* register.el (window-configuration-to-register)
(frame-configuration-to-register): Unadvertise unused argument.
* frameset.el (frameset-to-register): Remove unused argument.
* kmacro.el (kmacro-to-register):
* register.el (increment-register):
* calc/calc-yank.el (calc-copy-to-register, calc-insert-register)
......
......@@ -1220,14 +1220,13 @@ Called from `jump-to-register'. Internal use only."
(goto-char (aref data 2))))))
;;;###autoload
(defun frameset-to-register (register &optional _arg)
(defun frameset-to-register (register)
"Store the current frameset in register REGISTER.
Use \\[jump-to-register] to restore the frameset.
Argument is a character, naming the register.
Interactively, reads the register using `register-read-with-preview'."
(interactive (list (register-read-with-preview "Frameset to register: ")
current-prefix-arg))
(interactive (list (register-read-with-preview "Frameset to register: ")))
(set-register register
(registerv-make
(vector (frameset-save nil
......
......@@ -201,6 +201,10 @@ Interactively, reads the register using `register-read-with-preview'."
;; of point in the current buffer, so record that separately.
(set-register register (list (current-window-configuration) (point-marker))))
;; It has had the optional arg for ages, but never used it.
(set-advertised-calling-convention 'window-configuration-to-register
'(register) "24.4")
(defun frame-configuration-to-register (register &optional _arg)
"Store the window configuration of all frames in register REGISTER.
Use \\[jump-to-register] to restore the configuration.
......@@ -214,6 +218,10 @@ Interactively, reads the register using `register-read-with-preview'."
;; of point in the current buffer, so record that separately.
(set-register register (list (current-frame-configuration) (point-marker))))
;; It has had the optional arg for ages, but never used it.
(set-advertised-calling-convention 'frame-configuration-to-register
'(register) "24.4")
(defalias 'register-to-point 'jump-to-register)
(defun jump-to-register (register &optional delete)
"Move point to location stored in a register.
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment