(line-beginning-position): New function.

(line-end-position): New function.

diff --git a/poe-xemacs.el b/poe-xemacs.el
index 77ac80d..475dccc 100644 (file)
--- a/poe-xemacs.el
+++ b/poe-xemacs.el
@@ -134,6 +134,16 @@
     )
 
     
+;;; @ Emacs 20.3 emulation
+;;;
+
+(or (fboundp 'line-beginning-position)
+    (defalias 'line-beginning-position 'point-at-bol))
+
+(or (fboundp 'line-end-position)
+    (defalias 'line-end-position 'point-at-eol))
+
+
 ;;; @ end
 ;;;
 

diff --git a/poe.el b/poe.el
index 2c7ca0d..c2a67ae 100644 (file)
--- a/poe.el
+++ b/poe.el
@@ -306,6 +306,34 @@ If PATTERN is omitted, it defaults to \"[ \\f\\t\\n\\r\\v]+\"."
     (nreverse (cons (substring string start) parts))))
 
 
+;;; @ Emacs 20.3 emulation
+;;;
+
+(defun-maybe line-beginning-position (&optional n)
+  "Return the character position of the first character on the current line.
+With argument N not nil or 1, move forward N - 1 lines first.
+If scan reaches end of buffer, return that position.
+This function does not move point."
+  (save-excursion
+    (if n
+       (forward-line (1- n))
+      )
+    (beginning-of-line)
+    (point)))
+
+(defun-maybe line-end-position (&optional n)
+  "Return the character position of the last character on the current line.
+With argument N not nil or 1, move forward N - 1 lines first.
+If scan reaches end of buffer, return that position.
+This function does not move point."
+  (save-excursion
+    (if n
+       (forward-line (1- n))
+      )
+    (end-of-line)
+    (point)))
+
+
 ;;; @ XEmacs emulation
 ;;;