From c90d005c54f02d9e14a9fd04b5b57d873fb805a0 Mon Sep 17 00:00:00 2001 From: tastytea Date: Sun, 8 Mar 2020 05:48:48 +0100 Subject: [PATCH] Shorten validity-check. --- register-quicknav.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/register-quicknav.el b/register-quicknav.el index f9b0c44..c8f15aa 100644 --- a/register-quicknav.el +++ b/register-quicknav.el @@ -173,11 +173,10 @@ Works on markers and file-queries." (when (or (> index (- (length register-list) 1)) (< index 0)) (setq index nil)) (if next - (progn - (if (or (eq index nil) (eq index (length register-list))) - (setq index 0))) - (if (or (eq index nil)) - (setq index (- (length register-list) 1)))) + (when (or (eq index nil) (eq index (length register-list))) + (setq index 0)) + (when (eq index nil) + (setq index (- (length register-list) 1)))) (register-to-point (car (nth index register-list))) (register-quicknav--last-register (nth index register-list))) (register-to-point (car (car register-list)))