1 files changed, 4 insertions, 3 deletions

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 56661b6afcd..c0dc1764647 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1801,12 +1801,13 @@ With argument ARG, insert value in current buffer after the form."
        (erase-buffer)
        ;;        (emacs-lisp-mode)
        (setq case-fold-search nil)
-       ;; This is a kludge.  Some operating systems (OS/2, DOS) need to
-       ;; write files containing binary information specially.
+       ;; This is a kludge.  Some operating systems (OS/2, DOS) 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.
+       ;; need to be written carefully.  (There's no point running the
+       ;; mode hook, so don't call `binary-overwrite-mode'.)
        (setq overwrite-mode 'overwrite-mode-binary))
      (displaying-byte-compile-warnings
       (with-current-buffer bytecomp-inbuffer