|
@@ -19275,6 +19275,17 @@ With prefix arg UNCOMPILED, load the uncompiled versions."
|
|
|
(eval form)
|
|
|
(error (format "%%![Error: %s]" error))))
|
|
|
|
|
|
+(defun org-in-clocktable-p ()
|
|
|
+ "Check if the cursor is in a clocktable."
|
|
|
+ (let ((pos (point)) start)
|
|
|
+ (save-excursion
|
|
|
+ (end-of-line 1)
|
|
|
+ (and (re-search-backward "^[ \t]*#\\+BEGIN:[ \t]+clocktable" nil t)
|
|
|
+ (setq start (match-beginning 0))
|
|
|
+ (re-search-forward "^[ \t]*#\\+END:.*" nil t)
|
|
|
+ (>= (match-end 0) pos)
|
|
|
+ start))))
|
|
|
+
|
|
|
(defun org-in-commented-line ()
|
|
|
"Is point in a line starting with `#'?"
|
|
|
(equal (char-after (point-at-bol)) ?#))
|