From: ueno <ueno>
Date: Fri, 26 Apr 2002 14:34:16 +0000 (+0000)
Subject: * lsdb.el (lsdb-mode-map): Bind [backspace]
X-Git-Tag: lsdb-0_1~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=116109952d17600e1f2543e8c187b1907adb1613;p=elisp%2Flsdb.git

* lsdb.el (lsdb-mode-map): Bind [backspace]
(lsdb-mode-lookup): Prepare lsdb-hash-table.
---

diff --git a/lsdb.el b/lsdb.el
index 7186f00..94ad1f3 100644
--- a/lsdb.el
+++ b/lsdb.el
@@ -563,6 +563,7 @@ This is the current number of slots in HASH-TABLE, whether occupied or not."
     (define-key keymap " " 'scroll-up)
     (define-key keymap [delete] 'scroll-down)
     (define-key keymap "\177" 'scroll-down)
+    (define-key keymap [backspace] 'scroll-down)
     keymap)
   "LSDB's keymap.")
 
@@ -734,6 +735,7 @@ This is the current number of slots in HASH-TABLE, whether occupied or not."
        nil nil nil 'lsdb-mode-lookup-history)
       entry-name)))
   (let (records)
+    (lsdb-maybe-load-file)
     (lsdb-maphash
      (if entry-name
 	 (lambda (key value)