Mercurial > emacs
comparison lisp/emacs-lisp/lisp.el @ 8205:f9e57f3ecc9d
(lisp-complete-symbol): Bind completion-fixup-function.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 11 Jul 1994 21:26:44 +0000 |
| parents | 6f6b61216b0b |
| children | 06a5ceb0fb21 |
comparison
equal
deleted
inserted
replaced
| 8204:f5c8a4e8c4a5 | 8205:f9e57f3ecc9d |
|---|---|
| 275 ((not (string= pattern completion)) | 275 ((not (string= pattern completion)) |
| 276 (delete-region beg end) | 276 (delete-region beg end) |
| 277 (insert completion)) | 277 (insert completion)) |
| 278 (t | 278 (t |
| 279 (message "Making completion list...") | 279 (message "Making completion list...") |
| 280 (let ((list (all-completions pattern obarray predicate))) | 280 (let ((list (all-completions pattern obarray predicate)) |
| 281 (completion-fixup-function | |
| 282 (function (lambda () (if (save-excursion | |
| 283 (goto-char (max (point-min) (- (point) 4))) | |
| 284 (looking-at " <f>")) | |
| 285 (forward-char -4)))))) | |
| 281 (or (eq predicate 'fboundp) | 286 (or (eq predicate 'fboundp) |
| 282 (let (new) | 287 (let (new) |
| 283 (while list | 288 (while list |
| 284 (setq new (cons (if (fboundp (intern (car list))) | 289 (setq new (cons (if (fboundp (intern (car list))) |
| 285 (list (car list) " <f>") | 290 (list (car list) " <f>") |