summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--common.el8
1 files changed, 5 insertions, 3 deletions
diff --git a/common.el b/common.el
index 860e031..fd317ad 100644
--- a/common.el
+++ b/common.el
@@ -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.