ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix typo in function name 

* lisp/org.el (org-remove-uninherited-tags): Renamed from
org-remove-iniherited-tags.
(org-scan-tags): Fix typo in function call.
(org-get-tags-at): Fix typo in function call.
This commit is contained in:
Carsten Dominik 2011-05-02 09:16:51 +02:00
parent 3b924ef2ad
commit 420899b3df
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org.el
View File

@ -12433,7 +12433,7 @@ only lines with a TODO keyword are included in the output."
org-tags-exclude-from-inheritance))
;; selective inheritance, remove uninherited ones
(setcdr (car tags-alist)
(org-remove-uniherited-tags (cdar tags-alist))))
(org-remove-uninherited-tags (cdar tags-alist))))
(when (and (or (not todo-only)
(and (member todo org-not-done-keywords)
(or (not org-agenda-tags-todo-honor-ignore-options)
@ -12493,7 +12493,7 @@ only lines with a TODO keyword are included in the output."
(org-hide-archived-subtrees (point-min) (point-max)))
(nreverse rtn)))
(defun org-remove-uniherited-tags (tags)
(defun org-remove-uninherited-tags (tags)
"Remove all tags that are not inherited from the list TAGS."
(cond
((eq org-use-tag-inheritance t)
@ -12790,7 +12790,7 @@ ignore inherited ones."
(setq ltags (mapcar 'org-add-prop-inherited ltags)))
(setq tags (append
(if parent
(org-remove-uniherited-tags ltags)
(org-remove-uninherited-tags ltags)
ltags)
tags)))
(or org-use-tag-inheritance (throw 'done t))
@ -12800,7 +12800,7 @@ ignore inherited ones."
(error nil)))))
(if local
tags
(append (org-remove-uniherited-tags org-file-tags) tags))))))
(append (org-remove-uninherited-tags org-file-tags) tags))))))
(defun org-add-prop-inherited (s)
(add-text-properties 0 (length s) '(inherited t) s)