diff options
| -rw-r--r-- | common.el | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -332,9 +332,7 @@ mark at the end for the first yank." (require 'bookmark) (bookmark-jump (cdr val))) ((eq (car val) 'file-query) - (or (find-buffer-visiting (nth 1 val)) - (y-or-n-p (format "Visit file %s again? " (nth 1 val))) - (user-error "Register access aborted")) + (find-buffer-visiting (nth 1 val)) (find-file (nth 1 val)) (goto-char (nth 2 val))) (t (cl-call-next-method val delete)))) @@ -424,6 +422,10 @@ mark at the end for the first yank." (princ "a rectangle starting with ") (princ (car val)))))) +;;; Bind point-to-register to a more convenient key + +(define-key ctl-x-r-map (vector ?p) #'point-to-register) + ;;; Intentionally disable some key-bindings. ;; Using byte-code is fun. |