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