Mercurial > hg > xemacs-beta

comparison lisp/minibuf.el @ 288:e11d67e05968 r21-0b42

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b42
author cvs
date Mon, 13 Aug 2007 10:35:54 +0200
parents 57709be46d1b
children c9fe270a4101
comparison
equal deleted inserted replaced
287:13a0bd77a29d 288:e11d67e05968
648 tem) 648 tem)
649 (while tail 649 (while tail
650 (setq tem (car (car tail))) 650 (setq tem (car (car tail)))
651 (if (or (equal tem buffer-string) 651 (if (or (equal tem buffer-string)
652 (equal tem s) 652 (equal tem s)
653 (equal (upcase tem) s)) 653 (if tem (equal (upcase tem) s)))
654 (setq s 'win 654 (setq s 'win
655 tail nil) ;exit 655 tail nil) ;exit
656 (setq tail (cdr tail)))) 656 (setq tail (cdr tail))))
657 (eq s 'win)))) 657 (eq s 'win))))
658 (t 658 (t