Mercurial > emacs
comparison lisp/files.el @ 44497:32d733dae726
(file-name-non-special): Handle return value of t from
`file-name-completion'.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Thu, 11 Apr 2002 12:13:53 +0000 |
| parents | 58d8979703be |
| children | a70fdb3fd13c |
comparison
equal
deleted
inserted
replaced
| 44496:9148e7fc1e39 | 44497:32d733dae726 |
|---|---|
| 3941 (setq file-arg-indices (cdr file-arg-indices)))) | 3941 (setq file-arg-indices (cdr file-arg-indices)))) |
| 3942 (if (eq file-arg-indices 'identity) | 3942 (if (eq file-arg-indices 'identity) |
| 3943 (car arguments) | 3943 (car arguments) |
| 3944 (let ((value (apply operation arguments))) | 3944 (let ((value (apply operation arguments))) |
| 3945 (cond ((memq operation '(file-name-completion)) | 3945 (cond ((memq operation '(file-name-completion)) |
| 3946 (and value (concat "/:" value))) | 3946 (and value (if (eq value t) t (concat "/:" value)))) |
| 3947 ((memq operation '(file-name-all-completions)) | 3947 ((memq operation '(file-name-all-completions)) |
| 3948 (mapcar (lambda (name) (concat "/:" name)) value)) | 3948 (mapcar (lambda (name) (concat "/:" name)) value)) |
| 3949 (t value)))))) | 3949 (t value)))))) |
| 3950 | 3950 |
| 3951 (define-key ctl-x-map "\C-f" 'find-file) | 3951 (define-key ctl-x-map "\C-f" 'find-file) |