From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Sam Steingold Newsgroups: gmane.emacs.bugs Subject: bug#19171: 25.0.50; vc-directory-exclusion-list contiains (\, ".svn") Date: Mon, 24 Nov 2014 15:50:19 -0500 Message-ID: Reply-To: sds@gnu.org NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable X-Trace: ger.gmane.org 1416862285 12640 80.91.229.3 (24 Nov 2014 20:51:25 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Mon, 24 Nov 2014 20:51:25 +0000 (UTC) To: 19171@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Mon Nov 24 21:51:20 2014 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Xt0bL-00059F-D1 for geb-bug-gnu-emacs@m.gmane.org; Mon, 24 Nov 2014 21:51:15 +0100 Original-Received: from localhost ([::1]:54445 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Xt0bL-0005uw-1y for geb-bug-gnu-emacs@m.gmane.org; Mon, 24 Nov 2014 15:51:15 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:55923) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Xt0bC-0005uo-HU for bug-gnu-emacs@gnu.org; Mon, 24 Nov 2014 15:51:10 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Xt0b8-0006oJ-KS for bug-gnu-emacs@gnu.org; Mon, 24 Nov 2014 15:51:06 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:47070) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Xt0b8-0006oE-GA for bug-gnu-emacs@gnu.org; Mon, 24 Nov 2014 15:51:02 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1Xt0b8-0008Tf-5R for bug-gnu-emacs@gnu.org; Mon, 24 Nov 2014 15:51:02 -0500 X-Loop: help-debbugs@gnu.org 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: X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.141686224832545 (code B ref -1); Mon, 24 Nov 2014 20:51:01 +0000 Original-Received: (at submit) by debbugs.gnu.org; 24 Nov 2014 20:50:48 +0000 Original-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 Original-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 Original-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 Original-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 Original-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 Original-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 Original-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 Original-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) Original-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) X-Attribution: Sam X-Disclaimer: You should not expect anyone to agree with me. 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-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:96523 Archived-At: 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.