From a4e4a60eb650182521b70c43b6f3290b18b265ec Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 26 Apr 2002 06:42:21 +0000 Subject: [PATCH] * lsdb.el (lsdb-mode-save): Fixed. --- lsdb.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) 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*") -- 1.7.10.4