From 45ac326b6e1c42a8069ab619093ad1b4dee32a61 Mon Sep 17 00:00:00 2001 From: ueno Date: Sat, 27 Apr 2002 19:32:01 +0000 Subject: [PATCH] * lsdb.el (lsdb-mode-save): Don't ask user for saving the database. --- lsdb.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lsdb.el b/lsdb.el index 1e5a691..caa3264 100644 --- a/lsdb.el +++ b/lsdb.el @@ -829,13 +829,13 @@ Modify whole identification by side effect." (point)) (list 'lsdb-record record))))))))) -(defun lsdb-mode-save (&optional ask) +(defun lsdb-mode-save (&optional dont-ask) "Save LSDB hash table into `lsdb-file'." (interactive) (if (not lsdb-hash-table-is-dirty) (message "(No changes need to be saved)") (when (or (interactive-p) - (not ask) + dont-ask (y-or-n-p "Save the LSDB now?")) (lsdb-save-file lsdb-file lsdb-hash-table) (setq lsdb-hash-table-is-dirty nil) -- 1.7.10.4