Mercurial > emacs

comparison lisp/international/mule.el @ 75513:99dc233f3753

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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)))