From 2f35181b9ae81aba268a3770113a0482364ce8ea Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Mon, 19 Apr 2021 15:46:31 -0500 Subject: Tweak `org-table-copy-down' Now will do its regular thing /in/ a table, but will also work /outside/ a table as a regular . --- lisp/acdw-org.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'lisp') diff --git a/lisp/acdw-org.el b/lisp/acdw-org.el index c4431ab..46497f6 100644 --- a/lisp/acdw-org.el +++ b/lisp/acdw-org.el @@ -212,7 +212,7 @@ appropriate. In tables, insert a new row or end the table." title) -;;; ADVICE +;;; ADVICE AND TWEAKS ;; Correct `org-delete-backward-char' to use `backward-delete-char-untabify' (defun acdw-org/delete-backward-char (N) @@ -236,4 +236,12 @@ the deletion might narrow the column." (backward-delete-char-untabify N) (org-fix-tags-on-the-fly)))) +(defun acdw-org/org-table-copy-down (n) + "Like `org-table-copy-down', except instead of erroring when + that command makes no sense, just call `org-return'." + (interactive "p") + (if (org-table-check-inside-data-field 'noerror) + (org-table-copy-down n) + (unpackaged/org-return-dwim n))) + (provide 'acdw-org) -- cgit 1.4.1-21-gabe81