Mercurial > emacs
changeset 24602:ca3a341bfd58
(auto-coding-alist-lookup): New function.
(set-auto-coding): Use auto-coding-alist-lookup.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 08 Apr 1999 22:27:44 +0000 |
| parents | c22ae7f6afd9 |
| children | 5ee655f7a49b |
| files | lisp/international/mule.el |
| diffstat | 1 files changed, 12 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule.el Thu Apr 08 22:26:13 1999 +0000 +++ b/lisp/international/mule.el Thu Apr 08 22:27:44 1999 +0000 @@ -903,6 +903,17 @@ "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 @@ 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)