(char-after): Redefine to change `POS' to optional argument.

diff --git a/ChangeLog b/ChangeLog
index 6e9c132..6a311a2 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+1998-10-28  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+       * poem-om.el (char-after): Redefine to change `POS' to optional
+       argument.
+
+\f
 1998-10-27  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
        * APEL: Version 9.8 was released.

diff --git a/poem-om.el b/poem-om.el
index cdc2794..4c3f13e 100644 (file)
--- a/poem-om.el
+++ b/poem-om.el
@@ -272,6 +272,21 @@ If POS is out of range, the value is nil."
           (si:char-before (or pos (point)))
           )))))
 
+(if (subr-fboundp 'char-after)
+    (condition-case err
+       (char-after)
+      (error
+       (when (and (eq (car (get (car err) 'error-conditions))
+                     'wrong-number-of-arguments)
+                 (not (boundp 'si:char-after)))
+        (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
 ;;;
 ;;; You should not use them.