Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 09:14:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

; Use 'without-restriction'

Browse source 
* lisp/emacs-lisp/package.el (package--suggestion-applies-p):
Replace 'save-restriction'+'widen' with 'without-restriction'.
This commit is contained in:
Philip Kaludercic 2026-01-25 15:47:18 +01:00
parent 5a53e27748
commit c4dc5bc766
No known key found for this signature in database
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -4591,15 +4591,13 @@ SUG should be an element of `package-autosuggest-database'."
(and (string-match-p ext (buffer-name)) t))
((or `(,_ magic-mode-alist ,mag ,_)
`(,_ magic-mode-alist ,mag))
(save-restriction
(widen)
(without-restriction
(save-excursion
(goto-char (point-min))
(looking-at-p mag))))
((or `(,_ interpreter-mode-alist ,magic ,_)
`(,_ interpreter-mode-alist ,magic))
(save-restriction
(widen)
(without-restriction
(save-excursion
(goto-char (point-min))
(and (looking-at auto-mode-interpreter-regexp)