[nongnu] elpa/lua-mode cae5db6 322/468: Fix derived-mode-p test

[Philip Kaludercic]

branch: elpa/lua-mode
commit cae5db6a4dc8858b6db10fdbc126120a8f3463e9
Author: immerrr <immerrr+lua@gmail.com>
Commit: immerrr <immerrr+lua@gmail.com>

    Fix derived-mode-p test
---
 lua-mode.el          | 6 +++---
 test/test-generic.el | 6 ++++++
 2 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/lua-mode.el b/lua-mode.el
index 3126d21..b34d1dd 100644
--- a/lua-mode.el
+++ b/lua-mode.el
@@ -192,8 +192,8 @@ element is itself expanded with `lua-rx-to-string'. "
       `(set (make-local-variable (quote ,var)) ,val)))
 
   ;; Backward compatibility for Emacsen < 24.1
-  (defalias 'lua--prog-mode
-    (if (fboundp 'prog-mode) 'prog-mode 'fundamental-mode))
+  (unless (fboundp 'prog-mode)
+    (define-derived-mode prog-mode fundamental-mode "Prog"))
 
   (defalias 'lua--cl-assert
     (if (fboundp 'cl-assert) 'cl-assert 'assert))
@@ -714,7 +714,7 @@ Groups 6-9 can be used in any of argument regexps."
   "`lua-mode' syntax table.")
 
 ;;;###autoload
-(define-derived-mode lua-mode lua--prog-mode "Lua"
+(define-derived-mode lua-mode prog-mode "Lua"
   "Major mode for editing Lua code."
   :abbrev-table lua-mode-abbrev-table
   :syntax-table lua-mode-syntax-table
diff --git a/test/test-generic.el b/test/test-generic.el
index 226362d..d7b6880 100644
--- a/test/test-generic.el
+++ b/test/test-generic.el
@@ -71,3 +71,9 @@
         "end"))
      (beginning-of-defun)
      (expect (looking-at (rx "function foo.bar:baz (x,y,z)"))))))
+
+
+(describe "lua-mode"
+  (it "is derived from prog-mode"
+    (with-lua-buffer
+     (expect (derived-mode-p 'prog-mode)))))