Mercurial > emacs

changeset 64983:1a1aa1eae3b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ido-buffer-internal): Use with-no-warnings. (ido-make-merged-file-list): Use while-no-input.
author Kim F. Storm <storm@cua.dk>
date Mon, 15 Aug 2005 12:29:54 +0000
parents d912e5d238ec
children b8e3b3b0bdb2
files lisp/ido.el
diffstat 1 files changed, 7 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ido.el	Mon Aug 15 12:29:38 2005 +0000
+++ b/lisp/ido.el	Mon Aug 15 12:29:54 2005 +0000
@@ -1959,7 +1959,9 @@
 	(if (eq method 'insert)
 	    (progn
 	      (ido-record-command 'insert-buffer buf)
-	      (insert-buffer buf))
+	      (with-no-warnings
+		;; we really want to run insert-buffer here
+		(insert-buffer buf)))
 	  (ido-visit-buffer buf method t)))
 
        ;; buffer doesn't exist
@@ -3012,11 +3014,10 @@
   (let (res)
     (message "Searching for `%s'...." text)
     (condition-case nil
-	(unless (catch 'input-pending-p
-		  (let ((throw-on-input 'input-pending-p))
-		    (setq res (ido-make-merged-file-list-1 text auto wide))
-		    t))
-	  (setq res 'input-pending-p))
+	(if (eq t (setq res
+			(while-no-input
+			  (ido-make-merged-file-list-1 text auto wide))))
+	    (setq res 'input-pending-p))
       (quit
        (setq res t
 	     ido-try-merged-list nil