Don't modify buffer if nothing changed

Fanael / edit-indirect

Edit regions in separate buffers

99 stars 23 forks source link

Don't modify buffer if nothing changed #19

Closed twlz0ne closed 2 years ago

twlz0ne commented 2 years ago

(with-temp-buffer
  (insert "foobar")
  (set-buffer-modified-p nil)
  (with-current-buffer (edit-indirect-region (point-min) (point-max))
    (edit-indirect-commit))
  (cl-assert (equal (buffer-string) "foobar"))
  (cl-assert (not (buffer-modified-p))))
;; => error: (cl-assertion-failed ((not (buffer-modified-p)) nil))

Fanael commented 2 years ago

Thanks!