emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el,v


From: Richard M. Stallman
Subject: [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el,v
Date: Fri, 04 Jan 2008 05:34:44 +0000

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Richard M. Stallman <rms>       08/01/04 05:34:44

Index: bytecomp.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/bytecomp.el,v
retrieving revision 2.225
retrieving revision 2.226
diff -u -b -r2.225 -r2.226
--- bytecomp.el 6 Dec 2007 04:05:33 -0000       2.225
+++ bytecomp.el 4 Jan 2008 05:34:44 -0000       2.226
@@ -1920,8 +1920,8 @@
        (byte-compile-flush-pending)
        ;; Make warnings about unresolved functions
        ;; give the end of the file as their position.
-       (setq byte-compile-last-position (point-max))
-       (byte-compile-warn-about-unresolved-functions))
+       (setq byte-compile-last-position (point-max)))
+      (byte-compile-warn-about-unresolved-functions)
       ;; Fix up the header at the front of the output
       ;; if the buffer contains multibyte characters.
       (and filename (byte-compile-fix-header filename inbuffer outbuffer))))
@@ -1964,7 +1964,7 @@
        (delete-char delta)))))
 
 (defun byte-compile-insert-header (filename inbuffer outbuffer)
-  (set-buffer inbuffer)
+  (with-current-buffer inbuffer
   (let ((dynamic-docstrings byte-compile-dynamic-docstrings)
        (dynamic byte-compile-dynamic))
     (set-buffer outbuffer)
@@ -2045,7 +2045,7 @@
       (when byte-compile-dynamic
        (error "Version-18 compatibility doesn't support dynamic byte code"))
       (insert "(or (boundp 'current-load-list) (setq current-load-list nil))\n"
-             "\n"))))
+               "\n")))))
 
 (defun byte-compile-output-file-form (form)
   ;; writes the given form to the output buffer, being careful of docstrings




reply via email to

[Prev in Thread] Current Thread [Next in Thread]