初稿: 2018-08-09 Thu 10:52
最終更新日: 2018-12-14 Fri 20:44
ホーム | 文書トップ | 目次

org-preserve-lc
ポイント位置を保存してbodyを実行する

1: (defmacro org-preserve-lc (&rest body)
2:   (declare (debug (body)))
3:   (org-with-gensyms (line col)
4:     `(let ((,line (org-current-line))
5:            (,col (current-column)))
6:        (unwind-protect
7:            (progn ,@body)
8:          (org-goto-line ,line)
9:          (org-move-to-column ,col)))))

日付: 2018-08-09 Thu 10:52

著者: conao

Created: 2018-12-14 Fri 21:04

Validate