3 |
;; Author: Peter Breton |
;; Author: Peter Breton |
4 |
;; Created: Fri Mar 26 1999 |
;; Created: Fri Mar 26 1999 |
5 |
;; Keywords: unix |
;; Keywords: unix |
6 |
;; Time-stamp: <2001-07-16 12:42:35 pavel> |
;; Time-stamp: <2005-11-09 17:05:07 teirllm> |
7 |
|
|
8 |
;; Copyright (C) 1999, 2000, 2002, 2003, 2004, |
;; Copyright (C) 1999, 2000, 2002, 2003, 2004, |
9 |
;; 2005 Free Software Foundation, Inc. |
;; 2005 Free Software Foundation, Inc. |
46 |
|
|
47 |
;;; Code: |
;;; Code: |
48 |
|
|
49 |
|
(require 'dired) |
50 |
|
|
51 |
(defvar dired-buffers) |
(defvar dired-buffers) |
52 |
(defvar dired-subdir-alist) |
(defvar dired-subdir-alist) |
53 |
|
|
200 |
(regexp find-lisp-regexp)) |
(regexp find-lisp-regexp)) |
201 |
;; Expand DIR ("" means default-directory), and make sure it has a |
;; Expand DIR ("" means default-directory), and make sure it has a |
202 |
;; trailing slash. |
;; trailing slash. |
203 |
(setq dir (abbreviate-file-name |
(setq dir (file-name-as-directory (expand-file-name dir))) |
|
(file-name-as-directory (expand-file-name dir)))) |
|
204 |
;; Check that it's really a directory. |
;; Check that it's really a directory. |
205 |
(or (file-directory-p dir) |
(or (file-directory-p dir) |
206 |
(error "find-dired needs a directory: %s" dir)) |
(error "find-dired needs a directory: %s" dir)) |