Function: mh-speedbar-change-expand-button-char

mh-speedbar-change-expand-button-char is a byte-compiled function defined in mh-speed.el.gz.

Signature

(mh-speedbar-change-expand-button-char CHAR)

Documentation

Change the expansion button character to CHAR for the current line.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-speed.el.gz
;; Make it slightly more general to allow for [ ] buttons to be
;; changed to [+].
(defun mh-speedbar-change-expand-button-char (char)
  "Change the expansion button character to CHAR for the current line."
  (save-excursion
    (beginning-of-line)
    (if (re-search-forward "\\[.\\]" (line-end-position) t)
        (speedbar-with-writable
          (backward-char 2)
          (delete-char 1)
          (insert-char char 1 t)
          (put-text-property (point) (1- (point)) 'invisible nil)
          ;; make sure we fix the image on the text here.
          (when (fboundp 'speedbar-insert-image-button-maybe)
            (speedbar-insert-image-button-maybe (- (point) 2) 3))))))