(atomic-change-group): Add edebug and indentation spec.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0b029e203df441a70e66afc884153cac7d718d14..2bf21281c425c9e2716e341f1d9fd6375c1fd601 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2005-12-03  Johan Bockg\e,Ae\e(Brd  <bojohan@dd.chalmers.se>
+
+       * subr.el (atomic-change-group): Add edebug and indentation spec.
+
 2005-12-02  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * completion.el (save-completions-file-name): Fix typo in last change.

diff --git a/lisp/subr.el b/lisp/subr.el
index 778f52abff4d878b2bc3bc0a01244f654a21798d..9b6e122e673a85c13d49e69580889aa2f3343af0 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1602,6 +1602,7 @@ This works regardless of whether undo is enabled in the buffer.
 This mechanism is transparent to ordinary use of undo;
 if undo is enabled in the buffer and BODY succeeds, the
 user can undo the change normally."
+  (declare (indent 0) (debug t))
   (let ((handle (make-symbol "--change-group-handle--"))
        (success (make-symbol "--change-group-success--")))
     `(let ((,handle (prepare-change-group))