From ff58dadc4c842b8f0147c576afbaef84e2e675d7 Mon Sep 17 00:00:00 2001
From: tastytea <tastytea@tastytea.de>
Date: Thu, 19 Mar 2020 16:28:16 +0100
Subject: [PATCH] =?UTF-8?q?Add=20=E2=80=A6-clear-unused-registers-range().?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 README.md            |  3 ++-
 register-quicknav.el | 13 ++++++++++++-
 2 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/README.md b/README.md
index 3f3ed48..427be0b 100644
--- a/README.md
+++ b/README.md
@@ -1,7 +1,7 @@
 # register-quicknav - Quickly jump to next/previous register
 
 *Author:* tastytea <tastytea@tastytea.de><br>
-*Version:* 0.4.0<br>
+*Version:* 0.4.1<br>
 *URL:* [https://schlomp.space/tastytea/register-quicknav](https://schlomp.space/tastytea/register-quicknav)<br>
 
 This package is built on top of `register.el` and allows you to quickly jump
@@ -14,6 +14,7 @@ across all files or individually for each buffer.
 * Cycle through all position registers in both directions.
 * Clear current register.
 * Store point in unused register (range configurable).
+* Clear all registers in the unused registers range.
 
 ## Installation
 
diff --git a/register-quicknav.el b/register-quicknav.el
index 759b27f..c85eeb7 100644
--- a/register-quicknav.el
+++ b/register-quicknav.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2020  tastytea
 
 ;; Author: tastytea <tastytea@tastytea.de>
-;; Version: 0.4.0
+;; Version: 0.4.1
 ;; Package-Requires: ((emacs "24.3"))
 ;; Keywords: convenience
 ;; URL: https://schlomp.space/tastytea/register-quicknav
@@ -33,6 +33,7 @@
 ;; * Cycle through all position registers in both directions.
 ;; * Clear current register.
 ;; * Store point in unused register (range configurable).
+;; * Clear all registers in the unused registers range.
 
 ;; Installation:
 ;;
@@ -247,5 +248,15 @@ Searches the range between
           (message "Position stored in register %c." char))
       (message "No unused register in the range %c - %c found." begin end))))
 
+;;;###autoload
+(defun register-quicknav-clear-unused-registers-range ()
+  "Clear all registers in the range used by `register-quicknav-point-to-unused-register'."
+  (interactive)
+  (dolist (register register-alist)
+    (when (and (>= (car register) register-quicknav-unused-registers-begin)
+               (<= (car register) register-quicknav-unused-registers-end))
+      (setq register-alist
+            (delq register register-alist)))))
+
 (provide 'register-quicknav)
 ;;; register-quicknav.el ends here