Mercurial > emacs

diff lisp/files.el @ 7730:3846302b9c9c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(insert-directory): Use expanded file name to find handler.
author Richard M. Stallman <rms@gnu.org>
date Sat, 28 May 1994 12:33:08 +0000
parents 814e18e2d3d4
children fac7ff0a7aeb
line wrap: on
line diff
--- a/lisp/files.el	Sat May 28 12:25:54 1994 +0000
+++ b/lisp/files.el	Sat May 28 12:33:08 1994 +0000
@@ -2024,7 +2024,9 @@
 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)