comparison lisp/ido.el @ 55359:fa5273a32653

(ido-read-internal): Fix call to read-file-name for edit. Must expand directory for completion to work; and don't mess with process-environment.

55358:661d7ab25c0e

	      ido-exit nil))

       ((memq ido-exit '(edit chdir))
	(cond
	 ((memq ido-cur-item '(file dir))
	  (let* ((process-environment (cons "HOME=/" process-environment)) ;; cheat read-file-name
		 (read-file-name-function nil)
		 (edit (eq ido-exit 'edit))
		 (d ido-current-directory)
		 (f ido-text-init)
		 (new t))
	    (setq ido-text-init "")
	    (while new
	      (setq new (if edit
			     (read-file-name (concat prompt "[EDIT] ") d (concat d f) nil f)
			   f)
		    d (or (file-name-directory new) "/")
		    f (file-name-nondirectory new)
		    edit t)
	      (if (or

55359:fa5273a32653

	      ido-exit nil))

       ((memq ido-exit '(edit chdir))
	(cond
	 ((memq ido-cur-item '(file dir))
	  (let* ((read-file-name-function nil)
		 (edit (eq ido-exit 'edit))
		 (d ido-current-directory)
		 (f ido-text-init)
		 (new t))
	    (setq ido-text-init "")
	    (while new
	      (setq new (if edit
			     (read-file-name (concat prompt "[EDIT] ")
					     (expand-file-name d)
					     (concat d f) nil f)
			   f)
		    d (or (file-name-directory new) "/")
		    f (file-name-nondirectory new)
		    edit t)
	      (if (or