mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-23 07:18:53 +00:00
Code

Allow datetree to find years with trailing whitespace.

Browse Source 
* lisp/org-datetree.el: Fix regexp to allow datetree to find headings
  with trailing whitespace.  This fixes a bug in which an existing
  datetree heading (e.g., "* 2012 ") would not be found by
  org-datetree-find-year-create if it had trailing whitespace.  This can
  cause problems, for instance, if one is using column view on the date
  tree, since editing subheadings with column view adds whitespace at
  the end of the top heading.
This commit is contained in:
Matt Lundin 2012-05-25 13:16:26 -05:00 committed by Bastien Guerry
parent b00eeb4d5a
commit 8f2a921cf9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/org-datetree.el
View File

@ -63,7 +63,7 @@ tree can be found."
(goto-char (prog1 (point) (widen)))))) (goto-char (prog1 (point) (widen))))))
(defun org-datetree-find-year-create (year) (defun org-datetree-find-year-create (year)
(let ((re "^\\*+[ \t]+\\([12][0-9][0-9][0-9]\\)$") (let ((re "^\\*+[ \t]+\\([12][0-9][0-9][0-9]\\)\\s-*$")
match) match)
(goto-char (point-min)) (goto-char (point-min))
(while (and (setq match (re-search-forward re nil t)) (while (and (setq match (re-search-forward re nil t))