Commit 04231ab8 authored by Miles Bader's avatar Miles Bader
Browse files

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

parent 4d5d6aab
2000-08-16 Miles Bader <>
* progmodes/sql.el: Add compatibility definition onf
2000-08-15 Gerd Moellmann <>
* buff-menu.el (list-buffers-noselect): Set `buffer' as well as
......@@ -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.")
;;; 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))))
;;; Small functions
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment