# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1131577486 0
# Node ID 91dca36c02456af716d96a214ba294556e5f94fe
# Parent  595f989bb031b243122d3c0c5a6f6aaba1bf47a3
Require dired.
(find-lisp-find-dired-internal): Do not call `abbreviate-file-name' on DIR.

diff -r 595f989bb031 -r 91dca36c0245 lisp/find-lisp.el
--- a/lisp/find-lisp.el	Wed Nov 09 23:02:25 2005 +0000
+++ b/lisp/find-lisp.el	Wed Nov 09 23:04:46 2005 +0000
@@ -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 @@
 	(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))