diff options
| author | Richard M. Stallman <[email protected]> | 1994-05-28 12:33:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1994-05-28 12:33:08 +0000 |
| commit | c870ab8eb30759ccc135b8c47840bd998049bdcd (patch) | |
| tree | 31bd25aab8e111ee6e52165765f83e8db5bd2b94 /lisp | |
| parent | 29679a81c7f1b4e231972c8f5034fa4de8957728 (diff) | |
(insert-directory): Use expanded file name to find handler.
Diffstat (limited to 'lisp')
| -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 746e24e974..a01c13465e 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -2024,7 +2024,9 @@ switches do not contain `d', so that a full listing is expected. This works by running a directory listing program whose name is in the variable `insert-directory-program'. If WILDCARD, it also runs the shell specified by `shell-file-name'." - (let ((handler (find-file-name-handler file 'insert-directory))) + ;; We need the directory in order to find the right handler. + (let ((handler (find-file-name-handler (expand-file-name file) + 'insert-directory))) (if handler (funcall handler 'insert-directory file switches wildcard full-directory-p) |