From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 15 Oct 2000 05:25:57 +0000 (+0000)
Subject: (easy-mmode-define-syntax): Use plist-get and allow :inherit.
X-Git-Tag: emacs-pretest-21.0.90~878
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e4fe3460db9da857360fdc94cab70e904df2a582;p=emacs.git

(easy-mmode-define-syntax): Use plist-get and allow :inherit.
---

diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el
index 60c613022e1..c2ff0701eb1 100644
--- a/lisp/emacs-lisp/easy-mmode.el
+++ b/lisp/emacs-lisp/easy-mmode.el
@@ -335,17 +335,23 @@ ARGS is a list of additional arguments."
 ;;;
 
 (defun easy-mmode-define-syntax (css args)
-  (let ((st (make-syntax-table (cadr (memq :copy args)))))
+  (let ((st (make-syntax-table (plist-get args :copy)))
+	(parent (plist-get args :inherit)))
     (dolist (cs css)
       (let ((char (car cs))
 	    (syntax (cdr cs)))
 	(if (sequencep char)
 	    (mapcar (lambda (c) (modify-syntax-entry c syntax st)) char)
 	  (modify-syntax-entry char syntax st))))
+    (if parent (set-char-table-parent
+		st (if (symbolp parent) (symbol-value parent) parent)))
     st))
 
 ;;;###autoload
 (defmacro easy-mmode-defsyntax (st css doc &rest args)
+  "Define variable ST as a syntax-table.
+CSS contains a list of syntax specifications of the form (CHAR . SYNTAX).
+"
   `(progn
      (autoload 'easy-mmode-define-syntax "easy-mmode")
      (defconst ,st (easy-mmode-define-syntax ,css ,(cons 'list args)) doc)))