/[gnats]/gnats/gnats/gnats.el
ViewVC logotype

Diff of /gnats/gnats/gnats.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.32 by pdm, Mon May 20 12:24:49 2002 UTC revision 1.33 by pdm, Sun Aug 4 17:16:29 2002 UTC
# Line 1620  QUERY is a string representing a query i Line 1620  QUERY is a string representing a query i
1620    
1621  (defun gnats-change-database (database host port user)  (defun gnats-change-database (database host port user)
1622    "Set new database parameters."    "Set new database parameters."
1623    (interactive "sDatabase: \nsHost: \nnPort: \nsUser: ")    (interactive
1624       (list (read-from-minibuffer "Database: " gnats-database)
1625             (read-from-minibuffer "Host: " (or gnats-server "localhost"))
1626             (string-to-number
1627              (read-from-minibuffer "Port: " (if gnats-port
1628                                                 (format "%d" gnats-port)
1629                                               1529)))
1630             (read-from-minibuffer "User: " (or gnats-user (user-login-name)))))
1631    (setq gnats-database database    (setq gnats-database database
1632          gnats-server host          gnats-server host
1633          gnats-port port          gnats-port port
# Line 1717  problems." Line 1724  problems."
1724    (setq local-abbrev-table gnats-dbconfig-mode-abbrev-table)    (setq local-abbrev-table gnats-dbconfig-mode-abbrev-table)
1725    (make-local-variable 'font-lock-defaults)    (make-local-variable 'font-lock-defaults)
1726    (setq font-lock-defaults '(gnats-dbconfig-font-lock-keywords nil t))    (setq font-lock-defaults '(gnats-dbconfig-font-lock-keywords nil t))
1727      (setq imenu-generic-expression
1728            '((nil "^\\(database-info\\|on-change\\|index\\|initial-entry\\)" 1)
1729              ("Mail formats" "^mail-format +\"\\([^\"\n]+\\)\"" 1)
1730              ("Queries" "^query +\"\\([^\"\n]+\\)\"" 1)
1731              ("Fields" "^field +\"\\([^\"\n]+\\)\"" 1)))
1732    (run-hooks 'gnats-dbconfig-mode-hook))    (run-hooks 'gnats-dbconfig-mode-hook))
1733  (add-to-list 'auto-mode-alist '("\\<dbconfig$" . gnats-dbconfig-mode))  (add-to-list 'auto-mode-alist '("\\<dbconfig$" . gnats-dbconfig-mode))
1734    

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26