From: ueno <ueno>
Date: Sun, 11 Jan 2004 18:50:06 +0000 (+0000)
Subject: (lsdb-insert-hash-table): Do line wrap when saving records.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;ds=sidebyside;h=6d344abf94d521dc77f1484ba23ab33573e089da;p=elisp%2Flsdb.git

(lsdb-insert-hash-table): Do line wrap when saving records.
(lsdb-mode-save): Force save records when prefix-arg is given.
---

diff --git a/lsdb.el b/lsdb.el
index 503a31c..be69f77 100644
--- a/lsdb.el
+++ b/lsdb.el
@@ -502,11 +502,11 @@ This is the current number of slots in HASH-TABLE, whether occupied or not."
 	  ;; XEmacs doesn't have a distinction between index-size and
 	  ;; hash-table-size.
 	  (number-to-string (lsdb-hash-table-count hash-table))
-	  " test equal data (")
+	  " test equal data (\n")
   (lsdb-maphash
    (lambda (key value)
      (let (print-level print-length)
-       (insert (prin1-to-string key) " " (prin1-to-string value) " ")))
+       (insert (prin1-to-string key) " " (prin1-to-string value) "\n")))
    hash-table)
   (insert "))"))
 
@@ -1306,12 +1306,15 @@ then the name of this record will be edited."
       (lsdb-mode-edit-entry)
     (lsdb-mode-edit-record)))
 
-(defun lsdb-mode-save (&optional dont-ask)
+(defun lsdb-mode-save (&optional force)
   "Save LSDB hash table into `lsdb-file'."
-  (interactive (list t))
-  (if (not lsdb-hash-tables-are-dirty)
+  (interactive "P")
+  (if (not (or force
+	       lsdb-hash-tables-are-dirty))
       (message "(No changes need to be saved)")
-    (when (or dont-ask
+    (when (or (interactive-p)		;Don't ask user if this
+					;function is called as a
+					;command.
 	      (not lsdb-verbose)
 	      (y-or-n-p "Save the LSDB now? "))
       (lsdb-save-hash-tables)