mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-14 03:37:38 -08:00
Code Issues Projects Releases Wiki Activity

Display hint for package suggestions after mode name

Browse source 
* lisp/emacs-lisp/package.el (package--autosugest-line-format):
Insert a space before the mode-line hint.
(package--autosuggest-after-change-mode): Add hint to 'mode-name'.
This commit is contained in:
Philip Kaludercic 2026-02-01 14:20:01 +01:00
parent d13769955e
commit ad89a3e8d6
No known key found for this signature in database
1 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -4644,7 +4644,7 @@ SUG should be of the form as described in `package--suggestion-applies-p'."
((eq package-autosuggest-style 'mode-line))
(avail (package--autosuggest-find-candidates)))
(propertize
(format "Install %s?"
(format " Install %s?"
(mapconcat
#'symbol-name
(delete-dups (mapcar #'car avail))
@ -4656,10 +4656,6 @@ SUG should be of the form as described in `package--suggestion-applies-p'."
(define-key map [mode-line down-mouse-1] #'package-autosuggest)
map)))))
(add-to-list
'mode-line-misc-info
'(package-autosuggest-mode ("" package--autosugest-line-format)))
(defun package--autosuggest-after-change-mode ()
"Display package suggestions for the current buffer.
This function should be added to `after-change-major-mode-hook'."
@ -4669,6 +4665,9 @@ This function should be added to `after-change-major-mode-hook'."
", ")))
(pcase-exhaustive package-autosuggest-style
('mode-line
(setq mode-name (append (ensure-list mode-name)
'((package-autosuggest-mode
package--autosugest-line-format))))
(force-mode-line-update t))
('always
(when (yes-or-no-p (format "Install suggested packages (%s)?" pkgs))