From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Fri, 16 Nov 2007 18:00:39 +0000 (+0000)
Subject: * doc-view.el (doc-view-search-backward, doc-view-search): Fix
X-Git-Tag: emacs-pretest-23.0.90~9688
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=da99b369e96db10411bb9f5c7d578582b5f514de;p=emacs.git

* 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 24c578e1dfd..9da728cd8be 100644
--- 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 44c6871b734..5443bc3672e 100644
--- 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)