/[emacs]/emacs/src/composite.c
ViewVC logotype

Diff of /emacs/src/composite.c

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

revision 1.27 by fx, Fri Jan 10 12:49:26 2003 UTC revision 1.28 by lektu, Tue Feb 4 14:03:12 2003 UTC
# Line 249  get_composition_id (charpos, bytepos, nc Line 249  get_composition_id (charpos, bytepos, nc
249      }      }
250    
251    /* This composition is a new one.  We must register it.  */    /* This composition is a new one.  We must register it.  */
252              
253    /* Check if we have sufficient memory to store this information.  */    /* Check if we have sufficient memory to store this information.  */
254    if (composition_table_size == 0)    if (composition_table_size == 0)
255      {      {
# Line 485  update_compositions (from, to, check_mas Line 485  update_compositions (from, to, check_mas
485    
486    if (inhibit_modification_hooks)    if (inhibit_modification_hooks)
487      return;      return;
488      
489    /* If FROM and TO are not in a valid range, do nothing.  */    /* If FROM and TO are not in a valid range, do nothing.  */
490    if (! (BEGV <= from && from <= to && to <= ZV))    if (! (BEGV <= from && from <= to && to <= ZV))
491      return;      return;
# Line 754  for the composition.  See `compose-strin Line 754  for the composition.  See `compose-strin
754  }  }
755    
756  DEFUN ("find-composition-internal", Ffind_composition_internal,  DEFUN ("find-composition-internal", Ffind_composition_internal,
757         Sfind_composition_internal, 4, 4, 0,         Sfind_composition_internal, 4, 4, 0,
758         doc: /* Internal use only.         doc: /* Internal use only.
759    
760  Return information about composition at or nearest to position POS.  Return information about composition at or nearest to position POS.
# Line 775  See `find-composition' for more detail. Line 775  See `find-composition' for more detail.
775      }      }
776    else    else
777      end = -1;      end = -1;
778      
779    if (!NILP (string))    if (!NILP (string))
780      {      {
781        CHECK_STRING (string);        CHECK_STRING (string);
# Line 839  syms_of_composite () Line 839  syms_of_composite ()
839    {    {
840      Lisp_Object args[6];      Lisp_Object args[6];
841      extern Lisp_Object QCsize;      extern Lisp_Object QCsize;
842        
843      args[0] = QCtest;      args[0] = QCtest;
844      args[1] = Qequal;      args[1] = Qequal;
845      args[2] = QCweakness;      args[2] = QCweakness;

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

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