Fix code typo in 3af4949a

This commit is contained in:
Bastien Guerry 2014-07-29 16:56:44 +02:00
parent 06aa1b615c
commit 8d8dfacfc6
1 changed files with 1 additions and 1 deletions

View File

@ -9474,7 +9474,7 @@ The refresh happens only for the current tree (not subtree)."
(goto-char (point-min))
(put-text-property (point) (point-max) 'org-category def-cat)
(while (re-search-forward
"^[ \t]*\\(#\\+CATEGORY:\\|*:CATEGORY:\\)\\(.*\\)" nil t)
"^[ \t]*\\(#\\+CATEGORY:\\|:CATEGORY:\\)\\(.*\\)" nil t)
(setq pos (match-end 0)
optionp (equal (char-after (match-beginning 0)) ?#)
cat (org-trim (match-string 2)))