Commit 0e07a458 authored by Karl Heuer's avatar Karl Heuer

(number-to-register, increment-register): Args

renamed to match doc.
parent 9828a477
...@@ -136,29 +136,29 @@ delete any existing frames that the frame configuration doesn't mention. ...@@ -136,29 +136,29 @@ delete any existing frames that the frame configuration doesn't mention.
(add-hook 'kill-buffer-hook 'register-swap-out) (add-hook 'kill-buffer-hook 'register-swap-out)
(defun number-to-register (arg char) (defun number-to-register (number register)
"Store a number in a register. "Store a number in a register.
Two args, NUMBER and REGISTER (a character, naming the register). Two args, NUMBER and REGISTER (a character, naming the register).
If NUMBER is nil, a decimal number is read from the buffer starting If NUMBER is nil, a decimal number is read from the buffer starting
at point, and point moves to the end of that number. at point, and point moves to the end of that number.
Interactively, NUMBER is the prefix arg (none means nil)." Interactively, NUMBER is the prefix arg (none means nil)."
(interactive "P\ncNumber to register: ") (interactive "P\ncNumber to register: ")
(set-register char (set-register register
(if arg (if number
(prefix-numeric-value arg) (prefix-numeric-value number)
(if (looking-at "\\s-*-?[0-9]+") (if (looking-at "\\s-*-?[0-9]+")
(progn (progn
(goto-char (match-end 0)) (goto-char (match-end 0))
(string-to-int (match-string 0))) (string-to-int (match-string 0)))
0)))) 0))))
(defun increment-register (arg char) (defun increment-register (number register)
"Add NUMBER to the contents of register REGISTER. "Add NUMBER to the contents of register REGISTER.
Interactively, NUMBER is the prefix arg (none means nil)." Interactively, NUMBER is the prefix arg."
(interactive "p\ncIncrement register: ") (interactive "p\ncIncrement register: ")
(or (numberp (get-register char)) (or (numberp (get-register register))
(error "Register does not contain a number")) (error "Register does not contain a number"))
(set-register char (+ arg (get-register char)))) (set-register register (+ number (get-register register))))
(defun view-register (register) (defun view-register (register)
"Display what is contained in register named REGISTER. "Display what is contained in register named 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