From unknown Sun Jun 22 07:58:22 2025 X-Loop: help-debbugs@gnu.org Subject: bug#27789: 26.0.50; grep-apply-setting: wrong-type-argument consp nil Resent-From: Kaushal Modi Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sat, 22 Jul 2017 04:05:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 27789 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: 27789@debbugs.gnu.org, npostavs@gmail.com X-Debbugs-Original-To: "bug-gnu-emacs@gnu.org" , Noam Postavsky Received: via spool by submit@debbugs.gnu.org id=B.1500696270793 (code B ref -1); Sat, 22 Jul 2017 04:05:01 +0000 Received: (at submit) by debbugs.gnu.org; 22 Jul 2017 04:04:30 +0000 Received: from localhost ([127.0.0.1]:51772 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dYleX-0000Ci-EP for submit@debbugs.gnu.org; Sat, 22 Jul 2017 00:04:30 -0400 Received: from eggs.gnu.org ([208.118.235.92]:38263) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dYleV-0000CW-44 for submit@debbugs.gnu.org; Sat, 22 Jul 2017 00:04:28 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dYleN-0006RJ-7N for submit@debbugs.gnu.org; Sat, 22 Jul 2017 00:04:22 -0400 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=0.8 required=5.0 tests=BAYES_50,FREEMAIL_FROM, HTML_MESSAGE,T_DKIM_INVALID autolearn=disabled version=3.3.2 Received: from lists.gnu.org ([2001:4830:134:3::11]:49896) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1dYleN-0006R1-3F for submit@debbugs.gnu.org; Sat, 22 Jul 2017 00:04:19 -0400 Received: from eggs.gnu.org ([2001:4830:134:3::10]:57465) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dYleK-0000d2-1b for bug-gnu-emacs@gnu.org; Sat, 22 Jul 2017 00:04:18 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dYleG-0006N1-PW for bug-gnu-emacs@gnu.org; Sat, 22 Jul 2017 00:04:16 -0400 Received: from mail-lf0-x22a.google.com ([2a00:1450:4010:c07::22a]:37695) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1dYleG-0006MT-7u for bug-gnu-emacs@gnu.org; Sat, 22 Jul 2017 00:04:12 -0400 Received: by mail-lf0-x22a.google.com with SMTP id m86so22100227lfi.4 for ; Fri, 21 Jul 2017 21:04:12 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=mime-version:from:date:message-id:subject:to; bh=RBArmQYOGURR7WHUBcNaP7gTUoKHcghzzWbh7PHuT+E=; b=ACAeVMN8Ic1sUzjSIyEqT8AUY8iH+OBtJXBMovhihVUR16gx8c5ysJMIfHtPFt9wVH TIbI9J4RlcpK8fkOdjKDGFA6Q0LMz7IaiEmzTDWWvKynMMslU/EASHsxyGijFaazkkvU 8DPD8L83Mu5uoMAzhDiI/fLOXnyObPc+EErGx3ghanMQHRTSNfOatS1RpHbPOgZSRJgh gG4TZYvNO44iTE7Jx4+mCS8QH/Aws5gqckpjyczf+ZgHrb55GUaxkehrETnwZuGUcR9V y1dyGWKUO8gkK5xwvSyJYRr5DYAN2UczZJznn6ye47G1BnZSBD/88hHwleHaip0wup4c MDwA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:mime-version:from:date:message-id:subject:to; bh=RBArmQYOGURR7WHUBcNaP7gTUoKHcghzzWbh7PHuT+E=; b=gBdM09L8LHJo+JH7AUDjpaedjHaCbnkRu2u9WqtdHh7lZzQxKa6ZbsOKiZorqW66jL 8+oNnAVB2EMlkKaYkfjbbwBQemxt0sdH80i/H4xBba5/yIV3qnbqA2DbqmuO1bPHjslY E+qYP/op0oEuv/shvnpv8P1UlNP/MVLB6AClMbpKEheDPQMa5/ssgD+AmRk6u2fruhJ/ R8yoVTMwXMBbEHFd/0mi4OIMwhKCAl1xzBbPKOvAYyRftDyi7+wm9zDjKt2XDWobRkyj Of9GvvmAF5CBITIBmtB4Z6RY/f4+Hv9KZLL+FkmPYcB7jzEa+q2mqP+uh495juLXR85I 6Q8w== X-Gm-Message-State: AIVw11067qYvTNWTRNTCp7rz5gU/BHkpF4lXL0j1t6x4Ox0JIGzPgjjA key+sBilqLfkugyuCF+C87L5HV1L3g== X-Received: by 10.46.0.20 with SMTP id 20mr415744lja.68.1500696250396; Fri, 21 Jul 2017 21:04:10 -0700 (PDT) MIME-Version: 1.0 From: Kaushal Modi Date: Sat, 22 Jul 2017 04:03:59 +0000 Message-ID: Content-Type: multipart/alternative; boundary="001a1142bfbeebb4f70554e01282" X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 2001:4830:134:3::11 X-Spam-Score: -4.0 (----) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -4.0 (----) --001a1142bfbeebb4f70554e01282 Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable Hello, I believe I started seeing this error after this commit[1]. I get the error when attempting to use ag search from ag.el[2]. =3D=3D=3D=3D=3D Debugger entered--Lisp error: (wrong-type-argument consp nil) grep-apply-setting(grep-use-null-filename-separator t) custom-initialize-reset(grep-use-null-filename-separator (funcall (function #f(compiled-function () #)))) custom-declare-variable(grep-use-null-filename-separator (funcall (function #f(compiled-function () #))) "If non-nil, use `grep's `--null' option.\nThis is done to disambiguate file names in `grep's output." :type (choice (const :tag "Do Not Use `--null'" nil) (const :tag "Use `--null'" t) (other :tag "Not Set" auto-detect)) :set grep-apply-setting :group grep) byte-code("\300\301\302\303\304DD\305\306\307\310\311\312\313&\011\210\300\= 314\302\303\315DD\316\306\317\320\321\310\311\312\313&\013\210\300\322\302\= 303\323DD\324\306\325\310\311\312\313&\011\210\300\326\302\303\327DD\330\30= 6\331\320\321\312\313&\011\210\300\332\302\303\333DD\334\306\335\320\321\31= 0\311\312\313&\013\210\300\336\302\303\337DD\340\306\341\320\321\312\313&\0= 11\210\300\342\302\303\343DD\344\306\345\320\321\312\313&\011\210\300\346\3= 02\303\347DD\350\306\351\320\321\312\313&\011\210\300\352\302\303\353DD\354= \306\355\320\321\310\311\312\313&\013\210\300\356\302\303\357DD\360\306\361= \312\313&\007\210\300\362\302\303\363DD\364\306\365\312\313&\007\210\300\36= 6\302\303\367DD\370\306\371\312\313&\007\210\300\372\302\303\373DD\374\310\= 375\306\376\312\313&\011\210\300\377\302\303\201@\0\ DD\201A\0\306\201B\0\310\311\312\313&\011\210\300\201C\0\302\303\201D\0\ DD\201E\0\306\201F\0\312\313&\007\207" [custom-declare-variable grep-window-height funcall function #f(compiled-function () #) "Number of lines in a grep window. If nil, use `compilation-window-height'." :type (choice (const :tag "Default" nil) integer) :version "22.1" :group grep grep-highlight-matches #f(compiled-function () #) "Use special markers to highlight grep matches.\n\nSome grep programs are able to surround matches with special\nmarkers in grep output. Such markers can be used to highlight\nmatches in grep mode. This requires `font-lock-mode' to be active\nin grep buffers, so if you have globally disabled font-lock-mode,\nyou will not get highlighting.\n\nThis option sets the environment variable GREP_COLORS to specify\nmarkers for highlighting and adds the --color option in front of\nany explicit grep options before starting the grep.\n\nWhen this option is `auto', grep uses `--color' to highlight\nmatches only when it outputs to a terminal (when `grep' is the last\ncommand in the pipe), thus avoiding the use of any potentially-harmful\nescape sequences when standard output goes to a file or pipe.\n\nTo make grep highlight matches even into a pipe, you need the option\n`always' that forces grep to use `--color=3Dalways' to unconditionally\noutput escape sequences.\n\nIn interactive usage, the actual value of this variable is set up\nby `grep-compute-defaults' when the default value is `auto-detect'.\nTo change the default value, use Customize or call the function\n`grep-apply-setting'." (choice (const :tag "Do not highlight matches with grep markers" nil) (const :tag "Highlight matches with grep markers" t) (const :tag "Use --color=3Dalways" always) (const :tag "Use --color" auto) (other :tag "Not Set" auto-detect)) :set grep-apply-setting grep-scroll-output #f(compiled-function () #) "Non-nil to scroll the *grep* buffer window as output appears.\n\nSetting it causes the grep commands to put point at the end of their\noutput window so that the end of the output is always visible rather\nthan the beginning." boolean grep-command #f(compiled-function () #) "The default grep command for \\[grep].\nIf the grep program used supports an option to always include file names\nin its output (such as the `-H' option to GNU grep), it's a good idea to\ninclude it when specifying `grep-command'.\n\nIn interactive usage, the actual value of this variable is set up\nby `grep-compute-defaults'; to change the default value, use\nCustomize or call the function `grep-apply-setting'." (choice string (const :tag "Not Set" nil)) grep-template #f(compiled-function () #) "The default command to run for \\[lgrep].\nThe following place holders should be present in the string:\n - place to put the options like -i and --color.\n - file names and wildcards to search.\n - file names and wildcards to exclude.\n - the regular expression searched for.\n - place to insert null-device.\n\nIn interactive usage, the actual value of this variable is set up\nby `grep-compute-defaults'; to change the default value, use\nCustomize or call the function `grep-apply-setting'." (choice string (const :tag "Not Set" nil)) grep-use-null-device #f(compiled-function () #) "If t, append the value of `null-device' to `grep' commands.\nThis is done to ensure that the output of grep includes the filename of\nany match in the case where only a single file is searched, and is not\nnecessary if the grep program used supports the `-H' option.\n\nIn interactive usage, the actual value of this variable is set up\nby `grep-compute-defaults'; to change the default value, use\nCustomize or call the function `grep-apply-setting'." (choice (const :tag "Do Not Append Null Device" nil) (const :tag "Append Null Device" t) (other :tag "Not Set" auto-detect)) grep-use-null-filename-separator #f(compiled-function () #) "If non-nil, use `grep's `--null' option.\nThis is done to disambiguate file names in `grep's output." (choice (const :tag "Do Not Use `--null'" nil) (const :tag "Use `--null'" t) (other :tag "Not Set" auto-detect)) grep-find-command #f(compiled-function () #) "The default find command for \\[grep-find].\nIn interactive usage, the actual value of this variable is set up\nby `grep-compute-defaults'; to change the default value, use\nCustomize or call the function `grep-apply-setting'." (choice string (const :tag "Not Set" nil)) grep-find-template #f(compiled-function () #) "The default command to run for \\[rgrep].\nThe following place holders should be present in the string:\n - base directory for find\n - find options to restrict or expand the directory list\n - find options to limit the files matched\n - place to put the grep options like -i and --color\n - the regular expression searched for.\nIn interactive usage, the actual value of this variable is set up\nby `grep-compute-defaults'; to change the default value, use\nCustomize or call the function `grep-apply-setting'." (choice string (const :tag "Not Set" nil)) grep-files-aliases #f(compiled-function () #) "Alist of aliases for the FILES argument to `lgrep' and `rgrep'." alist grep-find-ignored-directories #f(compiled-function () #) "List of names of sub-directories which `rgrep' shall not recurse into.\nIf an element is a cons cell, the car is called on the search directory\nto determine whether cdr should not be recursed into." (choice (repeat :tag "Ignored directories" string) (const :tag "No ignored directories" nil)) grep-find-ignored-files #f(compiled-function () #) "List of file names which `rgrep' and `lgrep' shall exclude.\nIf an element is a cons cell, the car is called on the search directory\nto determine whether cdr should not be excluded." (choice (repeat :tag "Ignored file" string) (const :tag "No ignored files" nil)) grep-save-buffers #f(compiled-function () #) "If non-nil, save buffers before running the grep commands.\nIf `ask', ask before saving. If a function, call it with no arguments\nwith each buffer current, as a predicate to determine whether that\nbuffer should be saved or not. E.g., one can set this to\n (lambda ()\n (string-prefix-p my-grep-root (file-truename (buffer-file-name))))\nto limit saving to files located under `my-grep-root'." "26.1" (choice (const :tag "Ask before saving" ask) (const :tag "Don't save buffers" nil) function (other :tag "Save all buffers" t)) grep-error-screen-columns #f(compiled-function () #) "If non-nil, column numbers in grep hits are screen columns.\nSee `compilation-error-screen-columns'" (choice (const :tag "Default" nil) integer) grep-setup-hook #f(compiled-function () #) "List of hook functions run by `grep-process-setup' (see `run-hooks')." hook] 12) #(grep nil nil) ad-Advice-require(# grep) apply(ad-Advice-require # grep) require(grep) byte-code("\300\301!\210\302\303\304\305\306\307\310\301&\007\210\311\312\3= 04\313\310\303\314\315&\007\210\311\316\317\320\310\303\314\321&\007\210\31= 1\322\304\323\310\303\314\315&\007\207" [require grep custom-declare-group wgrep nil "Customize wgrep" :prefix "wgrep-" :group custom-declare-variable wgrep-change-readonly-file "Non-nil means to enable change read-only files." :type boolean wgrep-enable-key "\003\020" "This variable will be obsoleted in the future release.\nKey to enable `wgrep-mode'." string wgrep-auto-save-buffer "Non-nil means do `save-buffer' automatically while `wgrep-finish-edit'."] 8) #(wgrep nil nil) ad-Advice-require(# wgrep) apply(ad-Advice-require # wgrep) require(wgrep) byte-code("\300\301!\210\300\302!\207" [require wgrep cl-lib] 2) wgrep-ag-setup() run-hooks(change-major-mode-after-body-hook compilation-mode-hook ag-mode-hook) apply(run-hooks (change-major-mode-after-body-hook compilation-mode-hook ag-mode-hook)) run-mode-hooks(ag-mode-hook) ag-mode() compilation-start("ag --nogroup --line-number --column --color --color-match 30\\;43 --color-path 1\\;32 --nogroup --skip-vcs-ignores --numbers --smart-case --follow --ignore \\#\\*\\# --stats -- preserve-breaks ." ag-mode (lambda (mode-name) "*ag search regexp:preserve-breaks dir:~/stow/pub_dotfiles/emacs/dot-emacs.d/elisp/org-mode/*")) ag/search("preserve-breaks" "~/stow/pub_dotfiles/emacs/dot-emacs.d/elisp/org-mode/" :regexp t) ag-project-regexp("preserve-breaks") funcall-interactively(ag-project-regexp "preserve-breaks") call-interactively(ag-project-regexp nil nil) command-execute(ag-project-regexp) =3D=3D=3D=3D=3D PS: @Noam: Thanks for making the elisp backtrace copyable :) [1]: http://git.savannah.gnu.org/cgit/emacs.git/commit/?id=3D644cdd1aa0a10dbfffa= 3b9b4c7a97f8cddded0b8 [2]: https://github.com/Wilfred/ag.el --=20 Kaushal Modi --001a1142bfbeebb4f70554e01282 Content-Type: text/html; charset="UTF-8" Content-Transfer-Encoding: quoted-printable
Hello,

