From: morioka Date: Thu, 17 Sep 1998 07:05:52 +0000 (+0000) Subject: Move function `point-at-bol' and `point-at-eol' from emu.el to poe.el. X-Git-Tag: poe-199811302358~47 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=94ab62bd72430621f46af367660b49335aa3b452;p=elisp%2Fapel.git 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 --- 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 --- 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]"