Mercurial > hg > xemacs-beta

comparison lisp/bytecomp/bytecomp.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents cf808b4c4290
children 8619ce7e4c50
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
1743 (goto-char (point-min)) 1743 (goto-char (point-min))
1744 ;; mrb- There must be a better way than skip-chars-forward 1744 ;; mrb- There must be a better way than skip-chars-forward
1745 (skip-chars-forward (concat (char-to-string 0) "-" 1745 (skip-chars-forward (concat (char-to-string 0) "-"
1746 (char-to-string 255))) 1746 (char-to-string 255)))
1747 (eq (point) (point-max))) 1747 (eq (point) (point-max)))
1748 (setq file-coding-system 'no-conversion) 1748 (setq buffer-file-coding-system 'no-conversion)
1749 (insert ";;;###coding system: escape-quoted\n") 1749 (insert ";;;###coding system: escape-quoted\n")
1750 (setq file-coding-system 'escape-quoted) 1750 (setq buffer-file-coding-system 'escape-quoted)
1751 ;; Lazy loading not yet implemented for MULE files 1751 ;; Lazy loading not yet implemented for MULE files
1752 ;; mrb - Fix this someday. 1752 ;; mrb - Fix this someday.
1753 (save-excursion 1753 (save-excursion
1754 (set-buffer byte-compile-inbuffer) 1754 (set-buffer byte-compile-inbuffer)
1755 (setq byte-compile-dynamic nil 1755 (setq byte-compile-dynamic nil