From: ueno <ueno>
Date: Fri, 26 Apr 2002 23:00:28 +0000 (+0000)
Subject: * lsdb.el (lsdb-insert-entry): Check entry's score here.
X-Git-Tag: lsdb-0_2~12
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=447ef9b45a7cc913caedc0a785ba5e163a765e5d;p=elisp%2Flsdb.git

* lsdb.el (lsdb-insert-entry): Check entry's score here.
(lsdb-mode-edit-entry): Compare entry contents.
---

diff --git a/lsdb.el b/lsdb.el
index 8391f1c..9961524 100644
--- a/lsdb.el
+++ b/lsdb.el
@@ -485,15 +485,17 @@ This is the current number of slots in HASH-TABLE, whether occupied or not."
 (defun lsdb-insert-entry (entry)
   (let ((entry-name (capitalize (symbol-name (car entry)))))
     (intern entry-name lsdb-known-entry-names)
-    (insert "\t" entry-name ": "
-	    (if (listp (cdr entry))
-		(mapconcat
-		 #'identity (cdr entry)
-		 (if (eq ?, (nth 2 (assq (car entry) lsdb-entry-type-alist)))
-		     ", "
-		   "\n\t\t"))
-	      (cdr entry))
-	    "\n")))
+    (if (>= (lsdb-entry-score entry) 0)
+	(insert "\t" entry-name ": "
+		(if (listp (cdr entry))
+		    (mapconcat
+		     #'identity (cdr entry)
+		     (if (eq ?, (nth 2 (assq (car entry)
+					     lsdb-entry-type-alist)))
+			 ", "
+		       "\n\t\t"))
+		  (cdr entry))
+		"\n"))))
 
 (defun lsdb-print-record (record)
   (insert (car record) "\n")
@@ -502,8 +504,7 @@ This is the current number of slots in HASH-TABLE, whether occupied or not."
 	       (lambda (entry1 entry2)
 		 (> (lsdb-entry-score entry1) (lsdb-entry-score entry2))))))
     (while entries
-      (if (>= (lsdb-entry-score (car entries)) 0)
-	  (lsdb-insert-entry (car entries)))
+      (lsdb-insert-entry (car entries))
       (setq entries (cdr entries)))))
 
 ;;;_. Completion
@@ -679,7 +680,7 @@ This is the current number of slots in HASH-TABLE, whether occupied or not."
     (lsdb-edit-form
      (cdr entry) "Editing the entry."
      `(lambda (form)
-	(unless (equal form ',entry-name)
+	(unless (equal form ',(cdr entry))
 	  (save-excursion
 	    (set-buffer lsdb-buffer-name)
 	    (goto-char ,marker)