mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(insert-directory): Use expanded file name to find handler.

Browse Source
This commit is contained in:
Richard M. Stallman 1994-05-28 12:33:08 +00:00
parent 29679a81c7
commit c870ab8eb3
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/files.el
View File

@ -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)