mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-09 05:01:02 -08:00
Code Issues Projects Releases Wiki Activity

(make-char): Fix typo in docstring.

Browse source 
(load-with-code-conversion, charsetp): Doc fixes.
This commit is contained in:
Juanma Barranquero 2006-11-06 23:05:34 +00:00
parent c8c9333c69
commit 5dd1c041c7
1 changed files with 7 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/international/mule.el
View file

@ -38,10 +38,10 @@ Distribution date of this version of MULE (multilingual environment).")
(defun load-with-code-conversion (fullname file &optional noerror nomessage)
"Execute a file of Lisp code named FILE whose absolute name is FULLNAME.
The file contents are decoded before evaluation if necessary.
If optional second arg NOERROR is non-nil,
If optional third arg NOERROR is non-nil,
report no error if FILE doesn't exist.
Print messages at start and end of loading unless
optional third arg NOMESSAGE is non-nil.
optional fourth arg NOMESSAGE is non-nil.
Return t if file exists."
(if (null (file-readable-p fullname))
(and (null noerror)
@ -100,7 +100,7 @@ Return t if file exists."
(kill-buffer buffer)))
(unless purify-flag
(do-after-load-evaluation fullname))
(unless (or nomessage noninteractive)
(if source
(message "Loading %s (source)...done" file)
@ -118,7 +118,7 @@ Return t if file exists."
(< (aref vector 0) 160)))))
(defsubst charsetp (object)
"T if OBJECT is a charset."
"Return t if OBJECT is a charset."
(and (symbolp object) (vectorp (get object 'charset))))
(defsubst charset-info (charset)
@ -268,7 +268,7 @@ See the function `charset-info' for more detail."
CODE1 and CODE2 are optional, but if you don't supply
sufficient position codes, return a generic character which stands for
all characters or group of characters in the character set.
A generic character can be used to index a char table (e.g. syntax-table).
A generic character can be used to index a char table (e.g. `syntax-table').
Such character sets as ascii, eight-bit-control, and eight-bit-graphic
don't have corresponding generic characters. If CHARSET is one of
@ -1676,8 +1676,7 @@ cons (CODING . SOURCE), where CODING is the specified coding
system and SOURCE is a symbol `auto-coding-alist',
`auto-coding-regexp-alist', `coding:', or `auto-coding-functions'
indicating by what CODING is specified. Note that the validity
of CODING is not checked; it's callers responsibility to check
it.
of CODING is not checked; it's callers responsibility to check it.
If nothing is specified, the return value is nil."
(or (let ((coding-system (auto-coding-alist-lookup filename)))
@ -1698,7 +1697,7 @@ If nothing is specified, the return value is nil."
;; and for "unibyte:" at the head and tail of SIZE bytes.
(setq head-found (or (search-forward "coding:" head-end t)
(search-forward "unibyte:" head-end t)
(search-forward "enable-character-translation:"
(search-forward "enable-character-translation:"
head-end t)))
(if (and head-found (> head-found tail-start))
;; Head and tail are overlapped.