 ;;  employees for the sole purpose of conducting PLANISWARE business.
 ;;
 ;;**************************************************************************
+
 (defun js--regexp-opt-symbol (list)
   "Like `regexp-opt', but surround the result with `\\\\_<' and `\\\\_>'."
   (concat "\\_<" (regexp-opt list) "\\_>"))

;;* 
;;  COPYRIGHT (C) PLANISWARE 2016-05-27
;;
;;  All Rights Reserved
;;

  ;; the jit-lock-register function prepared a nice cache for us
  (let ((context (get-local-function-environment))
	res)
    (when (consp context)
      (maphash '(lambda (k v)
		  (if list-of-cons
		      (push (cons k (car v)) res)
