; Small cleanup in project.el

* lisp/progmodes/project.el (project--add-to-project-list-front):
Minor simplification after recent changes.

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index c701b801599c138d01abd7df8ae3b13b4682b9c4..c5b6209d9b45dd3e293b245e2c813da2c231f941 100644 (file)
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -787,9 +787,8 @@ Arguments the same as in `compile'."
   "Add project PR to the front of the project list.
 Save the result to disk if the project list was changed."
   (project--ensure-read-project-list)
-  (let* ((dir (project-root pr))
-         (do-write (not (equal (car project--list) dir))))
-    (when do-write
+  (let ((dir (project-root pr)))
+    (unless (equal (car project--list) dir)
       (setq project--list (delete dir project--list))
       (push dir project--list)
       (project--write-project-list))))