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

Add clear-current-register.

This commit is contained in:
tastytea 2020-02-19 16:48:18 +01:00
parent 606ef51883
commit d853f9e7cb
Signed by: tastytea
GPG Key ID: CFC39497F1B26E07
1 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
register-quicknav.el
View File

@ -28,6 +28,7 @@
;; Features:
;;
;; * Cycle through all position registers in both directions.
;; * Clear current register.
;; Known limitations:
;;
@ -37,19 +38,21 @@
;; Installation:
;;
;; To use `register-quicknav.el', put it in your load-path and add the following
;; to your .emacs
;; to your .emacs:
;;
;; (require 'register-quicknav)
;; (global-set-key (kbd "<C-f5>") 'register-quicknav/prev-register)
;; (global-set-key (kbd "<C-f6>") 'register-quicknav/next-register)
;; (global-set-key (kbd "M-r") 'register-quicknav/clear-current-register)
;;
;; Or, with use-package:
;;
;; (use-package register-quicknav
;; :commands (register-quicknav/prev-register register-quicknav/next-register)
;; :bind
;; ("C-<f5>" . register-quicknav/prev-register)
;; ("C-<f6>" . register-quicknav/next-register))
;; :commands (register-quicknav/prev-register
;; register-quicknav/next-register)
;; :bind (("C-<f5>" . register-quicknav/prev-register)
;; ("C-<f6>" . register-quicknav/next-register)
;; ("M-r" . register-quicknav/clear-current-register)))
;;; Code:
@ -95,6 +98,14 @@
(setq register-quicknav//current-position-register pos)
(register-to-point (car (nth pos registers)))))
(defun register-quicknav/clear-current-register ()
"Clear currently selected position register."
(interactive)
(let ((pos register-quicknav//current-position-register)
(registers (register-quicknav//registers)))
(setq register-alist (delete (nth pos registers) register-alist))
))
(provide 'register-quicknav)
;;; register-quicknav.el ends here