branch: elpa/forth-mode
commit 5df1f95c26eb6620aa2107868f7d9f71c6bf33b2
Author: Lars Brinkhoff <[email protected]>
Commit: Lars Brinkhoff <[email protected]>
Speedbar support.
---
forth-mode.el | 11 +++++++++++
1 file changed, 11 insertions(+)
diff --git a/forth-mode.el b/forth-mode.el
index 222d9b8c7d..d165806e38 100644
--- a/forth-mode.el
+++ b/forth-mode.el
@@ -106,6 +106,17 @@
;;;###autoload
(add-to-list 'auto-mode-alist '("\\.\\(f\\|fs\\|fth\\|4th\\)\\'" . forth-mode))
+(unless (fboundp 'with-eval-after-load)
+ (defmacro with-eval-after-load (lib &rest forms)
+ `(eval-after-load ,lib '(progn ,@forms))))
+
+(eval-after-load "speedbar"
+ '(progn
+ (speedbar-add-supported-extension ".f")
+ (speedbar-add-supported-extension ".fs")
+ (speedbar-add-supported-extension ".fth")
+ (speedbar-add-supported-extension ".4th")))
+
;;; : ; does> variable constant value
;;; if else then do loop begin while repeat again until postpone
