Mercurial > hg > xemacs-beta

comparison tests/automated/mule-tests.el @ 597:ce085c4b3999

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-06-01 05:05:54 by martinb] Fix test suite failure if (temp-directory) is a symlink
author martinb
date Fri, 01 Jun 2001 05:06:15 +0000
parents abe6d1db359e
children a5954632b187
comparison
equal deleted inserted replaced
596:cdb192350f65 597:ce085c4b3999
291 ;;--------------------------------------------------------------- 291 ;;---------------------------------------------------------------
292 ;; Test file-system character conversion (and, en passant, file ops) 292 ;; Test file-system character conversion (and, en passant, file ops)
293 ;;--------------------------------------------------------------- 293 ;;---------------------------------------------------------------
294 (let* ((scaron (make-char 'latin-iso8859-2 57)) 294 (let* ((scaron (make-char 'latin-iso8859-2 57))
295 (latin2-string (make-string 4 scaron)) 295 (latin2-string (make-string 4 scaron))
296 (prefix (concat (file-name-as-directory (temp-directory)) latin2-string)) 296 (prefix (concat (file-name-as-directory
297 (file-truename (temp-directory)))
298 latin2-string))
297 (name1 (make-temp-name prefix)) 299 (name1 (make-temp-name prefix))
298 (name2 (make-temp-name prefix)) 300 (name2 (make-temp-name prefix))
299 (file-name-coding-system 'iso-8859-2)) 301 (file-name-coding-system 'iso-8859-2))
300 ;; This is how you suppress output from `message', called by `write-region' 302 ;; This is how you suppress output from `message', called by `write-region'
301 (flet ((append-message (&rest args) ())) 303 (flet ((append-message (&rest args) ()))