Browse Source

Bugfix in `org-back-to-heading'.

prevent `org-back-to-heading' from throwing an error when getting tags
before headlines.  This error was reported by Joel J. Adamson.
Bastien Guerry 17 years ago
parent
commit
dcba1a960c
2 changed files with 3 additions and 2 deletions
  1. 2 1
      ChangeLog
  2. 1 1
      org.el

+ 2 - 1
ChangeLog

@@ -1,7 +1,8 @@
-
 2008-03-06  Bastien Guerry  <bzg@altern.org>
 
 	* org.el (org-get-legal-level): Aliased to `org-get-valid-level'.
+	* org.el (org-get-tags-at): Bugfix: prevent `org-back-to-heading'
+	from throwing an error when getting tags before headlines.
 
 2008-03-06  Carsten Dominik  <dominik@science.uva.nl>
 

+ 1 - 1
org.el

@@ -23319,8 +23319,8 @@ the tags of the current headline come last."
 	(widen)
 	(goto-char (or pos (point)))
 	(save-match-data
-	  (org-back-to-heading t)
 	  (condition-case nil
+	      (org-back-to-heading t)
 	      (while (not (equal lastpos (point)))
 		(setq lastpos (point))
 		(if (looking-at (org-re "[^\r\n]+?:\\([[:alnum:]_@:]+\\):[ \t]*$"))