From: morioka <morioka>
Date: Fri, 15 Jan 1999 14:49:53 +0000 (+0000)
Subject: (std11-special-char-list): Evaluate when it is compiled.
X-Git-Tag: flim-1_12-199901151900~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9f84f2458d8bcd5dc7be383d3b7de7b515122cc2;p=elisp%2Fflim.git

(std11-special-char-list): Evaluate when it is compiled.
(std11-atom-regexp): Use `eval-when-compile'.
---

diff --git a/std11.el b/std11.el
index de6c920..3cffc7f 100644
--- a/std11.el
+++ b/std11.el
@@ -267,15 +267,16 @@ If BOUNDARY is not nil, it is used as message header separator.
 
 (eval-and-compile
   (defconst std11-space-chars " \t\n")
+  (defconst std11-special-char-list '(?\] ?\[
+					  ?\( ?\) ?< ?> ?@
+					  ?, ?\; ?: ?\\ ?\"
+					  ?.))
   )
 ;; (defconst std11-spaces-regexp
 ;;   (eval-when-compile (concat "[" std11-space-chars "]+")))
-(defconst std11-special-char-list '(?\] ?\[
-					?\( ?\) ?< ?> ?@
-					?, ?\; ?: ?\\ ?\"
-					?.))
 (defconst std11-atom-regexp
-  (` (, (concat "^[^" std11-special-char-list std11-space-chars "]+"))))
+  (eval-when-compile
+    (concat "^[^" std11-special-char-list std11-space-chars "]+")))
 
 (defun std11-analyze-spaces (string)
   (if (and (string-match