dotemacs

commit 85a5dd36fcadec0bf159aae870f18537a078c6b6
parent ceeebd9f2e81e56893fe19e7e8cce5c7bee406c2
Author: Lukas Henkel <lh@entf.net>
Date:   Thu,  2 Jun 2022 20:16:38 +0200

Restore point after doas-ing buffer

Diffstat:
M
lisp/lh.el
 | 
4
+++-

1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/lisp/lh.el b/lisp/lh.el
@@ -86,8 +86,10 @@
 
 (defun lh/doas-current-buffer ()
   (interactive)
-  (let ((old (current-buffer)))
+  (let ((old-point (point))
+        (old (current-buffer)))
     (find-file (concat "/doas::" (buffer-file-name)))
+    (goto-char old-point)
     (kill-buffer old)))
 
 (defun lh/buffer-create-new ()