From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 15 May 2020 18:49:46 +0000 (-0400)
Subject: * lisp/progmodes/xref.el: Fix first line syntax
X-Git-Tag: emacs-28.0.90~7355
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b5ec24a4f14c9684506d5616ac1fa5a83b0d1392;p=emacs.git

* lisp/progmodes/xref.el: Fix first line syntax

(xref--find-ignores-arguments): Simplify.
---

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