Commit 1486eadf authored by Stephen Leake's avatar Stephen Leake

Fix Bug#33618; define search path variables for grep, byte-compile

* etc/NEWS: Mention new variables.

* lisp/emacs-lisp/bytecomp.el (emacs-lisp-compilation-search-path): New.

* lisp/progmodes/grep.el (grep-search-path): New.
parent 83b0fc30
Pipeline #1464 failed with stage
in 50 minutes and 14 seconds
......@@ -325,8 +325,17 @@ and directory-local variables.
longer.
---
** next-error-verbose controls when `next-error' outputs a message
about the error locus.
** New variable next-error-verbose controls when `next-error' outputs
a message about the error locus.
---
** New variable grep-search-path defines the directories searched for
grep hits (this used to be controlled by compilation-search-path).
---
** New variable emacs-lisp-compilation-search-path defines the
directories searched for byte-compiler error messages (this used to
be controlled by compilation-search-path).
* Editing Changes in Emacs 27.1
......
......@@ -1022,6 +1022,15 @@ If STR is something like \"Buffer foo.el\", return #<buffer foo.el>
"The value for `compilation-parse-errors-filename-function' for when
we go into emacs-lisp-compilation-mode.")
(defcustom emacs-lisp-compilation-search-path '(nil)
"Search path for byte-compile error messages.
Elements should be directory names, not file names of directories.
The value nil as an element means to try the default directory."
:group 'bytecomp
:version "27.1"
:type '(repeat (choice (const :tag "Default" nil)
(string :tag "Directory"))))
(define-compilation-mode emacs-lisp-compilation-mode "elisp-compile"
"The variant of `compilation-mode' used for emacs-lisp error buffers")
......
......@@ -441,6 +441,15 @@ abbreviated part can also be toggled with
:version "27.1"
:group 'grep)
(defcustom grep-search-path '(nil)
"Search path for grep results.
Elements should be directory names, not file names of directories.
The value nil as an element means to try the default directory."
:group 'grep
:version "27.1"
:type '(repeat (choice (const :tag "Default" nil)
(string :tag "Directory"))))
(defvar grep-find-abbreviate-properties
(let ((ellipsis (if (char-displayable-p ?) "[…]" "[...]"))
(map (make-sparse-keymap)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment