From 892b897de9b699ee79d90cc625e0d18f939ab771 Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 15 Jan 1999 17:29:30 +0000 Subject: [PATCH] (std11-space-char-list): Renamed from `std11-space-chars'; changed from string to list. --- std11.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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))) -- 1.7.10.4