setup/xquery.el

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