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
588c915a
Commit
588c915a
authored
May 26, 2002
by
Colin Walters
Browse files
(perform-replace): Document return value. Use `pop'.
parent
9b5691bb
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
4 deletions
+6
-4
lisp/replace.el
lisp/replace.el
+6
-4
No files found.
lisp/replace.el
View file @
588c915a
...
...
@@ -967,7 +967,10 @@ just as `query-replace' does. Instead, write a simple loop like this:
which will run faster and probably do exactly what you want. Please
see the documentation of `replace-match' to find out how to simulate
`case-replace'."
`case-replace'.
This function returns nil if and only if there were no matches to
make, or the user didn't cancel the call."
(
or
map
(
setq
map
query-replace-map
))
(
and
query-flag
minibuffer-auto-raise
(
raise-frame
(
window-frame
(
minibuffer-window
))))
...
...
@@ -1123,12 +1126,11 @@ see the documentation of `replace-match' to find out how to simulate
(
setq
done
t
))
((
eq
def
'backup
)
(
if
stack
(
let
((
elt
(
car
stack
)))
(
let
((
elt
(
pop
stack
)))
(
goto-char
(
car
elt
))
(
setq
replaced
(
eq
t
(
cdr
elt
)))
(
or
replaced
(
set-match-data
(
cdr
elt
)))
(
setq
stack
(
cdr
stack
)))
(
set-match-data
(
cdr
elt
))))
(
message
"No previous match"
)
(
ding
'no-terminate
)
(
sit-for
1
)))
...
...
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