diff options
| author | Case Duckworth | 2021-09-08 08:01:53 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-09-08 08:01:53 -0500 |
| commit | 71507e81f74c449d732abcf0073808302552da81 (patch) | |
| tree | 2b84b604cf9121285256cfe4e6d4bb6db9659006 | |
| parent | Make acdw.el package-lint compliant (diff) | |
| download | emacs-71507e81f74c449d732abcf0073808302552da81.tar.gz emacs-71507e81f74c449d732abcf0073808302552da81.zip | |
Add goto-{last|first}-row
| -rw-r--r-- | lisp/acdw.el | 15 |
1 files changed, 15 insertions, 0 deletions
| diff --git a/lisp/acdw.el b/lisp/acdw.el index 4f91e24..cdd4110 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el | |||
| @@ -104,6 +104,21 @@ FILENAME and CONFIRM are passed directly to `write-file'." | |||
| 104 | (write-file filename confirm)) | 104 | (write-file filename confirm)) |
| 105 | (switch-to-buffer buf))) | 105 | (switch-to-buffer buf))) |
| 106 | 106 | ||
| 107 | ;; https://old.reddit.com/r/emacs/comments/pjwkts | ||
| 108 | (defun acdw/goto-last-row () | ||
| 109 | "Move point to last row of buffer, but save the column." | ||
| 110 | (interactive) | ||
| 111 | (let ((col (current-column))) | ||
| 112 | (goto-char (point-max)) | ||
| 113 | (move-to-column col t))) | ||
| 114 | |||
| 115 | (defun acdw/goto-first-row () | ||
| 116 | "Move point to first row of buffer, but save the column." | ||
| 117 | (interactive) | ||
| 118 | (let ((col (current-column))) | ||
| 119 | (goto-char (point-min)) | ||
| 120 | (move-to-column col t))) | ||
| 121 | |||
| 107 | (defun dos2unix (buffer) | 122 | (defun dos2unix (buffer) |
| 108 | "Replace \r\n with \n in BUFFER." | 123 | "Replace \r\n with \n in BUFFER." |
| 109 | (interactive "*b") | 124 | (interactive "*b") |