Mercurial > hg > xemacs-beta

diff tests/automated/lisp-tests.el @ 5642:5bda701e9e7c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Be more careful about non-quoted-symbol TAGs, #'byte-compile-catch lisp/ChangeLog addition: 2012-01-14 Aidan Kehoe <kehoea@parhasard.net> * bytecomp.el (byte-compile-catch): Be more careful about non-quoted-symbol TAGs here; thank you Robert Pluim in CAMTcmTeLaZVrABnP-1MRUA3ZpZ=h2S_YVxKWDDNuc5bAyJD-gg@mail.gmail.com ! tests/ChangeLog addition: 2012-01-14 Aidan Kehoe <kehoea@parhasard.net> * automated/lisp-tests.el: Check that `byte-compile-catch' doesn't strip keyword (as such, non-quoted) TAGs.
author Aidan Kehoe <kehoea@parhasard.net>
date Sat, 14 Jan 2012 12:16:05 +0000
parents 391d809fa4e9
children 289cf21be887
line wrap: on
line diff
--- a/tests/automated/lisp-tests.el	Wed Jan 11 16:38:50 2012 -0700
+++ b/tests/automated/lisp-tests.el	Sat Jan 14 12:16:05 2012 +0000
@@ -2911,6 +2911,9 @@
    (Assert (eql 0 (needs-lexical-context 2 nil nil))
            "the function special operator doesn't create a lexical context.")))
 
+(Assert (eql 10 (catch ':keyword (+ (catch :keyword (throw :keyword 9)) 1)))
+        "checking `byte-compile-catch' doesn't strip keyword TAGs")
+
 ;; Test symbol-macrolet with symbols with identical string names.
 
 (macrolet