procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update package-menu-quick-help

Browse source 
* lisp/emacs-lisp/package.el (package--quick-help-keys): Filtering
is now bound to the prefix '/', not the key 'f' (bug#41721).
Advertise only the standard 'g' binding now that both it and 'r' are
bound to revert-buffer (bug#35504).
(package--prettify-quick-help-key): Avoid modifying string literals.
(package-menu-filter): Reintroduce as obsolete alias of
package-menu-filter-by-keyword for backward
compatibility (bug#36981).
This commit is contained in:
Basil L. Contovounesios 2020-06-05 14:02:41 +01:00
parent bf09106256
commit cc35b197c7
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -3279,7 +3279,7 @@ If optional arg BUTTON is non-nil, describe its associated package."
'(("install," "delete," "unmark," ("execute" . 1)) '(("install," "delete," "unmark," ("execute" . 1))
("next," "previous") ("next," "previous")
("Hide-package," "(-toggle-hidden") ("Hide-package," "(-toggle-hidden")
("refresh-contents," "g-redisplay," "filter," "help"))) ("g-refresh-contents," "/-filter," "help")))
(defun package--prettify-quick-help-key (desc) (defun package--prettify-quick-help-key (desc)
"Prettify DESC to be displayed as a help menu." "Prettify DESC to be displayed as a help menu."
@ -3287,7 +3287,7 @@ If optional arg BUTTON is non-nil, describe its associated package."
(if (listp (cdr desc)) (if (listp (cdr desc))
(mapconcat #'package--prettify-quick-help-key desc " ") (mapconcat #'package--prettify-quick-help-key desc " ")
(let ((place (cdr desc)) (let ((place (cdr desc))
(out (car desc))) (out (copy-sequence (car desc))))
(add-text-properties place (1+ place) (add-text-properties place (1+ place)
'(face (bold font-lock-warning-face)) '(face (bold font-lock-warning-face))
out) out)
@ -3719,6 +3719,9 @@ Statuses available include \"incompat\", \"available\",
(list keyword) (list keyword)
keyword))) keyword)))
(define-obsolete-function-alias
'package-menu-filter #'package-menu-filter-by-keyword "27.1")
(defun package-menu-filter-by-name (name) (defun package-menu-filter-by-name (name)
"Filter the \"*Packages*\" buffer by NAME. "Filter the \"*Packages*\" buffer by NAME.
Show only those items whose name matches the regular expression Show only those items whose name matches the regular expression