Function: org-list-bullet-string

org-list-bullet-string is a byte-compiled function defined in org-list.el.gz.

Signature

(org-list-bullet-string BULLET)

Documentation

Return BULLET with the correct number of whitespaces.

It determines the number of whitespaces to append by looking at org-list-two-spaces-after-bullet-regexp.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-list.el.gz
;;; Methods on structures

(defsubst org-list-bullet-string (bullet)
  "Return BULLET with the correct number of whitespaces.
It determines the number of whitespaces to append by looking at
`org-list-two-spaces-after-bullet-regexp'."
  (save-match-data
    (let ((spaces (if (and org-list-two-spaces-after-bullet-regexp
			   (string-match
			    org-list-two-spaces-after-bullet-regexp bullet))
		      "  "
		    " ")))
      (if (string-match "\\S-+\\([ \t]*\\)" bullet)
	  (replace-match spaces nil nil bullet 1)
	bullet))))