From: morioka <morioka>
Date: Fri, 15 Jan 1999 17:29:30 +0000 (+0000)
Subject: (std11-space-char-list): Renamed from `std11-space-chars'; changed
X-Git-Tag: flim-1_12-199901151900~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=892b897de9b699ee79d90cc625e0d18f939ab771;p=elisp%2Fflim.git

(std11-space-char-list): Renamed from `std11-space-chars'; changed
from string to list.
---

diff --git a/std11.el b/std11.el
index 56b133c..ac62d2d 100644
--- a/std11.el
+++ b/std11.el
@@ -246,7 +246,7 @@ If BOUNDARY is not nil, it is used as message header separator.
     ))
 
 (defun std11-strip-quoted-string (string)
-  "Strip quoted-string STRING. [std11.el]"
+  "Strip quoted-string STRING."
   (let ((len (length string)))
     (or (and (>= len 2)
 	     (let ((max (1- len)))
@@ -261,21 +261,21 @@ If BOUNDARY is not nil, it is used as message header separator.
 ;;;
 
 (eval-and-compile
-  (defconst std11-space-chars " \t\n")
+  (defconst std11-space-char-list '(?  ?\t ?\n))
   (defconst std11-special-char-list '(?\] ?\[
 					  ?\( ?\) ?< ?> ?@
 					  ?, ?\; ?: ?\\ ?\"
 					  ?.))
   )
 ;; (defconst std11-spaces-regexp
-;;   (eval-when-compile (concat "[" std11-space-chars "]+")))
+;;   (eval-when-compile (concat "[" std11-space-char-list "]+")))
 (defconst std11-atom-regexp
   (eval-when-compile
-    (concat "^[^" std11-special-char-list std11-space-chars "]+")))
+    (concat "^[^" std11-special-char-list std11-space-char-list "]+")))
 
 (defun std11-analyze-spaces (string)
   (if (and (string-match
-	    (eval-when-compile (concat "[" std11-space-chars "]+"))
+	    (eval-when-compile (concat "[" std11-space-char-list "]+"))
 	    string)
 	   (= (match-beginning 0) 0))
       (let ((end (match-end 0)))