mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

Require dired.

Browse source 
(find-lisp-find-dired-internal): Do not call `abbreviate-file-name' on DIR.
This commit is contained in:
Luc Teirlinck 2005-11-09 23:04:46 +00:00
parent 6e128e3224
commit 9c797a34f5
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/find-lisp.el
View file

@ -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))