3943 |
(car arguments) |
(car arguments) |
3944 |
(let ((value (apply operation arguments))) |
(let ((value (apply operation arguments))) |
3945 |
(cond ((memq operation '(file-name-completion)) |
(cond ((memq operation '(file-name-completion)) |
3946 |
(and value (concat "/:" value))) |
(and value (if (eq value t) t (concat "/:" value)))) |
3947 |
((memq operation '(file-name-all-completions)) |
((memq operation '(file-name-all-completions)) |
3948 |
(mapcar (lambda (name) (concat "/:" name)) value)) |
(mapcar (lambda (name) (concat "/:" name)) value)) |
3949 |
(t value)))))) |
(t value)))))) |