view .elisp/settings/80.fill-paragraph.el @ 522:7983184eb8d8

emacs.sh: hack together fallback to vscode Lately if emacs is not running I prefer using vscode. This allows my muscle memory to keep working.
author Augie Fackler <raf@durin42.com>
date Sun, 31 Jul 2022 22:34:33 -0400
parents 887566d21cd8
children
line wrap: on
line source

(defun kf-fill-paragraph (&optional justify)
  "Like fill-paragraph, but don't mark the buffer as modified if no change.

Emacs's native fill-paragraph is like the burglar who breaks into
your house, rearranges all your furniture exactly as it was, and
departs: even if the result of the fill is to leave the buffer in
exactly the same state, it still marks the buffer as modified so you
know you've been broken into.

Note: to get this accepted into Emacs, it should watch the md5sum for
just the affected region rather than the entire buffer.  See
`fill-region' and `fill-region-as-paragraph' in textmodes/fill.el.
The elegant solution would be a new macro, '(detect-buffer-unmodified
from to)' or something, that just wraps the relevant body of code in
those two functions.  Then it could be used by other fill functions
easily too."
  (interactive "P")
  (let ((orig-md5sum (md5 (current-buffer)))
        (was-modified-before-fill (buffer-modified-p)))
    (fill-paragraph justify)
    (let ((new-md5sum (md5 (current-buffer))))
      (when (string-equal orig-md5sum new-md5sum)
        (set-buffer-modified-p was-modified-before-fill)))))

(if (eq (key-binding "\M-q") 'fill-paragraph)
    (global-set-key "\M-q" 'kf-fill-paragraph))