Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
72766144
Commit
72766144
authored
Jan 26, 1993
by
Jim Blandy
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
JimB's changes from January 18 to present
parent
ed015bdd
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
4 additions
and
3 deletions
+4
-3
lisp/emulation/mlsupport.el
lisp/emulation/mlsupport.el
+1
-1
lisp/replace.el
lisp/replace.el
+3
-2
No files found.
lisp/emulation/mlsupport.el
View file @
72766144
...
...
@@ -80,7 +80,7 @@
(
fset
(
intern
name
)
defn
))
(
defun
push-back-character
(
char
)
(
setq
unread-command-event
char
))
(
setq
unread-command-event
s
(
list
char
))
)
(
defun
to-col
(
column
)
(
indent-to
column
0
))
...
...
lisp/replace.el
View file @
72766144
...
...
@@ -443,7 +443,8 @@ which will run faster and do exactly what you probably want."
(message "
Query
replacing
%s
with
%s:
"
from-string
next-replacement
)
(
setq
char
(
read-event
))
(
if
(
and
(
numberp
char
)
(
=
char
??
))
(
setq
unread-command-event
help-char
char
help-char
))
))
(
setq
unread-command-events
(
list
help-char
)
char
help-char
))
))
;; Restore the match data while we process the command.
(
store-match-data
real-match-data
)
(
cond
((
or
(
=
char
?\e
)
...
...
@@ -498,7 +499,7 @@ which will run faster and do exactly what you probably want."
(
setq
replaced
t
))
(
t
(
setq
keep-going
nil
)
(
setq
unread-command-event
char
)
(
setq
unread-command-event
s
(
list
char
)
)
(
setq
done
t
)))
)
;; Record previous position for ^ when we move on.
;; Change markers to numbers in the match data
...
...
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