emacs-27 cc35b19: Update package-menu-quick-help

[Basil L. Contovounesios]

branch: emacs-27
commit cc35b197c7720e0687c6a994df9a4cf767298712
Author: Basil L. Contovounesios <contovob@tcd.ie>
Commit: Basil L. Contovounesios <contovob@tcd.ie>

    Update package-menu-quick-help
    
    * 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).
---
 lisp/emacs-lisp/package.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 7af4024..7d6be3c 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -3279,7 +3279,7 @@ If optional arg BUTTON is non-nil, describe its 
associated package."
   '(("install," "delete," "unmark," ("execute" . 1))
     ("next," "previous")
     ("Hide-package," "(-toggle-hidden")
-    ("refresh-contents," "g-redisplay," "filter," "help")))
+    ("g-refresh-contents," "/-filter," "help")))
 
 (defun package--prettify-quick-help-key (desc)
   "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))
           (mapconcat #'package--prettify-quick-help-key desc "   ")
         (let ((place (cdr desc))
-              (out (car desc)))
+              (out (copy-sequence (car desc))))
           (add-text-properties place (1+ place)
                                '(face (bold font-lock-warning-face))
                                out)
@@ -3719,6 +3719,9 @@ Statuses available include \"incompat\", \"available\",
                                    (list keyword)
                                  keyword)))
 
+(define-obsolete-function-alias
+  'package-menu-filter #'package-menu-filter-by-keyword "27.1")
+
 (defun package-menu-filter-by-name (name)
   "Filter the \"*Packages*\" buffer by NAME.
 Show only those items whose name matches the regular expression