Lines Matching +defs:face +defs:extension
619 (defun speedbar-extension-list-to-regex (extlist)
641 `speedbar-extension-list-to-regex' (A misnamed function in this case.)
658 (speedbar-extension-list-to-regex val))))
680 Created from `speedbar-supported-extension-expressions' with the
681 function `speedbar-extension-list-to-regex'")
685 (defcustom speedbar-supported-extension-expressions
699 function `speedbar-add-supported-extension' to add a new extension at
702 If you add an extension to this list, and it does not appear, you may
703 need to also modify `completion-ignored-extension' which will also help
708 (set 'speedbar-supported-extension-expressions val)
709 (set 'speedbar-file-regexp (speedbar-extension-list-to-regex val))))
712 (speedbar-extension-list-to-regex speedbar-supported-extension-expressions))
714 (defun speedbar-add-supported-extension (extension)
715 "Add EXTENSION as a new supported extension for speedbar tagging.
721 (if (not (listp extension)) (setq extension (list extension)))
722 (while extension
723 (if (member (car extension) speedbar-supported-extension-expressions)
725 (setq speedbar-supported-extension-expressions
726 (cons (car extension) speedbar-supported-extension-expressions)))
727 (setq extension (cdr extension)))
728 (setq speedbar-file-regexp (speedbar-extension-list-to-regex
729 speedbar-supported-extension-expressions)))
744 (setq speedbar-ignored-directory-regexp (speedbar-extension-list-to-regex
749 (setq speedbar-file-regexp (speedbar-extension-list-to-regex
750 speedbar-supported-extension-expressions)
751 speedbar-ignored-directory-regexp (speedbar-extension-list-to-regex
1669 (setq obj (concat (file-name-sans-extension f) (cdr (car oa))))
1721 (defun speedbar-insert-button (text face mouse function
1724 FACE is the face to put on the button, MOUSE is the highlight face to use.
1740 (speedbar-make-button start (point) face mouse function token))
1744 start (point) '(face nil invisible nil mouse-face nil))))
1756 'speedbar-separator-face
1759 (defun speedbar-make-button (start end face mouse function &optional token)
1760 "Create a button from START to END, with FACE as the display face.
1761 MOUSE is the mouse face. When this button is clicked on FUNCTION
1765 (unless (eq face t)
1766 (put-text-property start end 'face face))
1768 start end `(mouse-face ,mouse invisible nil
1955 'speedbar-directory-face
1956 'speedbar-highlight-face
1999 'speedbar-directory-face
2000 'speedbar-highlight-face
2010 tag-button-face depth)
2022 TAG-BUTTON-FACE is a face used for this type of tag.
2046 'speedbar-button-face nil))
2047 (mf (if exp-button-function 'speedbar-highlight-face nil))
2061 (speedbar-make-button start end tag-button-face
2062 (if tag-button-function 'speedbar-highlight-face nil)
2095 'speedbar-directory-face level)
2106 'speedbar-file-face level)))
2440 'speedbar-tag-face
2448 'speedbar-tag-face
2454 nil nil 'speedbar-tag-face
2773 'face
2774 'speedbar-file-face))))))
2812 'face
2813 'speedbar-selected-face)
2825 'face
2826 'speedbar-selected-face)))
2997 ;; User extension
3027 ;; User extension
3083 (if (not (and oa (file-exists-p (concat (file-name-sans-extension fulln)
3089 (file-name-sans-extension fulln)
3111 with a mouse face that has a text property called `speedbar-function'.
3788 "Sorry, no support for a file of that extension"))))
3937 'speedbar-file-face 0)
3950 'speedbar-file-face 0)
3963 ;; 'speedbar-file-face 0)
4067 (speedbar-overlay-put speedbar-highlight-one-tag-line 'face
4068 'speedbar-highlight-face)
4092 (defface speedbar-button-face '((((class color) (background light))
4099 (defface speedbar-file-face '((((class color) (background light))
4107 (defface speedbar-directory-face '((((class color) (background light))
4113 (defface speedbar-tag-face '((((class color) (background light))
4120 (defface speedbar-selected-face '((((class color) (background light))
4128 (defface speedbar-highlight-face '((((class color) (background light))
4141 (defface speedbar-separator-face '((((class color) (background light))