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

Give feedback when register(s) is/are cleared.

This commit is contained in:
tastytea 2020-03-21 19:34:07 +01:00
parent e42245aa65
commit e1b620cdde
Signed by: tastytea
GPG Key ID: CFC39497F1B26E07
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
register-quicknav.el
View File

@ -227,7 +227,8 @@ Works on markers and file-queries."
"Clear last jumped-to position register from `register-alist'." "Clear last jumped-to position register from `register-alist'."
(interactive) (interactive)
(setq register-alist (setq register-alist
(delq (register-quicknav--last-register) register-alist))) (delq (register-quicknav--last-register) register-alist))
(message "Cleared register %c." (car (register-quicknav--last-register))))
;;;###autoload ;;;###autoload
(defun register-quicknav-point-to-unused-register () (defun register-quicknav-point-to-unused-register ()
@ -253,11 +254,14 @@ Searches the range between
(defun register-quicknav-clear-unused-registers-range () (defun register-quicknav-clear-unused-registers-range ()
"Clear all registers in the range used by `register-quicknav-point-to-unused-register'." "Clear all registers in the range used by `register-quicknav-point-to-unused-register'."
(interactive) (interactive)
(dolist (register register-alist) (let ((begin register-quicknav-unused-registers-begin)
(when (and (>= (car register) register-quicknav-unused-registers-begin) (end register-quicknav-unused-registers-end))
(<= (car register) register-quicknav-unused-registers-end)) (dolist (register register-alist)
(setq register-alist (when (and (>= (car register) begin)
(delq register register-alist))))) (<= (car register) end))
(setq register-alist
(delq register register-alist))))
(message "Cleared unused registers in the range %c - %c." begin end)))
(provide 'register-quicknav) (provide 'register-quicknav)
;;; register-quicknav.el ends here ;;; register-quicknav.el ends here