changeset 66775:91dca36c0245

Require dired. (find-lisp-find-dired-internal): Do not call `abbreviate-file-name' on DIR.
author Luc Teirlinck <teirllm@auburn.edu>
date Wed, 09 Nov 2005 23:04:46 +0000
parents 595f989bb031
children 2acb0afcc57a
files lisp/find-lisp.el
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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))