1 files changed, 15 insertions, 0 deletions

@@ -104,6 +104,21 @@ FILENAME and CONFIRM are passed directly to `write-file'."
       (write-file filename confirm))
     (switch-to-buffer buf)))
 
+;; https://old.reddit.com/r/emacs/comments/pjwkts
+(defun acdw/goto-last-row ()
+  "Move point to last row of buffer, but save the column."
+  (interactive)
+  (let ((col (current-column)))
+    (goto-char (point-max))
+    (move-to-column col t)))
+
+(defun acdw/goto-first-row ()
+  "Move point to first row of buffer, but save the column."
+  (interactive)
+  (let ((col (current-column)))
+    (goto-char (point-min))
+    (move-to-column col t)))
+
 (defun dos2unix (buffer)
   "Replace \r\n with \n in BUFFER."
   (interactive "*b")