From: morioka <morioka>
Date: Fri, 5 Sep 1997 07:12:46 +0000 (+0000)
Subject: (mailcap-skip-comment): Check `chr' is nil.
X-Git-Tag: semi-0_112~37
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6e9e4863fa000f1c134bf3c4aacf0dde18bc9cd6;p=elisp%2Fsemi.git

(mailcap-skip-comment): Check `chr' is nil.
---

diff --git a/mailcap.el b/mailcap.el
index 266c564..0a3c5e1 100644
--- a/mailcap.el
+++ b/mailcap.el
@@ -4,7 +4,7 @@
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1997/6/27
-;; Version: $Id: mailcap.el,v 0.1 1997-07-02 16:43:23 morioka Exp $
+;; Version: $Id: mailcap.el,v 0.2 1997-09-05 07:12:46 morioka Exp $
 ;; Keywords: mailcap, setting, configuration, MIME, multimedia
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -31,8 +31,9 @@
 
 (defsubst mailcap-skip-comment ()
   (let ((chr (char-after (point))))
-    (when (or (= chr ?\n)
-	      (= chr ?#))
+    (when (and chr
+	       (or (= chr ?\n)
+		   (= chr ?#)))
       (forward-line)
       t)))