Function: allout-solicit-alternate-bullet

allout-solicit-alternate-bullet is a byte-compiled function defined in allout.el.gz.

Signature

(allout-solicit-alternate-bullet DEPTH &optional CURRENT-BULLET)

Documentation

Prompt for and return a bullet char as an alternative to the current one.

Offer one suitable for current depth DEPTH as default.

Source Code

;; Defined in /usr/src/emacs/lisp/allout.el.gz
;;;_  - Topic Format Assessment
;;;_   > allout-solicit-alternate-bullet (depth &optional current-bullet)
(defun allout-solicit-alternate-bullet (depth &optional current-bullet)
  "Prompt for and return a bullet char as an alternative to the current one.

Offer one suitable for current depth DEPTH as default."

  (let* ((default-bullet (or (and (stringp current-bullet) current-bullet)
                             (allout-bullet-for-depth depth)))
	 (sans-escapes (allout-regexp-sans-escapes allout-bullets-string))
	 choice)
    (save-excursion
      (goto-char (allout-current-bullet-pos))
      (setq choice (allout-solicit-char-in-string
                    (format-message
                     "Select bullet: %s (`%s' default): "
                     sans-escapes
                     (substring-no-properties default-bullet))
                    sans-escapes
                    t)))
    (message "")
    (if (string= choice "") default-bullet choice))
  )