From: morioka <morioka>
Date: Fri, 15 Jan 1999 14:01:15 +0000 (+0000)
Subject: (std11-space-chars): Must evaluate when it is compiled.
X-Git-Tag: flim-1_12-199901151900~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=61d31732f7e3e32c6569ae07e99598482d67d305;p=elisp%2Fflim.git

(std11-space-chars): Must evaluate when it is compiled.
(std11-analyze-spaces): Don't use `std11-spaces-regexp'; abolist
constant `std11-spaces-regexp'.
---

diff --git a/std11.el b/std11.el
index 112629c..de6c920 100644
--- a/std11.el
+++ b/std11.el
@@ -1,6 +1,6 @@
 ;;; std11.el --- STD 11 functions for GNU Emacs
 
-;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
+;; Copyright (C) 1995,1996,1997,1998,1999 Free Software Foundation, Inc.
 
 ;; Author:   MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Keywords: mail, news, RFC 822, STD 11
@@ -265,8 +265,11 @@ If BOUNDARY is not nil, it is used as message header separator.
 ;;; @ lexical analyze
 ;;;
 
-(defconst std11-space-chars " \t\n")
-(defconst std11-spaces-regexp (` (, (concat "[" std11-space-chars "]+"))))
+(eval-and-compile
+  (defconst std11-space-chars " \t\n")
+  )
+;; (defconst std11-spaces-regexp
+;;   (eval-when-compile (concat "[" std11-space-chars "]+")))
 (defconst std11-special-char-list '(?\] ?\[
 					?\( ?\) ?< ?> ?@
 					?, ?\; ?: ?\\ ?\"
@@ -275,7 +278,9 @@ If BOUNDARY is not nil, it is used as message header separator.
   (` (, (concat "^[^" std11-special-char-list std11-space-chars "]+"))))
 
 (defun std11-analyze-spaces (string)
-  (if (and (string-match std11-spaces-regexp string)
+  (if (and (string-match
+	    (eval-when-compile (concat "[" std11-space-chars "]+"))
+	    string)
 	   (= (match-beginning 0) 0))
       (let ((end (match-end 0)))
 	(cons (cons 'spaces (substring string 0 end))