Add clear-current-register.
This commit is contained in:
parent
606ef51883
commit
d853f9e7cb
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue
Block a user