1240 |
;; Note: t and non-nil mean somewhat different reasons. |
;; Note: t and non-nil mean somewhat different reasons. |
1241 |
(if (eq minibuffer-completion-table 'ffap-read-file-or-url-internal) |
(if (eq minibuffer-completion-table 'ffap-read-file-or-url-internal) |
1242 |
(not (ffap-url-p (buffer-string))) ; t |
(not (ffap-url-p (buffer-string))) ; t |
1243 |
(memq minibuffer-completion-table |
(and minibuffer-completing-file-name '(t)))) ;list |
|
'(read-file-name-internal read-directory-name-internal)) ; list |
|
|
)) |
|
1244 |
|
|
1245 |
(and |
(and |
1246 |
(featurep 'complete) |
(featurep 'complete) |