From: Sam Steingold <sds@gnu.org>
To: 19171@debbugs.gnu.org
Subject: bug#19171: 25.0.50; vc-directory-exclusion-list contiains (\, ".svn")
Date: Mon, 24 Nov 2014 15:50:19 -0500 [thread overview]
Message-ID: <m28uj0cohg.fsf@gnu.org> (raw)
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.
next reply other threads:[~2014-11-24 20:50 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2014-11-24 20:50 Sam Steingold [this message]
2014-11-26 2:29 ` bug#19171: 25.0.50; vc-directory-exclusion-list contiains (\, ".svn") Glenn Morris
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=m28uj0cohg.fsf@gnu.org \
--to=sds@gnu.org \
--cc=19171@debbugs.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).