mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-06 20:49:33 +00:00
Code Issues Releases Activity

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

Browse Source 
* etc/NEWS: Mention new variables.

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

* lisp/progmodes/grep.el (grep-search-path): New.
This commit is contained in:
Stephen Leake 2019-04-25 15:49:38 -07:00
parent 83b0fc30d4
commit 1486eadf7c
3 changed files with 29 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
etc/NEWS
View File

@ -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

9
lisp/emacs-lisp/bytecomp.el
View File

@ -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")

9
lisp/progmodes/grep.el
View File

@ -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)))