diff options
author | Bastien Guerry <bzg@altern.org> | 2013-04-10 14:32:55 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-04-10 14:32:55 +0200 |
commit | 8e2c29fd38eee632cb6675cbae8440aa81bf643b (patch) | |
tree | 8aa3bfb932cd25c9d402434c9252491c9cdb0305 | |
parent | 08a47b0959fbed935b73eeda8a92c88905a2e5b5 (diff) | |
download | org-mode-8e2c29fd38eee632cb6675cbae8440aa81bf643b.tar.gz |
org-macs.el (org-with-remote-undo): Normalize argument names
* org-macs.el (org-with-remote-undo): Normalize argument names.
-rw-r--r-- | lisp/org-macs.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/org-macs.el b/lisp/org-macs.el index 1c9b8ee..cc837d0 100644 --- a/lisp/org-macs.el +++ b/lisp/org-macs.el @@ -162,18 +162,17 @@ We use a macro so that the test can happen at compilation time." (cons (if (fboundp 'with-no-warnings) 'with-no-warnings 'progn) body)) (def-edebug-spec org-no-warnings (body)) -;; FIXME: Normalize argument names -(defmacro org-with-remote-undo (_buffer &rest _body) +(defmacro org-with-remote-undo (buffer &rest body) "Execute BODY while recording undo information in two buffers." (org-with-gensyms (cline cmd buf1 buf2 undo1 undo2 c1 c2) `(let ((,cline (org-current-line)) (,cmd this-command) (,buf1 (current-buffer)) - (,buf2 ,_buffer) + (,buf2 ,buffer) (,undo1 buffer-undo-list) - (,undo2 (with-current-buffer ,_buffer buffer-undo-list)) + (,undo2 (with-current-buffer ,buffer buffer-undo-list)) ,c1 ,c2) - ,@_body + ,@body (when org-agenda-allow-remote-undo (setq ,c1 (org-verify-change-for-undo ,undo1 (with-current-buffer ,buf1 buffer-undo-list)) |