[nongnu] elpa/forth-mode 5df1f95c26 044/153: Speedbar support.

[ELPA Syncer]

branch: elpa/forth-mode
commit 5df1f95c26eb6620aa2107868f7d9f71c6bf33b2
Author: Lars Brinkhoff <lars.brinkhoff@delphi.com>
Commit: Lars Brinkhoff <lars@nocrew.org>

    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