comparison src/regex.c @ 16034:d255e64c9e69

(re_match_2_internal) [emacs]: Use PT, not point.
author Karl Heuer <kwzh@gnu.org>
date Sun, 01 Sep 1996 19:02:26 +0000
parents 4addc35d079b
children c196d1ded35c
comparison
equal deleted inserted replaced
16033:244188795475 16034:d255e64c9e69
4761 goto fail; 4761 goto fail;
4762 4762
4763 #ifdef emacs 4763 #ifdef emacs
4764 case before_dot: 4764 case before_dot:
4765 DEBUG_PRINT1 ("EXECUTING before_dot.\n"); 4765 DEBUG_PRINT1 ("EXECUTING before_dot.\n");
4766 if (PTR_CHAR_POS ((unsigned char *) d) >= point) 4766 if (PTR_CHAR_POS ((unsigned char *) d) >= PT)
4767 goto fail; 4767 goto fail;
4768 break; 4768 break;
4769 4769
4770 case at_dot: 4770 case at_dot:
4771 DEBUG_PRINT1 ("EXECUTING at_dot.\n"); 4771 DEBUG_PRINT1 ("EXECUTING at_dot.\n");
4772 if (PTR_CHAR_POS ((unsigned char *) d) != point) 4772 if (PTR_CHAR_POS ((unsigned char *) d) != PT)
4773 goto fail; 4773 goto fail;
4774 break; 4774 break;
4775 4775
4776 case after_dot: 4776 case after_dot:
4777 DEBUG_PRINT1 ("EXECUTING after_dot.\n"); 4777 DEBUG_PRINT1 ("EXECUTING after_dot.\n");
4778 if (PTR_CHAR_POS ((unsigned char *) d) <= point) 4778 if (PTR_CHAR_POS ((unsigned char *) d) <= PT)
4779 goto fail; 4779 goto fail;
4780 break; 4780 break;
4781 4781
4782 case syntaxspec: 4782 case syntaxspec:
4783 DEBUG_PRINT2 ("EXECUTING syntaxspec %d.\n", mcnt); 4783 DEBUG_PRINT2 ("EXECUTING syntaxspec %d.\n", mcnt);