Mercurial > hg > xemacs-beta

comparison lisp/bytecomp.el @ 416:ebe98a74bd68 r21-2-16

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-16
author cvs
date Mon, 13 Aug 2007 11:22:23 +0200
parents 697ef44129c6
children
comparison
equal deleted inserted replaced
415:a27f76b40c83 416:ebe98a74bd68
1745 1745
1746 ;; back in the inbuffer; determine and set the coding system for the .elc 1746 ;; back in the inbuffer; determine and set the coding system for the .elc
1747 ;; file if under Mule. If there are any extended characters in the 1747 ;; file if under Mule. If there are any extended characters in the
1748 ;; input file, use `escape-quoted' to make sure that both binary and 1748 ;; input file, use `escape-quoted' to make sure that both binary and
1749 ;; extended characters are output properly and distinguished properly. 1749 ;; extended characters are output properly and distinguished properly.
1750 ;; Otherwise, use `no-conversion' for maximum portability with non-Mule 1750 ;; Otherwise, use `raw-text' for maximum portability with non-Mule
1751 ;; Emacsen. 1751 ;; Emacsen.
1752 (when (featurep 'mule) 1752 (when (featurep 'mule)
1753 (defvar buffer-file-coding-system) 1753 (defvar buffer-file-coding-system)
1754 (if (save-excursion 1754 (if (save-excursion
1755 (set-buffer byte-compile-inbuffer) 1755 (set-buffer byte-compile-inbuffer)
1756 (goto-char (point-min)) 1756 (goto-char (point-min))
1757 ;; mrb- There must be a better way than skip-chars-forward 1757 ;; mrb- There must be a better way than skip-chars-forward
1758 (skip-chars-forward (concat (char-to-string 0) "-" 1758 (skip-chars-forward (concat (char-to-string 0) "-"
1759 (char-to-string 255))) 1759 (char-to-string 255)))
1760 (eq (point) (point-max))) 1760 (eq (point) (point-max)))
1761 (setq buffer-file-coding-system 'no-conversion) 1761 (setq buffer-file-coding-system 'raw-text)
1762 (insert "(require 'mule)\n;;;###coding system: escape-quoted\n") 1762 (insert "(require 'mule)\n;;;###coding system: escape-quoted\n")
1763 (setq buffer-file-coding-system 'escape-quoted) 1763 (setq buffer-file-coding-system 'escape-quoted)
1764 ;; #### Lazy loading not yet implemented for MULE files 1764 ;; #### Lazy loading not yet implemented for MULE files
1765 ;; mrb - Fix this someday. 1765 ;; mrb - Fix this someday.
1766 (save-excursion 1766 (save-excursion