Mercurial > emacs
changeset 16792:8ae41d9d350d
(insert-directory): Use -- as arg
so that a file name or pattern is never taken as an option.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 31 Dec 1996 04:50:27 +0000 |
| parents | 16f064c6c276 |
| children | f932e8b3c525 |
| files | lisp/files.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Tue Dec 31 04:49:28 1996 +0000 +++ b/lisp/files.el Tue Dec 31 04:50:27 1996 +0000 @@ -2726,7 +2726,7 @@ (if (stringp switches) switches (mapconcat 'identity switches " ")) - " " + " -- " pattern))) ;; SunOS 4.1.3, SVr4 and others need the "." to list the ;; directory if FILE is a symbolic link. @@ -2745,6 +2745,8 @@ switches (substring switches (match-end 0)))) (setq list (nreverse (cons switches list)))))) (append list + ;; Avoid lossage if FILE starts with `-'. + '("--") (list (if full-directory-p (concat (file-name-as-directory file) ".")