Mercurial > emacs
changeset 86156:d98fdcca854b
* doc-view.el (doc-view-search-backward, doc-view-search): Fix
assignment to free variable bug.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Fri, 16 Nov 2007 18:00:39 +0000 |
| parents | 39b88001b04b |
| children | a54bf760b43d |
| files | lisp/ChangeLog lisp/doc-view.el |
| diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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)