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 ()
"Jump to next register."
(interactive)
(setq register-quicknav//current-position-register
(+ register-quicknav//current-position-register 1))
(when (>= register-quicknav//current-position-register
(length (register-quicknav//registers)))
(setq register-quicknav//current-position-register 0))
(let (register-element register-name)
(setq register-element
(car (nthcdr register-quicknav//current-position-register
(register-quicknav//registers))))
(setq register-name (car register-element))
(register-to-point register-name)))
(let ((pos register-quicknav//current-position-register)
(registers (register-quicknav//registers)))
(setq pos (+ pos 1))
(when (>= pos (length registers))
(setq pos 0))
(setq register-quicknav//current-position-register pos)
(register-to-point (car (nth pos registers)))))
(defun register-quicknav/prev-register ()
"Jump to previous register."
(interactive)
(setq register-quicknav//current-position-register
(- register-quicknav//current-position-register 1))
(when (< register-quicknav//current-position-register 0)
(setq register-quicknav//current-position-register
(- (length (register-quicknav//registers)) 1)))
(let (register-element register-name)
(setq register-element
(car (nthcdr register-quicknav//current-position-register
(register-quicknav//registers))))
(setq register-name (car register-element))
(register-to-point register-name)))
(let ((pos register-quicknav//current-position-register)
(registers (register-quicknav//registers)))
(setq pos (- pos 1))
(when (< pos 0)
(setq pos (- (length registers) 1)))
(setq register-quicknav//current-position-register pos)
(register-to-point (car (nth pos registers)))))
(provide 'register-quicknav)