Move function `point-at-bol' and `point-at-eol' from emu.el to poe.el.

diff --git a/emu.el b/emu.el
index fa7abab..3684e7c 100644 (file)
--- a/emu.el
+++ b/emu.el
@@ -142,34 +142,6 @@ If STRING is multibyte, the result is STRING itself.
   string)
 
 
-;;; @ XEmacs emulation
-;;;
-
-(defun-maybe point-at-bol (&optional n buffer)
-  "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. [XEmacs emulating function]"
-  (save-excursion
-    (if buffer
-       (set-buffer buffer)
-      )
-    (line-beginning-position n)
-    ))
-
-(defun-maybe point-at-eol (&optional n buffer)
-  "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. [XEmacs emulating function]"
-  (save-excursion
-    (if buffer
-       (set-buffer buffer)
-      )
-    (line-end-position n)
-    ))
-
-
 ;;; @ for XEmacs 20
 ;;;
 

diff --git a/poe.el b/poe.el
index c2a67ae..996914b 100644 (file)
--- a/poe.el
+++ b/poe.el
@@ -337,6 +337,30 @@ This function does not move point."
 ;;; @ XEmacs emulation
 ;;;
 
+(defun-maybe point-at-bol (&optional n buffer)
+  "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. [XEmacs emulating function]"
+  (save-excursion
+    (if buffer
+       (set-buffer buffer)
+      )
+    (line-beginning-position n)
+    ))
+
+(defun-maybe point-at-eol (&optional n buffer)
+  "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. [XEmacs emulating function]"
+  (save-excursion
+    (if buffer
+       (set-buffer buffer)
+      )
+    (line-end-position n)
+    ))
+
 (defun-maybe functionp (obj)
   "Returns t if OBJ is a function, nil otherwise.
 \[XEmacs emulating function]"