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))