From b75f8333357ffda30fa423b187f98ca1aef13384 Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 15 May 1998 10:31:50 +0000 Subject: [PATCH] (quoted-printable-internal-encode-region): Use 'looking-at-as-unibyte instead of local binding for enable-multibyte-characters. --- mel-q.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/mel-q.el b/mel-q.el index 6ec4f0b..130865e 100644 --- a/mel-q.el +++ b/mel-q.el @@ -44,19 +44,18 @@ (save-restriction (narrow-to-region start end) (goto-char start) - (let ((col 0) - enable-multibyte-characters) + (let ((col 0)) (while (< (point)(point-max)) (cond ((>= col 75) (insert "=\n") (setq col 0) ) - ((looking-at "^From ") + ((looking-at-as-unibyte "^From ") (replace-match "=46rom ") (backward-char 1) (setq col (+ col 6)) ) - ((looking-at "[ \t]\n") + ((looking-at-as-unibyte "[ \t]\n") (forward-char 1) (insert "=\n") (forward-char 1) -- 1.7.10.4