   "mumps mode"
   "LorikeeM MUMPS Developer Tools"
 
-  (setq lkm-version "0.99.4")
+  (setq lkm-version "0.99.5")
   (message "LorikeeM MUMPS Developer Tools %s" lkm-version)
 
   (setq frame-title-format "LorikeeM MUMPS Developer Tools")
+
+  (setq mode-line-format
+	(list
+	 "   "	 
+	 '(:eval (propertize (lkm-current-label-offset-routine) 'face 'font-lock-string-face
+			     'help-echo "Help"))
+	 "   "
+
+	 ;; relative position, size of file
+	 "["
+	 (propertize "%p" 'face 'font-lock-constant-face) ;; % above top
+	 "/"
+	 (propertize "%I" 'face 'font-lock-constant-face) ;; size
+	 "] ["
+	 (propertize "Line %l Col %c" 'face 'font-lock-constant-face)
+	 "] "	 
+
+	 "[" ;; insert vs overwrite mode, input-method in a tooltip
+	 '(:eval (propertize (if overwrite-mode "Ovr" "Ins")
+			     'face 'font-lock-preprocessor-face
+			     'help-echo (concat "Buffer is in "
+						(if overwrite-mode "overwrite" "insert") " mode")))
+
+	 ;; was this buffer modified since the last save?
+	 '(:eval (when (buffer-modified-p)
+		   (concat ","  (propertize "Mod"
+					    'face 'font-lock-warning-face
+					    'help-echo "Buffer has been modified"))))
+
+	 ;; is this buffer read-only?
+	 '(:eval (when buffer-read-only
+		   (concat ","  (propertize "RO"
+					    'face 'font-lock-type-face
+					    'help-echo "Buffer is read-only"))))  
+	 "] "
+
+	 ))
 
   ;;
   ;; set up syntax table entries

  "MUMPS keywords for completion")

;; build the regexps from the lists
(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-syntax-entry ?\; "<")
  (modify-syntax-entry ?\n ">")
  (modify-syntax-entry ?+ ".")
  (modify-syntax-entry ?- ".")
  (modify-syntax-entry ?_ ".")
  (modify-syntax-entry ?[ ".")
  (modify-syntax-entry ?* ".")
  (modify-syntax-entry ?/ ".")
  (modify-syntax-entry ?\\ ".")
  (modify-syntax-entry ?# ".")
  (modify-syntax-entry ?< ".")
  (modify-syntax-entry ?> ".")
  (modify-syntax-entry ?& ".")
  (modify-syntax-entry ?? ".")

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