From unknown Tue Sep 09 06:10:49 2025 X-Loop: help-debbugs@gnu.org Subject: bug#19171: 25.0.50; vc-directory-exclusion-list contiains (\, ".svn") Resent-From: Sam Steingold Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Mon, 24 Nov 2014 20:51:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 19171 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: 19171@debbugs.gnu.org X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Reply-To: sds@gnu.org Received: via spool by submit@debbugs.gnu.org id=B.141686224832545 (code B ref -1); Mon, 24 Nov 2014 20:51:01 +0000 Received: (at submit) by debbugs.gnu.org; 24 Nov 2014 20:50:48 +0000 Received: from localhost ([127.0.0.1]:44283 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Xt0at-0008Sp-4k for submit@debbugs.gnu.org; Mon, 24 Nov 2014 15:50:47 -0500 Received: from eggs.gnu.org ([208.118.235.92]:54098) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Xt0aq-0008Sa-7G for submit@debbugs.gnu.org; Mon, 24 Nov 2014 15:50:45 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Xt0al-0006Rl-P5 for submit@debbugs.gnu.org; Mon, 24 Nov 2014 15:50:43 -0500 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=0.8 required=5.0 tests=BAYES_50,FREEMAIL_FROM, T_DKIM_INVALID autolearn=disabled version=3.3.2 Received: from lists.gnu.org ([2001:4830:134:3::11]:46877) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Xt0al-0006Ra-De for submit@debbugs.gnu.org; Mon, 24 Nov 2014 15:50:39 -0500 Received: from eggs.gnu.org ([2001:4830:134:3::10]:55792) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Xt0ah-0005iJ-BX for bug-gnu-emacs@gnu.org; Mon, 24 Nov 2014 15:50:39 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Xt0ab-0006Q2-Nk for bug-gnu-emacs@gnu.org; Mon, 24 Nov 2014 15:50:35 -0500 Received: from mail-qa0-x235.google.com ([2607:f8b0:400d:c00::235]:57965) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Xt0aW-0006P4-Rv; Mon, 24 Nov 2014 15:50:24 -0500 Received: by mail-qa0-f53.google.com with SMTP id bm13so7039257qab.12 for ; Mon, 24 Nov 2014 12:50:23 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=sender:from:to:subject:return-receipt-to:reply-to:date:message-id :mime-version:content-type:content-transfer-encoding; bh=MXDjh5jPyqwbBLAkAjX9hJEOMAOB7o/U9o+78B0e0OQ=; b=OyFjHwf8YfsiO+2Zqm2cOWLpwFVE7dHwDUklOQu+mstzTvyinim3Itt0apWzv+RejT S8tg4OA1nICewemgAW+lg+WjsUkqxLPKh2MPrfyn/CZ/0IflNB4D8Ny0BmyejVVsn5TT lyTylxD2IImrrPEWXJShgkD6cdQ6xE/ul7GMBzgm9OZsqJCh5wqvbD6+n3h7rDGwYQBf +9ya6D1jG6/vVV1CZRRqKLxeuBJxhd6T2b2lblrpfZcZptNIoOkeEAF1q63s+bnE2zmY iXDk/DhO/9ve5vciqAH0BvIJ5XyaabN+xHUMCNivesvgH7o7TIPjYJcaMyBiRnODK62S kTTg== X-Received: by 10.224.46.131 with SMTP id j3mr30712637qaf.86.1416862223304; Mon, 24 Nov 2014 12:50:23 -0800 (PST) Received: from sds-MacBook-Pro.local ([66.9.135.66]) by mx.google.com with ESMTPSA id p13sm12875142qax.8.2014.11.24.12.50.21 for (version=TLSv1.2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Mon, 24 Nov 2014 12:50:22 -0800 (PST) From: Sam Steingold X-Attribution: Sam X-Disclaimer: You should not expect anyone to agree with me. Date: Mon, 24 Nov 2014 15:50:19 -0500 Message-ID: MIME-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-Received-From: 2001:4830:134:3::11 X-Spam-Score: -4.0 (----) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -4.0 (----) comma in vc-directory-exclusion-list (emacs -Q) ("SCCS" "RCS" "CVS" "MCVS" ".src" (\, ".svn") ".git" ".hg" ".bzr" "_MTN" "_= darcs" "{arch}") causes this error: Debugger entered--Lisp error: (void-function \,) \,("/Users/sds/src/magnetic/research/") funcall(\, "/Users/sds/src/magnetic/research/") (and (funcall (car ignore) dir) (shell-quote-argument (concat "*/" (cdr i= gnore)))) (cond ((stringp ignore) (shell-quote-argument (concat "*/" ignore))) ((co= nsp ignore) (and (funcall (car ignore) dir) (shell-quote-argument (concat "= */" (cdr ignore)))))) (closure ((confirm) (dir . "/Users/sds/src/magnetic/research/") (files . = "*.pig") (regexp . "\"") grep-use-compilation-buffer t) (ignore) (cond ((st= ringp ignore) (shell-quote-argument (concat "*/" ignore))) ((consp ignore) = (and (funcall (car ignore) dir) (shell-quote-argument (concat "*/" (cdr ign= ore)))))))((\, ".svn")) mapconcat((closure ((confirm) (dir . "/Users/sds/src/magnetic/research/")= (files . "*.pig") (regexp . "\"") grep-use-compilation-buffer t) (ignore) = (cond ((stringp ignore) (shell-quote-argument (concat "*/" ignore))) ((cons= p ignore) (and (funcall (car ignore) dir) (shell-quote-argument (concat "*/= " (cdr ignore))))))) ((clisp-repo-p . "build*") "attic" "junk" "SCCS" "RCS"= "CVS" "MCVS" ".src" (\, ".svn") ".git" ".hg" ".bzr" "_MTN" "_darcs" "{arch= }") " -o -path ") (concat "-type d " (shell-quote-argument "(") " -path " (mapconcat (funct= ion (lambda (ignore) (cond ((stringp ignore) (shell-quote-argument (concat = "*/" ignore))) ((consp ignore) (and (funcall ... dir) (shell-quote-argument= ...)))))) grep-find-ignored-directories " -o -path ") " " (shell-quote-arg= ument ")") " -prune -o ") (and grep-find-ignored-directories (concat "-type d " (shell-quote-argume= nt "(") " -path " (mapconcat (function (lambda (ignore) (cond ((stringp ign= ore) (shell-quote-argument ...)) ((consp ignore) (and ... ...))))) grep-fin= d-ignored-directories " -o -path ") " " (shell-quote-argument ")") " -prune= -o ")) (concat (and grep-find-ignored-directories (concat "-type d " (shell-quot= e-argument "(") " -path " (mapconcat (function (lambda (ignore) (cond (... = ...) (... ...)))) grep-find-ignored-directories " -o -path ") " " (shell-qu= ote-argument ")") " -prune -o ")) (and grep-find-ignored-files (concat (she= ll-quote-argument "!") " -type d " (shell-quote-argument "(") " -name " (ma= pconcat (function (lambda (ignore) (cond (... ...) (... ...)))) grep-find-i= gnored-files " -o -name ") " " (shell-quote-argument ")") " -prune -o "))) (grep-expand-template grep-find-template regexp (concat (shell-quote-argu= ment "(") " " find-name-arg " " (mapconcat (function shell-quote-argument) = (split-string files) (concat " -o " find-name-arg " ")) " " (shell-quote-ar= gument ")")) dir (concat (and grep-find-ignored-directories (concat "-type = d " (shell-quote-argument "(") " -path " (mapconcat (function (lambda (igno= re) (cond ... ...))) grep-find-ignored-directories " -o -path ") " " (shell= -quote-argument ")") " -prune -o ")) (and grep-find-ignored-files (concat (= shell-quote-argument "!") " -type d " (shell-quote-argument "(") " -name " = (mapconcat (function (lambda (ignore) (cond ... ...))) grep-find-ignored-fi= les " -o -name ") " " (shell-quote-argument ")") " -prune -o ")))) (let ((command (grep-expand-template grep-find-template regexp (concat (s= hell-quote-argument "(") " " find-name-arg " " (mapconcat (function shell-q= uote-argument) (split-string files) (concat " -o " find-name-arg " ")) " " = (shell-quote-argument ")")) dir (concat (and grep-find-ignored-directories = (concat "-type d " (shell-quote-argument "(") " -path " (mapconcat ... grep= -find-ignored-directories " -o -path ") " " (shell-quote-argument ")") " -p= rune -o ")) (and grep-find-ignored-files (concat (shell-quote-argument "!")= " -type d " (shell-quote-argument "(") " -name " (mapconcat ... grep-find-= ignored-files " -o -name ") " " (shell-quote-argument ")") " -prune -o ")))= ))) (if command (progn (if confirm (setq command (read-from-minibuffer "Con= firm: " command nil nil (quote grep-find-history))) (add-to-history (quote = grep-find-history) command)) (let ((default-directory dir)) (compilation-st= art command (quote grep-mode))) (if (eq next-error-last-buffer (current-buf= fer)) (setq default-directory dir))))) (if (null files) (if (not (string=3D regexp (if (consp grep-find-command)= (car grep-find-command) grep-find-command))) (compilation-start regexp (qu= ote grep-mode))) (setq dir (file-name-as-directory (expand-file-name dir)))= (require (quote find-dired)) (let ((command (grep-expand-template grep-fin= d-template regexp (concat (shell-quote-argument "(") " " find-name-arg " " = (mapconcat (function shell-quote-argument) (split-string files) (concat " -= o " find-name-arg " ")) " " (shell-quote-argument ")")) dir (concat (and gr= ep-find-ignored-directories (concat "-type d " ... " -path " ... " " ... " = -prune -o ")) (and grep-find-ignored-files (concat ... " -type d " ... " -n= ame " ... " " ... " -prune -o ")))))) (if command (progn (if confirm (setq = command (read-from-minibuffer "Confirm: " command nil nil (quote grep-find-= history))) (add-to-history (quote grep-find-history) command)) (let ((defau= lt-directory dir)) (compilation-start command (quote grep-mode))) (if (eq n= ext-error-last-buffer (current-buffer)) (setq default-directory dir)))))) (progn (if (and dir (file-accessible-directory-p dir)) nil (setq dir defa= ult-directory)) (if (null files) (if (not (string=3D regexp (if (consp grep= -find-command) (car grep-find-command) grep-find-command))) (compilation-st= art regexp (quote grep-mode))) (setq dir (file-name-as-directory (expand-fi= le-name dir))) (require (quote find-dired)) (let ((command (grep-expand-tem= plate grep-find-template regexp (concat (shell-quote-argument "(") " " find= -name-arg " " (mapconcat ... ... ...) " " (shell-quote-argument ")")) dir (= concat (and grep-find-ignored-directories ...) (and grep-find-ignored-files= ...))))) (if command (progn (if confirm (setq command (read-from-minibuffe= r "Confirm: " command nil nil ...)) (add-to-history (quote grep-find-histor= y) command)) (let ((default-directory dir)) (compilation-start command (quo= te grep-mode))) (if (eq next-error-last-buffer (current-buffer)) (setq defa= ult-directory dir))))))) (if (and (stringp regexp) (> (length regexp) 0)) (progn (if (and dir (fil= e-accessible-directory-p dir)) nil (setq dir default-directory)) (if (null = files) (if (not (string=3D regexp (if (consp grep-find-command) (car grep-f= ind-command) grep-find-command))) (compilation-start regexp (quote grep-mod= e))) (setq dir (file-name-as-directory (expand-file-name dir))) (require (q= uote find-dired)) (let ((command (grep-expand-template grep-find-template r= egexp (concat ... " " find-name-arg " " ... " " ...) dir (concat ... ...)))= ) (if command (progn (if confirm (setq command ...) (add-to-history ... com= mand)) (let (...) (compilation-start command ...)) (if (eq next-error-last-= buffer ...) (setq default-directory dir)))))))) rgrep("\"" "*.pig" "~/src/magnetic/research/" nil) funcall-interactively(rgrep "\"" "*.pig" "~/src/magnetic/research/" nil) apply(funcall-interactively rgrep ("\"" "*.pig" "~/src/magnetic/research/= " nil)) repeat-complex-command(1) funcall-interactively(repeat-complex-command 1) call-interactively(repeat-complex-command nil nil) command-execute(repeat-complex-command) In GNU Emacs 25.0.50.6 (x86_64-apple-darwin14.0.0, NS appkit-1343.16 Versio= n 10.10.1 (Build 14B25)) of 2014-11-24 on sds-MacBook-Pro.local Repository revision: e01ec2ed084776b370e0634120deec6b65424b8a Windowing system distributor `Apple', version 10.3.1343 Configured using: `configure --with-ns' --=20 Sam Steingold (http://sds.podval.org/) on darwin Ns 10.3.1343 http://www.childpsy.net/ http://honestreporting.com http://iris.org.il http://americancensorship.org http://mideasttruth.com http://jihadwatch.org It is easier to deal with a hungry tiger than with a full mule. From unknown Tue Sep 09 06:10:49 2025 MIME-Version: 1.0 X-Mailer: MIME-tools 5.503 (Entity 5.503) X-Loop: help-debbugs@gnu.org From: help-debbugs@gnu.org (GNU bug Tracking System) To: sds@gnu.org Subject: bug#19171: closed (Re: bug#19171: 25.0.50; vc-directory-exclusion-list contiains (\, ".svn")) Message-ID: References: X-Gnu-PR-Message: they-closed 19171 X-Gnu-PR-Package: emacs Reply-To: 19171@debbugs.gnu.org Date: Wed, 26 Nov 2014 02:30:03 +0000 Content-Type: multipart/mixed; boundary="----------=_1416969003-2844-1" This is a multi-part message in MIME format... ------------=_1416969003-2844-1 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset="utf-8" Your bug report #19171: 25.0.50; vc-directory-exclusion-list contiains (\, ".svn") which was filed against the emacs package, has been closed. The explanation is attached below, along with your original report. If you require more details, please reply to 19171@debbugs.gnu.org. --=20 19171: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=3D19171 GNU Bug Tracking System Contact help-debbugs@gnu.org with problems ------------=_1416969003-2844-1 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit Received: (at 19171-done) by debbugs.gnu.org; 26 Nov 2014 02:29:40 +0000 Received: from localhost ([127.0.0.1]:45396 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1XtSMN-0000iu-V2 for submit@debbugs.gnu.org; Tue, 25 Nov 2014 21:29:40 -0500 Received: from fencepost.gnu.org ([208.118.235.10]:48620) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1XtSML-0000ig-2F for 19171-done@debbugs.gnu.org; Tue, 25 Nov 2014 21:29:37 -0500 Received: from rgm by fencepost.gnu.org with local (Exim 4.71) (envelope-from ) id 1XtSMK-0000M1-Ms; Tue, 25 Nov 2014 21:29:36 -0500 From: Glenn Morris To: 19171-done@debbugs.gnu.org Subject: Re: bug#19171: 25.0.50; vc-directory-exclusion-list contiains (\, ".svn") References: X-Spook: Europol espionage SRI anthrax arrangements sweep X-Ran: ix*uv+XWG=/_\'gMg+mqFSt8IB9?SQ\mF7yy(?X9-Z];ALkC4GcNngEK\v!K}?3|=Ufkq} X-Hue: red X-Attribution: GM Date: Tue, 25 Nov 2014 21:29:36 -0500 In-Reply-To: (Sam Steingold's message of "Mon, 24 Nov 2014 15:50:19 -0500") Message-ID: User-Agent: Gnus (www.gnus.org), GNU Emacs (www.gnu.org/software/emacs/) MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Spam-Score: -5.0 (-----) X-Debbugs-Envelope-To: 19171-done X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -5.0 (-----) I see you fixed it. A reminder that anyone can close bugs, by simply mailing to 123-done@debbugs. ------------=_1416969003-2844-1 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit Received: (at submit) by debbugs.gnu.org; 24 Nov 2014 20:50:48 +0000 Received: from localhost ([127.0.0.1]:44283 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Xt0at-0008Sp-4k for submit@debbugs.gnu.org; Mon, 24 Nov 2014 15:50:47 -0500 Received: from eggs.gnu.org ([208.118.235.92]:54098) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Xt0aq-0008Sa-7G for submit@debbugs.gnu.org; Mon, 24 Nov 2014 15:50:45 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Xt0al-0006Rl-P5 for submit@debbugs.gnu.org; Mon, 24 Nov 2014 15:50:43 -0500 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=0.8 required=5.0 tests=BAYES_50,FREEMAIL_FROM, T_DKIM_INVALID autolearn=disabled version=3.3.2 Received: from lists.gnu.org ([2001:4830:134:3::11]:46877) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Xt0al-0006Ra-De for submit@debbugs.gnu.org; Mon, 24 Nov 2014 15:50:39 -0500 Received: from eggs.gnu.org ([2001:4830:134:3::10]:55792) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Xt0ah-0005iJ-BX for bug-gnu-emacs@gnu.org; Mon, 24 Nov 2014 15:50:39 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Xt0ab-0006Q2-Nk for bug-gnu-emacs@gnu.org; Mon, 24 Nov 2014 15:50:35 -0500 Received: from mail-qa0-x235.google.com ([2607:f8b0:400d:c00::235]:57965) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Xt0aW-0006P4-Rv; Mon, 24 Nov 2014 15:50:24 -0500 Received: by mail-qa0-f53.google.com with SMTP id bm13so7039257qab.12 for ; Mon, 24 Nov 2014 12:50:23 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=sender:from:to:subject:return-receipt-to:reply-to:date:message-id :mime-version:content-type:content-transfer-encoding; bh=MXDjh5jPyqwbBLAkAjX9hJEOMAOB7o/U9o+78B0e0OQ=; b=OyFjHwf8YfsiO+2Zqm2cOWLpwFVE7dHwDUklOQu+mstzTvyinim3Itt0apWzv+RejT S8tg4OA1nICewemgAW+lg+WjsUkqxLPKh2MPrfyn/CZ/0IflNB4D8Ny0BmyejVVsn5TT lyTylxD2IImrrPEWXJShgkD6cdQ6xE/ul7GMBzgm9OZsqJCh5wqvbD6+n3h7rDGwYQBf +9ya6D1jG6/vVV1CZRRqKLxeuBJxhd6T2b2lblrpfZcZptNIoOkeEAF1q63s+bnE2zmY iXDk/DhO/9ve5vciqAH0BvIJ5XyaabN+xHUMCNivesvgH7o7TIPjYJcaMyBiRnODK62S kTTg== X-Received: by 10.224.46.131 with SMTP id j3mr30712637qaf.86.1416862223304; Mon, 24 Nov 2014 12:50:23 -0800 (PST) Received: from sds-MacBook-Pro.local ([66.9.135.66]) by mx.google.com with ESMTPSA id p13sm12875142qax.8.2014.11.24.12.50.21 for (version=TLSv1.2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Mon, 24 Nov 2014 12:50:22 -0800 (PST) From: Sam Steingold To: bug-gnu-emacs@gnu.org Subject: 25.0.50; vc-directory-exclusion-list contiains (\, ".svn") X-Attribution: Sam X-Disclaimer: You should not expect anyone to agree with me. Date: Mon, 24 Nov 2014 15:50:19 -0500 Message-ID: MIME-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-Received-From: 2001:4830:134:3::11 X-Spam-Score: -4.0 (----) X-Debbugs-Envelope-To: submit X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list Reply-To: sds@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -4.0 (----) comma in vc-directory-exclusion-list (emacs -Q) ("SCCS" "RCS" "CVS" "MCVS" ".src" (\, ".svn") ".git" ".hg" ".bzr" "_MTN" "_= darcs" "{arch}") causes this error: Debugger entered--Lisp error: (void-function \,) \,("/Users/sds/src/magnetic/research/") funcall(\, "/Users/sds/src/magnetic/research/") (and (funcall (car ignore) dir) (shell-quote-argument (concat "*/" (cdr i= gnore)))) (cond ((stringp ignore) (shell-quote-argument (concat "*/" ignore))) ((co= nsp ignore) (and (funcall (car ignore) dir) (shell-quote-argument (concat "= */" (cdr ignore)))))) (closure ((confirm) (dir . "/Users/sds/src/magnetic/research/") (files . = "*.pig") (regexp . "\"") grep-use-compilation-buffer t) (ignore) (cond ((st= ringp ignore) (shell-quote-argument (concat "*/" ignore))) ((consp ignore) = (and (funcall (car ignore) dir) (shell-quote-argument (concat "*/" (cdr ign= ore)))))))((\, ".svn")) mapconcat((closure ((confirm) (dir . "/Users/sds/src/magnetic/research/")= (files . "*.pig") (regexp . "\"") grep-use-compilation-buffer t) (ignore) = (cond ((stringp ignore) (shell-quote-argument (concat "*/" ignore))) ((cons= p ignore) (and (funcall (car ignore) dir) (shell-quote-argument (concat "*/= " (cdr ignore))))))) ((clisp-repo-p . "build*") "attic" "junk" "SCCS" "RCS"= "CVS" "MCVS" ".src" (\, ".svn") ".git" ".hg" ".bzr" "_MTN" "_darcs" "{arch= }") " -o -path ") (concat "-type d " (shell-quote-argument "(") " -path " (mapconcat (funct= ion (lambda (ignore) (cond ((stringp ignore) (shell-quote-argument (concat = "*/" ignore))) ((consp ignore) (and (funcall ... dir) (shell-quote-argument= ...)))))) grep-find-ignored-directories " -o -path ") " " (shell-quote-arg= ument ")") " -prune -o ") (and grep-find-ignored-directories (concat "-type d " (shell-quote-argume= nt "(") " -path " (mapconcat (function (lambda (ignore) (cond ((stringp ign= ore) (shell-quote-argument ...)) ((consp ignore) (and ... ...))))) grep-fin= d-ignored-directories " -o -path ") " " (shell-quote-argument ")") " -prune= -o ")) (concat (and grep-find-ignored-directories (concat "-type d " (shell-quot= e-argument "(") " -path " (mapconcat (function (lambda (ignore) (cond (... = ...) (... ...)))) grep-find-ignored-directories " -o -path ") " " (shell-qu= ote-argument ")") " -prune -o ")) (and grep-find-ignored-files (concat (she= ll-quote-argument "!") " -type d " (shell-quote-argument "(") " -name " (ma= pconcat (function (lambda (ignore) (cond (... ...) (... ...)))) grep-find-i= gnored-files " -o -name ") " " (shell-quote-argument ")") " -prune -o "))) (grep-expand-template grep-find-template regexp (concat (shell-quote-argu= ment "(") " " find-name-arg " " (mapconcat (function shell-quote-argument) = (split-string files) (concat " -o " find-name-arg " ")) " " (shell-quote-ar= gument ")")) dir (concat (and grep-find-ignored-directories (concat "-type = d " (shell-quote-argument "(") " -path " (mapconcat (function (lambda (igno= re) (cond ... ...))) grep-find-ignored-directories " -o -path ") " " (shell= -quote-argument ")") " -prune -o ")) (and grep-find-ignored-files (concat (= shell-quote-argument "!") " -type d " (shell-quote-argument "(") " -name " = (mapconcat (function (lambda (ignore) (cond ... ...))) grep-find-ignored-fi= les " -o -name ") " " (shell-quote-argument ")") " -prune -o ")))) (let ((command (grep-expand-template grep-find-template regexp (concat (s= hell-quote-argument "(") " " find-name-arg " " (mapconcat (function shell-q= uote-argument) (split-string files) (concat " -o " find-name-arg " ")) " " = (shell-quote-argument ")")) dir (concat (and grep-find-ignored-directories = (concat "-type d " (shell-quote-argument "(") " -path " (mapconcat ... grep= -find-ignored-directories " -o -path ") " " (shell-quote-argument ")") " -p= rune -o ")) (and grep-find-ignored-files (concat (shell-quote-argument "!")= " -type d " (shell-quote-argument "(") " -name " (mapconcat ... grep-find-= ignored-files " -o -name ") " " (shell-quote-argument ")") " -prune -o ")))= ))) (if command (progn (if confirm (setq command (read-from-minibuffer "Con= firm: " command nil nil (quote grep-find-history))) (add-to-history (quote = grep-find-history) command)) (let ((default-directory dir)) (compilation-st= art command (quote grep-mode))) (if (eq next-error-last-buffer (current-buf= fer)) (setq default-directory dir))))) (if (null files) (if (not (string=3D regexp (if (consp grep-find-command)= (car grep-find-command) grep-find-command))) (compilation-start regexp (qu= ote grep-mode))) (setq dir (file-name-as-directory (expand-file-name dir)))= (require (quote find-dired)) (let ((command (grep-expand-template grep-fin= d-template regexp (concat (shell-quote-argument "(") " " find-name-arg " " = (mapconcat (function shell-quote-argument) (split-string files) (concat " -= o " find-name-arg " ")) " " (shell-quote-argument ")")) dir (concat (and gr= ep-find-ignored-directories (concat "-type d " ... " -path " ... " " ... " = -prune -o ")) (and grep-find-ignored-files (concat ... " -type d " ... " -n= ame " ... " " ... " -prune -o ")))))) (if command (progn (if confirm (setq = command (read-from-minibuffer "Confirm: " command nil nil (quote grep-find-= history))) (add-to-history (quote grep-find-history) command)) (let ((defau= lt-directory dir)) (compilation-start command (quote grep-mode))) (if (eq n= ext-error-last-buffer (current-buffer)) (setq default-directory dir)))))) (progn (if (and dir (file-accessible-directory-p dir)) nil (setq dir defa= ult-directory)) (if (null files) (if (not (string=3D regexp (if (consp grep= -find-command) (car grep-find-command) grep-find-command))) (compilation-st= art regexp (quote grep-mode))) (setq dir (file-name-as-directory (expand-fi= le-name dir))) (require (quote find-dired)) (let ((command (grep-expand-tem= plate grep-find-template regexp (concat (shell-quote-argument "(") " " find= -name-arg " " (mapconcat ... ... ...) " " (shell-quote-argument ")")) dir (= concat (and grep-find-ignored-directories ...) (and grep-find-ignored-files= ...))))) (if command (progn (if confirm (setq command (read-from-minibuffe= r "Confirm: " command nil nil ...)) (add-to-history (quote grep-find-histor= y) command)) (let ((default-directory dir)) (compilation-start command (quo= te grep-mode))) (if (eq next-error-last-buffer (current-buffer)) (setq defa= ult-directory dir))))))) (if (and (stringp regexp) (> (length regexp) 0)) (progn (if (and dir (fil= e-accessible-directory-p dir)) nil (setq dir default-directory)) (if (null = files) (if (not (string=3D regexp (if (consp grep-find-command) (car grep-f= ind-command) grep-find-command))) (compilation-start regexp (quote grep-mod= e))) (setq dir (file-name-as-directory (expand-file-name dir))) (require (q= uote find-dired)) (let ((command (grep-expand-template grep-find-template r= egexp (concat ... " " find-name-arg " " ... " " ...) dir (concat ... ...)))= ) (if command (progn (if confirm (setq command ...) (add-to-history ... com= mand)) (let (...) (compilation-start command ...)) (if (eq next-error-last-= buffer ...) (setq default-directory dir)))))))) rgrep("\"" "*.pig" "~/src/magnetic/research/" nil) funcall-interactively(rgrep "\"" "*.pig" "~/src/magnetic/research/" nil) apply(funcall-interactively rgrep ("\"" "*.pig" "~/src/magnetic/research/= " nil)) repeat-complex-command(1) funcall-interactively(repeat-complex-command 1) call-interactively(repeat-complex-command nil nil) command-execute(repeat-complex-command) In GNU Emacs 25.0.50.6 (x86_64-apple-darwin14.0.0, NS appkit-1343.16 Versio= n 10.10.1 (Build 14B25)) of 2014-11-24 on sds-MacBook-Pro.local Repository revision: e01ec2ed084776b370e0634120deec6b65424b8a Windowing system distributor `Apple', version 10.3.1343 Configured using: `configure --with-ns' --=20 Sam Steingold (http://sds.podval.org/) on darwin Ns 10.3.1343 http://www.childpsy.net/ http://honestreporting.com http://iris.org.il http://americancensorship.org http://mideasttruth.com http://jihadwatch.org It is easier to deal with a hungry tiger than with a full mule. ------------=_1416969003-2844-1--