I believe I started seeing this = error after this commit[1].

I get the error when a= ttempting to use ag search from ag.el[2].

=3D=3D= =3D=3D=3D
Debugger entered--Lisp error: (wrong-type-argument= consp nil)
=C2=A0 grep-apply-setting(grep-use-null-filename-sepa= rator t)
=C2=A0 custom-initialize-reset(grep-use-null-filename-se= parator (funcall (function #f(compiled-function () #<bytecode>))))
=C2=A0 custom-declare-variable(grep-use-null-filename-separator (fu= ncall (function #f(compiled-function () #<bytecode>))) "If non-n= il, use `grep's `--null' option.\nThis is done to disambiguate file= names in `grep's output." :type (choice (const :tag "Do Not = Use `--null'" nil) (const :tag "Use `--null'" t) (ot= her :tag "Not Set" auto-detect)) :set grep-apply-setting :group g= rep)
=C2=A0 byte-code("\300\301\302\303\304DD\305\306\307\31= 0\311\312\313&\011\210\300\314\302\303\315DD\316\306\317\320\321\310\31= 1\312\313&\013\210\300\322\302\303\323DD\324\306\325\310\311\312\313&am= p;\011\210\300\326\302\303\327DD\330\306\331\320\321\312\313&\011\210\3= 00\332\302\303\333DD\334\306\335\320\321\310\311\312\313&\013\210\300\3= 36\302\303\337DD\340\306\341\320\321\312\313&\011\210\300\342\302\303\3= 43DD\344\306\345\320\321\312\313&\011\210\300\346\302\303\347DD\350\306= \351\320\321\312\313&\011\210\300\352\302\303\353DD\354\306\355\320\321= \310\311\312\313&\013\210\300\356\302\303\357DD\360\306\361\312\313&= ;\007\210\300\362\302\303\363DD\364\306\365\312\313&\007\210\300\366\30= 2\303\367DD\370\306\371\312\313&\007\210\300\372\302\303\373DD\374\310\= 375\306\376\312\313&\011\210\300\377\302\303\201@\0\ DD\201A\0\306\201B= \0\310\311\312\313&\011\210\300\201C\0\302\303\201D\0\ DD\201E\0\306\20= 1F\0\312\313&\007\207" [custom-declare-variable grep-window-height= funcall function #f(compiled-function () #<bytecode>) "Number o= f lines in a grep window.=C2=A0 If nil, use `compilation-window-height'= ." :type (choice (const :tag "Default" nil) integer) :versio= n "22.1" :group grep grep-highlight-matches #f(compiled-function = () #<bytecode>) "Use special markers to highlight grep matches.\= n\nSome grep programs are able to surround matches with special\nmarkers in= grep output.=C2=A0 Such markers can be used to highlight\nmatches in grep = mode.=C2=A0 This requires `font-lock-mode' to be active\nin grep buffer= s, so if you have globally disabled font-lock-mode,\nyou will not get highl= ighting.\n\nThis option sets the environment variable GREP_COLORS to specif= y\nmarkers for highlighting and adds the --color option in front of\nany ex= plicit grep options before starting the grep.\n\nWhen this option is `auto&= #39;, grep uses `--color' to highlight\nmatches only when it outputs to= a terminal (when `grep' is the last\ncommand in the pipe), thus avoidi= ng the use of any potentially-harmful\nescape sequences when standard outpu= t goes to a file or pipe.\n\nTo make grep highlight matches even into a pip= e, you need the option\n`always' that forces grep to use `--color=3Dalw= ays' to unconditionally\noutput escape sequences.\n\nIn interactive usa= ge, the actual value of this variable is set up\nby `grep-compute-defaults&= #39; when the default value is `auto-detect'.\nTo change the default va= lue, use Customize or call the function\n`grep-apply-setting'." (c= hoice (const :tag "Do not highlight matches with grep markers" ni= l) (const :tag "Highlight matches with grep markers" t) (const :t= ag "Use --color=3Dalways" always) (const :tag "Use --color&q= uot; auto) (other :tag "Not Set" auto-detect)) :set grep-apply-se= tting grep-scroll-output #f(compiled-function () #<bytecode>) "N= on-nil to scroll the *grep* buffer window as output appears.\n\nSetting it = causes the grep commands to put point at the end of their\noutput window so= that the end of the output is always visible rather\nthan the beginning.&q= uot; boolean grep-command #f(compiled-function () #<bytecode>) "= The default grep command for \\[grep].\nIf the grep program used supports a= n option to always include file names\nin its output (such as the `-H' = option to GNU grep), it's a good idea to\ninclude it when specifying `g= rep-command'.\n\nIn interactive usage, the actual value of this variabl= e is set up\nby `grep-compute-defaults'; to change the default value, u= se\nCustomize or call the function `grep-apply-setting'." (choice = string (const :tag "Not Set" nil)) grep-template #f(compiled-func= tion () #<bytecode>) "The default command to run for \\[lgrep].\= nThe following place holders should be present in the string:\n <C> -= place to put the options like -i and --color.\n <F> - file names and= wildcards to search.\n <X> - file names and wildcards to exclude.\n = <R> - the regular expression searched for.\n <N> - place to ins= ert null-device.\n\nIn interactive usage, the actual value of this variable= is set up\nby `grep-compute-defaults'; to change the default value, us= e\nCustomize or call the function `grep-apply-setting'." (choice s= tring (const :tag "Not Set" nil)) grep-use-null-device #f(compile= d-function () #<bytecode>) "If t, append the value of `null-devi= ce' to `grep' commands.\nThis is done to ensure that the output of = grep includes the filename of\nany match in the case where only a single fi= le is searched, and is not\nnecessary if the grep program used supports the= `-H' option.\n\nIn interactive usage, the actual value of this variabl= e is set up\nby `grep-compute-defaults'; to change the default value, u= se\nCustomize or call the function `grep-apply-setting'." (choice = (const :tag "Do Not Append Null Device" nil) (const :tag "Ap= pend Null Device" t) (other :tag "Not Set" auto-detect)) gre= p-use-null-filename-separator #f(compiled-function () #<bytecode>) &q= uot;If non-nil, use `grep's `--null' option.\nThis is done to disam= biguate file names in `grep's output." (choice (const :tag "D= o Not Use `--null'" nil) (const :tag "Use `--null'" = t) (other :tag "Not Set" auto-detect)) grep-find-command #f(compi= led-function () #<bytecode>) "The default find command for \\[gr= ep-find].\nIn interactive usage, the actual value of this variable is set u= p\nby `grep-compute-defaults'; to change the default value, use\nCustom= ize or call the function `grep-apply-setting'." (choice string (co= nst :tag "Not Set" nil)) grep-find-template #f(compiled-function = () #<bytecode>) "The default command to run for \\[rgrep].\nThe = following place holders should be present in the string:\n <D> - base= directory for find\n <X> - find options to restrict or expand the di= rectory list\n <F> - find options to limit the files matched\n <C&= gt; - place to put the grep options like -i and --color\n <R> - the r= egular expression searched for.\nIn interactive usage, the actual value of = this variable is set up\nby `grep-compute-defaults'; to change the defa= ult value, use\nCustomize or call the function `grep-apply-setting'.&qu= ot; (choice string (const :tag "Not Set" nil)) grep-files-aliases= #f(compiled-function () #<bytecode>) "Alist of aliases for the = FILES argument to `lgrep' and `rgrep'." alist grep-find-ignore= d-directories #f(compiled-function () #<bytecode>) "List of name= s of sub-directories which `rgrep' shall not recurse into.\nIf an eleme= nt is a cons cell, the car is called on the search directory\nto determine = whether cdr should not be recursed into." (choice (repeat :tag "I= gnored directories" string) (const :tag "No ignored directories&q= uot; nil)) grep-find-ignored-files #f(compiled-function () #<bytecode>= ;) "List of file names which `rgrep' and `lgrep' shall exclude= .\nIf an element is a cons cell, the car is called on the search directory\= nto determine whether cdr should not be excluded." (choice (repeat :ta= g "Ignored file" string) (const :tag "No ignored files"= nil)) grep-save-buffers #f(compiled-function () #<bytecode>) "I= f non-nil, save buffers before running the grep commands.\nIf `ask', as= k before saving.=C2=A0 If a function, call it with no arguments\nwith each = buffer current, as a predicate to determine whether that\nbuffer should be = saved or not.=C2=A0 E.g., one can set this to\n =C2=A0(lambda ()\n =C2=A0 = =C2=A0(string-prefix-p my-grep-root (file-truename (buffer-file-name))))\nt= o limit saving to files located under `my-grep-root'." "26.1&= quot; (choice (const :tag "Ask before saving" ask) (const :tag &q= uot;Don't save buffers" nil) function (other :tag "Save all b= uffers" t)) grep-error-screen-columns #f(compiled-function () #<byt= ecode>) "If non-nil, column numbers in grep hits are screen columns= .\nSee `compilation-error-screen-columns'" (choice (const :tag &qu= ot;Default" nil) integer) grep-setup-hook #f(compiled-function () #<= ;bytecode>) "List of hook functions run by `grep-process-setup'= (see `run-hooks')." hook] 12)
=C2=A0 #<subr require&= gt;(grep nil nil)
=C2=A0 ad-Advice-require(#<subr require> = grep)
=C2=A0 apply(ad-Advice-require #<subr require> grep)<= /div>
=C2=A0 require(grep)
=C2=A0 byte-code("\300\301!\2= 10\302\303\304\305\306\307\310\301&\007\210\311\312\304\313\310\303\314= \315&\007\210\311\316\317\320\310\303\314\321&\007\210\311\322\304\= 323\310\303\314\315&\007\207" [require grep custom-declare-group w= grep nil "Customize wgrep" :prefix "wgrep-" :group cust= om-declare-variable wgrep-change-readonly-file "Non-nil means to enabl= e change read-only files." :type boolean wgrep-enable-key "\003\0= 20" "This variable will be obsoleted in the future release.\nKey = to enable `wgrep-mode'." string wgrep-auto-save-buffer "Non-n= il means do `save-buffer' automatically while `wgrep-finish-edit'.&= quot;] 8)
=C2=A0 #<subr require>(wgrep nil nil)
= =C2=A0 ad-Advice-require(#<subr require> wgrep)
=C2=A0 appl= y(ad-Advice-require #<subr require> wgrep)
=C2=A0 require(w= grep)
=C2=A0 byte-code("\300\301!\210\300\302!\207" [re= quire wgrep cl-lib] 2)
=C2=A0 wgrep-ag-setup()
=C2=A0 r= un-hooks(change-major-mode-after-body-hook compilation-mode-hook ag-mode-ho= ok)
=C2=A0 apply(run-hooks (change-major-mode-after-body-hook com= pilation-mode-hook ag-mode-hook))
=C2=A0 run-mode-hooks(ag-mode-h= ook)
=C2=A0 ag-mode()
=C2=A0 compilation-start("ag= --nogroup --line-number --column --color --color-match 30\\;43 --color-pat= h 1\\;32 --nogroup --skip-vcs-ignores --numbers --smart-case --follow --ign= ore \\#\\*\\# --stats -- preserve-breaks ." ag-mode (lambda (mode-name= ) "*ag search regexp:preserve-breaks dir:~/stow/pub_dotfiles/emacs/dot= -emacs.d/elisp/org-mode/*"))
=C2=A0 ag/search("preserve= -breaks" "~/stow/pub_dotfiles/emacs/dot-emacs.d/elisp/org-mode/&q= uot; :regexp t)
=C2=A0 ag-project-regexp("preserve-breaks&qu= ot;)
=C2=A0 funcall-interactively(ag-project-regexp "preserv= e-breaks")
=C2=A0 call-interactively(ag-project-regexp nil n= il)
=C2=A0 command-execute(ag-project-regexp)
=3D= =3D=3D=3D=3D

PS: @Noam: Thanks for making the elis= p backtrace copyable :)

--

Kaushal Modi

--001a1142bfbeebb4f70554e01282-- From unknown Sun Jun 22 07:58:22 2025 X-Loop: help-debbugs@gnu.org Subject: bug#27789: 26.0.50; grep-apply-setting: wrong-type-argument consp nil Resent-From: npostavs@users.sourceforge.net Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sat, 22 Jul 2017 11:59:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 27789 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: Kaushal Modi Cc: 27789@debbugs.gnu.org Received: via spool by 27789-submit@debbugs.gnu.org id=B27789.150072471225208 (code B ref 27789); Sat, 22 Jul 2017 11:59:01 +0000 Received: (at 27789) by debbugs.gnu.org; 22 Jul 2017 11:58:32 +0000 Received: from localhost ([127.0.0.1]:51955 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dYt3H-0006YV-QN for submit@debbugs.gnu.org; Sat, 22 Jul 2017 07:58:31 -0400 Received: from mail-io0-f175.google.com ([209.85.223.175]:34049) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dYt3G-0006YJ-AM for 27789@debbugs.gnu.org; Sat, 22 Jul 2017 07:58:30 -0400 Received: by mail-io0-f175.google.com with SMTP id l7so30313644iof.1 for <27789@debbugs.gnu.org>; Sat, 22 Jul 2017 04:58:30 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=sender:from:to:cc:subject:references:date:in-reply-to:message-id :user-agent:mime-version; bh=Tm0NBA0QULk/6DSDKdUBXcEHA0VrjKYQzLMfQw/92KE=; b=jGX/zgf2cKVRmmXOSVsL58Y7gY1O9dG952WJ+2WBvmykJHHbZ/7FoZMKcYokmHcy8I sZY+WoRhlmZE96Vu80Zho/9NmUI1fsXkolLySW3ge0rIumsA+RMDGYdYecRt4iPpPg0g 8lyGUgsg7o3UkIujI4MQ+jOhT9PFYhyTqJNmD+brXZa0Hs+V1/Bs+VM1H9I2Tn7GAv6p /UOYqpFT11wvB7Fo14eV0ei3nCQOWfW0jtda8xI9an+rYQd8wCWqBQYD39s+6Ts9XpWX Tm5YfgfMQ2uKXpKyjd2JOU4p6ju29yLo49p4lPESvGTIJ1Rvj5k+K54YRubt7kPFy7Yi I+Qg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:sender:from:to:cc:subject:references:date :in-reply-to:message-id:user-agent:mime-version; bh=Tm0NBA0QULk/6DSDKdUBXcEHA0VrjKYQzLMfQw/92KE=; b=NFlhar8swBYk9CBFOxD1zUYJ/tUyFW0SppvWf9jQa4SWwUoRLJKJu0WECus9wS6U1I pZ+0GWLMX0G6QT8KRg25D5ocMMrsnrehUmI3LtO7qCt+CcU09/MMzr3XbvnH7R9/qRUQ 80Y3Hde5HzhDwiJnk8aXbJydglsAfAc7MTcWNgGTQm8anmmj03EaitgJrygiOQ0mXYGQ QTqF978T6U0mQumDfmc5HfnRb35/fTTxXOzgMaj+i2vaJT9fdOlM41Km/eYPUu/1rI9U opzVDBl07GfqcS9/6epQF0fg5IMgxPybyDwlHmaBggRAZ1pOxc2aYcC9DvoadXxbmVqI tBww== X-Gm-Message-State: AIVw1131JkaXWbMSxCb7xhx+mzsv+tI0hglfqRsC3X3oqyoZpwxQFpCm yRp0yM+9H7J+MH0Y X-Received: by 10.107.30.76 with SMTP id e73mr8329629ioe.158.1500724704407; Sat, 22 Jul 2017 04:58:24 -0700 (PDT) Received: from zony ([45.2.7.65]) by smtp.googlemail.com with ESMTPSA id d72sm3406418iod.46.2017.07.22.04.58.23 (version=TLS1_2 cipher=ECDHE-RSA-CHACHA20-POLY1305 bits=256/256); Sat, 22 Jul 2017 04:58:23 -0700 (PDT) From: npostavs@users.sourceforge.net References: Date: Sat, 22 Jul 2017 07:59:59 -0400 In-Reply-To: (Kaushal Modi's message of "Sat, 22 Jul 2017 04:03:59 +0000") Message-ID: <878tjgadhc.fsf@users.sourceforge.net> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/25.2.50 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain X-Spam-Score: -2.1 (--) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -2.1 (--) Kaushal Modi writes: > I believe I started seeing this error after this commit[1]. > > I get the error when attempting to use ag search from ag.el[2]. I'm not able to reproduce this, can you show a recipe starting from 'emacs -Q'? From unknown Sun Jun 22 07:58:22 2025 MIME-Version: 1.0 X-Mailer: MIME-tools 5.505 (Entity 5.505) X-Loop: help-debbugs@gnu.org From: help-debbugs@gnu.org (GNU bug Tracking System) To: Kaushal Modi Subject: bug#27789: closed (Re: bug#27789: 26.0.50; grep-apply-setting: wrong-type-argument consp nil) Message-ID: References: X-Gnu-PR-Message: they-closed 27789 X-Gnu-PR-Package: emacs Reply-To: 27789@debbugs.gnu.org Date: Sun, 23 Jul 2017 02:53:02 +0000 Content-Type: multipart/mixed; boundary="----------=_1500778382-14196-1" This is a multi-part message in MIME format... ------------=_1500778382-14196-1 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset="utf-8" Your bug report #27789: 26.0.50; grep-apply-setting: wrong-type-argument consp nil 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 27789@debbugs.gnu.org. --=20 27789: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=3D27789 GNU Bug Tracking System Contact help-debbugs@gnu.org with problems ------------=_1500778382-14196-1 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit Received: (at 27789-done) by debbugs.gnu.org; 23 Jul 2017 02:52:28 +0000 Received: from localhost ([127.0.0.1]:52788 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dZ70O-0003g7-Fl for submit@debbugs.gnu.org; Sat, 22 Jul 2017 22:52:28 -0400 Received: from mail-lf0-f42.google.com ([209.85.215.42]:33988) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dZ70M-0003fv-TY for 27789-done@debbugs.gnu.org; Sat, 22 Jul 2017 22:52:27 -0400 Received: by mail-lf0-f42.google.com with SMTP id g25so30350530lfh.1 for <27789-done@debbugs.gnu.org>; Sat, 22 Jul 2017 19:52:26 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=mime-version:references:in-reply-to:from:date:message-id:subject:to; bh=1SrhkH95nHCWkefaZ1RdmZP9YYNAbNCFaeXYW8ZXuMQ=; b=oJE2VGIlhgmjPB8GGDFWrrkFR+a6JeB/c4kQV7BsjI97DQlgP7yJBRn1QVaBFPOrAx uPdClj8Xw1hNJP+u3RuGwL8xmCLRb3hIPMmygsaDedIkjdE0Bl0nUMXI5pWHjUfZ0ZLl 98dpjpSIhHGHF8y4596HDFGJlFrpMuhF7BN04qqOQbjYbS69L9lTLT72qYNdkh4vvDsm vf1rpO412aJKe5laaRdvlMM9NNO2A/vvD6QjGPkZGvuVXqiZ0qqmPWszcumxl7Npnn+A U+DGXC7Ezc4UySPFGaBpi820eENCAaCmQbAp2+vN84dyVQb3ek9qFLwVcXSIberVg1+J ff2w== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:mime-version:references:in-reply-to:from:date :message-id:subject:to; bh=1SrhkH95nHCWkefaZ1RdmZP9YYNAbNCFaeXYW8ZXuMQ=; b=ss9+19oN4JqEKsQPLkplCjqe6GhqwVHbwBTFqQJAYP/T6o8qJHj6G8kozXHWeERgeS AxlbMgTmsufdqpZsC19/UJx+GRq4Etb2OMFvM+mFzZMkzzXMe8fRlhFGY1LPSy4Rncph X8nutErLuuai6O+gFkxeWVxvjoD60JkXf5GV96nton8jLIf1cjTQmCA61WQI2IgNUkqM cz9rAZlG2zCQpQtBEIYuUJHV2MW2D3wQVizS6+A93mJnug1t2PYL8N0wzvYwypwtIq9U zL10PZEtoOpjYdOrf9KW94tNTNRbQS2KlX7+pvGkwngPoI7ID77ZZXRmeoPw2Aw7IY1w HEyQ== X-Gm-Message-State: AIVw110JRBymhDx6ivL3ZvVW+NL2ipP3+ns2w+Dc3xV9KFjhdgbEX+4y 80b1p3uDG9Wi8tS3BB1Bn96/TYvu6Q== X-Received: by 10.46.21.84 with SMTP id 20mr3535514ljv.121.1500778340856; Sat, 22 Jul 2017 19:52:20 -0700 (PDT) MIME-Version: 1.0 References: <878tjgadhc.fsf@users.sourceforge.net> In-Reply-To: <878tjgadhc.fsf@users.sourceforge.net> From: Kaushal Modi Date: Sun, 23 Jul 2017 02:52:10 +0000 Message-ID: Subject: Re: bug#27789: 26.0.50; grep-apply-setting: wrong-type-argument consp nil To: npostavs@users.sourceforge.net, 27789-done@debbugs.gnu.org Content-Type: multipart/alternative; boundary="94eb2c1cda1ee4b8c20554f32ffb" X-Spam-Score: 0.5 (/) X-Debbugs-Envelope-To: 27789-done X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: 0.5 (/) --94eb2c1cda1ee4b8c20554f32ffb Content-Type: text/plain; charset="UTF-8" On Sat, Jul 22, 2017 at 7:58 AM wrote: > > I'm not able to reproduce this, can you show a recipe starting from > 'emacs -Q'? > I rebuilt emacs from latest master today. Now I am also now unable to recreate this issue when using the same command (ag-project-regexp) in the same project (Org repo). Odd.. the backtrace that I posted was real though :) I'll close the issue for now. -- Kaushal Modi --94eb2c1cda1ee4b8c20554f32ffb Content-Type: text/html; charset="UTF-8" Content-Transfer-Encoding: quoted-printable
On Sat, Jul 22= , 2017 at 7:58 AM <npo= stavs@users.sourceforge.net> wrote:

I'm not able to reproduce this, can you show a recipe starting from
'emacs -Q'?

I rebuilt emacs fro= m latest master today.

Now I am also now unable to= recreate this issue when using the same command (ag-project-regexp) in the= same project (Org repo).

Odd.. the backtrace that= I posted was real though :)

I'll close the is= sue for now.=C2=A0
--

Kau= shal Modi

--94eb2c1cda1ee4b8c20554f32ffb-- ------------=_1500778382-14196-1 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit Received: (at submit) by debbugs.gnu.org; 22 Jul 2017 04:04:30 +0000 Received: from localhost ([127.0.0.1]:51772 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dYleX-0000Ci-EP for submit@debbugs.gnu.org; Sat, 22 Jul 2017 00:04:30 -0400 Received: from eggs.gnu.org ([208.118.235.92]:38263) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dYleV-0000CW-44 for submit@debbugs.gnu.org; Sat, 22 Jul 2017 00:04:28 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dYleN-0006RJ-7N for submit@debbugs.gnu.org; Sat, 22 Jul 2017 00:04:22 -0400 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=0.8 required=5.0 tests=BAYES_50,FREEMAIL_FROM, HTML_MESSAGE,T_DKIM_INVALID autolearn=disabled version=3.3.2 Received: from lists.gnu.org ([2001:4830:134:3::11]:49896) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1dYleN-0006R1-3F for submit@debbugs.gnu.org; Sat, 22 Jul 2017 00:04:19 -0400 Received: from eggs.gnu.org ([2001:4830:134:3::10]:57465) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dYleK-0000d2-1b for bug-gnu-emacs@gnu.org; Sat, 22 Jul 2017 00:04:18 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dYleG-0006N1-PW for bug-gnu-emacs@gnu.org; Sat, 22 Jul 2017 00:04:16 -0400 Received: from mail-lf0-x22a.google.com ([2a00:1450:4010:c07::22a]:37695) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1dYleG-0006MT-7u for bug-gnu-emacs@gnu.org; Sat, 22 Jul 2017 00:04:12 -0400 Received: by mail-lf0-x22a.google.com with SMTP id m86so22100227lfi.4 for ; Fri, 21 Jul 2017 21:04:12 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=mime-version:from:date:message-id:subject:to; bh=RBArmQYOGURR7WHUBcNaP7gTUoKHcghzzWbh7PHuT+E=; b=ACAeVMN8Ic1sUzjSIyEqT8AUY8iH+OBtJXBMovhihVUR16gx8c5ysJMIfHtPFt9wVH TIbI9J4RlcpK8fkOdjKDGFA6Q0LMz7IaiEmzTDWWvKynMMslU/EASHsxyGijFaazkkvU 8DPD8L83Mu5uoMAzhDiI/fLOXnyObPc+EErGx3ghanMQHRTSNfOatS1RpHbPOgZSRJgh gG4TZYvNO44iTE7Jx4+mCS8QH/Aws5gqckpjyczf+ZgHrb55GUaxkehrETnwZuGUcR9V y1dyGWKUO8gkK5xwvSyJYRr5DYAN2UczZJznn6ye47G1BnZSBD/88hHwleHaip0wup4c MDwA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:mime-version:from:date:message-id:subject:to; bh=RBArmQYOGURR7WHUBcNaP7gTUoKHcghzzWbh7PHuT+E=; b=gBdM09L8LHJo+JH7AUDjpaedjHaCbnkRu2u9WqtdHh7lZzQxKa6ZbsOKiZorqW66jL 8+oNnAVB2EMlkKaYkfjbbwBQemxt0sdH80i/H4xBba5/yIV3qnbqA2DbqmuO1bPHjslY E+qYP/op0oEuv/shvnpv8P1UlNP/MVLB6AClMbpKEheDPQMa5/ssgD+AmRk6u2fruhJ/ R8yoVTMwXMBbEHFd/0mi4OIMwhKCAl1xzBbPKOvAYyRftDyi7+wm9zDjKt2XDWobRkyj Of9GvvmAF5CBITIBmtB4Z6RY/f4+Hv9KZLL+FkmPYcB7jzEa+q2mqP+uh495juLXR85I 6Q8w== X-Gm-Message-State: AIVw11067qYvTNWTRNTCp7rz5gU/BHkpF4lXL0j1t6x4Ox0JIGzPgjjA key+sBilqLfkugyuCF+C87L5HV1L3g== X-Received: by 10.46.0.20 with SMTP id 20mr415744lja.68.1500696250396; Fri, 21 Jul 2017 21:04:10 -0700 (PDT) MIME-Version: 1.0 From: Kaushal Modi Date: Sat, 22 Jul 2017 04:03:59 +0000 Message-ID: Subject: 26.0.50; grep-apply-setting: wrong-type-argument consp nil To: "bug-gnu-emacs@gnu.org" , Noam Postavsky Content-Type: multipart/alternative; boundary="001a1142bfbeebb4f70554e01282" X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 2001:4830:134:3::11 X-Spam-Score: -4.0 (----) X-Debbugs-Envelope-To: submit X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -4.0 (----) --001a1142bfbeebb4f70554e01282 Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable Hello, I believe I started seeing this error after this commit[1]. I get the error when attempting to use ag search from ag.el[2]. =3D=3D=3D=3D=3D Debugger entered--Lisp error: (wrong-type-argument consp nil) grep-apply-setting(grep-use-null-filename-separator t) custom-initialize-reset(grep-use-null-filename-separator (funcall (function #f(compiled-function () #)))) custom-declare-variable(grep-use-null-filename-separator (funcall (function #f(compiled-function () #))) "If non-nil, use `grep's `--null' option.\nThis is done to disambiguate file names in `grep's output." :type (choice (const :tag "Do Not Use `--null'" nil) (const :tag "Use `--null'" t) (other :tag "Not Set" auto-detect)) :set grep-apply-setting :group grep) byte-code("\300\301\302\303\304DD\305\306\307\310\311\312\313&\011\210\300\= 314\302\303\315DD\316\306\317\320\321\310\311\312\313&\013\210\300\322\302\= 303\323DD\324\306\325\310\311\312\313&\011\210\300\326\302\303\327DD\330\30= 6\331\320\321\312\313&\011\210\300\332\302\303\333DD\334\306\335\320\321\31= 0\311\312\313&\013\210\300\336\302\303\337DD\340\306\341\320\321\312\313&\0= 11\210\300\342\302\303\343DD\344\306\345\320\321\312\313&\011\210\300\346\3= 02\303\347DD\350\306\351\320\321\312\313&\011\210\300\352\302\303\353DD\354= \306\355\320\321\310\311\312\313&\013\210\300\356\302\303\357DD\360\306\361= \312\313&\007\210\300\362\302\303\363DD\364\306\365\312\313&\007\210\300\36= 6\302\303\367DD\370\306\371\312\313&\007\210\300\372\302\303\373DD\374\310\= 375\306\376\312\313&\011\210\300\377\302\303\201@\0\ DD\201A\0\306\201B\0\310\311\312\313&\011\210\300\201C\0\302\303\201D\0\ DD\201E\0\306\201F\0\312\313&\007\207" [custom-declare-variable grep-window-height funcall function #f(compiled-function () #) "Number of lines in a grep window. If nil, use `compilation-window-height'." :type (choice (const :tag "Default" nil) integer) :version "22.1" :group grep grep-highlight-matches #f(compiled-function () #) "Use special markers to highlight grep matches.\n\nSome grep programs are able to surround matches with special\nmarkers in grep output. Such markers can be used to highlight\nmatches in grep mode. This requires `font-lock-mode' to be active\nin grep buffers, so if you have globally disabled font-lock-mode,\nyou will not get highlighting.\n\nThis option sets the environment variable GREP_COLORS to specify\nmarkers for highlighting and adds the --color option in front of\nany explicit grep options before starting the grep.\n\nWhen this option is `auto', grep uses `--color' to highlight\nmatches only when it outputs to a terminal (when `grep' is the last\ncommand in the pipe), thus avoiding the use of any potentially-harmful\nescape sequences when standard output goes to a file or pipe.\n\nTo make grep highlight matches even into a pipe, you need the option\n`always' that forces grep to use `--color=3Dalways' to unconditionally\noutput escape sequences.\n\nIn interactive usage, the actual value of this variable is set up\nby `grep-compute-defaults' when the default value is `auto-detect'.\nTo change the default value, use Customize or call the function\n`grep-apply-setting'." (choice (const :tag "Do not highlight matches with grep markers" nil) (const :tag "Highlight matches with grep markers" t) (const :tag "Use --color=3Dalways" always) (const :tag "Use --color" auto) (other :tag "Not Set" auto-detect)) :set grep-apply-setting grep-scroll-output #f(compiled-function () #) "Non-nil to scroll the *grep* buffer window as output appears.\n\nSetting it causes the grep commands to put point at the end of their\noutput window so that the end of the output is always visible rather\nthan the beginning." boolean grep-command #f(compiled-function () #) "The default grep command for \\[grep].\nIf the grep program used supports an option to always include file names\nin its output (such as the `-H' option to GNU grep), it's a good idea to\ninclude it when specifying `grep-command'.\n\nIn interactive usage, the actual value of this variable is set up\nby `grep-compute-defaults'; to change the default value, use\nCustomize or call the function `grep-apply-setting'." (choice string (const :tag "Not Set" nil)) grep-template #f(compiled-function () #) "The default command to run for \\[lgrep].\nThe following place holders should be present in the string:\n - place to put the options like -i and --color.\n - file names and wildcards to search.\n - file names and wildcards to exclude.\n - the regular expression searched for.\n - place to insert null-device.\n\nIn interactive usage, the actual value of this variable is set up\nby `grep-compute-defaults'; to change the default value, use\nCustomize or call the function `grep-apply-setting'." (choice string (const :tag "Not Set" nil)) grep-use-null-device #f(compiled-function () #) "If t, append the value of `null-device' to `grep' commands.\nThis is done to ensure that the output of grep includes the filename of\nany match in the case where only a single file is searched, and is not\nnecessary if the grep program used supports the `-H' option.\n\nIn interactive usage, the actual value of this variable is set up\nby `grep-compute-defaults'; to change the default value, use\nCustomize or call the function `grep-apply-setting'." (choice (const :tag "Do Not Append Null Device" nil) (const :tag "Append Null Device" t) (other :tag "Not Set" auto-detect)) grep-use-null-filename-separator #f(compiled-function () #) "If non-nil, use `grep's `--null' option.\nThis is done to disambiguate file names in `grep's output." (choice (const :tag "Do Not Use `--null'" nil) (const :tag "Use `--null'" t) (other :tag "Not Set" auto-detect)) grep-find-command #f(compiled-function () #) "The default find command for \\[grep-find].\nIn interactive usage, the actual value of this variable is set up\nby `grep-compute-defaults'; to change the default value, use\nCustomize or call the function `grep-apply-setting'." (choice string (const :tag "Not Set" nil)) grep-find-template #f(compiled-function () #) "The default command to run for \\[rgrep].\nThe following place holders should be present in the string:\n - base directory for find\n - find options to restrict or expand the directory list\n - find options to limit the files matched\n - place to put the grep options like -i and --color\n - the regular expression searched for.\nIn interactive usage, the actual value of this variable is set up\nby `grep-compute-defaults'; to change the default value, use\nCustomize or call the function `grep-apply-setting'." (choice string (const :tag "Not Set" nil)) grep-files-aliases #f(compiled-function () #) "Alist of aliases for the FILES argument to `lgrep' and `rgrep'." alist grep-find-ignored-directories #f(compiled-function () #) "List of names of sub-directories which `rgrep' shall not recurse into.\nIf an element is a cons cell, the car is called on the search directory\nto determine whether cdr should not be recursed into." (choice (repeat :tag "Ignored directories" string) (const :tag "No ignored directories" nil)) grep-find-ignored-files #f(compiled-function () #) "List of file names which `rgrep' and `lgrep' shall exclude.\nIf an element is a cons cell, the car is called on the search directory\nto determine whether cdr should not be excluded." (choice (repeat :tag "Ignored file" string) (const :tag "No ignored files" nil)) grep-save-buffers #f(compiled-function () #) "If non-nil, save buffers before running the grep commands.\nIf `ask', ask before saving. If a function, call it with no arguments\nwith each buffer current, as a predicate to determine whether that\nbuffer should be saved or not. E.g., one can set this to\n (lambda ()\n (string-prefix-p my-grep-root (file-truename (buffer-file-name))))\nto limit saving to files located under `my-grep-root'." "26.1" (choice (const :tag "Ask before saving" ask) (const :tag "Don't save buffers" nil) function (other :tag "Save all buffers" t)) grep-error-screen-columns #f(compiled-function () #) "If non-nil, column numbers in grep hits are screen columns.\nSee `compilation-error-screen-columns'" (choice (const :tag "Default" nil) integer) grep-setup-hook #f(compiled-function () #) "List of hook functions run by `grep-process-setup' (see `run-hooks')." hook] 12) #(grep nil nil) ad-Advice-require(# grep) apply(ad-Advice-require # grep) require(grep) byte-code("\300\301!\210\302\303\304\305\306\307\310\301&\007\210\311\312\3= 04\313\310\303\314\315&\007\210\311\316\317\320\310\303\314\321&\007\210\31= 1\322\304\323\310\303\314\315&\007\207" [require grep custom-declare-group wgrep nil "Customize wgrep" :prefix "wgrep-" :group custom-declare-variable wgrep-change-readonly-file "Non-nil means to enable change read-only files." :type boolean wgrep-enable-key "\003\020" "This variable will be obsoleted in the future release.\nKey to enable `wgrep-mode'." string wgrep-auto-save-buffer "Non-nil means do `save-buffer' automatically while `wgrep-finish-edit'."] 8) #(wgrep nil nil) ad-Advice-require(# wgrep) apply(ad-Advice-require # wgrep) require(wgrep) byte-code("\300\301!\210\300\302!\207" [require wgrep cl-lib] 2) wgrep-ag-setup() run-hooks(change-major-mode-after-body-hook compilation-mode-hook ag-mode-hook) apply(run-hooks (change-major-mode-after-body-hook compilation-mode-hook ag-mode-hook)) run-mode-hooks(ag-mode-hook) ag-mode() compilation-start("ag --nogroup --line-number --column --color --color-match 30\\;43 --color-path 1\\;32 --nogroup --skip-vcs-ignores --numbers --smart-case --follow --ignore \\#\\*\\# --stats -- preserve-breaks ." ag-mode (lambda (mode-name) "*ag search regexp:preserve-breaks dir:~/stow/pub_dotfiles/emacs/dot-emacs.d/elisp/org-mode/*")) ag/search("preserve-breaks" "~/stow/pub_dotfiles/emacs/dot-emacs.d/elisp/org-mode/" :regexp t) ag-project-regexp("preserve-breaks") funcall-interactively(ag-project-regexp "preserve-breaks") call-interactively(ag-project-regexp nil nil) command-execute(ag-project-regexp) =3D=3D=3D=3D=3D PS: @Noam: Thanks for making the elisp backtrace copyable :) [1]: http://git.savannah.gnu.org/cgit/emacs.git/commit/?id=3D644cdd1aa0a10dbfffa= 3b9b4c7a97f8cddded0b8 [2]: https://github.com/Wilfred/ag.el --=20 Kaushal Modi --001a1142bfbeebb4f70554e01282 Content-Type: text/html; charset="UTF-8" Content-Transfer-Encoding: quoted-printable
Hello,

I believe I started seeing this = error after this commit[1].

I get the error when a= ttempting to use ag search from ag.el[2].

=3D=3D= =3D=3D=3D
Debugger entered--Lisp error: (wrong-type-argument= consp nil)
=C2=A0 grep-apply-setting(grep-use-null-filename-sepa= rator t)
=C2=A0 custom-initialize-reset(grep-use-null-filename-se= parator (funcall (function #f(compiled-function () #<bytecode>))))
=C2=A0 custom-declare-variable(grep-use-null-filename-separator (fu= ncall (function #f(compiled-function () #<bytecode>))) "If non-n= il, use `grep's `--null' option.\nThis is done to disambiguate file= names in `grep's output." :type (choice (const :tag "Do Not = Use `--null'" nil) (const :tag "Use `--null'" t) (ot= her :tag "Not Set" auto-detect)) :set grep-apply-setting :group g= rep)
=C2=A0 byte-code("\300\301\302\303\304DD\305\306\307\31= 0\311\312\313&\011\210\300\314\302\303\315DD\316\306\317\320\321\310\31= 1\312\313&\013\210\300\322\302\303\323DD\324\306\325\310\311\312\313&am= p;\011\210\300\326\302\303\327DD\330\306\331\320\321\312\313&\011\210\3= 00\332\302\303\333DD\334\306\335\320\321\310\311\312\313&\013\210\300\3= 36\302\303\337DD\340\306\341\320\321\312\313&\011\210\300\342\302\303\3= 43DD\344\306\345\320\321\312\313&\011\210\300\346\302\303\347DD\350\306= \351\320\321\312\313&\011\210\300\352\302\303\353DD\354\306\355\320\321= \310\311\312\313&\013\210\300\356\302\303\357DD\360\306\361\312\313&= ;\007\210\300\362\302\303\363DD\364\306\365\312\313&\007\210\300\366\30= 2\303\367DD\370\306\371\312\313&\007\210\300\372\302\303\373DD\374\310\= 375\306\376\312\313&\011\210\300\377\302\303\201@\0\ DD\201A\0\306\201B= \0\310\311\312\313&\011\210\300\201C\0\302\303\201D\0\ DD\201E\0\306\20= 1F\0\312\313&\007\207" [custom-declare-variable grep-window-height= funcall function #f(compiled-function () #<bytecode>) "Number o= f lines in a grep window.=C2=A0 If nil, use `compilation-window-height'= ." :type (choice (const :tag "Default" nil) integer) :versio= n "22.1" :group grep grep-highlight-matches #f(compiled-function = () #<bytecode>) "Use special markers to highlight grep matches.\= n\nSome grep programs are able to surround matches with special\nmarkers in= grep output.=C2=A0 Such markers can be used to highlight\nmatches in grep = mode.=C2=A0 This requires `font-lock-mode' to be active\nin grep buffer= s, so if you have globally disabled font-lock-mode,\nyou will not get highl= ighting.\n\nThis option sets the environment variable GREP_COLORS to specif= y\nmarkers for highlighting and adds the --color option in front of\nany ex= plicit grep options before starting the grep.\n\nWhen this option is `auto&= #39;, grep uses `--color' to highlight\nmatches only when it outputs to= a terminal (when `grep' is the last\ncommand in the pipe), thus avoidi= ng the use of any potentially-harmful\nescape sequences when standard outpu= t goes to a file or pipe.\n\nTo make grep highlight matches even into a pip= e, you need the option\n`always' that forces grep to use `--color=3Dalw= ays' to unconditionally\noutput escape sequences.\n\nIn interactive usa= ge, the actual value of this variable is set up\nby `grep-compute-defaults&= #39; when the default value is `auto-detect'.\nTo change the default va= lue, use Customize or call the function\n`grep-apply-setting'." (c= hoice (const :tag "Do not highlight matches with grep markers" ni= l) (const :tag "Highlight matches with grep markers" t) (const :t= ag "Use --color=3Dalways" always) (const :tag "Use --color&q= uot; auto) (other :tag "Not Set" auto-detect)) :set grep-apply-se= tting grep-scroll-output #f(compiled-function () #<bytecode>) "N= on-nil to scroll the *grep* buffer window as output appears.\n\nSetting it = causes the grep commands to put point at the end of their\noutput window so= that the end of the output is always visible rather\nthan the beginning.&q= uot; boolean grep-command #f(compiled-function () #<bytecode>) "= The default grep command for \\[grep].\nIf the grep program used supports a= n option to always include file names\nin its output (such as the `-H' = option to GNU grep), it's a good idea to\ninclude it when specifying `g= rep-command'.\n\nIn interactive usage, the actual value of this variabl= e is set up\nby `grep-compute-defaults'; to change the default value, u= se\nCustomize or call the function `grep-apply-setting'." (choice = string (const :tag "Not Set" nil)) grep-template #f(compiled-func= tion () #<bytecode>) "The default command to run for \\[lgrep].\= nThe following place holders should be present in the string:\n <C> -= place to put the options like -i and --color.\n <F> - file names and= wildcards to search.\n <X> - file names and wildcards to exclude.\n = <R> - the regular expression searched for.\n <N> - place to ins= ert null-device.\n\nIn interactive usage, the actual value of this variable= is set up\nby `grep-compute-defaults'; to change the default value, us= e\nCustomize or call the function `grep-apply-setting'." (choice s= tring (const :tag "Not Set" nil)) grep-use-null-device #f(compile= d-function () #<bytecode>) "If t, append the value of `null-devi= ce' to `grep' commands.\nThis is done to ensure that the output of = grep includes the filename of\nany match in the case where only a single fi= le is searched, and is not\nnecessary if the grep program used supports the= `-H' option.\n\nIn interactive usage, the actual value of this variabl= e is set up\nby `grep-compute-defaults'; to change the default value, u= se\nCustomize or call the function `grep-apply-setting'." (choice = (const :tag "Do Not Append Null Device" nil) (const :tag "Ap= pend Null Device" t) (other :tag "Not Set" auto-detect)) gre= p-use-null-filename-separator #f(compiled-function () #<bytecode>) &q= uot;If non-nil, use `grep's `--null' option.\nThis is done to disam= biguate file names in `grep's output." (choice (const :tag "D= o Not Use `--null'" nil) (const :tag "Use `--null'" = t) (other :tag "Not Set" auto-detect)) grep-find-command #f(compi= led-function () #<bytecode>) "The default find command for \\[gr= ep-find].\nIn interactive usage, the actual value of this variable is set u= p\nby `grep-compute-defaults'; to change the default value, use\nCustom= ize or call the function `grep-apply-setting'." (choice string (co= nst :tag "Not Set" nil)) grep-find-template #f(compiled-function = () #<bytecode>) "The default command to run for \\[rgrep].\nThe = following place holders should be present in the string:\n <D> - base= directory for find\n <X> - find options to restrict or expand the di= rectory list\n <F> - find options to limit the files matched\n <C&= gt; - place to put the grep options like -i and --color\n <R> - the r= egular expression searched for.\nIn interactive usage, the actual value of = this variable is set up\nby `grep-compute-defaults'; to change the defa= ult value, use\nCustomize or call the function `grep-apply-setting'.&qu= ot; (choice string (const :tag "Not Set" nil)) grep-files-aliases= #f(compiled-function () #<bytecode>) "Alist of aliases for the = FILES argument to `lgrep' and `rgrep'." alist grep-find-ignore= d-directories #f(compiled-function () #<bytecode>) "List of name= s of sub-directories which `rgrep' shall not recurse into.\nIf an eleme= nt is a cons cell, the car is called on the search directory\nto determine = whether cdr should not be recursed into." (choice (repeat :tag "I= gnored directories" string) (const :tag "No ignored directories&q= uot; nil)) grep-find-ignored-files #f(compiled-function () #<bytecode>= ;) "List of file names which `rgrep' and `lgrep' shall exclude= .\nIf an element is a cons cell, the car is called on the search directory\= nto determine whether cdr should not be excluded." (choice (repeat :ta= g "Ignored file" string) (const :tag "No ignored files"= nil)) grep-save-buffers #f(compiled-function () #<bytecode>) "I= f non-nil, save buffers before running the grep commands.\nIf `ask', as= k before saving.=C2=A0 If a function, call it with no arguments\nwith each = buffer current, as a predicate to determine whether that\nbuffer should be = saved or not.=C2=A0 E.g., one can set this to\n =C2=A0(lambda ()\n =C2=A0 = =C2=A0(string-prefix-p my-grep-root (file-truename (buffer-file-name))))\nt= o limit saving to files located under `my-grep-root'." "26.1&= quot; (choice (const :tag "Ask before saving" ask) (const :tag &q= uot;Don't save buffers" nil) function (other :tag "Save all b= uffers" t)) grep-error-screen-columns #f(compiled-function () #<byt= ecode>) "If non-nil, column numbers in grep hits are screen columns= .\nSee `compilation-error-screen-columns'" (choice (const :tag &qu= ot;Default" nil) integer) grep-setup-hook #f(compiled-function () #<= ;bytecode>) "List of hook functions run by `grep-process-setup'= (see `run-hooks')." hook] 12)
=C2=A0 #<subr require&= gt;(grep nil nil)
=C2=A0 ad-Advice-require(#<subr require> = grep)
=C2=A0 apply(ad-Advice-require #<subr require> grep)<= /div>
=C2=A0 require(grep)
=C2=A0 byte-code("\300\301!\2= 10\302\303\304\305\306\307\310\301&\007\210\311\312\304\313\310\303\314= \315&\007\210\311\316\317\320\310\303\314\321&\007\210\311\322\304\= 323\310\303\314\315&\007\207" [require grep custom-declare-group w= grep nil "Customize wgrep" :prefix "wgrep-" :group cust= om-declare-variable wgrep-change-readonly-file "Non-nil means to enabl= e change read-only files." :type boolean wgrep-enable-key "\003\0= 20" "This variable will be obsoleted in the future release.\nKey = to enable `wgrep-mode'." string wgrep-auto-save-buffer "Non-n= il means do `save-buffer' automatically while `wgrep-finish-edit'.&= quot;] 8)
=C2=A0 #<subr require>(wgrep nil nil)
= =C2=A0 ad-Advice-require(#<subr require> wgrep)
=C2=A0 appl= y(ad-Advice-require #<subr require> wgrep)
=C2=A0 require(w= grep)
=C2=A0 byte-code("\300\301!\210\300\302!\207" [re= quire wgrep cl-lib] 2)
=C2=A0 wgrep-ag-setup()
=C2=A0 r= un-hooks(change-major-mode-after-body-hook compilation-mode-hook ag-mode-ho= ok)
=C2=A0 apply(run-hooks (change-major-mode-after-body-hook com= pilation-mode-hook ag-mode-hook))
=C2=A0 run-mode-hooks(ag-mode-h= ook)
=C2=A0 ag-mode()
=C2=A0 compilation-start("ag= --nogroup --line-number --column --color --color-match 30\\;43 --color-pat= h 1\\;32 --nogroup --skip-vcs-ignores --numbers --smart-case --follow --ign= ore \\#\\*\\# --stats -- preserve-breaks ." ag-mode (lambda (mode-name= ) "*ag search regexp:preserve-breaks dir:~/stow/pub_dotfiles/emacs/dot= -emacs.d/elisp/org-mode/*"))
=C2=A0 ag/search("preserve= -breaks" "~/stow/pub_dotfiles/emacs/dot-emacs.d/elisp/org-mode/&q= uot; :regexp t)
=C2=A0 ag-project-regexp("preserve-breaks&qu= ot;)
=C2=A0 funcall-interactively(ag-project-regexp "preserv= e-breaks")
=C2=A0 call-interactively(ag-project-regexp nil n= il)
=C2=A0 command-execute(ag-project-regexp)
=3D= =3D=3D=3D=3D

PS: @Noam: Thanks for making the elis= p backtrace copyable :)

--

Kaushal Modi

--001a1142bfbeebb4f70554e01282-- ------------=_1500778382-14196-1--