Mercurial > emacs
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. |