Closed twlz0ne closed 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))
Thanks!