branch: elpa/forth-mode
commit cdab2e4ec1e40f3395938c1a258a8bd525b2fc8d
Author: Lars Brinkhoff <[email protected]>
Commit: Lars Brinkhoff <[email protected]>
Also recognise .4th.
---
README.md | 3 ++-
forth-mode.el | 2 +-
2 files changed, 3 insertions(+), 2 deletions(-)
diff --git a/README.md b/README.md
index 41fa51c259..1b4d3f2ed1 100644
--- a/README.md
+++ b/README.md
@@ -35,6 +35,7 @@ Manual:
### Usage
To enable Forth major mode, type `M-x forth-mode`. The file
-extensions `.f`, `.fs`, and `.fth` are recognised automatically.
+extensions `.f`, `.fs`, `.fth`, and `.4th` are recognised
+automatically.
To start an interactive Forth session, type `M-x run-forth`.
diff --git a/forth-mode.el b/forth-mode.el
index 61b6d4c0fe..22f0b10106 100644
--- a/forth-mode.el
+++ b/forth-mode.el
@@ -96,7 +96,7 @@
"\\s-2?constant\\s-+\\(\\(\\sw\\|\\s_\\)+\\)" 1))))
;;;###autoload
-(add-to-list 'auto-mode-alist '("\\.\\(f\\|fs\\|fth\\)\\'" . forth-mode))
+(add-to-list 'auto-mode-alist '("\\.\\(f\\|fs\\|fth\\|4th\\)\\'" . forth-mode))
;;; : ; does> variable constant value
;;; if else then do loop begin while repeat again until postpone
