diff options
| author | John Paul Wallington | 2005-12-03 02:31:40 +0000 |
|---|---|---|
| committer | John Paul Wallington | 2005-12-03 02:31:40 +0000 |
| commit | 6273dc682119226c80cebf63e651908d80324c03 (patch) | |
| tree | 3645381ace8a26c9275ff4af42cd473e6d64f517 | |
| parent | 21b15ee87ea34f05f65e579302103336d74e59e3 (diff) | |
| download | emacs-6273dc682119226c80cebf63e651908d80324c03.tar.gz emacs-6273dc682119226c80cebf63e651908d80324c03.zip | |
(atomic-change-group): Add edebug and indentation spec.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/subr.el | 1 |
2 files changed, 5 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0b029e203df..2bf21281c42 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2005-12-03 Johan Bockg,Ae(Brd <bojohan@dd.chalmers.se> | ||
| 2 | |||
| 3 | * subr.el (atomic-change-group): Add edebug and indentation spec. | ||
| 4 | |||
| 1 | 2005-12-02 Stefan Monnier <monnier@iro.umontreal.ca> | 5 | 2005-12-02 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 6 | ||
| 3 | * completion.el (save-completions-file-name): Fix typo in last change. | 7 | * completion.el (save-completions-file-name): Fix typo in last change. |
diff --git a/lisp/subr.el b/lisp/subr.el index 778f52abff4..9b6e122e673 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -1602,6 +1602,7 @@ This works regardless of whether undo is enabled in the buffer. | |||
| 1602 | This mechanism is transparent to ordinary use of undo; | 1602 | This mechanism is transparent to ordinary use of undo; |
| 1603 | if undo is enabled in the buffer and BODY succeeds, the | 1603 | if undo is enabled in the buffer and BODY succeeds, the |
| 1604 | user can undo the change normally." | 1604 | user can undo the change normally." |
| 1605 | (declare (indent 0) (debug t)) | ||
| 1605 | (let ((handle (make-symbol "--change-group-handle--")) | 1606 | (let ((handle (make-symbol "--change-group-handle--")) |
| 1606 | (success (make-symbol "--change-group-success--"))) | 1607 | (success (make-symbol "--change-group-success--"))) |
| 1607 | `(let ((,handle (prepare-change-group)) | 1608 | `(let ((,handle (prepare-change-group)) |