diff options
Diffstat (limited to 'lisp/acdw.el')
-rw-r--r-- | lisp/acdw.el | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/lisp/acdw.el b/lisp/acdw.el index 9361cdf..262c15e 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el | |||
@@ -143,7 +143,7 @@ within a `with-current-buffer' form." | |||
143 | (let ((pred (or predicate t))) | 143 | (let ((pred (or predicate t))) |
144 | (dolist (buf (buffer-list)) | 144 | (dolist (buf (buffer-list)) |
145 | (with-current-buffer buf | 145 | (with-current-buffer buf |
146 | (when (funcall pred buf) | 146 | (when (if (fboundp pred) (funcall pred buf) pred) |
147 | (funcall func)))))) | 147 | (funcall func)))))) |
148 | 148 | ||
149 | ;; https://github.com/cstby/emacs.d/blob/main/init.el#L67 | 149 | ;; https://github.com/cstby/emacs.d/blob/main/init.el#L67 |
@@ -176,14 +176,15 @@ surrounded by empty lines, so opening a paragraph means to make | |||
176 | three blank lines, then place the point on the second one." | 176 | three blank lines, then place the point on the second one." |
177 | (interactive "*") | 177 | (interactive "*") |
178 | (unless (derived-mode-p 'special-mode 'lui-mode 'comint-mode) | 178 | (unless (derived-mode-p 'special-mode 'lui-mode 'comint-mode) |
179 | ;; Go to next blank line. This /isn't/ `end-of-paragraph-text' because | 179 | ;; Go to next blank line. This /isn't/ `end-of-paragraph-text' because |
180 | ;; that's weird with org, and I'm guessing other modes too. | 180 | ;; that's weird with org, and I'm guessing other modes too. |
181 | (while (not (looking-at "^$")) | 181 | (while (and (not (looking-at "^$")) |
182 | (forward-line 1)) | 182 | (< (point) (point-max))) |
183 | (newline) | 183 | (forward-line 1)) |
184 | (delete-blank-lines) | 184 | (newline) |
185 | (newline 2) | 185 | (delete-blank-lines) |
186 | (previous-line))) | 186 | (newline 2) |
187 | (previous-line))) | ||
187 | 188 | ||
188 | (defun +split-window-then (&optional where arg) | 189 | (defun +split-window-then (&optional where arg) |
189 | "Split the window into a new buffer. | 190 | "Split the window into a new buffer. |