Mercurial > emacs
comparison lisp/emacs-lisp/bytecomp.el @ 110705:039bf20a0a30
Add minor comment (Bug#7001).
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Sat, 02 Oct 2010 19:10:41 -0400 |
parents | 0554c384e09f |
children | 36370937dd5f |
comparison
equal
deleted
inserted
replaced
110704:016990bf37ad | 110705:039bf20a0a30 |
---|---|
1799 (setq bytecomp-outbuffer (get-buffer-create " *Compiler Output*")) | 1799 (setq bytecomp-outbuffer (get-buffer-create " *Compiler Output*")) |
1800 (set-buffer-multibyte t) | 1800 (set-buffer-multibyte t) |
1801 (erase-buffer) | 1801 (erase-buffer) |
1802 ;; (emacs-lisp-mode) | 1802 ;; (emacs-lisp-mode) |
1803 (setq case-fold-search nil) | 1803 (setq case-fold-search nil) |
1804 ;; This is a kludge. Some operating systems (OS/2, DOS) need to | 1804 ;; This is a kludge. Some operating systems (OS/2, DOS) need |
1805 ;; write files containing binary information specially. | 1805 ;; to write files containing binary information specially. |
1806 ;; Under most circumstances, such files will be in binary | 1806 ;; Under most circumstances, such files will be in binary |
1807 ;; overwrite mode, so those OS's use that flag to guess how | 1807 ;; overwrite mode, so those OS's use that flag to guess how |
1808 ;; they should write their data. Advise them that .elc files | 1808 ;; they should write their data. Advise them that .elc files |
1809 ;; need to be written carefully. | 1809 ;; need to be written carefully. (There's no point running the |
1810 ;; mode hook, so don't call `binary-overwrite-mode'.) | |
1810 (setq overwrite-mode 'overwrite-mode-binary)) | 1811 (setq overwrite-mode 'overwrite-mode-binary)) |
1811 (displaying-byte-compile-warnings | 1812 (displaying-byte-compile-warnings |
1812 (with-current-buffer bytecomp-inbuffer | 1813 (with-current-buffer bytecomp-inbuffer |
1813 (and bytecomp-filename | 1814 (and bytecomp-filename |
1814 (byte-compile-insert-header bytecomp-filename bytecomp-outbuffer)) | 1815 (byte-compile-insert-header bytecomp-filename bytecomp-outbuffer)) |