From: bg66 <bg66>
Date: Thu, 8 Aug 2002 07:38:22 +0000 (+0000)
Subject: Hack for non-optimize.
X-Git-Tag: lsdb-0_8~6
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cbeca0b29257118bce4e8cea52811a5a6314905f;p=elisp%2Flsdb.git

Hack for non-optimize.
---

diff --git a/lsdb.el b/lsdb.el
index d6aa072..330648b 100644
--- a/lsdb.el
+++ b/lsdb.el
@@ -355,11 +355,11 @@ This is the current number of slots in HASH-TABLE, whether occupied or not."
 
 (eval-and-compile
   (condition-case nil
-      (progn
-	;; In XEmacs, hash tables can also be created by the lisp reader
-	;; using structure syntax.
-	(read-from-string "#s(hash-table)")
-	(defalias 'lsdb-read 'read))
+      (and
+       ;; In XEmacs, hash tables can also be created by the lisp reader
+       ;; using structure syntax.
+       (read-from-string "#s(hash-table)")
+       (defalias 'lsdb-read 'read))
     (invalid-read-syntax
      (defun lsdb-read (&optional marker)
        "Read one Lisp expression as text from MARKER, return as Lisp object."