branch: externals/urgrep
commit 3052b8c19123a84c91803d5ebcfe2021e5e18f28
Author: Jim Porter <jporterb...@gmail.com>
Commit: Jim Porter <jporterb...@gmail.com>
Use #' read syntax for functions
---
urgrep.el | 38 +++++++++++++++++++-------------------
1 file changed, 19 insertions(+), 19 deletions(-)
diff --git a/urgrep.el b/urgrep.el
index b0f9c43d28..1bc748adf2 100644
--- a/urgrep.el
+++ b/urgrep.el
@@ -469,23 +469,23 @@ If EDIT-COMMAND is non-nil, the search can be edited."
;; Don't inherit from `compilation-minor-mode-map',
;; because that introduces a menu bar item we don't want.
(set-keymap-parent map special-mode-map)
- (define-key map [mouse-2] 'compile-goto-error)
- (define-key map [follow-link] 'mouse-face)
- (define-key map "\C-c\C-c" 'compile-goto-error)
- (define-key map "\C-m" 'compile-goto-error)
- (define-key map "\C-o" 'compilation-display-error)
- (define-key map "\C-c\C-k" 'kill-compilation)
- (define-key map "\M-n" 'compilation-next-error)
- (define-key map "\M-p" 'compilation-previous-error)
- (define-key map "\M-{" 'compilation-previous-file)
- (define-key map "\M-}" 'compilation-next-file)
- (define-key map "n" 'next-error-no-select)
- (define-key map "p" 'previous-error-no-select)
- (define-key map "{" 'compilation-previous-file)
- (define-key map "}" 'compilation-next-file)
- (define-key map "\t" 'compilation-next-error)
- (define-key map [backtab] 'compilation-previous-error)
- (define-key map "g" 'urgrep-search-again)
+ (define-key map [mouse-2] #'compile-goto-error)
+ (define-key map [follow-link] #'mouse-face)
+ (define-key map "\C-c\C-c" #'compile-goto-error)
+ (define-key map "\C-m" #'compile-goto-error)
+ (define-key map "\C-o" #'compilation-display-error)
+ (define-key map "\C-c\C-k" #'kill-compilation)
+ (define-key map "\M-n" #'compilation-next-error)
+ (define-key map "\M-p" #'compilation-previous-error)
+ (define-key map "\M-{" #'compilation-previous-file)
+ (define-key map "\M-}" #'compilation-next-file)
+ (define-key map "n" #'next-error-no-select)
+ (define-key map "p" #'previous-error-no-select)
+ (define-key map "{" #'compilation-previous-file)
+ (define-key map "}" #'compilation-next-file)
+ (define-key map "\t" #'compilation-next-error)
+ (define-key map [backtab] #'compilation-previous-error)
+ (define-key map "g" #'urgrep-search-again)
map)
"Keymap for urgrep buffers.")
@@ -611,7 +611,7 @@ See `compilation-error-regexp-alist' for format details.")
(when-let ((tool-setup (urgrep--get-prop 'process-setup
urgrep-current-tool)))
(funcall tool-setup))
(setq-local urgrep-num-matches-found 0
- compilation-exit-message-function 'urgrep-exit-message)
+ compilation-exit-message-function #'urgrep-exit-message)
(run-hooks 'urgrep-setup-hook))
(defun urgrep-exit-message (status code msg)
@@ -696,7 +696,7 @@ rerunning the search."
;; can consult it.
(urgrep--with-killed-local-variable 'urgrep-current-tool
(let ((urgrep-current-tool tool))
- (compilation-start command 'urgrep-mode)))
+ (compilation-start command #'urgrep-mode)))
(setq urgrep-current-query query
urgrep-current-tool tool)
(current-buffer)))
