andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
assignment to free variable bug.
This commit is contained in:
Dan Nicolaescu 2007-11-16 18:00:39 +00:00
parent de299ed741
commit da99b369e9
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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.

4
lisp/doc-view.el
View file

@ -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)