# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 933900710 0
# Node ID 16937a774275ff3e3a05e743d02956951e27c940
# Parent  ef79ee0ceedd406c8242bb7c96ae70059ba32bb0
(sql-accumulate-and-indent): Instead of testing
whether this is Emacs 20 before calling comint-accumulate,
test whether comint-accumulate is defined.

diff -r ef79ee0ceedd -r 16937a774275 lisp/progmodes/sql.el
--- a/lisp/progmodes/sql.el	Thu Aug 05 19:40:03 1999 +0000
+++ b/lisp/progmodes/sql.el	Fri Aug 06 00:51:50 1999 +0000
@@ -4,7 +4,7 @@
 
 ;; Author: Alex Schroeder <a.schroeder@bsiag.ch>
 ;; Maintainer: Alex Schroeder <a.schroeder@bsiag.ch>
-;; Version: 1.4.5
+;; Version: 1.4.6
 ;; Keywords: comm languages processes
 
 ;; This file is part of GNU Emacs.
@@ -27,9 +27,9 @@
 ;;; Commentary:
 
 ;; Please send bug reports and bug fixes to the mailing list at
-;; sql.el@gnu.org so that I can merge them into the master source.  If
-;; you want to subscribe to the mailing list, send mail to
-;; sql.el-request@gnu.org with 'subscribe' in the subject line.
+;; sql.el@gnu.org (or sql.el@bsiag.com).  If you want to subscribe to
+;; the mailing list, send mail to sql.el-request@gnu.org with
+;; `subscribe sql.el FIRSTNAME LASTNAME' in the subject line.
 
 ;; You can get the latest version of this file from my homepage
 ;; <URL:http://www.geocities.com/TimesSquare/6120/emacs.html>.
@@ -167,6 +167,12 @@
 history to the specified file.  Starting a new process in a SQLi buffer
 will read the input history from the specified file.
 
+You have to set this variable if you want the history of your commands
+saved from one Emacs session to the next.  If this variable is set,
+exiting the SQL interpreter in an SQLi buffer will write the input
+history to the specified file.  Starting a new process in a SQLi buffer
+will read the input history from the specified file.
+
 This is used to locally set `comint-input-ring-file-name' when reading
 or writing the input history."
   :type '(choice (const :tag "none" nil)
@@ -613,9 +619,7 @@
 (defun sql-accumulate-and-indent ()
   "Continue SQL statement on the next line."
   (interactive)
-  ;; comint-accumulate is a Emacs 20.X thingie
-  (if (not (string-match "XEmacs\\|Lucid\\|GNU Emacs 19" emacs-version))
-      (comint-accumulate))
+  (if (fboundp 'comint-accumulate) (comint-accumulate))
   (indent-according-to-mode))
 
 ;;;###autoload