From adfb6f1dc26a927cf4bab24bdfae54b51e3ae0ec Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Wed, 15 Feb 2017 19:42:34 +0100 Subject: Continue to fix bug#25607 * lisp/ido.el (ido-complete): Let-bind `non-essential' to nil. (ido-file-name-all-completions-1): Do not bind `non-essential'. * lisp/net/tramp.el: (tramp-completion-file-name-handler): Improve autoloaded version. (tramp-completion-file-name-handler): Remove old compat code. Check only for `tramp-completion-mode-p'. (tramp-completion-mode-p): Autoload. Do not check any longer for `last-input-event'. (tramp-completion-handle-expand-file-name): Simplify. (Bug#25607) --- lisp/ido.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'lisp/ido.el') diff --git a/lisp/ido.el b/lisp/ido.el index e18464d1d6b..561d6e7f081 100644 --- a/lisp/ido.el +++ b/lisp/ido.el @@ -2541,7 +2541,7 @@ If cursor is not at the end of the user input, move to end of input." (defun ido-complete () "Try and complete the current pattern amongst the file names." (interactive) - (let (res) + (let (non-essential res) (cond (ido-incomplete-regexp ;; Do nothing @@ -3556,7 +3556,6 @@ it is put to the start of the list." ;; Strip method:user@host: part of tramp completions. ;; Tramp completions do not include leading slash. (let* ((len (1- (length dir))) - (non-essential t) (compl (or ;; We do not want to be disturbed by "File does not ;; exist" errors. -- cgit v1.2.3