Mercurial > hg > xemacs-beta

comparison tests/automated/syntax-tests.el @ 3880:4035bd42c75e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-03-25 15:57:32 by stephent] Regression test for OG's patch. <87648pwbq1.fsf@uwakimon.sk.tsukuba.ac.jp>
author stephent
date Sun, 25 Mar 2007 15:57:34 +0000
parents a7ef4b25b467
children 5e526366d533
comparison
equal deleted inserted replaced
3879:f73b455b1472 3880:4035bd42c75e
126 (with-temp-buffer 126 (with-temp-buffer
127 ;; Apply punctuation to word 127 ;; Apply punctuation to word
128 (test-syntax-table "WO" 1 `(,(syntax-string-to-code ".")) 1) 128 (test-syntax-table "WO" 1 `(,(syntax-string-to-code ".")) 1)
129 ;; Apply word to punctuation 129 ;; Apply word to punctuation
130 (test-syntax-table "W." 1 `(,(syntax-string-to-code "w")) 2)) 130 (test-syntax-table "W." 1 `(,(syntax-string-to-code "w")) 2))
131
132 ;; According to Ralf Angeli in
133 ;; http://article.gmane.org/gmane.emacs.xemacs.beta/17353:
134 ;; Using a fresh CVS checkout of XEmacs trunk the following snippet
135 ;; returns "1" when evaluated whereas it returns "5" in GNU Emacs 21.3,
136 ;; CVS GNU Emacs and XEmacs 21.4.15.
137 ;; If `set-syntax-table' is used instead of `with-syntax-table', CVS
138 ;; XEmacs returns "5" as well, so I suppose that there is a problem in
139 ;; `with-syntax-table' or a function called by it.
140
141 ;; Fixed 2007-03-25 Olivier Galibert <20070324221053.GA48218@dspnet.fr.eu.org>
142 (with-temp-buffer
143 (with-syntax-table (make-syntax-table)
144 (insert "foo bar")
145 (backward-sexp 1)
146 (Assert (eql (point) 5))))
131 147
132 ;; Test forward-comment at buffer boundaries 148 ;; Test forward-comment at buffer boundaries
133 ;; #### The second Assert fails (once interpreted, once compiled) on 21.4.9 149 ;; #### The second Assert fails (once interpreted, once compiled) on 21.4.9
134 ;; with sjt's version of Andy's syntax-text-property-killer patch. 150 ;; with sjt's version of Andy's syntax-text-property-killer patch.
135 (with-temp-buffer 151 (with-temp-buffer