   "MUMPS keywords for completion")
 
 ;; build the regexps from the lists
+(setq mumps-line-label "^[%A-Za-z][A-Za-z0-9]*:?\\|^[0-9]+:?")
+(setq mumps-string-error "\\\\\".*")
+(setq mumps-unmatched-open-paren "\(.*")
+(setq mumps-unmatched-close-paren "\).*")
 (defvar mkuf (regexp-opt mumps-keywords-ucase-full 'words))
 (defvar mklf (regexp-opt mumps-keywords-lcase-full 'words))
 (defvar mkua (regexp-opt mumps-keywords-ucase-abbrev 'words))

  (modify-syntax-entry ?^ "_")
  (modify-syntax-entry ?% "_")
  (modify-syntax-entry ?$ "-")

  ;;
  ;; modify the tags table list to point to our directory

(setq mumps-functions-ucase-abbrev nil)
(setq mumps-functions-lcase-abbrev nil)

(setq font-lock-warning-face "red2")

;; create the thingy that we'll feed to font-lock-defaults
(setq mumps-font-lock-keywords 
      `(      
	(,";.*$" . font-lock-comment-face)       
	(,mkua . font-lock-keyword-face)
	(,mkuf . font-lock-keyword-face)
	(,mkla . font-lock-keyword-face)
