Add compatibility definition of comint-line-beginning-position.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 62defa4c9d910b11f6858c0930794388ca98f5a2..052a30dd92615a770100cb1e8309e0822b1660df 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-08-16  Miles Bader  <miles@gnu.org>
+
+       * progmodes/sql.el: Add compatibility definition onf
+       comint-line-beginning-position.
+
 2000-08-15  Gerd Moellmann  <gerd@gnu.org>
 
        * buff-menu.el (list-buffers-noselect): Set `buffer' as well as

diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el
index 8cfd0278f3c46aa8c8808003b5ff9a178453a3e7..2a50422abf6afaafc6e648d03977f7607519a38d 100644 (file)
--- a/lisp/progmodes/sql.el
+++ b/lisp/progmodes/sql.el
@@ -653,6 +653,17 @@ This variable defaults to `sql-mode-ansi-font-lock-keywords'.  This is
 used for the default `font-lock-defaults' value in `sql-mode'.  This
 can be changed by some entry functions to provide more hilighting.")
 
+\f
+;;; Compatibility functions
+
+(if (not (fboundp 'comint-line-beginning-position))
+    ;; comint-line-beginning-position is defined in Emacs 21
+    (defun comint-line-beginning-position ()
+      "Returns the buffer position of the beginning of the line, after any prompt.
+The prompt is assumed to be any text at the beginning of the line matching
+the regular expression `comint-prompt-regexp', a buffer local variable."
+      (save-excursion (comint-bol nil) (point))))
+
 \f
 
 ;;; Small functions