feature/package+vc 7c66223dfb 8/9: * lisp/emacs-lisp/package.el (package-report-bug): Use 'file-in-directory-p'

[Philip Kaludercic]

branch: feature/package+vc
commit 7c66223dfba64c29afddf2f13cbf322d4cc4d12a
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    * lisp/emacs-lisp/package.el (package-report-bug): Use 'file-in-directory-p'
---
 lisp/emacs-lisp/package.el | 19 +++++++++----------
 1 file changed, 9 insertions(+), 10 deletions(-)

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 6e891fede1..ad01dbc197 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -4555,16 +4555,15 @@ DESC must be a `package-desc' object."
   (let ((maint (package-maintainers desc))
         (name (symbol-name (package-desc-name desc)))
         vars)
-    (let ((check (apply-partially #'file-equal-p (package-desc-dir desc))))
-      (dolist-with-progress-reporter (group custom-current-group-alist)
-          "Scanning for modified user options..."
-        (dolist (ent (get (cdr group) 'custom-group))
-          (when (and (custom-variable-p (car ent))
-                     (boundp (car ent))
-                     (not (eq (custom--standard-value (car ent))
-                              (default-toplevel-value (car ent))))
-                     (locate-dominating-file (car group) check))
-            (push (car ent) vars)))))
+    (dolist-with-progress-reporter (group custom-current-group-alist)
+        "Scanning for modified user options..."
+      (dolist (ent (get (cdr group) 'custom-group))
+        (when (and (custom-variable-p (car ent))
+                   (boundp (car ent))
+                   (not (eq (custom--standard-value (car ent))
+                            (default-toplevel-value (car ent))))
+                   (file-in-directory-p (car group) (package-desc-dir desc)))
+          (push (car ent) vars))))
     (dlet ((reporter-prompt-for-summary-p t))
       (reporter-submit-bug-report maint name vars))))