[Emacs-diffs] /srv/bzr/emacs/trunk r111880: * lisp/emacs-lisp/bytecomp.el (byte-compile-file): Use let.

[Stefan Monnier]

------------------------------------------------------------
revno: 111880
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Mon 2013-02-25 18:27:50 -0500
message:
  * lisp/emacs-lisp/bytecomp.el (byte-compile-file): Use let.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/bytecomp.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-02-25 20:57:44 +0000
+++ b/lisp/ChangeLog    2013-02-25 23:27:50 +0000
@@ -1,3 +1,7 @@
+2013-02-25  Stefan Monnier  <address@hidden>
+
+       * emacs-lisp/bytecomp.el (byte-compile-file): Use let.
+
 2013-02-25  Juri Linkov  <address@hidden>
 
        * replace.el (read-regexp): Let-bind `default' to the first
@@ -57,8 +61,8 @@
        (tramp-default-method): Adapt check for
        `tramp-ssh-controlmaster-options'.
 
-       * net/tramp-sh.el (tramp-methods): Replace
-       `tramp-ssh-controlmaster-template' by "%c".
+       * net/tramp-sh.el (tramp-methods):
+       Replace `tramp-ssh-controlmaster-template' by "%c".
        (tramp-do-copy-or-rename-file-out-of-band)
        (tramp-maybe-open-connection): Use it in format spec.  Ensure,
        that it is applied for the first hop only.
@@ -80,8 +84,8 @@
 
        * net/tramp.el (tramp-tramp-file-p): Fix docstring.
 
-       * net/tramp-sh.el (tramp-sh-handle-insert-directory): Handle
-       multibyte file names.
+       * net/tramp-sh.el (tramp-sh-handle-insert-directory):
+       Handle multibyte file names.
 
 2013-02-22  Glenn Morris  <address@hidden>
 
@@ -104,8 +108,8 @@
 
 2013-02-21  Fabián Ezequiel Gallina  <address@hidden>
 
-       * progmodes/python.el (python-info-current-defun): Enhance
-       match-data cluttering prevention.
+       * progmodes/python.el (python-info-current-defun):
+       Enhance match-data cluttering prevention.
 
 2013-02-21  Glenn Morris  <address@hidden>
 

=== modified file 'lisp/emacs-lisp/bytecomp.el'
--- a/lisp/emacs-lisp/bytecomp.el       2013-02-25 17:36:03 +0000
+++ b/lisp/emacs-lisp/bytecomp.el       2013-02-25 23:27:50 +0000
@@ -1781,15 +1781,13 @@
       (when byte-compile-verbose
        (message "Compiling %s..." filename))
       (setq byte-compiler-error-flag nil)
-      (setq byte-compile-level (1+ byte-compile-level))
       ;; It is important that input-buffer not be current at this call,
       ;; so that the value of point set in input-buffer
       ;; within byte-compile-from-buffer lingers in that buffer.
       (setq output-buffer
            (save-current-buffer
-             (unwind-protect
-                 (byte-compile-from-buffer input-buffer)
-               (setq byte-compile-level (1- byte-compile-level)))))
+             (let ((byte-compile-level (1+ byte-compile-level)))
+                (byte-compile-from-buffer input-buffer))))
       (if byte-compiler-error-flag
          nil
        (when byte-compile-verbose