mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-29 07:58:21 +00:00
Code

org-colview.el: Correctly remove leading stars.

Browse Source 
* org-colview.el (org-columns-cleanup-item): Correctly remove
leading stars in items displayed in the agenda column view.

Thanks to Christian Schmidt for spotting this.
This commit is contained in:
Bastien Guerry 2011-08-18 09:14:44 +02:00
parent 9f337ee06c
commit 3100838dcc
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/org-colview.el
View File

@ -347,7 +347,7 @@ CPHR is the complex heading regexp to use for parsing ITEM."
(let (fixitem)
(if (not cphr)
item
(unless (string-match "\*+ " item)
(unless (string-match "^\*+ " item)
(setq item (concat "* " item) fixitem t))
(if (string-match cphr item)
(setq item
@ -361,8 +361,8 @@ CPHR is the complex heading regexp to use for parsing ITEM."
(add-text-properties
0 (1+ (match-end 1))
(list 'org-whitespace (* 2 (1- (org-reduced-level (- (match-end 1) (match-beginning 1))))))
item)
(if fixitem (replace-regexp-in-string "^\*+ " "" item) item)))))
item))
(if fixitem (replace-regexp-in-string "^\*+ " "" item) item))))
(defun org-columns-compact-links (s)
"Replace [[link][desc]] with [desc] or [link]."