Mercurial > hg > xemacs-beta

comparison src/syntax.c @ 3025:facf3239ba30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-10-25 11:16:19 by ben] rename new->new_, convert 'foo to `foo' EmacsFrame.c, ExternalClient.c, ExternalShell.c, chartab.c, cmdloop.c, compiler.h, console.c, database.c, device-msw.c, device-x.c, device.c, doc.c, dragdrop.c, eval.c, event-msw.c, event-stream.c, events.c, extents.c, file-coding.c, fns.c, frame-tty.c, frame.c, gpmevent.c, gutter.c, hash.c, imgproc.c, indent.c, keymap.c, lisp-union.h, macros.c, malloc.c, marker.c, menubar-x.c, menubar.c, mule-charset.c, number.c, process.c, profile.h, ralloc.c, redisplay.c, select-common.h, select.c, syntax.c, sysfile.h, sysproc.h, systime.h, syswindows.h, toolbar.c, tooltalk.c, tparam.c, unexaix.c, unexalpha.c, unexconvex.c, unexec.c, unexhp9k800.c, unexmips.c, unicode.c, window.c: new -> new_. 'foo -> `foo'. lwlib-internal.h: redo assert macros to follow lisp.h and not trigger warnings. lwlib.c, xlwtabs.c: new -> new_.
author ben
date Tue, 25 Oct 2005 11:16:49 +0000
parents 8c96bdabcaf9
children 141c2920ea48
comparison
equal deleted inserted replaced
3024:b7f26b2f78bd 3025:facf3239ba30
421 previously valid interval. (not currently used) 421 previously valid interval. (not currently used)
422 422
423 `syntax_cache.*_change' are the next and previous positions at 423 `syntax_cache.*_change' are the next and previous positions at
424 which syntax_code and c_s_t will need to be recalculated. 424 which syntax_code and c_s_t will need to be recalculated.
425 425
426 #### Currently this code uses 'get-char-property', which will 426 #### Currently this code uses `get-char-property', which will
427 return the "last smallest" extent at a given position. In cases 427 return the "last smallest" extent at a given position. In cases
428 where overlapping extents are defined, this code will simply use 428 where overlapping extents are defined, this code will simply use
429 whatever is returned by get-char-property. 429 whatever is returned by get-char-property.
430 430
431 It might be worth it at some point to merge provided syntax tables 431 It might be worth it at some point to merge provided syntax tables
1826 oldstate = Fcdr (oldstate); 1826 oldstate = Fcdr (oldstate);
1827 tem = Fcar (oldstate); /* elt 5, follows-quote */ 1827 tem = Fcar (oldstate); /* elt 5, follows-quote */
1828 start_quoted = !NILP (tem); 1828 start_quoted = !NILP (tem);
1829 1829
1830 /* if the eighth element of the list is nil, we are in comment style 1830 /* if the eighth element of the list is nil, we are in comment style
1831 a; if it is t, we are in comment style b; if it is 'syntax-table, 1831 a; if it is t, we are in comment style b; if it is `syntax-table',
1832 we are in a generic comment */ 1832 we are in a generic comment */
1833 oldstate = Fcdr (oldstate); 1833 oldstate = Fcdr (oldstate);
1834 oldstate = Fcdr (oldstate); 1834 oldstate = Fcdr (oldstate);
1835 tem = Fcar (oldstate); /* elt 7, comment style a/b/fence */ 1835 tem = Fcar (oldstate); /* elt 7, comment style a/b/fence */
1836 state.comstyle = NILP (tem) ? 0 : ( EQ (tem, Qsyntax_table) 1836 state.comstyle = NILP (tem) ? 0 : ( EQ (tem, Qsyntax_table)