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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1bed7c58ac586de1e7a7418f600e91c09b63048b..3a795dbcf90740adfd59d48fe97ac3a3c165fec0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-08-17  Miles Bader  <miles@gnu.org>
+
+       * progmodes/octave-inf.el: Add compatibility definition of
+       comint-line-beginning-position.
+
 2000-08-17  Kenichi Handa  <handa@etl.go.jp>
 
        * startup.el (normal-top-level): Look in each dir in load-path for
@@ -102,7 +107,7 @@
 
 2000-08-16  Miles Bader  <miles@gnu.org>
 
-       * progmodes/sql.el: Add compatibility definition onf
+       * progmodes/sql.el: Add compatibility definition of
        comint-line-beginning-position.
 
 2000-08-15  Gerd Moellmann  <gerd@gnu.org>

diff --git a/lisp/progmodes/octave-inf.el b/lisp/progmodes/octave-inf.el
index 0dd6bf99eb945c37357f915b58d6d23db0d89ef1..dd26918e4e2fc12369a00aae3f05a6c6a09b9687 100644 (file)
--- a/lisp/progmodes/octave-inf.el
+++ b/lisp/progmodes/octave-inf.el
@@ -93,6 +93,17 @@ mode, set this to (\"-q\" \"--traditional\")."
   ;; Could certainly do more font locking in inferior Octave ...
   "Additional expressions to highlight in Inferior Octave mode.")
 
+
+;;; 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))))
+
+
 (defvar inferior-octave-output-list nil)
 (defvar inferior-octave-output-string nil)
 (defvar inferior-octave-receive-in-progress nil)