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
dc7d7552
Commit
dc7d7552
authored
Feb 06, 2002
by
Richard M. Stallman
Browse files
(undo-get-state, undo-revert-to-state): Fns deleted.
(transpose-subr-1): Use atomic-change-group.
parent
9d43f6f1
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
33 deletions
+7
-33
lisp/simple.el
lisp/simple.el
+7
-33
No files found.
lisp/simple.el
View file @
dc7d7552
...
...
@@ -1122,34 +1122,6 @@ is not *inside* the region START...END."
(t
'(0 . 0)))
'(0 . 0)))
(defun undo-get-state ()
"
Return
a
handler
for
the
current
state
to
which
we
might
want
to
undo.
The
returned
handler
can
then
be
passed
to
`
undo-revert-to-handle
'.
"
(unless (eq buffer-undo-list t)
buffer-undo-list))
(defun undo-revert-to-state (handle)
"
Revert
to
the
state
HANDLE
earlier
grabbed
with
`
undo-get-handle
'.
This
undoing
is
not
itself
undoable
(
aka
redoable
)
.
"
(unless (eq buffer-undo-list t)
(let ((new-undo-list (cons (car handle) (cdr handle))))
;; Truncate the undo log at `handle'.
(when handle
(setcar handle nil) (setcdr handle nil))
(unless (eq last-command 'undo) (undo-start))
;; Make sure there's no confusion.
(when (and handle (not (eq handle (last pending-undo-list))))
(error "
Undoing
to
some
unrelated
state
"))
;; Undo it all.
(while pending-undo-list (undo-more 1))
;; Reset the modified cons cell to its original content.
(when handle
(setcar handle (car new-undo-list))
(setcdr handle (cdr new-undo-list)))
;; Revert the undo info to what it was when we grabbed the state.
(setq buffer-undo-list handle))))
(defvar shell-command-history nil
"
History
list
for
some
commands
that
read
shell
commands.
")
...
...
@@ -2825,11 +2797,13 @@ With argument 0, interchanges line point is in with line mark is in."
(let ((swap pos1))
(setq pos1 pos2 pos2 swap)))
(if (> (cdr pos1) (car pos2)) (error "
Don
't
have
two
things
to
transpose
"))
(let ((word2 (delete-and-extract-region (car pos2) (cdr pos2))))
(goto-char (car pos2))
(insert (delete-and-extract-region (car pos1) (cdr pos1)))
(goto-char (car pos1))
(insert word2)))
(atomic-change-group
(let (word2)
(setq word2 (delete-and-extract-region (car pos2) (cdr pos2)))
(goto-char (car pos2))
(insert (delete-and-extract-region (car pos1) (cdr pos1)))
(goto-char (car pos1))
(insert word2))))
(defun backward-word (arg)
"
Move
backward
until
encountering
the
beginning
of
a
word.
...
...
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