Changes to gnats/gnats/gnats.el

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))