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

* lisp/subr.el (atomic-change-group): Fix return value

Browse source 
Suggested by Jarosław Rzeszótko <jrzeszotko@gmail.com>.
This commit is contained in:
Stefan Monnier 2018-01-30 09:55:09 -05:00
parent b937381e51
commit 84055bda91
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/subr.el
View file

@ -2586,7 +2586,7 @@ is nil and `use-dialog-box' is non-nil."
;;; Atomic change groups.
(defmacro atomic-change-group (&rest body)
"Perform BODY as an atomic change group.
"Like `progn' but perform BODY as an atomic change group.
This means that if BODY exits abnormally,
all of its changes to the current buffer are undone.
This works regardless of whether undo is enabled in the buffer.
@ -2609,8 +2609,8 @@ user can undo the change normally."
;; it enables undo if that was disabled; we need
;; to make sure that it gets disabled again.
(activate-change-group ,handle)
,@body
(setq ,success t))
(prog1 ,(macroexp-progn body)
(setq ,success t)))
;; Either of these functions will disable undo
;; if it was disabled before.
(if ,success