From 0e8f6feebbb545964e57ec6e38fa40675c706864 Mon Sep 17 00:00:00 2001 From: shuhei-k Date: Mon, 24 May 1999 18:08:40 +0000 Subject: [PATCH] (char-before, char-after): Moved to poe.el. --- poem-om.el | 27 --------------------------- 1 file changed, 27 deletions(-) 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 ;;; -- 1.7.10.4