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
db16f109
Commit
db16f109
authored
Nov 23, 1993
by
Richard M. Stallman
Browse files
(repeat-complex-command): Undo Oct 2 change.
parent
a9f2c884
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
12 deletions
+9
-12
lisp/simple.el
lisp/simple.el
+9
-12
No files found.
lisp/simple.el
View file @
db16f109
...
...
@@ -420,18 +420,15 @@ to get different commands to edit and resubmit."
"Redo: "
(
prin1-to-string
elt
)
read-expression-map
t
(
cons
'command-history
arg
)))
;;; read-from-minibuffer handles the adding of what is read to the history
;;; variable.
;;;
;;; ;; If command was added to command-history as a string,
;;; ;; get rid of that. We want only evallable expressions there.
;;; (if (stringp (car command-history))
;;; (setq command-history (cdr command-history)))
;;;
;;; ;; If command to be redone does not match front of history,
;;; ;; add it to the history.
;;; (or (equal newcmd (car command-history))
;;; (setq command-history (cons newcmd command-history)))
;; If command was added to command-history as a string,
;; get rid of that. We want only evallable expressions there.
(
if
(
stringp
(
car
command-history
))
(
setq
command-history
(
cdr
command-history
)))
;; If command to be redone does not match front of history,
;; add it to the history.
(
or
(
equal
newcmd
(
car
command-history
))
(
setq
command-history
(
cons
newcmd
command-history
)))
(
eval
newcmd
))
(
ding
))))
...
...
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