-;;* 
-;;  COPYRIGHT (C) PLANISWARE 2016-05-27
+;; -*- coding: windows-1252 -*- 
+;;  COPYRIGHT (C) PLANISWARE 2017
 ;;
 ;;  All Rights Reserved
 ;;

;;  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) "\\_>"))

  ;; 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)
