Subject: bug#19171: closed (Re: bug#19171: 25.0.50; vc-directory-exclusion-list contiains (\, ".svn"))

From: [email-masked] (GNU bug Tracking System)
Date: Wed, 26 Nov 2014 02:30:03 +0000

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 [email-masked].

-- 
19171: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=19171
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: Re: bug#19171: 25.0.50; vc-directory-exclusion-list contiains (\, ".svn")
From: Glenn Morris <[email-masked]>
To: [email-masked]
Date: Tue, 25 Nov 2014 21:29:36 -0500
List-Id: <debbugs-submit.debbugs.gnu.org>

I see you fixed it.

A reminder that anyone can close bugs, by simply mailing to 123-done@debbugs.

Subject: 25.0.50; vc-directory-exclusion-list contiains (\, ".svn")
From: Sam Steingold <[email-masked]>
To: [email-masked]
Date: Mon, 24 Nov 2014 15:50:19 -0500
List-Id: <debbugs-submit.debbugs.gnu.org>

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 ignore))))
  (cond ((stringp ignore) (shell-quote-argument (concat "*/" ignore))) ((consp 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 ((stringp ignore) (shell-quote-argument (concat "*/" ignore))) ((consp ignore) (and (funcall (car ignore) dir) (shell-quote-argument (concat "*/" (cdr ignore)))))))((\, ".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))) ((consp 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 (function (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-argument ")") " -prune -o ")
  (and grep-find-ignored-directories (concat "-type d " (shell-quote-argument "(") " -path " (mapconcat (function (lambda (ignore) (cond ((stringp ignore) (shell-quote-argument ...)) ((consp ignore) (and ... ...))))) grep-find-ignored-directories " -o -path ") " " (shell-quote-argument ")") " -prune -o "))
  (concat (and grep-find-ignored-directories (concat "-type d " (shell-quote-argument "(") " -path " (mapconcat (function (lambda (ignore) (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-files " -o -name ") " " (shell-quote-argument ")") " -prune -o ")))
  (grep-expand-template grep-find-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 grep-find-ignored-directories (concat "-type d " (shell-quote-argument "(") " -path " (mapconcat (function (lambda (ignore) (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-files " -o -name ") " " (shell-quote-argument ")") " -prune -o "))))
  (let ((command (grep-expand-template grep-find-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 grep-find-ignored-directories (concat "-type d " (shell-quote-argument "(") " -path " (mapconcat ... 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 ... grep-find-ignored-files " -o -name ") " " (shell-quote-argument ")") " -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 ((default-directory dir)) (compilation-start command (quote grep-mode))) (if (eq next-error-last-buffer (current-buffer)) (setq default-directory dir)))))
  (if (null files) (if (not (string= regexp (if (consp grep-find-command) (car grep-find-command) grep-find-command))) (compilation-start regexp (quote grep-mode))) (setq dir (file-name-as-directory (expand-file-name dir))) (require (quote find-dired)) (let ((command (grep-expand-template grep-find-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 grep-find-ignored-directories (concat "-type d " ... " -path " ... " " ... " -prune -o ")) (and grep-find-ignored-files (concat ... " -type d " ... " -name " ... " " ... " -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 ((default-directory dir)) (compilation-start command (quote grep-mode))) (if (eq next-error-last-buffer (current-buffer)) (setq default-directory dir))))))
  (progn (if (and dir (file-accessible-directory-p dir)) nil (setq dir default-directory)) (if (null files) (if (not (string= regexp (if (consp grep-find-command) (car grep-find-command) grep-find-command))) (compilation-start regexp (quote grep-mode))) (setq dir (file-name-as-directory (expand-file-name dir))) (require (quote find-dired)) (let ((command (grep-expand-template 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-minibuffer "Confirm: " command nil nil ...)) (add-to-history (quote grep-find-history) command)) (let ((default-directory dir)) (compilation-start command (quote grep-mode))) (if (eq next-error-last-buffer (current-buffer)) (setq default-directory dir)))))))
  (if (and (stringp regexp) (> (length regexp) 0)) (progn (if (and dir (file-accessible-directory-p dir)) nil (setq dir default-directory)) (if (null files) (if (not (string= regexp (if (consp grep-find-command) (car grep-find-command) grep-find-command))) (compilation-start regexp (quote grep-mode))) (setq dir (file-name-as-directory (expand-file-name dir))) (require (quote find-dired)) (let ((command (grep-expand-template grep-find-template regexp (concat ... " " find-name-arg " " ... " " ...) dir (concat ... ...)))) (if command (progn (if confirm (setq command ...) (add-to-history ... command)) (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 Version 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'

-- 
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.