From 420899b3dfc3f608a049db5fe5e74af62dc38350 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Mon, 2 May 2011 09:16:51 +0200 Subject: [PATCH] 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. --- lisp/org.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 04d02ac85..face49a4a 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -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)