Mercurial > emacs
comparison lisp/minibuffer.el @ 101999:efada72951fb
* minibuffer.el (internal-complete-buffer-except): Doc fix. (Bug#2315)
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 13 Feb 2009 10:35:40 +0000 |
| parents | b0eef2ac5a59 |
| children | 03ed2dba14f6 |
comparison
equal
deleted
inserted
replaced
| 101998:89dfb5d98b76 | 101999:efada72951fb |
|---|---|
| 1211 file-name-history))))))) | 1211 file-name-history))))))) |
| 1212 val))))) | 1212 val))))) |
| 1213 | 1213 |
| 1214 (defun internal-complete-buffer-except (&optional buffer) | 1214 (defun internal-complete-buffer-except (&optional buffer) |
| 1215 "Perform completion on all buffers excluding BUFFER. | 1215 "Perform completion on all buffers excluding BUFFER. |
| 1216 BUFFER nil or omitted means use the current buffer. | |
| 1216 Like `internal-complete-buffer', but removes BUFFER from the completion list." | 1217 Like `internal-complete-buffer', but removes BUFFER from the completion list." |
| 1217 (lexical-let ((except (if (stringp buffer) buffer (buffer-name buffer)))) | 1218 (lexical-let ((except (if (stringp buffer) buffer (buffer-name buffer)))) |
| 1218 (apply-partially 'completion-table-with-predicate | 1219 (apply-partially 'completion-table-with-predicate |
| 1219 'internal-complete-buffer | 1220 'internal-complete-buffer |
| 1220 (lambda (name) | 1221 (lambda (name) |