Re: filter from find-dired

[<r_mercado@o2.co.uk>]

Hi again,

get-directory-name is my function too. Glad to receive suggestions on 
how to improve it.

(defun get-directory-name ()
  "return the current directory"
  (interactive)
  (let (dirname components)
    (if (null (buffer-file-name (current-buffer)))
        (setq dirname (expand-file-name default-directory))
      (setq components (butlast (split-string (get-file-name) "/")))
      (setq dirname (mapconcat 'identity components "/"))
      )
    (message dirname)
    (kill-new dirname)
    dirname)
)

----Original Message----
From: r_mercado@o2.co.uk
Date: Jan 14, 2013 16:28 
To: <help-gnu-emacs@gnu.org>
Subject: filter from find-dired

Hello

I created a helper interactive function for my work that searches 
files from the current
directory that match the name "*subst*".

(defun find-substitutions ()
  "find substitution files in the current directory"
  (interactive)
  (find-name-dired (get-directory-name) "*substitutions*")
  )

I would like to filter the entries that sit under a .svn directory

How would I go about it?

In "plain" find, I found this works

find . -name .svn -prune -o -name "*subst*" -print 

find-dired with the same parameters does not filter the entries under
.svn, instead it includes all .svn directories

Thanks