From 1ee94060bcbfd40ad03a0a32f15692c830629dac Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Fri, 15 Feb 2013 23:09:10 +0100 Subject: [PATCH] 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. --- lisp/org-list.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/org-list.el b/lisp/org-list.el index ca8544fc3..7a14b826a 100644 --- a/lisp/org-list.el +++ b/lisp/org-list.el @@ -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.