From a61d0056ec32e1215cda84a1e81585fe00072fd4 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 20 Oct 1998 09:55:01 +0000 Subject: [PATCH] Enclose with `eval-and-compile'. --- ChangeLog | 6 ++++++ mime-def.el | 11 ++++++----- 2 files changed, 12 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index fc1fb58..f295882 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +1998-10-20 Katsumi Yamaoka + + * mime-def.el: Enclose defining procedure for the constants + `std11-quoted-pair-regexp', `std11-non-qtext-char-list' and + `std11-qtext-regexp' with `eval-and-compile'. + 1998-10-19 MORIOKA Tomohiko * NEWS (Behavior change of `mime-insert-header'): New subsection. diff --git a/mime-def.el b/mime-def.el index 969089b..b709203 100644 --- a/mime-def.el +++ b/mime-def.el @@ -96,11 +96,12 @@ ;;; @ about STD 11 ;;; -(defconst std11-quoted-pair-regexp "\\\\.") -(defconst std11-non-qtext-char-list '(?\" ?\\ ?\r ?\n)) -(defconst std11-qtext-regexp - (eval-when-compile - (concat "[^" (apply #'string std11-non-qtext-char-list) "]"))) +(eval-and-compile + (defconst std11-quoted-pair-regexp "\\\\.") + (defconst std11-non-qtext-char-list '(?\" ?\\ ?\r ?\n)) + (defconst std11-qtext-regexp + (eval-when-compile + (concat "[^" (apply #'string std11-non-qtext-char-list) "]")))) (defconst std11-quoted-string-regexp (eval-when-compile (concat "\"" -- 1.7.10.4