(char-before, char-after): Moved to poe.el.
authorshuhei-k <shuhei-k>
Mon, 24 May 1999 18:08:40 +0000 (18:08 +0000)
committershuhei-k <shuhei-k>
Mon, 24 May 1999 18:08:40 +0000 (18:08 +0000)
poem-om.el

index 764ec45..6eca67d 100644 (file)
@@ -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
 ;;;