Changes to gnats/gnats/gnats.el

[Milan Zamazal]

Index: gnats/gnats/gnats.el
diff -c gnats/gnats/gnats.el:1.32 gnats/gnats/gnats.el:1.33
*** gnats/gnats/gnats.el:1.32   Mon May 20 08:24:49 2002
--- gnats/gnats/gnats.el        Sun Aug  4 13:16:29 2002
***************
*** 1620,1626 ****
  
  (defun gnats-change-database (database host port user)
    "Set new database parameters."
!   (interactive "sDatabase: \nsHost: \nnPort: \nsUser: ")
    (setq gnats-database database
        gnats-server host
        gnats-port port
--- 1620,1633 ----
  
  (defun gnats-change-database (database host port user)
    "Set new database parameters."
!   (interactive
!    (list (read-from-minibuffer "Database: " gnats-database)
!        (read-from-minibuffer "Host: " (or gnats-server "localhost"))
!        (string-to-number
!         (read-from-minibuffer "Port: " (if gnats-port
!                                            (format "%d" gnats-port)
!                                          1529)))
!        (read-from-minibuffer "User: " (or gnats-user (user-login-name)))))
    (setq gnats-database database
        gnats-server host
        gnats-port port
***************
*** 1717,1722 ****
--- 1724,1734 ----
    (setq local-abbrev-table gnats-dbconfig-mode-abbrev-table)
    (make-local-variable 'font-lock-defaults)
    (setq font-lock-defaults '(gnats-dbconfig-font-lock-keywords nil t))
+   (setq imenu-generic-expression
+       '((nil "^\\(database-info\\|on-change\\|index\\|initial-entry\\)" 1)
+         ("Mail formats" "^mail-format +\"\\([^\"\n]+\\)\"" 1)
+         ("Queries" "^query +\"\\([^\"\n]+\\)\"" 1)
+         ("Fields" "^field +\"\\([^\"\n]+\\)\"" 1)))
    (run-hooks 'gnats-dbconfig-mode-hook))
  (add-to-list 'auto-mode-alist '("\\<dbconfig$" . gnats-dbconfig-mode))