Mercurial > hg > xemacs-beta

comparison tests/automated/mule-tests.el @ 4647:e4ed58cb0e5b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix bugs with #'find-file, 0-length files, & coding-system-for-read specified. src/ChangeLog addition: 2009-07-11 Aidan Kehoe <kehoea@parhasard.net> * file-coding.c (undecided_canonicalize_after_coding): If no data have been seen, or if coding_stream_canonicalize_after_coding gives nil, pass back str->codesys, which will be of type undecided (the same as the old behaviour) but will reflect any CODESYS argument passed to make_coding_input_stream. See also the change in lisp/code-files.el lisp/ChangeLog addition: 2009-07-11 Aidan Kehoe <kehoea@parhasard.net> * code-files.el (insert-file-contents): Take advantage of more sensible behaviour from #'insert-file-contents-internal, allowing us to actually follow the documented coding system behaviour for nonexistent files (that is, buffer-file-coding-system reflects coding-system-for-read &c., not becoming undecided for either zero-length or nonexistent files). tests/ChangeLog addition: 2009-07-11 Aidan Kehoe <kehoea@parhasard.net> * automated/mule-tests.el: Check for Richard Zidlicky's bug of http://mid.gmane.org/20090602194123.GA5163@linux-m68k.org; also check that supplying CODESYS to #'find-file is respected both for nonexistent files and zero-length existing files.
author Aidan Kehoe <kehoea@parhasard.net>
date Sat, 11 Jul 2009 16:33:35 +0100
parents a9f83990e6bf
children 8905163c49c5
comparison
equal deleted inserted replaced
4646:6c6bfdb80a0c 4647:e4ed58cb0e5b
139 (revert-buffer t t) 139 (revert-buffer t t)
140 (Assert (not (buffer-modified-p))) 140 (Assert (not (buffer-modified-p)))
141 (kill-buffer nil)) 141 (kill-buffer nil))
142 (delete-file test-file-name)) 142 (delete-file test-file-name))
143 143
144 (let ((existing-file-name
145 (make-temp-file (expand-file-name "k7lCS2Mg" (temp-directory))))
146 (nonexistent-file-name
147 (make-temp-name (temp-directory))))
148 (find-file existing-file-name)
149 (Assert (not (eq 'undecided
150 (coding-system-type buffer-file-coding-system))))
151 (kill-buffer nil)
152 (dolist (coding-system '(utf-8 windows-1251 macintosh big5))
153 (when (find-coding-system coding-system)
154 (find-file existing-file-name coding-system)
155 (Assert (eq (find-coding-system coding-system)
156 buffer-file-coding-system))
157 (kill-buffer nil)
158 (find-file nonexistent-file-name coding-system)
159 (Assert (eq (find-coding-system coding-system)
160 buffer-file-coding-system))
161 (kill-buffer nil)))
162 (delete-file existing-file-name))
163
144 ;;----------------------------------------------------------------- 164 ;;-----------------------------------------------------------------
145 ;; Test string modification functions that modify the length of a char. 165 ;; Test string modification functions that modify the length of a char.
146 ;;----------------------------------------------------------------- 166 ;;-----------------------------------------------------------------
147 167
148 (when (featurep 'mule) 168 (when (featurep 'mule)