Browse Source

Rename `org-at-property-block-p'

* lisp/org.el (org-at-property-drawer-p): New name.
* lisp/org-compat.el (org-at-property-block-p): Obsolete alias.
Nicolas Goaziou 1 month ago
parent
commit
8580ef6ec1
3 changed files with 8 additions and 1 deletions
  1. 4 0
      etc/ORG-NEWS
  2. 3 0
      lisp/org-compat.el
  3. 1 1
      lisp/org.el

+ 4 - 0
etc/ORG-NEWS

@@ -344,6 +344,10 @@ The variable was not used in the code base.
 
 The variable was not used in the code base.
 
+*** Renamed ~org-at-property-block-p~
+
+The new name is ~org-at-property-drawer-p~, which is less confusing.
+
 *** Renamed ~org-columns-set-tags-or-toggle~
 
 See [[*~org-columns-toggle-or-columns-quit~]].

+ 3 - 0
lisp/org-compat.el

@@ -630,6 +630,9 @@ use of this function is for the stuck project list."
   (declare (obsolete "use `org-align-tags' instead." "Org 9.2"))
   (org-align-tags t))
 
+(define-obsolete-function-alias
+  'org-at-property-block-p 'org-at-property-drawer-p "Org 9.4")
+
 (defun org-flag-drawer (flag &optional element beg end)
   "When FLAG is non-nil, hide the drawer we are at.
 Otherwise make it visible.

+ 1 - 1
lisp/org.el

@@ -12470,7 +12470,7 @@ FORCE is non-nil, or return nil."
 				       (line-beginning-position))))
 	      (cons pos pos)))))))
 
-(defun org-at-property-block-p ()
+(defun org-at-property-drawer-p ()
   "Non-nil when point is at the first line of a property drawer."
   (org-with-wide-buffer
    (beginning-of-line)