From: ueno <ueno>
Date: Fri, 26 Apr 2002 06:42:21 +0000 (+0000)
Subject: * lsdb.el (lsdb-mode-save): Fixed.
X-Git-Tag: lsdb-0_1~8
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a4e4a60eb650182521b70c43b6f3290b18b265ec;p=elisp%2Flsdb.git

* lsdb.el (lsdb-mode-save): Fixed.
---

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*")