diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-12-31 04:50:27 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-12-31 04:50:27 +0000 |
| commit | a8bf610ec0930235e2f98bba8bd70c233b1e9282 (patch) | |
| tree | 5b6893fa89319a0fc5efd4bab667ea92105148c8 /lisp/files.el | |
| parent | 63ba033ea116e1867e36c9b087b2efb62080ef3c (diff) | |
| download | emacs-a8bf610ec0930235e2f98bba8bd70c233b1e9282.tar.gz | |
(insert-directory): Use -- as arg
so that a file name or pattern is never taken as an option.
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index 1341cd909b2..f62e7d9aa0c 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -2726,7 +2726,7 @@ If WILDCARD, it also runs the shell specified by `shell-file-name'." (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 @@ If WILDCARD, it also runs the shell specified by `shell-file-name'." 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) ".") |