procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

JimB's changes from January 18 to present

Browse source
This commit is contained in:
Jim Blandy 1993-01-26 01:56:29 +00:00
parent ed015bddf7
commit 7276614481
2 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/emulation/mlsupport.el
View file

@ -80,7 +80,7 @@
(fset (intern name) defn))
(defun push-back-character (char)
(setq unread-command-event char))
(setq unread-command-events (list char)))
(defun to-col (column)
(indent-to column 0))

5
lisp/replace.el
View file

@ -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-events (list char))
(setq done t))))
;; Record previous position for ^ when we move on.
;; Change markers to numbers in the match data