# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1195236039 0
# Node ID d98fdcca854b6ce04e728e974cc857183270cd9a
# Parent  39b88001b04bf69df81b1075850d792d131b719f
* doc-view.el (doc-view-search-backward, doc-view-search): Fix
assignment to free variable bug.

diff -r 39b88001b04b -r d98fdcca854b lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Nov 16 17:58:30 2007 +0000
+++ b/lisp/ChangeLog	Fri Nov 16 18:00:39 2007 +0000
@@ -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 -r 39b88001b04b -r d98fdcca854b lisp/doc-view.el
--- a/lisp/doc-view.el	Fri Nov 16 17:58:30 2007 +0000
+++ b/lisp/doc-view.el	Fri Nov 16 18:00:39 2007 +0000
@@ -787,7 +787,7 @@
   "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 @@
 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)