Give feedback when register(s) is/are cleared.
This commit is contained in:
parent
e42245aa65
commit
e1b620cdde
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue
Block a user