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
ca53db33
Commit
ca53db33
authored
Nov 05, 2004
by
Juri Linkov
Browse files
(Info-search): Don't search in node header lines and file headers.
parent
3296d21b
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
23 additions
and
3 deletions
+23
-3
lisp/info.el
lisp/info.el
+23
-3
No files found.
lisp/info.el
View file @
ca53db33
...
...
@@ -1476,11 +1476,21 @@ If DIRECTION is `backward', search in the reverse direction."
(
save-excursion
(
save-restriction
(
widen
)
(
when
backward
;; Hide Info file header for backward search
(
narrow-to-region
(
save-excursion
(
goto-char
(
point-min
))
(
search-forward
"\n\^_"
)
(
1-
(
point
)))
(
point-max
)))
(
while
(
and
(
not
give-up
)
(
or
(
null
found
)
(
if
backward
(
isearch-range-invisible
found
beg-found
)
(
isearch-range-invisible
beg-found
found
))))
(
isearch-range-invisible
beg-found
found
))
;; Skip node header line
(
save-excursion
(
forward-line
-1
)
(
looking-at
"\^_"
))))
(
if
(
if
backward
(
re-search-backward
regexp
bound
t
)
(
re-search-forward
regexp
bound
t
))
...
...
@@ -1531,14 +1541,24 @@ If DIRECTION is `backward', search in the reverse direction."
(
while
list
(
message
"Searching subfile %s..."
(
cdr
(
car
list
)))
(
Info-read-subfile
(
car
(
car
list
)))
(
if
backward
(
goto-char
(
point-max
)))
(
when
backward
;; Hide Info file header for backward search
(
narrow-to-region
(
save-excursion
(
goto-char
(
point-min
))
(
search-forward
"\n\^_"
)
(
1-
(
point
)))
(
point-max
))
(
goto-char
(
point-max
)))
(
setq
list
(
cdr
list
))
(
setq
give-up
nil
found
nil
)
(
while
(
and
(
not
give-up
)
(
or
(
null
found
)
(
if
backward
(
isearch-range-invisible
found
beg-found
)
(
isearch-range-invisible
beg-found
found
))))
(
isearch-range-invisible
beg-found
found
))
;; Skip node header line
(
save-excursion
(
forward-line
-1
)
(
looking-at
"\^_"
))))
(
if
(
if
backward
(
re-search-backward
regexp
nil
t
)
(
re-search-forward
regexp
nil
t
))
...
...
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