Path: utzoo!utgpu!jarvis.csri.toronto.edu!clyde.concordia.ca!uunet!cs.utexas.edu!tut.cis.ohio-state.edu!ptgd.sony.co.jp!enami
From: enami@ptgd.sony.co.jp (enami tsugutomo)
Newsgroups: gnu.emacs.bug
Subject: char-after fails to handle marker
Message-ID: <9001080141.AA13338@chihaya.ptgd.sony.co.jp>
Date: 8 Jan 90 01:41:06 GMT
Sender: daemon@tut.cis.ohio-state.edu
Reply-To: enami%ptgd.sony.co.jp@uunet.uu.net
Distribution: gnu
Organization: GNUs Not Usenet
Lines: 38


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);