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

Use cl-incf for incrementing and cl-decf for decrementing.

This commit is contained in:
tastytea 2020-03-02 10:16:13 +01:00
parent e05ce6bada
commit f786360131
Signed by: tastytea
GPG Key ID: CFC39497F1B26E07
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
register-quicknav.el
View File

@ -4,7 +4,7 @@
;; Author: tastytea <tastytea@tastytea.de> ;; Author: tastytea <tastytea@tastytea.de>
;; Version: 0.1.2 ;; Version: 0.1.2
;; Package-Requires: ((emacs "24")) ;; Package-Requires: ((emacs "24.3"))
;; Keywords: convenience ;; Keywords: convenience
;; URL: https://schlomp.space/tastytea/register-quicknav ;; URL: https://schlomp.space/tastytea/register-quicknav
@ -72,6 +72,8 @@
;;; Code: ;;; Code:
(require 'cl-lib)
(define-obsolete-variable-alias 'register-quicknav/buffer-only (define-obsolete-variable-alias 'register-quicknav/buffer-only
'register-quicknav-buffer-only "0.1.1") 'register-quicknav-buffer-only "0.1.1")
(define-obsolete-function-alias 'register-quicknav/next-register (define-obsolete-function-alias 'register-quicknav/next-register
@ -119,7 +121,7 @@ current buffer."
(interactive) (interactive)
(let ((pos register-quicknav--current-position-register) (let ((pos register-quicknav--current-position-register)
(registers (register-quicknav--registers))) (registers (register-quicknav--registers)))
(setq pos (+ pos 1)) (cl-incf pos)
(when (>= pos (length registers)) (when (>= pos (length registers))
(setq pos 0)) (setq pos 0))
(setq register-quicknav--current-position-register pos) (setq register-quicknav--current-position-register pos)
@ -131,7 +133,7 @@ current buffer."
(interactive) (interactive)
(let ((pos register-quicknav--current-position-register) (let ((pos register-quicknav--current-position-register)
(registers (register-quicknav--registers))) (registers (register-quicknav--registers)))
(setq pos (- pos 1)) (cl-decf pos)
(when (< pos 0) (when (< pos 0)
(setq pos (- (length registers) 1))) (setq pos (- (length registers) 1)))
(setq register-quicknav--current-position-register pos) (setq register-quicknav--current-position-register pos)