From 61d31732f7e3e32c6569ae07e99598482d67d305 Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 15 Jan 1999 14:01:15 +0000 Subject: [PATCH] (std11-space-chars): Must evaluate when it is compiled. (std11-analyze-spaces): Don't use `std11-spaces-regexp'; abolist constant `std11-spaces-regexp'. --- std11.el | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) 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 ;; 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)) -- 1.7.10.4