From 5aa732333427ea8cfd86682ebd6d97bf8e088c30 Mon Sep 17 00:00:00 2001 From: shuhei-k Date: Sat, 22 May 1999 13:29:23 +0000 Subject: [PATCH] (mailcap-look-at-qchar): Use `char-after'. --- mailcap.el | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/mailcap.el b/mailcap.el index 12eee88..b3b7d90 100644 --- a/mailcap.el +++ b/mailcap.el @@ -95,18 +95,17 @@ (forward-char))))) (defsubst mailcap-look-at-qchar () - (let ((chr (char-after (point)))) - (when (eq chr ?\\) - (forward-char 2) - (char-before (point)) - ))) + (when (eq (char-after (point)) ?\\) + (prog2 + (forward-char) + (char-after (point)) + (forward-char)))) (defsubst mailcap-look-at-mtext () (let ((beg (point))) (while (or (mailcap-look-at-qchar) (mailcap-look-at-schar))) - (buffer-substring beg (point)) - )) + (buffer-substring beg (point)))) ;;; @ field -- 1.7.10.4