Mercurial > emacs
changeset 30905:2069c10bf952
(sql-magic-go): Use comint-bol.
(sql-copy-column): Use comint-line-beginning-position.
(comint-line-beginning-position): Define a replacement for
comint-line-beginning-position if it is not fboundp.
(sql-mode-map): TAB is no longer defined in sql-mode-map;
it didn't have any effect anyway.
(sql-postgres): Jason Beegan's patch uses the parameters
--pset and pager=off instead of sending \\o|cat at the beginning
of the session.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 17 Aug 2000 11:20:26 +0000 |
| parents | a0af1af4aabf |
| children | cab5c3c01776 |
| files | lisp/progmodes/sql.el |
| diffstat | 1 files changed, 10 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/sql.el Thu Aug 17 11:14:01 2000 +0000 +++ b/lisp/progmodes/sql.el Thu Aug 17 11:20:26 2000 +0000 @@ -4,7 +4,7 @@ ;; Author: Alex Schroeder <alex@gnu.org> ;; Maintainer: Alex Schroeder <alex@gnu.org> -;; Version: 1.4.16 +;; Version: 1.4.19 ;; Keywords: comm languages processes ;; This file is part of GNU Emacs. @@ -404,7 +404,6 @@ (define-key map (kbd "C-c C-c") 'sql-send-paragraph) (define-key map (kbd "C-c C-r") 'sql-send-region) (define-key map (kbd "C-c C-b") 'sql-send-buffer) - (define-key map (kbd "<TAB>") 'indent-relative) map) "Mode map used for `sql-mode'.") @@ -654,6 +653,7 @@ can be changed by some entry functions to provide more hilighting.") + ;;; Compatibility functions (if (not (fboundp 'comint-line-beginning-position)) @@ -1555,8 +1555,13 @@ (pop-to-buffer "*SQL*") (sql-get-login 'database 'server) (message "Login...") - ;; username and password are ignored. - (let ((params)) + ;; username and password are ignored. Jason Beegan suggest using + ;; --pset and pager=off instead of \\o|cat. The later was the + ;; solution by Gregor Zych. If you find that your postgres doesn't + ;; like Jason Beegans's solution and prefers Gregor Zych's solution, + ;; then I'd love to hear from you. Send your comments to the + ;; mailing list. + (let ((params (list "--pset" "pager=off"))) (if (not (string= "" sql-database)) (setq params (append (list sql-database) params))) (if (not (string= "" sql-server)) @@ -1569,7 +1574,7 @@ ;; and giving stupid warnings. If s.o. knows a way to prevent psql ;; from acting this way, then I would be very thankful to ;; incorporate this (Gregor Zych <zych@pool.informatik.rwth-aachen.de>) - (comint-send-string "*SQL*" "\\o \| cat\n") + ;; (comint-send-string "*SQL*" "\\o \| cat\n") (setq sql-mode-font-lock-keywords sql-mode-postgres-font-lock-keywords) (setq sql-buffer (current-buffer)) (sql-interactive-mode)