diff options
| author | Philip Kaludercic <philipk@posteo.net> | 2022-10-07 22:36:12 +0200 |
|---|---|---|
| committer | Philip Kaludercic <philipk@posteo.net> | 2022-10-08 11:57:38 +0200 |
| commit | 7c66223dfba64c29afddf2f13cbf322d4cc4d12a (patch) | |
| tree | a3ca966e877e5f974d90d3951dbf113e9e8a36cd /lisp/emacs-lisp/package.el | |
| parent | 432252c23f9855d9f43dabd600415305ab0c8b91 (diff) | |
| download | emacs-7c66223dfba64c29afddf2f13cbf322d4cc4d12a.tar.gz | |
* lisp/emacs-lisp/package.el (package-report-bug): Use 'file-in-directory-p'
Diffstat (limited to 'lisp/emacs-lisp/package.el')
| -rw-r--r-- | lisp/emacs-lisp/package.el | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index 6e891fede1f..ad01dbc197e 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)))) |