# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1008254479 0
# Node ID 235915876f5b00a8337e077421510069f322f85d
# Parent  eb720810e87f2d11474ae7a96110e0e56de231e6
(set-auto-coding): Don't search for
"unibyte:" or "coding:" if set-auto-mode-1 returns nil.

diff -r eb720810e87f -r 235915876f5b lisp/international/mule.el
--- a/lisp/international/mule.el	Thu Dec 13 10:04:34 2001 +0000
+++ b/lisp/international/mule.el	Thu Dec 13 14:41:19 2001 +0000
@@ -1388,7 +1388,7 @@
 	  (goto-char head-start)
 	  (setq head-end (set-auto-mode-1))
 	  (setq head-start (point))
-	  (when (< head-found head-end)
+	  (when (and head-end (< head-found head-end))
 	    (goto-char head-start)
 	    (when (and set-auto-coding-for-load
 		       (re-search-forward