tastytea
/
register-quicknav
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Simplify next-register and prev-register, 

by binding …//current-position-register to pos and …//registers to registers.
This commit is contained in:
tastytea 2020-02-19 16:27:57 +01:00
parent 8891667702
commit 606ef51883
Signed by: tastytea
GPG Key ID: CFC39497F1B26E07
1 changed files with 14 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
register-quicknav.el
View File

@ -76,32 +76,24 @@
(defun register-quicknav/next-register () (defun register-quicknav/next-register ()
"Jump to next register." "Jump to next register."
(interactive) (interactive)
(setq register-quicknav//current-position-register (let ((pos register-quicknav//current-position-register)
(+ register-quicknav//current-position-register 1)) (registers (register-quicknav//registers)))
(when (>= register-quicknav//current-position-register (setq pos (+ pos 1))
(length (register-quicknav//registers))) (when (>= pos (length registers))
(setq register-quicknav//current-position-register 0)) (setq pos 0))
(let (register-element register-name) (setq register-quicknav//current-position-register pos)
(setq register-element (register-to-point (car (nth pos registers)))))
(car (nthcdr register-quicknav//current-position-register
(register-quicknav//registers))))
(setq register-name (car register-element))
(register-to-point register-name)))
(defun register-quicknav/prev-register () (defun register-quicknav/prev-register ()
"Jump to previous register." "Jump to previous register."
(interactive) (interactive)
(setq register-quicknav//current-position-register (let ((pos register-quicknav//current-position-register)
(- register-quicknav//current-position-register 1)) (registers (register-quicknav//registers)))
(when (< register-quicknav//current-position-register 0) (setq pos (- pos 1))
(setq register-quicknav//current-position-register (when (< pos 0)
(- (length (register-quicknav//registers)) 1))) (setq pos (- (length registers) 1)))
(let (register-element register-name) (setq register-quicknav//current-position-register pos)
(setq register-element (register-to-point (car (nth pos registers)))))
(car (nthcdr register-quicknav//current-position-register
(register-quicknav//registers))))
(setq register-name (car register-element))
(register-to-point register-name)))
(provide 'register-quicknav) (provide 'register-quicknav)