From: yamaoka <yamaoka>
Date: Mon, 20 Sep 1999 07:08:35 +0000 (+0000)
Subject: (mailcap-look-at-schar): Protect against unexpected eof.  [cf. <tm-ja:5177>]
X-Git-Tag: clime-1_13_5~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5e5e29f684479e569664f0dd2c1eac95fd2007a2;p=elisp%2Fflim.git

(mailcap-look-at-schar): Protect against unexpected eof.  [cf. <tm-ja:5177>]
---

diff --git a/mailcap.el b/mailcap.el
index eb1c093..25595f0 100644
--- a/mailcap.el
+++ b/mailcap.el
@@ -86,7 +86,8 @@
 
 (defsubst mailcap-look-at-schar ()
   (let ((chr (char-after (point))))
-    (if (and (>= chr ? )
+    (if (and chr
+	     (>= chr ? )
 	     (/= chr ?\;)
 	     (/= chr ?\\)
 	     )