*WML* buffer can now be buried via 'q'.
authorChris Mann <chpln@internode.on.net>
Wed, 29 Jul 2009 09:46:44 +0000 (29 19:16 +0930)
committerChris Mann <chpln@internode.on.net>
Wed, 29 Jul 2009 09:46:44 +0000 (29 19:16 +0930)
* wesnoth-mode.el (wesnoth-check-wml): Allow buffer to be buried via 'q'.
  (wesnoth-check-directory): Add TODO note.

wesnoth-mode.el

index bc07b0c..d31b880 100644 (file)
@@ -1621,9 +1621,12 @@ maintained through successive calls."
        (outbuf (get-buffer-create "*WML*"))
        (last-match-pos 1)
        (details nil)
-       (foreach '()))
+       (foreach '())
+        (map (make-sparse-keymap)))
+    (define-key map (kbd "q") 'bury-buffer)
     (save-excursion
       (set-buffer outbuf)
+      (use-local-map map)
       (let ((buffer (buffer-name))
            (buffer-read-only nil))
        (if preserve-buffer
@@ -1746,6 +1749,8 @@ maintained through successive calls."
                                     (if (= warnings 1) "." "s.")) warnings)))
           (message (format "Checking %s...done" source-buffer)))))))
 
+;; TODO: This will not load dependant files in the right order.  Need to
+;; process from _main.cfg and similar.
 (defun wesnoth-check-directory (dir)
   "Check all WML in DIR.
 Where DIR is a directory containing WML files."