From f7863601318ef1313587b90f45cf4297d6b669bf Mon Sep 17 00:00:00 2001 From: tastytea Date: Mon, 2 Mar 2020 10:16:13 +0100 Subject: [PATCH] Use cl-incf for incrementing and cl-decf for decrementing. --- register-quicknav.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/register-quicknav.el b/register-quicknav.el index 5bce0e4..84910f5 100644 --- a/register-quicknav.el +++ b/register-quicknav.el @@ -4,7 +4,7 @@ ;; Author: tastytea ;; Version: 0.1.2 -;; Package-Requires: ((emacs "24")) +;; Package-Requires: ((emacs "24.3")) ;; Keywords: convenience ;; URL: https://schlomp.space/tastytea/register-quicknav @@ -72,6 +72,8 @@ ;;; Code: +(require 'cl-lib) + (define-obsolete-variable-alias 'register-quicknav/buffer-only 'register-quicknav-buffer-only "0.1.1") (define-obsolete-function-alias 'register-quicknav/next-register @@ -119,7 +121,7 @@ current buffer." (interactive) (let ((pos register-quicknav--current-position-register) (registers (register-quicknav--registers))) - (setq pos (+ pos 1)) + (cl-incf pos) (when (>= pos (length registers)) (setq pos 0)) (setq register-quicknav--current-position-register pos) @@ -131,7 +133,7 @@ current buffer." (interactive) (let ((pos register-quicknav--current-position-register) (registers (register-quicknav--registers))) - (setq pos (- pos 1)) + (cl-decf pos) (when (< pos 0) (setq pos (- (length registers) 1))) (setq register-quicknav--current-position-register pos)