summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-04-10 14:32:55 +0200
committerBastien Guerry <bzg@altern.org>2013-04-10 14:32:55 +0200
commit8e2c29fd38eee632cb6675cbae8440aa81bf643b (patch)
tree8aa3bfb932cd25c9d402434c9252491c9cdb0305
parent08a47b0959fbed935b73eeda8a92c88905a2e5b5 (diff)
downloadorg-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.el9
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))