comparison lisp/bytecomp.el @ 771:943eaba38521

[xemacs-hg @ 2002-03-13 08:51:24 by ben] The big ben-mule-21-5 check-in! Various files were added and deleted. See CHANGES-ben-mule. There are still some test suite failures. No crashes, though. Many of the failures have to do with problems in the test suite itself rather than in the actual code. I'll be addressing these in the next day or so -- none of the test suite failures are at all critical. Meanwhile I'll be trying to address the biggest issues -- i.e. build or run failures, which will almost certainly happen on various platforms. All comments should be sent to ben@xemacs.org -- use a Cc: if necessary when sending to mailing lists. There will be pre- and post- tags, something like pre-ben-mule-21-5-merge-in, and post-ben-mule-21-5-merge-in.
author ben
date Wed, 13 Mar 2002 08:54:06 +0000
parents 023b83f4e54b
children 70921960b980
comparison
equal deleted inserted replaced
770:336a418893b5 771:943eaba38521
1836 ;; file if under Mule. If there are any extended characters in the 1836 ;; file if under Mule. If there are any extended characters in the
1837 ;; input file, use `escape-quoted' to make sure that both binary and 1837 ;; input file, use `escape-quoted' to make sure that both binary and
1838 ;; extended characters are output properly and distinguished properly. 1838 ;; extended characters are output properly and distinguished properly.
1839 ;; Otherwise, use `raw-text' for maximum portability with non-Mule 1839 ;; Otherwise, use `raw-text' for maximum portability with non-Mule
1840 ;; Emacsen. 1840 ;; Emacsen.
1841 (when (featurep '(or mule file-coding)) 1841 (if (or (featurep '(not mule)) ;; Don't scan buffer if we are not muleized
1842 (defvar buffer-file-coding-system) 1842 (save-excursion
1843 (if (or (featurep '(not mule)) ;; Don't scan buffer if we are not muleized 1843 (set-buffer byte-compile-inbuffer)
1844 (save-excursion 1844 (goto-char (point-min))
1845 (set-buffer byte-compile-inbuffer) 1845 ;; mrb- There must be a better way than skip-chars-forward
1846 (goto-char (point-min)) 1846 (skip-chars-forward (concat (char-to-string 0) "-"
1847 ;; mrb- There must be a better way than skip-chars-forward 1847 (char-to-string 255)))
1848 (skip-chars-forward (concat (char-to-string 0) "-" 1848 (eq (point) (point-max))))
1849 (char-to-string 255))) 1849 (setq buffer-file-coding-system 'raw-text-unix)
1850 (eq (point) (point-max)))) 1850 (insert "(require 'mule)\n;;;###coding system: escape-quoted\n")
1851 (setq buffer-file-coding-system 'raw-text-unix) 1851 (setq buffer-file-coding-system 'escape-quoted)
1852 (insert "(require 'mule)\n;;;###coding system: escape-quoted\n") 1852 ;; #### Lazy loading not yet implemented for MULE files
1853 (setq buffer-file-coding-system 'escape-quoted) 1853 ;; mrb - Fix this someday.
1854 ;; #### Lazy loading not yet implemented for MULE files 1854 (save-excursion
1855 ;; mrb - Fix this someday. 1855 (set-buffer byte-compile-inbuffer)
1856 (save-excursion 1856 (setq byte-compile-dynamic nil
1857 (set-buffer byte-compile-inbuffer) 1857 byte-compile-dynamic-docstrings nil))
1858 (setq byte-compile-dynamic nil 1858 ;;(external-debugging-output (prin1-to-string (buffer-local-variables))))
1859 byte-compile-dynamic-docstrings nil)) 1859 )
1860 ;;(external-debugging-output (prin1-to-string (buffer-local-variables))))
1861 ))
1862 ) 1860 )
1863 1861
1864 1862
1865 (defun byte-compile-output-file-form (form) 1863 (defun byte-compile-output-file-form (form)
1866 ;; writes the given form to the output buffer, being careful of docstrings 1864 ;; writes the given form to the output buffer, being careful of docstrings