From: yamaoka <yamaoka>
Date: Mon, 20 Sep 1999 07:08:23 +0000 (+0000)
Subject: (mailcap-look-at-schar): Protect against unexpected eof.  [cf. <tm-ja:5177>]
X-Git-Tag: flim-1_13_2_1~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=af36c345318f0ab76008abbbe396234498eca845;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 ?\\)
 	     )