tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-list.el (org-list-bullet-string): Small fix 

* org-list.el (org-list-bullet-string): Replace match when
there is a match, otherwise just return the bullet.
This commit is contained in:
Bastien Guerry 2013-02-15 23:09:10 +01:00
parent 6dd035c925
commit 1ee94060bc
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/org-list.el
View File

@ -1081,8 +1081,9 @@ It determines the number of whitespaces to append by looking at
org-list-two-spaces-after-bullet-regexp bullet))
" "
" ")))
(string-match "\\S-+\\([ \t]*\\)" bullet)
(replace-match spaces nil nil bullet 1))))
(if (string-match "\\S-+\\([ \t]*\\)" bullet)
(replace-match spaces nil nil bullet 1)
bullet))))
(defun org-list-swap-items (beg-A beg-B struct)
"Swap item starting at BEG-A with item starting at BEG-B in STRUCT.