# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 966493366 0
# Node ID ffe3b5100238c88a126b136780a6d1332f07244a
# Parent  25ba383947b53b016e10e6ab1ee9cbde47421529
Add compatibility definition of comint-line-beginning-position.

diff -r 25ba383947b5 -r ffe3b5100238 lisp/progmodes/octave-inf.el
--- a/lisp/progmodes/octave-inf.el	Thu Aug 17 06:11:09 2000 +0000
+++ b/lisp/progmodes/octave-inf.el	Thu Aug 17 06:22:46 2000 +0000
@@ -93,6 +93,17 @@
   ;; 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)