mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-23 22:20:24 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/package.el (package-report-bug): Use 'file-in-directory-p'

Browse source
This commit is contained in:
Philip Kaludercic 2022-10-07 22:36:12 +02:00
parent 432252c23f
commit 7c66223dfb
No known key found for this signature in database
GPG key ID: F2C3CC513DB89F66
1 changed files with 9 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lisp/emacs-lisp/package.el
View file

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