From 9c797a34f5551dad3cefe798f3518de47bdd78e8 Mon Sep 17 00:00:00 2001 From: Luc Teirlinck Date: Wed, 9 Nov 2005 23:04:46 +0000 Subject: [PATCH] Require dired. (find-lisp-find-dired-internal): Do not call `abbreviate-file-name' on DIR. --- lisp/find-lisp.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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)) -- 2.39.2