comparison lisp/ido.el @ 64983:1a1aa1eae3b3

(ido-buffer-internal): Use with-no-warnings. (ido-make-merged-file-list): Use while-no-input.

64982:d912e5d238ec

       ;; View buffer if it exists
       ((get-buffer buf)
	(if (eq method 'insert)
	    (progn
	      (ido-record-command 'insert-buffer buf)
	      (insert-buffer buf))
	  (ido-visit-buffer buf method t)))

       ;; buffer doesn't exist
       ((eq ido-create-new-buffer 'never)
	(message "no buffer matching `%s'" buf))

(defun ido-make-merged-file-list (text auto wide)
  (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))
      (quit
       (setq res t
	     ido-try-merged-list nil
	     ido-use-merged-list nil)))
    (when (and res (listp res))

64983:1a1aa1eae3b3

       ;; View buffer if it exists
       ((get-buffer buf)
	(if (eq method 'insert)
	    (progn
	      (ido-record-command '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
       ((eq ido-create-new-buffer 'never)
	(message "no buffer matching `%s'" buf))

(defun ido-make-merged-file-list (text auto wide)
  (let (res)
    (message "Searching for `%s'...." text)
    (condition-case nil
	(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
	     ido-use-merged-list nil)))
    (when (and res (listp res))