diff options
| author | Case Duckworth | 2022-02-08 20:59:33 -0600 |
|---|---|---|
| committer | Case Duckworth | 2022-02-08 20:59:33 -0600 |
| commit | fe8985ae47234937fce348734dc1ec34a528acd7 (patch) | |
| tree | 18039317ffa4129941c6682415d70b42c8def677 | |
| parent | Don't display slack team name (diff) | |
| download | emacs-fe8985ae47234937fce348734dc1ec34a528acd7.tar.gz emacs-fe8985ae47234937fce348734dc1ec34a528acd7.zip | |
Write +{forward,backward}-paragraph
| -rw-r--r-- | lisp/acdw.el | 20 |
1 files changed, 20 insertions, 0 deletions
| diff --git a/lisp/acdw.el b/lisp/acdw.el index 2b3cafc..99e5c1e 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el | |||
| @@ -291,5 +291,25 @@ With optional ARG, kill all chat-related buffers first." | |||
| 291 | )) | 291 | )) |
| 292 | (mapc #'call-interactively chat-functions)) | 292 | (mapc #'call-interactively chat-functions)) |
| 293 | 293 | ||
| 294 | (defun +forward-paragraph (arg) | ||
| 295 | "Move forward ARG (simple) paragraphs. | ||
| 296 | A paragraph here is simply defined: it's a block of buffer that's | ||
| 297 | separated from others by two newlines." | ||
| 298 | (interactive "p") | ||
| 299 | (let ((direction (/ arg (abs arg)))) | ||
| 300 | (forward-line direction) | ||
| 301 | (while (not (or (bobp) | ||
| 302 | (eobp) | ||
| 303 | (= arg 0))) | ||
| 304 | (if (looking-at "^[ \f\t]*$") | ||
| 305 | (setq arg (- arg direction)) | ||
| 306 | (forward-line direction))))) | ||
| 307 | |||
| 308 | (defun +backward-paragraph (arg) | ||
| 309 | "Move backward ARG (simple) paragraphs. | ||
| 310 | See `+forward-paragraph' for the behavior." | ||
| 311 | (interactive "p") | ||
| 312 | (+forward-paragraph (- arg))) | ||
| 313 | |||
| 294 | (provide 'acdw) | 314 | (provide 'acdw) |
| 295 | ;;; acdw.el ends here | 315 | ;;; acdw.el ends here |