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
-*Version:* 0.4.0
+*Version:* 0.4.1
*URL:* [https://schlomp.space/tastytea/register-quicknav](https://schlomp.space/tastytea/register-quicknav)
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 -;; 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