[Emacs-diffs] Changes to emacs/lisp/find-lisp.el

[Luc Teirlinck]

Index: emacs/lisp/find-lisp.el
diff -c emacs/lisp/find-lisp.el:1.9 emacs/lisp/find-lisp.el:1.10
*** emacs/lisp/find-lisp.el:1.9 Wed Aug 31 13:49:47 2005
--- emacs/lisp/find-lisp.el     Wed Nov  9 23:04:46 2005
***************
*** 3,9 ****
  ;; Author: Peter Breton
  ;; Created: Fri Mar 26 1999
  ;; Keywords: unix
! ;; Time-stamp: <2001-07-16 12:42:35 pavel>
  
  ;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
  ;;   2005 Free Software Foundation, Inc.
--- 3,9 ----
  ;; Author: Peter Breton
  ;; Created: Fri Mar 26 1999
  ;; Keywords: unix
! ;; Time-stamp: <2005-11-09 17:05:07 teirllm>
  
  ;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
  ;;   2005 Free Software Foundation, Inc.
***************
*** 46,51 ****
--- 46,53 ----
  
  ;;; Code:
  
+ (require 'dired)
+ 
  (defvar dired-buffers)
  (defvar dired-subdir-alist)
  
***************
*** 198,205 ****
        (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))))
      ;; Check that it's really a directory.
      (or (file-directory-p dir)
        (error "find-dired needs a directory: %s" dir))
--- 200,206 ----
        (regexp find-lisp-regexp))
      ;; Expand DIR ("" means default-directory), and make sure it has a
      ;; trailing slash.
!     (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))