🚀 go-pugleaf

In GNU Emacs 18.55.0 of Mon Dec 25 1989 on chihaya (berkeley-unix)

The function `char-after' returns non-sense value if its argument is a
marker.

Following patch will resume it, I hope.

enami.


RCS file: RCS/editfns.c,v
retrieving revision 1.1
diff -c -r1.1 editfns.c
*** /tmp/,RCSt1013312	Mon Jan  8 10:32:56 1990
--- editfns.c	Mon Jan  8 10:32:14 1990
***************
*** 389,396 ****
       Lisp_Object pos;
  {
    register Lisp_Object val;
!   register int n = XINT (pos);
    CHECK_NUMBER_COERCE_MARKER (pos, 0);
    if (n < FirstCharacter || n > NumCharacters) return Qnil;
  
    XFASTINT (val) = CharAt (n);
--- 389,399 ----
       Lisp_Object pos;
  {
    register Lisp_Object val;
!   register int n;
! 
    CHECK_NUMBER_COERCE_MARKER (pos, 0);
+ 
+   n = XINT (pos);
    if (n < FirstCharacter || n > NumCharacters) return Qnil;
  
    XFASTINT (val) = CharAt (n);