[nongnu] elpa/forth-mode cdab2e4ec1 038/153: Also recognise .4th.

[ELPA Syncer]

branch: elpa/forth-mode
commit cdab2e4ec1e40f3395938c1a258a8bd525b2fc8d
Author: Lars Brinkhoff <lars@nocrew.org>
Commit: Lars Brinkhoff <lars@nocrew.org>

    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