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

(decode-coding-inserted-region): Use car

Browse source 
of the return value of find-operation-coding-system.
This commit is contained in:
Kenichi Handa 2003-09-29 02:18:58 +00:00
parent f98ddc9986
commit b69ff51b95
2 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2003-09-29 SAITO Takuya <tabmore@rivo.mediatti.net> (tiny change)
* international/mule.el (decode-coding-inserted-region): Use car
of the return value of find-operation-coding-system.
2003-09-29 Kenichi Handa <handa@m17n.org>
* descr-text.el (describe-char): Fix previous change.

6
lisp/international/mule.el
View file

@ -1850,9 +1850,9 @@ of the function `insert-file-contents'."
(setq coding (funcall set-auto-coding-function
filename (- (point-max) (point-min)))))
(or coding
(setq coding (find-operation-coding-system
'insert-file-contents
filename visit beg end replace)))
(setq coding (car (find-operation-coding-system
'insert-file-contents
filename visit beg end replace))))
(if (coding-system-p coding)
(or enable-multibyte-characters
(setq coding