2 files changed, 7 insertions, 6 deletions

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 9a350aadaca..53fa15d4199 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -547,8 +547,8 @@ name (a symbol) and DESC is a `package--bi-desc' structure.")
 (defvar package-alist nil
   "Alist of all packages available for activation.
 Each element has the form (PKG . DESCS), where PKG is a package
-name (a symbol) and DESCS is a non-empty list of `package-desc' structure,
-sorted by decreasing versions.
+name (a symbol) and DESCS is a non-empty list of `package-desc'
+structures, sorted by decreasing versions.
 
 This variable is set automatically by `package-load-descriptor',
 called via `package-initialize'.  To change which packages are
diff --git a/lisp/term.el b/lisp/term.el
index dec8f5a3178..f3411044b25 100644
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -2916,11 +2916,12 @@ See `term-prompt-regexp'."
                 (when (= funny str-length)
                   (let ((partial 0)
                         (count (length decoded-substring)))
-                    (while (eq (char-charset (aref decoded-substring
-                                                   (- count 1 partial)))
-                               'eight-bit)
+                    (while (and (< partial count)
+                                (eq (char-charset (aref decoded-substring
+                                                        (- count 1 partial)))
+                                    'eight-bit))
                       (cl-incf partial))
-                    (when (> partial 0)
+                    (when (> count partial 0)
                       (setq term-terminal-undecoded-bytes
                             (substring decoded-substring (- partial)))
                       (setq decoded-substring