games/eternity: how the hell did that get unbound

emacs/data.el

@@ -56,4 +56,32 @@
 (defun agw-after-local-vars ()
   (unless indent-tabs-mode (smart-tabs-mode 0)))
 
+;; Lithium dialogues mode
+(setq agw-lithdlg-highlights
+      (let* (( keywords '("dialogue" "terminal" "program" "page" "failure"
+                          "finished" "unfinished" "if" "else"))
+             (functions '("option" "page" "name" "icon" "remote"
+                          "teleport_interlevel" "teleport_intralevel"
+                          "script" "logon" "logoff" "pict" "info"))
+             ( keyword-regexp (regexp-opt  keywords 'words))
+             (function-regexp (regexp-opt functions 'words)))
+        `(("`.*$" . font-lock-string-face)
+          ( ,keyword-regexp . font-lock-keyword-face)
+          (,function-regexp . font-lock-function-name-face))))
+
+(setq agw-lithdlg-syntax
+      (let ((table (make-syntax-table)))
+        (modify-syntax-entry ?/ ". 14n" table)
+        (modify-syntax-entry ?* ". 23n" table)
+        (modify-syntax-entry ?{ "({"    table)
+        (modify-syntax-entry ?} ")}"    table)
+        table))
+
+(define-derived-mode agw-lithdlg-mode fundamental-mode "lithdlg"
+  "Major mode for Lithium dialogues."
+  (setq font-lock-defaults '(agw-lithdlg-highlights))
+  (set-syntax-table agw-lithdlg-syntax))
+
+(provide 'agw-lithdlg-mode)
+
 ;; EOF

games/eternity/keys.csc

@@ -75,4 +75,5 @@ bind pgdn "menu_pagedown"
 bind pgdn "console_pagedown"
 bind f11 "gamma /"
 bind f12 "quit"
+bind mouse1 "attack"
 bind mouse2 "altattack"