[nongnu] elpa/forth-mode b40ffb3127 078/153: Fix building with Emacs 23.

[ELPA Syncer]

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

    Fix building with Emacs 23.
---
 forth-mode.el | 3 ++-
 forth-smie.el | 4 ++++
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/forth-mode.el b/forth-mode.el
index abd8ace805..c4b3678f5a 100644
--- a/forth-mode.el
+++ b/forth-mode.el
@@ -141,7 +141,8 @@
       (forth-block-mode))
   (setq font-lock-defaults '(forth-font-lock-keywords))
   (setq-local completion-at-point-functions '(forth-expand-symbol))
-  (setq-local syntax-propertize-function #'forth--syntax-propertize)
+  (when (boundp 'syntax-propertize-function)
+    (setq-local syntax-propertize-function #'forth--syntax-propertize))
   (setq-local parse-sexp-lookup-properties t)
   (forth-smie-setup)
   (setq ;; font-lock-defaults
diff --git a/forth-smie.el b/forth-smie.el
index 20bf06cad8..94c17ea7be 100644
--- a/forth-smie.el
+++ b/forth-smie.el
@@ -22,6 +22,10 @@
 
 (defvar forth-smie--basic-indent 2)
 
+(unless (fboundp 'pcase)
+  (defmacro pcase (form &rest forms)
+    0))
+
 (defun forth-smie--indentation-rules (kind token)
   (pcase (cons kind token)
     (`(:elem . basic) forth-smie--basic-indent)