Mercurial > hg > xemacs-beta

comparison lisp/code-files.el @ 4271:fdf43260ae29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-11-15 15:24:20 by aidan] Eliminate clean build build-failures on Mule
author aidan
date Thu, 15 Nov 2007 15:24:24 +0000
parents c5a2b80bc4fa
children 41e88d0c934e
comparison
equal deleted inserted replaced
4270:bd9b678f4db7 4271:fdf43260ae29
557 (or coding-system-for-write 557 (or coding-system-for-write
558 (run-hook-with-args-until-success 558 (run-hook-with-args-until-success
559 'write-region-pre-hook 559 'write-region-pre-hook
560 start end filename append visit lockname 560 start end filename append visit lockname
561 coding-system-or-mustbenew) 561 coding-system-or-mustbenew)
562 coding-system 562 (if (and coding-system-or-mustbenew
563 (coding-system-p
564 (find-coding-system coding-system-or-mustbenew)))
565 coding-system-or-mustbenew)
563 buffer-file-coding-system 566 buffer-file-coding-system
564 (find-file-coding-system-for-write-from-filename filename))) 567 (find-file-coding-system-for-write-from-filename filename)))
565 (if (consp hook-result) 568 (if (consp hook-result)
566 ;; One of the `write-region-pre-hook' functions wrote the file. 569 ;; One of the `write-region-pre-hook' functions wrote the file.
567 hook-result 570 hook-result
568 ;; The hooks didn't do the work; do it ourselves. 571 ;; The hooks didn't do the work; do it ourselves.
569 (setq mustbenew (unless (coding-system-p coding-system-or-mustbenew) 572 (setq hook-result (find-coding-system hook-result)
573 mustbenew (unless (coding-system-p
574 (find-coding-system coding-system-or-mustbenew))
570 coding-system-or-mustbenew) 575 coding-system-or-mustbenew)
571 coding-system (cond ((coding-system-p hook-result) hook-result) 576 coding-system (cond ((coding-system-p hook-result) hook-result)
572 ((null mustbenew) coding-system-or-mustbenew)) 577 ((null mustbenew) coding-system-or-mustbenew))
573 func (coding-system-property coding-system 'pre-write-conversion)) 578 func (coding-system-property coding-system 'pre-write-conversion))
574 (if func 579 (if func