Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
866920e3
Commit
866920e3
authored
Mar 12, 2005
by
Juri Linkov
Browse files
(Info-search): Four fixes for backward search.
parent
c10d2217
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
3 deletions
+5
-3
lisp/info.el
lisp/info.el
+5
-3
No files found.
lisp/info.el
View file @
866920e3
...
...
@@ -1502,7 +1502,7 @@ If DIRECTION is `backward', search in the reverse direction."
;; Skip node header line
(
and
(
save-excursion
(
forward-line
-1
)
(
looking-at
"\^_"
))
(
forward-line
1
))
(
forward-line
(
if
backward
-1
1
)
))
;; Skip Tag Table node
(
save-excursion
(
and
(
search-backward
"\^_"
nil
t
)
...
...
@@ -1540,6 +1540,7 @@ If DIRECTION is `backward', search in the reverse direction."
(
search-forward
(
concat
"\n"
osubfile
": "
))
;; Skip that one.
(
forward-line
(
if
backward
0
1
))
(
if
backward
(
forward-char
-1
))
;; Make a list of all following subfiles.
;; Each elt has the form (VIRT-POSITION . SUBFILENAME).
(
while
(
not
(
if
backward
(
bobp
)
(
eobp
)))
...
...
@@ -1578,7 +1579,7 @@ If DIRECTION is `backward', search in the reverse direction."
;; Skip node header line
(
and
(
save-excursion
(
forward-line
-1
)
(
looking-at
"\^_"
))
(
forward-line
1
))
(
forward-line
(
if
backward
-1
1
)
))
;; Skip Tag Table node
(
save-excursion
(
and
(
search-backward
"\^_"
nil
t
)
...
...
@@ -1615,7 +1616,8 @@ If DIRECTION is `backward', search in the reverse direction."
;; Use string-equal, not equal, to ignore text props.
(
or
(
and
(
string-equal
onode
Info-current-node
)
(
equal
ofile
Info-current-file
))
(
and
isearch-mode
isearch-wrapped
(
eq
opoint
opoint-min
))
(
and
isearch-mode
isearch-wrapped
(
eq
opoint
(
if
isearch-forward
opoint-min
opoint-max
)))
(
setq
Info-history
(
cons
(
list
ofile
onode
opoint
)
Info-history
))))))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment