X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mailcap.el;h=eb1c09354b5d06231e673bed7eb03868c836e873;hb=2cdf2dfc7fc737128e09ac46edaa074cbe27e690;hp=12eee8837929ea0a09ada7a39e4dd3fc9cda2e43;hpb=760a39e255c599f6e1d5e0d7148cc9c1ab8cf17b;p=elisp%2Fflim.git

diff --git a/mailcap.el b/mailcap.el
index 12eee88..eb1c093 100644
--- a/mailcap.el
+++ b/mailcap.el
@@ -95,11 +95,11 @@
 	  (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)))