update packages

lisp/treemacs/treemacs-workspaces.el

@@ -1,6 +1,6 @@
 ;;; treemacs.el --- A tree style file viewer package -*- lexical-binding: t -*-
 
-;; Copyright (C) 2023 Alexander Miller
+;; Copyright (C) 2024 Alexander Miller
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -648,7 +648,10 @@ Return values may be as follows:
        (let* ((workspaces (->> treemacs--workspaces
                                (--reject (eq it (treemacs-current-workspace)))
                                (--map (cons (treemacs-workspace->name it) it))))
-              (name (completing-read "Switch to: " workspaces nil :require-match)))
+              (name (completing-read
+                     "Switch to: "
+                     (treemacs--pre-sorted-list workspaces)
+                     nil :require-match)))
          (setf new-workspace (cdr (--first (string= (car it) name) workspaces))))))
      (setf (treemacs-current-workspace) new-workspace)
      (treemacs--invalidate-buffer-project-cache)