[Peek] Run peek-mode tear down when quitting treemacs.

Fixes #1063

src/elisp/treemacs-peek-mode.el

@@ -92,7 +92,8 @@ purged."
         (run-with-idle-timer 0.5 :repeat #'treemacs--do-peek))
   (add-hook
    'window-selection-change-functions #'treemacs--finish-peek-on-window-leave
-   nil :local))
+   nil :local)
+  (add-hook 'treemacs-quit-hook #'treemacs--tear-down-peek-mode))
 
 (defun treemacs--tear-down-peek-mode (&optional restore-window)
   "Tear down faces, timers.
@@ -114,7 +115,8 @@ kept."
       (-let [(window buffer) treemacs--pre-peek-state]
         (with-selected-window window
           (switch-to-buffer buffer))))
-    (setf treemacs--pre-peek-state nil)))
+    (setf treemacs--pre-peek-state nil))
+  (remove-hook 'treemacs-quit-hook #'treemacs--tear-down-peek-mode) )
 
 ;;;###autoload
 (define-minor-mode treemacs-peek-mode