setup/xquery.el

   1 (add-to-list 'auto-mode-alist '("\\.[Xx][Qq][Uu][Ee][Rr][Yy]\\'" . xquery-mode))
   2
   3 (defvar dbxml-shell-filename "dbxml")
   4
   5 (defun dbxml ()
   6   (interactive)
   7   (pop-to-buffer (make-comint "DB-Xml" dbxml-shell-filename))
   8   (set-buffer-process-coding-system "utf-8" "utf-8"))