From 9f84f2458d8bcd5dc7be383d3b7de7b515122cc2 Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 15 Jan 1999 14:49:53 +0000 Subject: [PATCH] (std11-special-char-list): Evaluate when it is compiled. (std11-atom-regexp): Use `eval-when-compile'. --- std11.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) 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 -- 1.7.10.4