diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-04-18 18:07:29 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-04-19 11:51:54 +0200 |
commit | 7d2ebc3ffa23f3ec3cb68c153e788af61b181f7b (patch) | |
tree | 4109e34901535650ad06481b234ac1023e48f16c | |
parent | f05493504a33a12c829d6f8a1d935578ce979a7c (diff) | |
download | org-mode-7d2ebc3ffa23f3ec3cb68c153e788af61b181f7b.tar.gz |
Deprecate `org-get-local-tags' and `org-get-local-tags-at'
* contrib/lisp/org-drill.el (org-drill-entry-p):
(org-drill-entry-leech-p):
* lisp/org-bibtex.el (org-bibtex-headline):
(org-get-local-tags-at): Use `org-get-tags'.
* lisp/org.el (org-get-local-tags-at):
(org-get-local-tags): Move to...
* lisp/org-compat.el: ... here.
-rw-r--r-- | contrib/lisp/org-drill.el | 4 | ||||
-rw-r--r-- | lisp/org-bibtex.el | 5 | ||||
-rw-r--r-- | lisp/org-compat.el | 9 | ||||
-rw-r--r-- | lisp/org.el | 8 |
4 files changed, 13 insertions, 13 deletions
diff --git a/contrib/lisp/org-drill.el b/contrib/lisp/org-drill.el index 12c7dba..c7f509b 100644 --- a/contrib/lisp/org-drill.el +++ b/contrib/lisp/org-drill.el @@ -761,7 +761,7 @@ situation use `org-part-of-drill-entry-p'." (save-excursion (when marker (org-drill-goto-entry marker)) - (member org-drill-question-tag (org-get-local-tags)))) + (member org-drill-question-tag (org-get-tags nil t)))) (defun org-drill-goto-entry (marker) @@ -793,7 +793,7 @@ drill entry." (defun org-drill-entry-leech-p () "Is the current entry a 'leech item'?" (and (org-drill-entry-p) - (member "leech" (org-get-local-tags)))) + (member "leech" (org-get-tags nil t)))) ;; (defun org-drill-entry-due-p () diff --git a/lisp/org-bibtex.el b/lisp/org-bibtex.el index 94eef74..4a9e6d2 100644 --- a/lisp/org-bibtex.el +++ b/lisp/org-bibtex.el @@ -354,9 +354,8 @@ and `org-exclude-tags-from-inheritance'." (append org-bibtex-tags org-bibtex-no-export-tags)) tag)) - (if org-bibtex-inherit-tags - (org-get-tags) - (org-get-local-tags-at))))))) + (if org-bibtex-inherit-tags (org-get-tags) + (org-get-tags nil t))))))) (when type (let ((entry (format "@%s{%s,\n%s\n}\n" type id diff --git a/lisp/org-compat.el b/lisp/org-compat.el index c0fe070..7e0e975 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -385,6 +385,15 @@ use of this function is for the stuck project list." (define-obsolete-function-alias 'org-get-tags-at 'org-get-tags "Org 9.2") +(defun org-get-local-tags () + "Get a list of tags defined in the current headline." + (declare (obsolete "use `org-get-tags' instead." "Org 9.2")) + (org-get-tags nil 'local)) + +(defun org-get-local-tags-at (&optional pos) + "Get a list of tags defined in the current headline." + (declare (obsolete "use `org-get-tags' instead." "Org 9.2")) + (org-get-tags pos 'local)) ;;;; Obsolete link types diff --git a/lisp/org.el b/lisp/org.el index 48ebf03..b9edec9 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -14151,14 +14151,6 @@ When DOWNCASE is non-nil, expand downcased TAGS." (defvar org-tags-overlay (make-overlay 1 1)) (delete-overlay org-tags-overlay) -(defun org-get-local-tags-at (&optional pos) - "Get a list of tags defined in the current headline." - (org-get-tags pos 'local)) - -(defun org-get-local-tags () - "Get a list of tags defined in the current headline." - (org-get-tags nil 'local)) - (defun org-add-prop-inherited (s) (add-text-properties 0 (length s) '(inherited t) s) s) |