comparison lisp/icomplete.el @ 108115:cd095471cdae

merge trunk
author Kenichi Handa <handa@etlken>
date Mon, 26 Apr 2010 09:23:02 +0900
parents 1545dcb1c3b7
children 417b1e4d63cd
comparison
equal deleted inserted replaced
107987:54f7ec0a9243 108115:cd095471cdae
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.