From: shuhei-k <shuhei-k>
Date: Mon, 24 May 1999 18:08:40 +0000 (+0000)
Subject: (char-before, char-after): Moved to poe.el.
X-Git-Tag: apel-9_19~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0e8f6feebbb545964e57ec6e38fa40675c706864;p=elisp%2Fapel.git

(char-before, char-after): Moved to poe.el.
---

diff --git a/poem-om.el b/poem-om.el
index 764ec45..6eca67d 100644
--- a/poem-om.el
+++ b/poem-om.el
@@ -369,33 +369,6 @@ but the contents viewed as characters do change.
   "Return index of character succeeding CHAR whose index is INDEX."
   (` (+ (, index) (char-bytes (, char)))))
 
-(if (subr-fboundp 'char-before)
-    (condition-case err
-	(char-before)
-      (wrong-number-of-arguments
-       (or (fboundp 'si:char-before)
-	   (progn
-	     (fset 'si:char-before (symbol-function 'char-before))
-	     (defun char-before (&optional pos)
-	       "Return character in current buffer preceding position POS.
-POS is an integer or a buffer pointer.
-If POS is out of range, the value is nil."
-	       (si:char-before (or pos (point))))
-	     )))))
-
-(if (subr-fboundp 'char-after)
-    (condition-case nil
-	(char-after)
-      (wrong-number-of-arguments
-       (or (fboundp 'si:char-after)
-	   (progn
-	     (fset 'si:char-after (symbol-function 'char-after))
-	     (defun char-after (&optional pos)
-	       "Return character in current buffer at position POS.
-POS is an integer or a buffer pointer.
-If POS is out of range, the value is nil."
-	       (si:char-after (or pos (point))))
-	     )))))
 
 ;;; @@ obsoleted aliases
 ;;;