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))