 ;;;; * pjs mode
 ;;;;  (header added automatically)
 ;;;;
+
+(defun pjs--regexp-opt-symbol (list &optional prefix)
+  "Like `regexp-opt', but surround the result with `\\\\_<' and `\\\\_>'."
+  (cond ((stringp prefix)
+	 (concat prefix "\\_<" (regexp-opt list) "\\_>"))
+	(t
+	 (concat "\\_<" (regexp-opt list) "\\_>"))))
 
 (defvar *pjs-font-lock-debug* nil)
 


;; languages keywords
(defconst pjs-font-lock-keywords
  (js--regexp-opt-symbol
   '("order by"
     "default"
     "on"

	(puthash (car item) (second item) ht)
	(push (car item) list))
      (puthash type ht *pjs-buffers-class-members-cache*)
      (puthash type (pjs--regexp-opt-symbol list) *pjs-buffers-class-members-cache-regexp*)
      (if regexp
	  list
	ht))))
