From b5ec24a4f14c9684506d5616ac1fa5a83b0d1392 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 15 May 2020 14:49:46 -0400 Subject: [PATCH] * lisp/progmodes/xref.el: Fix first line syntax (xref--find-ignores-arguments): Simplify. --- lisp/progmodes/xref.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el index 6351f19b644..7d1ee705b80 100644 --- a/lisp/progmodes/xref.el +++ b/lisp/progmodes/xref.el @@ -1,4 +1,4 @@ -;; xref.el --- Cross-referencing commands -*-lexical-binding:t-*- +;;; xref.el --- Cross-referencing commands -*-lexical-binding:t-*- ;; Copyright (C) 2014-2020 Free Software Foundation, Inc. ;; Version: 1.0.1 @@ -1322,11 +1322,11 @@ directory, used as the root of the ignore globs." (lambda (ignore) (when (string-match-p "/\\'" ignore) (setq ignore (concat ignore "*"))) - (if (string-match "\\`\\./" ignore) - (setq ignore (replace-match dir t t ignore)) - (unless (string-prefix-p "*" ignore) - (setq ignore (concat "*/" ignore)))) - (shell-quote-argument ignore)) + (shell-quote-argument (if (string-match "\\`\\./" ignore) + (replace-match dir t t ignore) + (if (string-prefix-p "*" ignore) + ignore + (concat "*/" ignore))))) ignores " -o -path ") " " -- 2.39.5