about summary refs log tree commit diff stats
path: root/lisp/acdw-org.el
diff options
context:
space:
mode:
authorCase Duckworth2021-04-19 15:46:31 -0500
committerCase Duckworth2021-04-19 15:46:31 -0500
commit2f35181b9ae81aba268a3770113a0482364ce8ea (patch)
treecf2d75449a04ff7a869a0ab18325395000a3f984 /lisp/acdw-org.el
parentMerge branch 'main' of https://tildegit.org/acdw/emacs (diff)
downloademacs-2f35181b9ae81aba268a3770113a0482364ce8ea.tar.gz
emacs-2f35181b9ae81aba268a3770113a0482364ce8ea.zip
Tweak `org-table-copy-down'
Now <S-return> will do its regular thing /in/ a table, but will also work
/outside/ a table as a regular <return>.
Diffstat (limited to 'lisp/acdw-org.el')
-rw-r--r--lisp/acdw-org.el10
1 files changed, 9 insertions, 1 deletions
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."
212 title) 212 title)
213 213
214 214
215;;; ADVICE 215;;; ADVICE AND TWEAKS
216 216
217;; Correct `org-delete-backward-char' to use `backward-delete-char-untabify' 217;; Correct `org-delete-backward-char' to use `backward-delete-char-untabify'
218(defun acdw-org/delete-backward-char (N) 218(defun acdw-org/delete-backward-char (N)
@@ -236,4 +236,12 @@ the deletion might narrow the column."
236 (backward-delete-char-untabify N) 236 (backward-delete-char-untabify N)
237 (org-fix-tags-on-the-fly)))) 237 (org-fix-tags-on-the-fly))))
238 238
239(defun acdw-org/org-table-copy-down (n)
240 "Like `org-table-copy-down', except instead of erroring when
241 that command makes no sense, just call `org-return'."
242 (interactive "p")
243 (if (org-table-check-inside-data-field 'noerror)
244 (org-table-copy-down n)
245 (unpackaged/org-return-dwim n)))
246
239(provide 'acdw-org) 247(provide 'acdw-org)