procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix Bug#24947 (Tramp + ido)

Browse source 
* lisp/ido.el (ido-read-internal): Prevent eager Tramp connection.

* lisp/net/tramp.el (tramp-handle-file-name-case-insensitive-p):
Run remote tests only if a connection is established only.  (Bug#24947)
This commit is contained in:
Michael Albinus 2016-11-17 12:38:58 +01:00
parent cf897a70b7
commit 6653bb45d3
2 changed files with 34 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lisp/ido.el
View file

@ -1882,6 +1882,7 @@ If INITIAL is non-nil, it specifies the initial input string."
ido-selected
ido-final-text
(done nil)
(non-essential t) ;; prevent eager Tramp connection
(icomplete-mode nil) ;; prevent icomplete starting up
;; Exported dynamic variables:
ido-cur-list

62
lisp/net/tramp.el
View file

@ -2905,35 +2905,39 @@ User is always nil."
(or ;; Maybe there is a default value.
(tramp-get-method-parameter v 'tramp-case-insensitive)
;; There isn't. So we must check.
(with-tramp-connection-property v "case-insensitive"
;; The idea is to compare a file with lower case letters with
;; the same file with upper case letters.
(let ((candidate (directory-file-name filename))
tmpfile)
;; Check, whether we find an existing file with lower case
;; letters. This avoids us to create a temporary file.
(while (and (string-match "[a-z]" (file-remote-p candidate 'localname))
(not (file-exists-p candidate)))
(setq candidate
(directory-file-name (file-name-directory candidate))))
;; Nothing found, so we must use a temporary file for
;; comparision. `make-nearby-temp-file' is added to Emacs
;; 26+ like `file-name-case-insensitive-p', so there is no
;; compatibility problem calling it.
(unless (string-match "[a-z]" (file-remote-p candidate 'localname))
(setq tmpfile
(let ((default-directory (file-name-directory filename)))
(tramp-compat-funcall 'make-nearby-temp-file "tramp."))
candidate tmpfile))
;; Check for the existence of the same file with upper case letters.
(unwind-protect
(file-exists-p
(concat
(file-remote-p candidate)
(upcase (file-remote-p candidate 'localname))))
;; Cleanup.
(when tmpfile (delete-file tmpfile))))))))
;; There isn't. So we must check, in case there's a connection already.
(and (tramp-connectable-p filename)
(with-tramp-connection-property v "case-insensitive"
;; The idea is to compare a file with lower case letters
;; with the same file with upper case letters.
(let ((candidate (directory-file-name filename))
tmpfile)
;; Check, whether we find an existing file with lower case
;; letters. This avoids us to create a temporary file.
(while (and (string-match
"[a-z]" (file-remote-p candidate 'localname))
(not (file-exists-p candidate)))
(setq candidate
(directory-file-name (file-name-directory candidate))))
;; Nothing found, so we must use a temporary file for
;; comparision. `make-nearby-temp-file' is added to
;; Emacs 26+ like `file-name-case-insensitive-p', so
;; there is no compatibility problem calling it.
(unless
(string-match "[a-z]" (file-remote-p candidate 'localname))
(setq tmpfile
(let ((default-directory (file-name-directory filename)))
(tramp-compat-funcall 'make-nearby-temp-file "tramp."))
candidate tmpfile))
;; Check for the existence of the same file with upper
;; case letters.
(unwind-protect
(file-exists-p
(concat
(file-remote-p candidate)
(upcase (file-remote-p candidate 'localname))))
;; Cleanup.
(when tmpfile (delete-file tmpfile)))))))))
(defun tramp-handle-file-name-completion
(filename directory &optional predicate)