From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Valentin Plechinger Newsgroups: gmane.emacs.help Subject: Re: lisp execution stops after dired Date: Tue, 19 Jul 2011 22:34:19 +0200 Message-ID: <87ipqy2eno.wl%v.plechinger@gmail.com> References: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 (generated by SEMI 1.14.6 - "Maruoka") Content-Type: text/plain; charset=US-ASCII X-Trace: dough.gmane.org 1311110319 21446 80.91.229.12 (19 Jul 2011 21:18:39 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Tue, 19 Jul 2011 21:18:39 +0000 (UTC) To: Help-gnu-emacs Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Tue Jul 19 23:18:30 2011 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([140.186.70.17]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1QjHgT-0007vf-7L for geh-help-gnu-emacs@m.gmane.org; Tue, 19 Jul 2011 23:18:29 +0200 Original-Received: from localhost ([::1]:54644 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QjHgS-00039L-9n for geh-help-gnu-emacs@m.gmane.org; Tue, 19 Jul 2011 17:18:28 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:37101) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QjH09-0000Rm-Ki for Help-gnu-emacs@gnu.org; Tue, 19 Jul 2011 16:34:51 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QjH04-00057j-6v for Help-gnu-emacs@gnu.org; Tue, 19 Jul 2011 16:34:45 -0400 Original-Received: from mail-fx0-f52.google.com ([209.85.161.52]:53872) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QjH03-00057K-Ll for Help-gnu-emacs@gnu.org; Tue, 19 Jul 2011 16:34:40 -0400 Original-Received: by fxd18 with SMTP id 18so533678fxd.39 for ; Tue, 19 Jul 2011 13:34:33 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=gamma; h=date:message-id:from:to:subject:in-reply-to:references:user-agent :mime-version:content-type; bh=oiPJjbD6auOb9EFN8Mp0Dw3cixizi8FlVyGz2R8ovzk=; b=hX6aM2rqqu+UfcwHWs1tCWfY990k/hRy6YkjIUdjq1WQRuCvwscQhesGZO25yKibNg oqaDZ2HO6P0wJOoOFxVEEQACqKSxq9Tm4UUDZzEoS1V5pIpuMLuMlQQBBEqFTg0JXHQM WsZZWiwQ5CRUYqRRepUE0rmjRtP1qlJ4h6t2c= Original-Received: by 10.223.98.130 with SMTP id q2mr7660169fan.137.1311107665980; Tue, 19 Jul 2011 13:34:25 -0700 (PDT) Original-Received: from voli.gmail.com (178-191-232-174.adsl.highway.telekom.at [178.191.232.174]) by mx.google.com with ESMTPS id 4sm202877fad.7.2011.07.19.13.34.24 (version=SSLv3 cipher=OTHER); Tue, 19 Jul 2011 13:34:24 -0700 (PDT) In-Reply-To: User-Agent: Wanderlust/2.15.9 (Almost Unreal) SEMI/1.14.6 (Maruoka) FLIM/1.14.9 (=?UTF-8?B?R29qxY0=?=) APEL/10.8 Emacs/23.3 (i686-pc-linux-gnu) MULE/6.0 (HANACHIRUSATO) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 2) X-Received-From: 209.85.161.52 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:81683 Archived-At: I'm not that fluent in lisp but I think you need something like (defun vhdl-rename-signal (searchDir) "renames signal starting from searchDir" (interactive "DEnter top-level directory to search: ") ;; first do dired (progn (find-dired searchDir "-name \*.vhd -or -name \*.qsf") (dired-toggle-marks) ;; now fancy stuff over direded files (message (dired-get-marked-files)))) haven't checked your wether each of your lines actually does what it should have a look at http://www.rattlesnake.com/intro/progn.html best regards At Mon, 18 Jul 2011 13:18:29 +0200, David Belohrad wrote: > > [1 ] > Dear All. > > have this: > > (defun vhdl-rename-signal (searchDir) > "renames signal starting from searchDir" > (interactive "DEnter top-level directory to search: ") > ;; first do dired > (find-dired searchDir "-name \*.vhd -or -name \*.qsf") > (dired-toggle-marks) > ;; now fancy stuff over direded files > (message (dired-get-marked-files)) > )