* doc-view.el (doc-view-search-backward, doc-view-search): Fix

assignment to free variable bug.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 24c578e1dfda58fb77fd801fa15e24fe28738904..9da728cd8be36a63e077b869213bc0f56bd48f92 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-11-16  Tassilo Horn  <tassilo@member.fsf.org>
+
+        * doc-view.el (doc-view-search-backward, doc-view-search): Fix
+       assignment to free variable bug.
+
 2007-11-16  Martin Pohlack  <mp26@os.inf.tu-dresden.de>  (tiny change)
 
        * emulation/pc-select.el (pc-select-shifted-mark): New var.

diff --git a/lisp/doc-view.el b/lisp/doc-view.el
index 44c6871b73462a43eaabc09a186d536e2491101c..5443bc3672ed6bbb9866843aee7fcfe2a8703b3f 100644 (file)
--- a/lisp/doc-view.el
+++ b/lisp/doc-view.el
@@ -787,7 +787,7 @@ the pagenumber and CONTEXTS are all lines of text containing a match."
   "Call `doc-view-search' for backward search.
 If prefix NEW-QUERY is given, ask for a new regexp."
   (interactive "P")
-  (doc-view-search arg t))
+  (doc-view-search new-query t))
 
 (defun doc-view-search (new-query &optional backward)
   "Jump to the next match or initiate a new search if NEW-QUERY is given.
@@ -795,7 +795,7 @@ If the current document hasn't been transformed to plain text
 till now do that first.
 If BACKWARD is non-nil, jump to the previous match."
   (interactive "P")
-  (if (and (not arg)
+  (if (and (not new-query)
           doc-view-current-search-matches)
       (if backward
          (doc-view-search-previous-match 1)