update packages

lisp/magit/magit-status.el

@@ -271,7 +271,7 @@ Non-interactively DIRECTORY is (re-)initialized unconditionally."
                                     toplevel directory)))
           (user-error "Abort")))
       (list directory)))
-  ;; `git init' does not understand the meaning of "~"!
+  ;; "git init" does not understand the meaning of "~"!
   (magit-call-git "init" (magit-convert-filename-for-git
                           (expand-file-name directory)))
   (magit-status-setup-buffer directory))
@@ -804,7 +804,7 @@ Honor the buffer's file filter, which can be set using \"D - -\"."
         (let ((magit-section-insert-in-reverse t)
               (limit magit-status-file-list-limit))
           (while (and files (> limit 0))
-            (cl-decf limit)
+            (decf limit)
             (let ((file (pop files)))
               (magit-insert-section (file file)
                 (insert (funcall magit-format-file-function
@@ -823,11 +823,15 @@ Honor the buffer's file filter, which can be set using \"D - -\"."
 ;; Local Variables:
 ;; read-symbol-shorthands: (
 ;;   ("and$"         . "cond-let--and$")
-;;   ("and>"         . "cond-let--and>")
-;;   ("and-let"      . "cond-let--and-let")
-;;   ("if-let"       . "cond-let--if-let")
+;;   ("thread$"      . "cond-let--thread$")
 ;;   ("when$"        . "cond-let--when$")
+;;   ("and-let*"     . "cond-let--and-let*")
+;;   ("and-let"      . "cond-let--and-let")
+;;   ("if-let*"      . "cond-let--if-let*")
+;;   ("if-let"       . "cond-let--if-let")
+;;   ("when-let*"    . "cond-let--when-let*")
 ;;   ("when-let"     . "cond-let--when-let")
+;;   ("while-let*"   . "cond-let--while-let*")
 ;;   ("while-let"    . "cond-let--while-let")
 ;;   ("match-string" . "match-string")
 ;;   ("match-str"    . "match-string-no-properties"))