/[gcl]/gcl/o/character.d
ViewVC logotype

Diff of /gcl/o/character.d

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by camm, Fri Jun 10 15:13:53 2005 UTC revision 1.10 by camm, Sat Jul 23 08:53:48 2005 UTC
# Line 1  Line 1 
1    /* -*-C-*- */
2  /*  /*
3   Copyright (C) 1994 M. Hagiya, W. Schelter, T. Yuasa   Copyright (C) 1994 M. Hagiya, W. Schelter, T. Yuasa
4    
# Line 29  Foundation, 675 Mass Ave, Cambridge, MA Line 30  Foundation, 675 Mass Ave, Cambridge, MA
30  @(defun standard_char_p (c)  @(defun standard_char_p (c)
31          int i;          int i;
32  @  @
33          check_type_character(&c);          if (type_of(c)!=t_character) @(return Cnil)
34    /*      check_type_character(&c); */
35          if (char_font(c) != 0 || char_bits(c) != 0)          if (char_font(c) != 0 || char_bits(c) != 0)
36                  @(return Cnil)                  @(return Cnil)
37          i = char_code(c);          i = char_code(c);
# Line 52  Foundation, 675 Mass Ave, Cambridge, MA Line 54  Foundation, 675 Mass Ave, Cambridge, MA
54    
55  @(defun string_char_p (c)  @(defun string_char_p (c)
56  @  @
57          check_type_character(&c);          if (type_of(c)!=t_character) @(return Cnil)
58      /*    check_type_character(&c);*/
59          if (char_font(c) != 0 || char_bits(c) != 0)          if (char_font(c) != 0 || char_bits(c) != 0)
60                  @(return Cnil)                  @(return Cnil)
61          @(return Ct)          @(return Ct)

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26