Mercurial > emacs
comparison lisp/minibuffer.el @ 94427:a09b7ca0a745
(completion-pcm--all-completions): Don't pass nil to all-completions.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Mon, 28 Apr 2008 13:57:20 +0000 |
parents | f8b940834bbb |
children | 66b02cd7b956 |
comparison
equal
deleted
inserted
replaced
94426:7d9665dce8f4 | 94427:a09b7ca0a745 |
---|---|
1129 ;; since all-completions is written in C! | 1129 ;; since all-completions is written in C! |
1130 (let* (;; Convert search pattern to a standard regular expression. | 1130 (let* (;; Convert search pattern to a standard regular expression. |
1131 (regex (completion-pcm--pattern->regex pattern)) | 1131 (regex (completion-pcm--pattern->regex pattern)) |
1132 (completion-regexp-list (cons regex completion-regexp-list)) | 1132 (completion-regexp-list (cons regex completion-regexp-list)) |
1133 (compl (all-completions | 1133 (compl (all-completions |
1134 (if (stringp (car pattern)) (car pattern)) | 1134 (if (stringp (car pattern)) (car pattern) "") |
1135 table pred)) | 1135 table pred)) |
1136 (last (last compl))) | 1136 (last (last compl))) |
1137 ;; FIXME: If `base-size' is not 0, we have a problem :-( | 1137 ;; FIXME: If `base-size' is not 0, we have a problem :-( |
1138 (if last (setcdr last nil)) | 1138 (if last (setcdr last nil)) |
1139 (if (not (functionp table)) | 1139 (if (not (functionp table)) |