diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 4 | ||||
| -rw-r--r-- | lisp/emacs-lisp/package.el | 7 |
2 files changed, 7 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 62b82e4f32a..12bde8faf39 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -1219,8 +1219,8 @@ length line-beginning-position line-end-position local-variable-if-set-p local-variable-p locale-info log log10 logand logb logcount logior lognot logxor lsh - make-list make-string make-symbol marker-buffer max member memq min - minibuffer-selected-window minibuffer-window + make-byte-code make-list make-string make-symbol marker-buffer max + member memq min minibuffer-selected-window minibuffer-window mod multibyte-char-to-unibyte next-window nth nthcdr number-to-string parse-colon-path plist-get plist-member prefix-numeric-value previous-window prin1-to-string propertize diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index 24980ec02f9..904fc9e1094 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el @@ -3331,7 +3331,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." @@ -3339,7 +3339,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) @@ -3819,6 +3819,9 @@ packages." (package--has-keyword-p pkg-desc keyword)) (concat "keyword:" (string-join 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 regexp. Display only packages with name that matches regexp NAME. |