[Emacs-diffs] /srv/bzr/emacs/trunk r101812: * lisp/hilit-chg.el (hilit-chg-get-diff-list-hk): Declare `e' for compiler.

[Glenn Morris]

------------------------------------------------------------
revno: 101812
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2010-10-05 21:06:25 -0700
message:
  * lisp/hilit-chg.el (hilit-chg-get-diff-list-hk): Declare `e' for compiler.
  Remove arch-tag comment.
modified:
  lisp/ChangeLog
  lisp/hilit-chg.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-10-06 02:30:53 +0000
+++ b/lisp/ChangeLog    2010-10-06 04:06:25 +0000
@@ -1,5 +1,7 @@
 2010-10-06  Glenn Morris  <address@hidden>
 
+       * hilit-chg.el (hilit-chg-get-diff-list-hk): Declare `e' for compiler.
+
        * emacs-lisp/cl.el: No longer provide cl-19.
 
 2010-10-05  Michael Albinus  <address@hidden>

=== modified file 'lisp/hilit-chg.el'
--- a/lisp/hilit-chg.el 2010-01-13 08:35:10 +0000
+++ b/lisp/hilit-chg.el 2010-10-06 04:06:25 +0000
@@ -921,7 +921,7 @@
 
 
 (defun hilit-chg-get-diff-info (buf-a file-a buf-b file-b)
-  (let ((e nil) x y)   ;; e is set by function hilit-chg-get-diff-list-hk
+  (let (e x y)   ; e,x,y are set by function hilit-chg-get-diff-list-hk
     (ediff-setup buf-a file-a buf-b file-b
               nil nil   ; buf-c file-C
               'hilit-chg-get-diff-list-hk
@@ -932,10 +932,11 @@
 
 
 (defun hilit-chg-get-diff-list-hk ()
-  ;; x and y are dynamically bound by hilit-chg-get-diff-info
+  ;; e, x and y are dynamically bound by hilit-chg-get-diff-info
   ;; which calls this function as a hook
-  (defvar x)  ;; placate the byte-compiler
+  (defvar x)                            ; placate the byte-compiler
   (defvar y)
+  (defvar e)
   (setq e (current-buffer))
   (let ((n 0) extent p va vb a b)
     (setq x nil y nil)    ;; x and y are bound by hilit-chg-get-diff-info
@@ -1035,5 +1036,4 @@
 
 (provide 'hilit-chg)
 
-;; arch-tag: de00301d-5bad-44da-aa82-e0e010b0c463
 ;;; hilit-chg.el ends here