comparison lisp/icomplete.el @ 108033:1545dcb1c3b7

Fix Bug#5840. * icomplete.el (icomplete-completions): Use `non-essential'. * net/tramp.el (tramp-connectable-p): New defun. (tramp-handle-expand-file-name) (tramp-completion-handle-file-name-all-completions) (tramp-completion-handle-file-name-completion): Use it.
author Michael Albinus <albinus@detlef>
date Wed, 21 Apr 2010 21:48:42 +0200
parents 1d1d5d9bd884
children 417b1e4d63cd
comparison
equal deleted inserted replaced
108032:9e4618c4ed12 108033:1545dcb1c3b7
281 The displays for unambiguous matches have ` [Matched]' appended 281 The displays for unambiguous matches have ` [Matched]' appended
282 \(whether complete or not), or ` \[No matches]', if no eligible 282 \(whether complete or not), or ` \[No matches]', if no eligible
283 matches exist. \(Keybindings for uniquely matched commands 283 matches exist. \(Keybindings for uniquely matched commands
284 are exhibited within the square braces.)" 284 are exhibited within the square braces.)"
285 285
286 (let* ((comps (completion-all-sorted-completions)) 286 (let* ((non-essential t)
287 (comps (completion-all-sorted-completions))
287 (last (if (consp comps) (last comps))) 288 (last (if (consp comps) (last comps)))
288 (base-size (cdr last)) 289 (base-size (cdr last))
289 (open-bracket (if require-match "(" "[")) 290 (open-bracket (if require-match "(" "["))
290 (close-bracket (if require-match ")" "]"))) 291 (close-bracket (if require-match ")" "]")))
291 ;; `concat'/`mapconcat' is the slow part. 292 ;; `concat'/`mapconcat' is the slow part.