bug#14935: 24.3.50; pcase (or) UPAT fails?

[Stefan Monnier]

>    (pcase "^" 
>      ((or "^" "%") (message "here")))

Yes, this should work, but it incorrectly used `memq' whereas the (or
`"^" `"%") pattern correctly leads to the use of `member'.

I installed the patch below which should fix it,


        Stefan


=== modified file 'lisp/emacs-lisp/pcase.el'
--- lisp/emacs-lisp/pcase.el    2013-07-08 21:54:54 +0000
+++ lisp/emacs-lisp/pcase.el    2013-07-24 05:10:31 +0000
@@ -659,7 +659,11 @@
               (memq-fine t))
           (when all
             (dolist (alt (cdr upat))
-              (unless (or (pcase--self-quoting-p alt)
+              (unless (if (pcase--self-quoting-p alt)
+                          (progn
+                            (unless (or (symbolp alt) (integerp alt))
+                              (setq memq-fine nil))
+                            t)
                           (and (eq (car-safe alt) '\`)
                                (or (symbolp (cadr alt)) (integerp (cadr alt))
                                    (setq memq-fine nil)