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

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

[Sam Steingold]

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.

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

[Glenn Morris]

I see you fixed it.

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