mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(sql-accumulate-and-indent): Instead of testing

Browse source 
whether this is Emacs 20 before calling comint-accumulate,
test whether comint-accumulate is defined.
This commit is contained in:
Richard M. Stallman 1999-08-06 00:51:50 +00:00
parent aee631c210
commit 0e9a110afd
1 changed files with 11 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/progmodes/sql.el
View file

@ -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 @@ 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.
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 @@ can be changed by some entry functions to provide more hilighting.")
(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