summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorCarsten Dominik <carsten.dominik@gmail.com>2010-01-14 17:26:09 +0100
committerCarsten Dominik <carsten.dominik@gmail.com>2010-01-14 17:32:46 +0100
commitb83c03a89863c0605c080b7fa393d9a50fea7a53 (patch)
treea0509f47b28df89768894e7cb23041647b4af249
parentcab009b78e63bb8a3fd8d6dd25293f2d82b67068 (diff)
downloadorg-mode-b83c03a89863c0605c080b7fa393d9a50fea7a53.tar.gz
Fix wrong-case matching of TODO keywords in `org-entry-properties'
-rw-r--r--doc/org.texi2
-rwxr-xr-xlisp/ChangeLog3
-rw-r--r--lisp/org.el1
3 files changed, 6 insertions, 0 deletions
diff --git a/doc/org.texi b/doc/org.texi
index a610caf..d066114 100644
--- a/doc/org.texi
+++ b/doc/org.texi
@@ -12534,6 +12534,8 @@ chapter about publishing.
@i{J@"urgen Vollmer} contributed code generating the table of contents
in HTML output.
@item
+@i{Samuel Wales} has provided important feedback and bug reports.
+@item
@i{Chris Wallace} provided a patch implementing the @samp{QUOTE}
keyword.
@item
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c38b582..1b2afae 100755
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
2010-01-14 Carsten Dominik <carsten.dominik@gmail.com>
+ * org.el (org-entry-properties): Don't match wrong-case TODO
+ keywords.
+
* org-agenda.el (org-agenda-schedule, org-agenda-deadline):
Document that ARG is passed through to remove the date.
(org-agenda-bulk-action): Accept prefix arg and pass it on. Do
diff --git a/lisp/org.el b/lisp/org.el
index 91a5ff3..7e039be 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -12516,6 +12516,7 @@ things up because then unnecessary parsing is avoided."
(org-with-point-at pom
(let ((clockstr (substring org-clock-string 0 -1))
(excluded '("TODO" "TAGS" "ALLTAGS" "PRIORITY"))
+ (case-fold-search nil)
beg end range props sum-props key value string clocksum)
(save-excursion
(when (condition-case nil