From: Luc Teirlinck <teirllm@auburn.edu>
Date: Wed, 9 Nov 2005 23:04:46 +0000 (+0000)
Subject: Require dired.
X-Git-Tag: emacs-pretest-22.0.90~5987
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9c797a34f5551dad3cefe798f3518de47bdd78e8;p=emacs.git

Require dired.
(find-lisp-find-dired-internal): Do not call `abbreviate-file-name' on DIR.
---

diff --git a/lisp/find-lisp.el b/lisp/find-lisp.el
index 59dac2f62d6..a7c4e3941d9 100644
--- a/lisp/find-lisp.el
+++ b/lisp/find-lisp.el
@@ -3,7 +3,7 @@
 ;; Author: Peter Breton
 ;; Created: Fri Mar 26 1999
 ;; Keywords: unix
-;; Time-stamp: <2001-07-16 12:42:35 pavel>
+;; Time-stamp: <2005-11-09 17:05:07 teirllm>
 
 ;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
 ;;   2005 Free Software Foundation, Inc.
@@ -46,6 +46,8 @@
 
 ;;; Code:
 
+(require 'dired)
+
 (defvar dired-buffers)
 (defvar dired-subdir-alist)
 
@@ -198,8 +200,7 @@ It is a function which takes two arguments, the directory and its parent."
 	(regexp find-lisp-regexp))
     ;; Expand DIR ("" means default-directory), and make sure it has a
     ;; trailing slash.
-    (setq dir (abbreviate-file-name
-	       (file-name-as-directory (expand-file-name dir))))
+    (setq dir (file-name-as-directory (expand-file-name dir)))
     ;; Check that it's really a directory.
     (or (file-directory-p dir)
 	(error "find-dired needs a directory: %s" dir))