diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/doc-view.el | 4 |
2 files changed, 7 insertions, 2 deletions
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) |