]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix backtrace when query-about-changed-file nil and file has changed
authorLars Ingebrigtsen <larsi@gnus.org>
Fri, 27 Aug 2021 02:00:58 +0000 (04:00 +0200)
committerLars Ingebrigtsen <larsi@gnus.org>
Fri, 27 Aug 2021 02:00:58 +0000 (04:00 +0200)
* lisp/userlock.el (userlock--check-content-unchanged): Make the
assertion more robust -- we may be called here from a different
contexts if `query-about-changed-file' is nil.

lisp/userlock.el

index 38aaf6aec23c317b5b31cfe7e4233acb804b7bdb..a38f6ac4222c95240bceda523fb3568b7a4b3ea8 100644 (file)
@@ -125,7 +125,8 @@ You can <%s>uit; don't modify this file."
   (with-demoted-errors "Unchanged content check: %S"
     ;; Even tho we receive `filename', we know that `filename' refers to the current
     ;; buffer's file.
-    (cl-assert (equal filename (expand-file-name buffer-file-truename)))
+    (cl-assert (equal (expand-file-name filename)
+                      (expand-file-name buffer-file-truename)))
     ;; Note: rather than read the file and compare to the buffer, we could save
     ;; the buffer and compare to the file, but for encrypted data this
     ;; wouldn't work well (and would risk exposing the data).