mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 22:47:56 +00:00
Code Releases Activity

Fix predicate comment string

Browse source 
Ref. (info "(elisp) Documentation Tips")

* lisp/org.el (org-at-comment-p, org-at-drawer-p)
(org-at-block-p): Fix documentation.
This commit is contained in:
Gustav Wikström 2019-09-29 08:54:58 +02:00
parent 1fd07c1eeb
commit 6175593530
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/org.el
View file

@ -20511,20 +20511,20 @@ unless optional argument NO-INHERITANCE is non-nil."
(save-excursion (and (org-up-heading-safe) (org-in-commented-heading-p)))))) (save-excursion (and (org-up-heading-safe) (org-in-commented-heading-p))))))
(defun org-at-comment-p nil (defun org-at-comment-p nil
"Is cursor in a commented line?" "Return t if cursor is in a commented line."
(save-excursion (save-excursion
(save-match-data (save-match-data
(beginning-of-line) (beginning-of-line)
(looking-at "^[ \t]*# ")))) (looking-at "^[ \t]*# "))))
(defun org-at-drawer-p nil (defun org-at-drawer-p nil
"Is cursor at a drawer keyword?" "Return t if cursor is at a drawer keyword."
(save-excursion (save-excursion
(move-beginning-of-line 1) (move-beginning-of-line 1)
(looking-at org-drawer-regexp))) (looking-at org-drawer-regexp)))
(defun org-at-block-p nil (defun org-at-block-p nil
"Is cursor at a block keyword?" "Return t if cursor is at a block keyword."
(save-excursion (save-excursion
(move-beginning-of-line 1) (move-beginning-of-line 1)
(looking-at org-block-regexp))) (looking-at org-block-regexp)))