summaryrefslogtreecommitdiff
path: root/lisp/icomplete.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/icomplete.el')
-rw-r--r--lisp/icomplete.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/icomplete.el b/lisp/icomplete.el
index f46127a20e0..cfe6244b511 100644
--- a/lisp/icomplete.el
+++ b/lisp/icomplete.el
@@ -425,7 +425,10 @@ if that doesn't produce a completion match."
for (cat . alist) in completion-category-defaults collect
`(,cat . ,(cl-loop
for entry in alist for (prop . val) = entry
- if (eq prop 'styles)
+ if (and (eq prop 'styles)
+ ;; Never step in front of 'external', as that
+ ;; might lose us completions.
+ (not (memq 'external val)))
collect `(,prop . (flex ,@(delq 'flex val)))
else collect entry))))