mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 18:41:25 -08:00
Code Issues Projects Releases Wiki 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
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. longer.
--- ---
** next-error-verbose controls when `next-error' outputs a message ** New variable next-error-verbose controls when `next-error' outputs
about the error locus. 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 * 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 "The value for `compilation-parse-errors-filename-function' for when
we go into emacs-lisp-compilation-mode.") 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" (define-compilation-mode emacs-lisp-compilation-mode "elisp-compile"
"The variant of `compilation-mode' used for emacs-lisp error buffers") "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" :version "27.1"
:group 'grep) :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 (defvar grep-find-abbreviate-properties
(let ((ellipsis (if (char-displayable-p ?…) "[…]" "[...]")) (let ((ellipsis (if (char-displayable-p ?…) "[…]" "[...]"))
(map (make-sparse-keymap))) (map (make-sparse-keymap)))