# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1286337985 25200
# Node ID e7fd8dc3d74dd55ce05810580e93c548beb4153d
# Parent  74a0e8ad744777017149643c80f454c084d5276f
* lisp/hilit-chg.el (hilit-chg-get-diff-list-hk): Declare `e' for compiler.
Remove arch-tag comment.

diff -r 74a0e8ad7447 -r e7fd8dc3d74d lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Oct 06 02:41:59 2010 +0000
+++ b/lisp/ChangeLog	Tue Oct 05 21:06:25 2010 -0700
@@ -1,5 +1,7 @@
 2010-10-06  Glenn Morris  <rgm@gnu.org>
 
+	* 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  <michael.albinus@gmx.de>
diff -r 74a0e8ad7447 -r e7fd8dc3d74d lisp/hilit-chg.el
--- a/lisp/hilit-chg.el	Wed Oct 06 02:41:59 2010 +0000
+++ b/lisp/hilit-chg.el	Tue Oct 05 21:06:25 2010 -0700
@@ -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