diff options
| author | Jim Blandy <jimb@redhat.com> | 1993-03-16 18:35:04 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1993-03-16 18:35:04 +0000 |
| commit | 1db01b1ab5e321cce8de06006766ce1b8b7a17e7 (patch) | |
| tree | 016f063c5e2e10082199b1f08c83aa0b903698a7 /lisp/emacs-lisp | |
| parent | b6a22db05882c21726fbed1788a31f91fc714f9c (diff) | |
| download | emacs-1db01b1ab5e321cce8de06006766ce1b8b7a17e7.tar.gz emacs-1db01b1ab5e321cce8de06006766ce1b8b7a17e7.tar.bz2 emacs-1db01b1ab5e321cce8de06006766ce1b8b7a17e7.zip | |
* bytecomp.el (byte-compile-from-buffer): Put buffer containing
compiled code in binary overwrite mode.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 331d51c779f..eb2b1a22c31 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -1256,7 +1256,15 @@ With argument, insert value in current buffer after the form." (set-buffer (get-buffer-create " *Compiler Output*"))) (erase-buffer) ;; (emacs-lisp-mode) - (setq case-fold-search nil)) + (setq case-fold-search nil) + + ;; This is a kludge. Some operating systems (OS/2) need to + ;; write files containing binary information specially. + ;; Under most circumstances, such files will be in binary + ;; overwrite mode, so those OS's use that flag to guess how + ;; they should write their data. Advise them that .elc files + ;; need to be written carefully. + (setq overwrite-mode 'overwrite-mode-binary)) (displaying-byte-compile-warnings (save-excursion (set-buffer inbuffer) |