Mercurial > emacs

comparison lisp/ido.el @ 90602:b5c13d1564a9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 437-446) - Update from CVS - lisp/url/url-methods.el: Fix format error when http_proxy is empty string - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 137-140) - Update from CVS Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-111
author Miles Bader <miles@gnu.org>
date Wed, 20 Sep 2006 06:04:23 +0000
parents a1a25ac6c88a 299c5f25649b
children bb0e318b7c53
comparison
equal deleted inserted replaced
90601:a1a25ac6c88a 90602:b5c13d1564a9
3616 (setq nextstr (car ext-list)) 3616 (setq nextstr (car ext-list))
3617 (if (cond 3617 (if (cond
3618 ((stringp nextstr) 3618 ((stringp nextstr)
3619 (and (>= flen (setq slen (length nextstr))) 3619 (and (>= flen (setq slen (length nextstr)))
3620 (string-equal (substring name (- flen slen)) nextstr))) 3620 (string-equal (substring name (- flen slen)) nextstr)))
3621 ((fboundp nextstr) (funcall nextstr name)) 3621 ((functionp nextstr) (funcall nextstr name))
3622 (t nil)) 3622 (t nil))
3623 (setq ignorep t 3623 (setq ignorep t
3624 ext-list nil 3624 ext-list nil
3625 re-list nil) 3625 re-list nil)
3626 (setq ext-list (cdr ext-list)))) 3626 (setq ext-list (cdr ext-list))))
3627 (while re-list 3627 (while re-list
3628 (setq nextstr (car re-list)) 3628 (setq nextstr (car re-list))
3629 (if (cond 3629 (if (cond
3630 ((stringp nextstr) (string-match nextstr name)) 3630 ((stringp nextstr) (string-match nextstr name))
3631 ((fboundp nextstr) (funcall nextstr name)) 3631 ((functionp nextstr) (funcall nextstr name))
3632 (t nil)) 3632 (t nil))
3633 (setq ignorep t 3633 (setq ignorep t
3634 re-list nil) 3634 re-list nil)
3635 (setq re-list (cdr re-list)))) 3635 (setq re-list (cdr re-list))))
3636 ;; return the result 3636 ;; return the result