X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=lsdb.el;h=704feb71dc64c1c61142c092881cd03e6d4c84f0;hb=a4e4a60eb650182521b70c43b6f3290b18b265ec;hp=3bbe56a0170c8b7223f56b06314956ea07488530;hpb=c9ca07237c95b88d26f10d39dea422b7657967f1;p=elisp%2Flsdb.git

diff --git a/lsdb.el b/lsdb.el
index 3bbe56a..704feb7 100644
--- a/lsdb.el
+++ b/lsdb.el
@@ -684,11 +684,13 @@ This is the current number of slots in HASH-TABLE, whether occupied or not."
 	       (list 'lsdb-record record)))))))))
 
 (defun lsdb-mode-save ()
+  "Save LSDB hash table into `lsdb-file'."
   (interactive)
-  (if (and lsdb-hash-table-is-dirty
-	   (or (interactive-p)
-	       (y-or-n-p "Save the LSDB now?")))
-      (lsdb-save-file lsdb-file lsdb-hash-table)))
+  (if (not lsdb-hash-table-is-dirty)
+      (message "(No changes need to be saved)")
+    (if (or (interactive-p)
+	    (y-or-n-p "Save the LSDB now?"))
+	(lsdb-save-file lsdb-file lsdb-hash-table))))
 
 ;;;_ : Edit Forms -- stolen (and renamed) from gnus-eform.el
 (defvar lsdb-edit-form-buffer "*LSDB edit form*")