diff options
| author | Lawrence Mitchell <wence@gmx.li> | 2011-03-29 13:44:07 +0000 |
|---|---|---|
| committer | Carsten Dominik <carsten.dominik@gmail.com> | 2011-04-06 10:27:58 +0200 |
| commit | f4ba6dc6ee099d690a236cd6b257b84d50d8b17f (patch) | |
| tree | 3af28a8322cf541e5b2cb16660841cb36adc6cb1 | |
| parent | 1df06e0fa9dd7a137f7d0cfc1840264a6c83ccc4 (diff) | |
| download | org-mode-f4ba6dc6ee099d690a236cd6b257b84d50d8b17f.tar.gz | |
org: Match case of todo keywords when determining empty headings
* lisp/org.el (org-point-at-end-of-empty-headline): Bind
case-fold-search to nil.
| -rw-r--r-- | lisp/org.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/org.el b/lisp/org.el index 0a34a1e..24d2077 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -19649,8 +19649,9 @@ empty." (and (looking-at "[ \t]*$") (save-excursion (beginning-of-line 1) - (looking-at (concat "^\\(\\*+\\)[ \t]+\\(" org-todo-regexp - "\\)?[ \t]*$"))))) + (let ((case-fold-search nil)) + (looking-at (concat "^\\(\\*+\\)[ \t]+\\(" org-todo-regexp + "\\)?[ \t]*$")))))) (defun org-at-heading-or-item-p () (or (org-on-heading-p) (org-at-item-p))) |