(auto-coding-alist-lookup): New function.

(set-auto-coding): Use auto-coding-alist-lookup.

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index dc8a2fa55ef6d56814a6252cebcdd6238605aa40..9087aa1c9330bc822ac7898bd4f9a73437507056 100644 (file)
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -903,6 +903,17 @@ and the contents of `file-coding-system-alist'.")
   "Non-nil means look for `load-coding' property instead of `coding'.
 This is used for loading and byte-compiling Emacs Lisp files.")
 
+(defun auto-coding-alist-lookup (filename)
+  "Return the coding system specified by `auto-coding-alist' for FILENAME."
+  (let ((alist auto-coding-alist)
+       (case-fold-search (memq system-type '(vax-vms windows-nt)))
+       coding-system)
+    (while (and alist (not coding-system))
+      (if (string-match (car (car alist)) filename)
+         (setq coding-system (cdr (car alist)))
+       (setq alist (cdr alist))))
+    coding-system))
+
 (defun set-auto-coding (filename size)
   "Return coding system for a file FILENAME of which SIZE bytes follow point.
 These bytes should include at least the first 1k of the file
@@ -919,13 +930,7 @@ or nil if nothing specified.
 
 The variable `set-auto-coding-function' (which see) is set to this
 function by default."
-  (let ((alist auto-coding-alist)
-       (case-fold-search (memq system-type '(vax-vms windows-nt)))
-       coding-system)
-    (while (and alist (not coding-system))
-      (if (string-match (car (car alist)) filename)
-         (setq coding-system (cdr (car alist)))
-       (setq alist (cdr alist))))
+  (let ((coding-system (auto-coding-alist-lookup filename)))
 
     (or coding-system
        (let* ((case-fold-search t)