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

Previous Next

Full log

View this message in rfc822 format

From: help-debbugs <at> gnu.org (GNU bug Tracking System)
To: sds <at> gnu.org
Subject: bug#19171: closed (Re: bug#19171: 25.0.50; vc-directory-exclusion-list
 contiains (\, ".svn"))
Date: Wed, 26 Nov 2014 02:30:03 +0000

[Message part 1 (text/plain, inline)]

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 <at> debbugs.gnu.org.

-- 
19171: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=19171
GNU Bug Tracking System
Contact help-debbugs <at> gnu.org with problems

[Message part 2 (message/rfc822, inline)]

From: Glenn Morris <rgm <at> gnu.org>
To: 19171-done <at> debbugs.gnu.org
Subject: Re: bug#19171: 25.0.50;
 vc-directory-exclusion-list contiains (\, ".svn")
Date: Tue, 25 Nov 2014 21:29:36 -0500

I see you fixed it.

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

[Message part 3 (message/rfc822, inline)]

From: Sam Steingold <sds <at> gnu.org>
To: bug-gnu-emacs <at> gnu.org
Subject: 25.0.50; vc-directory-exclusion-list contiains (\, ".svn")
Date: Mon, 24 Nov 2014 15:50:19 -0500

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.

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.