/[emacs]/emacs/lisp/find-lisp.el
ViewVC logotype

Diff of /emacs/lisp/find-lisp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by lektu, Wed Aug 31 13:49:47 2005 UTC revision 1.10 by teirllm, Wed Nov 9 23:04:46 2005 UTC
# Line 3  Line 3 
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.
# Line 46  Line 46 
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    
# Line 198  It is a function which takes two argumen Line 200  It is a function which takes two argumen
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))

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26