[Top][All Lists]
[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
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el,v,
Richard M. Stallman <=