Mercurial > emacs
changeset 110784:e7fd8dc3d74d
* lisp/hilit-chg.el (hilit-chg-get-diff-list-hk): Declare `e' for compiler.
Remove arch-tag comment.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 05 Oct 2010 21:06:25 -0700 |
| parents | 74a0e8ad7447 |
| children | 3f3735eed163 |
| files | lisp/ChangeLog lisp/hilit-chg.el |
| diffstat | 2 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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>
--- 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