procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
(set-auto-coding): Use auto-coding-alist-lookup.
This commit is contained in:
Richard M. Stallman 1999-04-08 22:27:44 +00:00
parent c352d95951
commit 8a59213176
1 changed files with 12 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
lisp/international/mule.el
View file

@ -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)