mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 20:32:00 -08:00
Code Issues Projects Releases Wiki Activity

Tidy up some -to-register function argument specs

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

* lisp/frameset.el (frameset-to-register): Remove unused argument.
This commit is contained in:
Glenn Morris 2014-02-02 23:56:44 -08:00
parent 15baaea8e7
commit 7bcbca405f
3 changed files with 14 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,6 +1,9 @@
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)

5
lisp/frameset.el
View file

@ -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

8
lisp/register.el
View file

@ -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.