Mercurial > emacs

diff lisp/mh-e/mh-search.el @ 102537:6837adfb2772

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
m-v: use lists to pass things around rather than values.
author Deepak Goel <deego@gnufans.org>
date Fri, 13 Mar 2009 20:28:15 +0000
parents 40809b1c66b7
children 00c0adbb54a9
line wrap: on
line diff
--- a/lisp/mh-e/mh-search.el	Fri Mar 13 20:04:11 2009 +0000
+++ b/lisp/mh-e/mh-search.el	Fri Mar 13 20:28:15 2009 +0000
@@ -717,7 +717,7 @@
               ((equal token "and") (push 'and op-stack))
               ((equal token ")")
                (multiple-value-setq (op-stack operand-stack)
-                 (mh-index-evaluate op-stack operand-stack))
+                 (values-list (mh-index-evaluate op-stack operand-stack)))
                (when (eq (car op-stack) 'not)
                  (setq op-stack (cdr op-stack))
                  (push `(not ,(pop operand-stack)) operand-stack))
@@ -767,7 +767,7 @@
       (while op-stack
         (setq op (pop op-stack))
         (cond ((eq op 'paren)
-               (return-from mh-index-evaluate (values op-stack operand-stack)))
+               (return-from mh-index-evaluate (list op-stack operand-stack)))
               ((eq op 'not)
                (push `(not ,(pop operand-stack)) operand-stack))
               ((or (eq op 'and) (eq op 'or))