Mercurial > emacs
comparison lisp/international/mule.el @ 75513:99dc233f3753
(find-auto-coding): Fix typo in docstring.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Mon, 29 Jan 2007 16:14:13 +0000 |
parents | e3694f1cb928 |
children | 2b80d4245e1d 07774e5c3ff5 f83d17e1ace6 |
comparison
equal
deleted
inserted
replaced
75512:aee02f0a570b | 75513:99dc233f3753 |
---|---|
1674 If a coding system is specifed, the return value is a | 1674 If a coding system is specifed, the return value is a |
1675 cons (CODING . SOURCE), where CODING is the specified coding | 1675 cons (CODING . SOURCE), where CODING is the specified coding |
1676 system and SOURCE is a symbol `auto-coding-alist', | 1676 system and SOURCE is a symbol `auto-coding-alist', |
1677 `auto-coding-regexp-alist', `coding:', or `auto-coding-functions' | 1677 `auto-coding-regexp-alist', `coding:', or `auto-coding-functions' |
1678 indicating by what CODING is specified. Note that the validity | 1678 indicating by what CODING is specified. Note that the validity |
1679 of CODING is not checked; it's callers responsibility to check it. | 1679 of CODING is not checked; it's the caller's responsibility to check it. |
1680 | 1680 |
1681 If nothing is specified, the return value is nil." | 1681 If nothing is specified, the return value is nil." |
1682 (or (let ((coding-system (auto-coding-alist-lookup filename))) | 1682 (or (let ((coding-system (auto-coding-alist-lookup filename))) |
1683 (if coding-system | 1683 (if coding-system |
1684 (cons coding-system 'auto-coding-alist))) | 1684 (cons coding-system 'auto-coding-alist))) |