backtrace.el

Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil)
  button-start(nil)
  (text-properties-at (button-start b))
  (let* ((b (treemacs-goto-button (car it))) (props (text-properties-at (button-start b))) (new-path (nth (- (length it) 1) it))) (button-put b :path new-path) (button-put b :symlink (or (button-get b :symlink) (let (needle) (let ((list (cdr it)) (continue t) (it-index 0)) (while (and list continue) (let (...) (if ... ... ...)) (setq it-index (1+ it-index)) (setq list (cdr list)))) needle))) (button-put b :collapsed (- (length it) 2)) (end-of-line) (let* ((beg (point)) (dir (car (cdr it))) (parent (file-name-directory dir))) (insert dir) (add-text-properties beg (point) props) (add-text-properties (button-start b) (+ beg (length parent)) (quote (face treemacs-directory-collapsed-face)))))
  (let ((it (car --dolist-tail--))) (if (with-no-warnings treemacs-filewatch-mode) (progn (treemacs--start-watching (car it)) (let ((--dolist-tail-- (nthcdr 2 it))) (while --dolist-tail-- (let ((step ...)) (treemacs--start-watching step t) (setq --dolist-tail-- (cdr --dolist-tail--))))))) (let* ((b (treemacs-goto-button (car it))) (props (text-properties-at (button-start b))) (new-path (nth (- (length it) 1) it))) (button-put b :path new-path) (button-put b :symlink (or (button-get b :symlink) (let (needle) (let ((list ...) (continue t) (it-index 0)) (while (and list continue) (let ... ...) (setq it-index ...) (setq list ...))) needle))) (button-put b :collapsed (- (length it) 2)) (end-of-line) (let* ((beg (point)) (dir (car (cdr it))) (parent (file-name-directory dir))) (insert dir) (add-text-properties beg (point) props) (add-text-properties (button-start b) (+ beg (length parent)) (quote (face treemacs-directory-collapsed-face))))) (setq --dolist-tail-- (cdr --dolist-tail--)))
  (while --dolist-tail-- (let ((it (car --dolist-tail--))) (if (with-no-warnings treemacs-filewatch-mode) (progn (treemacs--start-watching (car it)) (let ((--dolist-tail-- (nthcdr 2 it))) (while --dolist-tail-- (let (...) (treemacs--start-watching step t) (setq --dolist-tail-- ...)))))) (let* ((b (treemacs-goto-button (car it))) (props (text-properties-at (button-start b))) (new-path (nth (- (length it) 1) it))) (button-put b :path new-path) (button-put b :symlink (or (button-get b :symlink) (let (needle) (let (... ... ...) (while ... ... ... ...)) needle))) (button-put b :collapsed (- (length it) 2)) (end-of-line) (let* ((beg (point)) (dir (car (cdr it))) (parent (file-name-directory dir))) (insert dir) (add-text-properties beg (point) props) (add-text-properties (button-start b) (+ beg (length parent)) (quote (face treemacs-directory-collapsed-face))))) (setq --dolist-tail-- (cdr --dolist-tail--))))
  (let ((--dolist-tail-- dirs)) (while --dolist-tail-- (let ((it (car --dolist-tail--))) (if (with-no-warnings treemacs-filewatch-mode) (progn (treemacs--start-watching (car it)) (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ...))))) (let* ((b (treemacs-goto-button (car it))) (props (text-properties-at (button-start b))) (new-path (nth (- ... 1) it))) (button-put b :path new-path) (button-put b :symlink (or (button-get b :symlink) (let (needle) (let ... ...) needle))) (button-put b :collapsed (- (length it) 2)) (end-of-line) (let* ((beg (point)) (dir (car ...)) (parent (file-name-directory dir))) (insert dir) (add-text-properties beg (point) props) (add-text-properties (button-start b) (+ beg (length parent)) (quote (face treemacs-directory-collapsed-face))))) (setq --dolist-tail-- (cdr --dolist-tail--)))))
  (progn (let ((--dolist-tail-- dirs)) (while --dolist-tail-- (let ((it (car --dolist-tail--))) (if (with-no-warnings treemacs-filewatch-mode) (progn (treemacs--start-watching (car it)) (let (...) (while --dolist-tail-- ...)))) (let* ((b (treemacs-goto-button ...)) (props (text-properties-at ...)) (new-path (nth ... it))) (button-put b :path new-path) (button-put b :symlink (or (button-get b :symlink) (let ... ... needle))) (button-put b :collapsed (- (length it) 2)) (end-of-line) (let* ((beg ...) (dir ...) (parent ...)) (insert dir) (add-text-properties beg (point) props) (add-text-properties (button-start b) (+ beg ...) (quote ...)))) (setq --dolist-tail-- (cdr --dolist-tail--))))))
  (if dirs (progn (let ((--dolist-tail-- dirs)) (while --dolist-tail-- (let ((it (car --dolist-tail--))) (if (with-no-warnings treemacs-filewatch-mode) (progn (treemacs--start-watching ...) (let ... ...))) (let* ((b ...) (props ...) (new-path ...)) (button-put b :path new-path) (button-put b :symlink (or ... ...)) (button-put b :collapsed (- ... 2)) (end-of-line) (let* (... ... ...) (insert dir) (add-text-properties beg ... props) (add-text-properties ... ... ...))) (setq --dolist-tail-- (cdr --dolist-tail--)))))))
  treemacs--collapse-dirs((("/home/user/c/lib/*C Repl [~" "/c/lib" "/home/user/c/lib/*C Repl [~/c" "/home/user/c/lib/*C Repl [~/c/lib")))
  (save-excursion (treemacs--collapse-dirs (treemacs--parse-collapsed-dirs collapse-process)) (treemacs--reopen-at root git-future))
  (let* ((dirs-and-files (treemacs--get-dir-content root)) (dirs (cl-first dirs-and-files)) (files (car (cdr dirs-and-files))) (git-info) (file-strings) (dir-strings)) (setq dir-strings (let* ((depth depth) (prefix (concat "\n" (s-repeat (* depth treemacs-indentation) treemacs-indentation-string))) (node (cl-first dirs)) (strings) (dir-prefix (concat prefix treemacs-icon-closed))) (if node (progn (let ((--dolist-tail-- dirs)) (while --dolist-tail-- (let ... ... ...))))) (nreverse strings))) (setq file-strings (let* ((depth depth) (prefix (concat "\n" (s-repeat (* depth treemacs-indentation) treemacs-indentation-string))) (node (cl-first files)) (strings)) (if node (progn (let ((--dolist-tail-- files)) (while --dolist-tail-- (let ... ... ...))))) (nreverse strings))) (let ((it (file-truename (button-get parent :path)))) (if it (progn (setq root it)))) (end-of-line) (cond ((memq treemacs-git-mode (quote (extended simple))) (let nil (setq git-info (treemacs--get-or-parse-git-result git-future)))) ((eq treemacs-git-mode (quote deferred)) (let nil (setq git-info (or (ht-get treemacs--git-cache root) (let (...) ht-temp))) (run-with-timer 0.5 nil (function treemacs--apply-deferred-git-state) parent git-future (current-buffer)))) (t (let nil (setq git-info (let ((ht-temp ...)) ht-temp))))) (if treemacs-pre-file-insert-predicates (progn (let* ((result nil)) (while file-strings (let* ((prefix ...) (icon ...) (filename ...) (filepath ...)) (if (---truthy\? ...) nil (setq result ...))) (setq file-strings (cdr (cdr ...)))) (setq file-strings (nreverse result))) (let* ((result nil)) (while dir-strings (let* ((prefix ...) (dirname ...) (dirpath ...)) (if (---truthy\? ...) nil (setq result ...))) (setq dir-strings (cdr (cdr dir-strings)))) (setq dir-strings (nreverse result))))) (insert (apply (function concat) (let (result) (let ((list dir-strings) (it-index 0)) (while list (let (...) (setq result ...)) (setq it-index (1+ it-index)) (setq list (cdr list)))) (nreverse result)))) (end-of-line) (insert (apply (function concat) (let (result) (let ((list file-strings) (it-index 0)) (while list (let (...) (setq result ...)) (setq it-index (1+ it-index)) (setq list (cdr list)))) (nreverse result)))) (save-excursion (treemacs--collapse-dirs (treemacs--parse-collapsed-dirs collapse-process)) (treemacs--reopen-at root git-future)) (point-at-eol))
  (save-excursion (let* ((dirs-and-files (treemacs--get-dir-content root)) (dirs (cl-first dirs-and-files)) (files (car (cdr dirs-and-files))) (git-info) (file-strings) (dir-strings)) (setq dir-strings (let* ((depth depth) (prefix (concat "\n" (s-repeat ... treemacs-indentation-string))) (node (cl-first dirs)) (strings) (dir-prefix (concat prefix treemacs-icon-closed))) (if node (progn (let (...) (while --dolist-tail-- ...)))) (nreverse strings))) (setq file-strings (let* ((depth depth) (prefix (concat "\n" (s-repeat ... treemacs-indentation-string))) (node (cl-first files)) (strings)) (if node (progn (let (...) (while --dolist-tail-- ...)))) (nreverse strings))) (let ((it (file-truename (button-get parent :path)))) (if it (progn (setq root it)))) (end-of-line) (cond ((memq treemacs-git-mode (quote (extended simple))) (let nil (setq git-info (treemacs--get-or-parse-git-result git-future)))) ((eq treemacs-git-mode (quote deferred)) (let nil (setq git-info (or (ht-get treemacs--git-cache root) (let ... ht-temp))) (run-with-timer 0.5 nil (function treemacs--apply-deferred-git-state) parent git-future (current-buffer)))) (t (let nil (setq git-info (let (...) ht-temp))))) (if treemacs-pre-file-insert-predicates (progn (let* ((result nil)) (while file-strings (let* (... ... ... ...) (if ... nil ...)) (setq file-strings (cdr ...))) (setq file-strings (nreverse result))) (let* ((result nil)) (while dir-strings (let* (... ... ...) (if ... nil ...)) (setq dir-strings (cdr ...))) (setq dir-strings (nreverse result))))) (insert (apply (function concat) (let (result) (let ((list dir-strings) (it-index 0)) (while list (let ... ...) (setq it-index ...) (setq list ...))) (nreverse result)))) (end-of-line) (insert (apply (function concat) (let (result) (let ((list file-strings) (it-index 0)) (while list (let ... ...) (setq it-index ...) (setq list ...))) (nreverse result)))) (save-excursion (treemacs--collapse-dirs (treemacs--parse-collapsed-dirs collapse-process)) (treemacs--reopen-at root git-future)) (point-at-eol)))
  treemacs--create-branch("/home/user/c/lib" 2 #<process Process Future> #<process Process Future<1>> #<marker (moves after insertion) at 123 in  *Treemacs-Framebuffer-1*>)
  (progn (treemacs-on-expand path btn (treemacs-parent-of btn)) (treemacs--create-branch path (1+ (button-get btn :depth)) git-future collapse-future btn))
  (let (buffer-read-only) (button-put btn :state (quote dir-node-open)) (beginning-of-line) (treemacs--button-symbol-switch treemacs-icon-open) (end-of-line) (progn (treemacs-on-expand path btn (treemacs-parent-of btn)) (treemacs--create-branch path (1+ (button-get btn :depth)) git-future collapse-future btn)) (progn (treemacs--start-watching path) (if recursive (progn (let ((list (treemacs--get-children-of btn)) (it-index 0)) (while list (let (...) (if ... ...)) (setq it-index (1+ it-index)) (setq list (cdr list))))))))
  (save-excursion (let (buffer-read-only) (button-put btn :state (quote dir-node-open)) (beginning-of-line) (treemacs--button-symbol-switch treemacs-icon-open) (end-of-line) (progn (treemacs-on-expand path btn (treemacs-parent-of btn)) (treemacs--create-branch path (1+ (button-get btn :depth)) git-future collapse-future btn)) (progn (treemacs--start-watching path) (if recursive (progn (let ((list ...) (it-index 0)) (while list (let ... ...) (setq it-index ...) (setq list ...))))))))
  (let* ((path (button-get btn :path)) (git-future (if (button-get btn :symlink) (treemacs--git-status-process-function (file-truename path)) (or git-future (treemacs--git-status-process-function (file-truename path))))) (collapse-future (treemacs--collapsed-dirs-process path))) (save-excursion (let (buffer-read-only) (button-put btn :state (quote dir-node-open)) (beginning-of-line) (treemacs--button-symbol-switch treemacs-icon-open) (end-of-line) (progn (treemacs-on-expand path btn (treemacs-parent-of btn)) (treemacs--create-branch path (1+ (button-get btn :depth)) git-future collapse-future btn)) (progn (treemacs--start-watching path) (if recursive (progn (let (... ...) (while list ... ... ...))))))))
  (if (not (f-readable\? (button-get btn :path))) (treemacs-pulse-on-failure "Directory %s is not readable." (propertize (button-get btn :path) (quote face) (quote font-lock-string-face))) (let* ((path (button-get btn :path)) (git-future (if (button-get btn :symlink) (treemacs--git-status-process-function (file-truename path)) (or git-future (treemacs--git-status-process-function (file-truename path))))) (collapse-future (treemacs--collapsed-dirs-process path))) (save-excursion (let (buffer-read-only) (button-put btn :state (quote dir-node-open)) (beginning-of-line) (treemacs--button-symbol-switch treemacs-icon-open) (end-of-line) (progn (treemacs-on-expand path btn (treemacs-parent-of btn)) (treemacs--create-branch path (1+ (button-get btn :depth)) git-future collapse-future btn)) (progn (treemacs--start-watching path) (if recursive (progn (let ... ...))))))))
  (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) (quote (:git-future :recursive :allow-other-keys))) (setq --cl-keys-- (cdr (cdr --cl-keys--)))) ((car (cdr (memq ... --cl-rest--))) (setq --cl-keys-- nil)) (t (error "Keyword argument %s not one of (:git-future :recursive)" (car --cl-keys--)))))) (if (not (f-readable\? (button-get btn :path))) (treemacs-pulse-on-failure "Directory %s is not readable." (propertize (button-get btn :path) (quote face) (quote font-lock-string-face))) (let* ((path (button-get btn :path)) (git-future (if (button-get btn :symlink) (treemacs--git-status-process-function (file-truename path)) (or git-future (treemacs--git-status-process-function ...)))) (collapse-future (treemacs--collapsed-dirs-process path))) (save-excursion (let (buffer-read-only) (button-put btn :state (quote dir-node-open)) (beginning-of-line) (treemacs--button-symbol-switch treemacs-icon-open) (end-of-line) (progn (treemacs-on-expand path btn (treemacs-parent-of btn)) (treemacs--create-branch path (1+ ...) git-future collapse-future btn)) (progn (treemacs--start-watching path) (if recursive (progn ...))))))))
  (let* ((git-future (car (cdr (plist-member --cl-rest-- (quote :git-future))))) (recursive (car (cdr (plist-member --cl-rest-- (quote :recursive)))))) (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) (quote ...)) (setq --cl-keys-- (cdr ...))) ((car (cdr ...)) (setq --cl-keys-- nil)) (t (error "Keyword argument %s not one of (:git-future :recursive)" (car --cl-keys--)))))) (if (not (f-readable\? (button-get btn :path))) (treemacs-pulse-on-failure "Directory %s is not readable." (propertize (button-get btn :path) (quote face) (quote font-lock-string-face))) (let* ((path (button-get btn :path)) (git-future (if (button-get btn :symlink) (treemacs--git-status-process-function ...) (or git-future ...))) (collapse-future (treemacs--collapsed-dirs-process path))) (save-excursion (let (buffer-read-only) (button-put btn :state (quote dir-node-open)) (beginning-of-line) (treemacs--button-symbol-switch treemacs-icon-open) (end-of-line) (progn (treemacs-on-expand path btn ...) (treemacs--create-branch path ... git-future collapse-future btn)) (progn (treemacs--start-watching path) (if recursive ...))))))))
  treemacs--expand-dir-node(#<marker (moves after insertion) at 123 in  *Treemacs-Framebuffer-1*> :git-future #<process Process Future>)
  (progn (treemacs--expand-dir-node btn :git-future git-future))
  (if (and (eq (quote dir-node-closed) (button-get btn :state)) (< index last-index)) (progn (treemacs--expand-dir-node btn :git-future git-future)))
  (while dir-parts (setq dir-part (car-safe (prog1 dir-parts (setq dir-parts (cdr dir-parts)))) root (f-join root dir-part) btn (let* ((current-btn nil)) (catch (quote --cl-block-search--) (while (search-forward dir-part nil :no-error) (setq current-btn (treemacs-current-button)) (cond ((null current-btn) (throw ... nil)) ((string= root ...) (throw ... current-btn)) ((and ... ...) (let ... ...) (throw ... current-btn)) ((>= depth ...) (throw ... nil))))))) (if btn nil (throw (quote follow-failed) (quote follow-failed))) (goto-char btn) (if (and (eq (quote dir-node-closed) (button-get btn :state)) (< index last-index)) (progn (treemacs--expand-dir-node btn :git-future git-future))) (setq index (1+ index)))
  (let ((index 0) (dir-part nil)) (while dir-parts (setq dir-part (car-safe (prog1 dir-parts (setq dir-parts (cdr dir-parts)))) root (f-join root dir-part) btn (let* ((current-btn nil)) (catch (quote --cl-block-search--) (while (search-forward dir-part nil :no-error) (setq current-btn (treemacs-current-button)) (cond (... ...) (... ...) (... ... ...) (... ...)))))) (if btn nil (throw (quote follow-failed) (quote follow-failed))) (goto-char btn) (if (and (eq (quote dir-node-closed) (button-get btn :state)) (< index last-index)) (progn (treemacs--expand-dir-node btn :git-future git-future))) (setq index (1+ index))))
  (catch (quote follow-failed) (let ((index 0) (dir-part nil)) (while dir-parts (setq dir-part (car-safe (prog1 dir-parts (setq dir-parts (cdr dir-parts)))) root (f-join root dir-part) btn (let* ((current-btn nil)) (catch (quote --cl-block-search--) (while (search-forward dir-part nil :no-error) (setq current-btn ...) (cond ... ... ... ...))))) (if btn nil (throw (quote follow-failed) (quote follow-failed))) (goto-char btn) (if (and (eq (quote dir-node-closed) (button-get btn :state)) (< index last-index)) (progn (treemacs--expand-dir-node btn :git-future git-future))) (setq index (1+ index)))) btn)
  (let* ((root (button-get btn :path)) (git-future (treemacs--git-status-process-function root)) (last-index (- (length dir-parts) 1)) (depth (button-get btn :depth))) (goto-char btn) (let* ((val (button-get btn :state))) (cond ((eq val (quote dir-node-closed)) (let nil (treemacs--expand-dir-node btn :git-future git-future))) ((eq val (quote root-node-closed)) (let nil (treemacs--expand-root-node btn))) (t nil))) (catch (quote follow-failed) (let ((index 0) (dir-part nil)) (while dir-parts (setq dir-part (car-safe (prog1 dir-parts (setq dir-parts ...))) root (f-join root dir-part) btn (let* ((current-btn nil)) (catch (quote --cl-block-search--) (while ... ... ...)))) (if btn nil (throw (quote follow-failed) (quote follow-failed))) (goto-char btn) (if (and (eq (quote dir-node-closed) (button-get btn :state)) (< index last-index)) (progn (treemacs--expand-dir-node btn :git-future git-future))) (setq index (1+ index)))) btn))
  treemacs--follow-each-dir(#<marker at 3 in  *Treemacs-Framebuffer-1*> ("lib" "Base" "Nat.x"))
  (progn (treemacs--follow-each-dir btn manual-parts))
  (unwind-protect (progn (treemacs--follow-each-dir btn manual-parts)) (set-match-data save-match-data-internal (quote evaporate)))
  (let ((save-match-data-internal (match-data))) (unwind-protect (progn (treemacs--follow-each-dir btn manual-parts)) (set-match-data save-match-data-internal (quote evaporate))))
  (if manual-parts (let ((save-match-data-internal (match-data))) (unwind-protect (progn (treemacs--follow-each-dir btn manual-parts)) (set-match-data save-match-data-internal (quote evaporate)))) btn)
  (let* ((btn (if (= 0 counter) (treemacs-project->position project) (treemacs-shadow-node->position shadow-node))) (search-result (if manual-parts (let ((save-match-data-internal (match-data))) (unwind-protect (progn (treemacs--follow-each-dir btn manual-parts)) (set-match-data save-match-data-internal (quote evaporate)))) btn))) (if (eq (quote follow-failed) search-result) (prog1 nil (goto-char start)) (treemacs--evade-image) (hl-line-highlight) (set-window-point (get-buffer-window) (point)) search-result))
  (let* ((start (prog1 (point) (goto-char (treemacs-project->position project)))) (path-minus-root (substring path (length (treemacs-project->path project)))) (dir-parts (nreverse (s-split (f-path-separator) path-minus-root (quote omit-nulls)))) (goto-path (if dir-parts (treemacs--parent path) path)) (counter (length dir-parts)) (manual-parts nil) (shadow-node nil)) (while (and (> counter 0) (or (null shadow-node) (null (treemacs-shadow-node->position shadow-node)))) (setq shadow-node (treemacs-get-from-shadow-index goto-path) goto-path (treemacs--parent goto-path) counter (1- counter)) (setq manual-parts (cons (car-safe (prog1 dir-parts (setq dir-parts (cdr dir-parts)))) manual-parts))) (let* ((btn (if (= 0 counter) (treemacs-project->position project) (treemacs-shadow-node->position shadow-node))) (search-result (if manual-parts (let ((save-match-data-internal ...)) (unwind-protect (progn ...) (set-match-data save-match-data-internal ...))) btn))) (if (eq (quote follow-failed) search-result) (prog1 nil (goto-char start)) (treemacs--evade-image) (hl-line-highlight) (set-window-point (get-buffer-window) (point)) search-result)))
  treemacs-goto-button("/home/user/c/lib/Base/Nat.x" [cl-struct-treemacs-project "c" "/home/user/c"])
  (if (string-equal buffer-file (button-get btn :path)) nil (treemacs-goto-button buffer-file project) (setq btn (treemacs-current-button)))
  (progn (if (memq (button-get btn :state) (quote (tag-node-open tag-node-closed tag-node))) (progn (while (not (memq (button-get btn :state) file-states)) (setq btn (button-get btn :parent))))) (if (and treemacs--previously-followed-tag-btn (not (eq treemacs--previously-followed-tag-btn btn))) (progn (save-excursion (goto-char treemacs--previously-followed-tag-btn) (if (and (string= (let ... ...) (button-get treemacs--previously-followed-tag-btn :path)) (eq (quote file-node-open) (button-get treemacs--previously-followed-tag-btn :state))) (progn (treemacs--collapse-file-node treemacs--previously-followed-tag-btn)))))) (if (string-equal buffer-file (button-get btn :path)) nil (treemacs-goto-button buffer-file project) (setq btn (treemacs-current-button))))
  (if btn (progn (if (memq (button-get btn :state) (quote (tag-node-open tag-node-closed tag-node))) (progn (while (not (memq (button-get btn :state) file-states)) (setq btn (button-get btn :parent))))) (if (and treemacs--previously-followed-tag-btn (not (eq treemacs--previously-followed-tag-btn btn))) (progn (save-excursion (goto-char treemacs--previously-followed-tag-btn) (if (and (string= ... ...) (eq ... ...)) (progn (treemacs--collapse-file-node treemacs--previously-followed-tag-btn)))))) (if (string-equal buffer-file (button-get btn :path)) nil (treemacs-goto-button buffer-file project) (setq btn (treemacs-current-button)))) (treemacs-goto-button buffer-file project) (setq btn (treemacs-current-button)))
  (progn (select-window (car save-selected-window--state) (quote norecord)) (setq btn (treemacs-current-button)) (if btn (progn (if (memq (button-get btn :state) (quote (tag-node-open tag-node-closed tag-node))) (progn (while (not (memq ... file-states)) (setq btn (button-get btn :parent))))) (if (and treemacs--previously-followed-tag-btn (not (eq treemacs--previously-followed-tag-btn btn))) (progn (save-excursion (goto-char treemacs--previously-followed-tag-btn) (if (and ... ...) (progn ...))))) (if (string-equal buffer-file (button-get btn :path)) nil (treemacs-goto-button buffer-file project) (setq btn (treemacs-current-button)))) (treemacs-goto-button buffer-file project) (setq btn (treemacs-current-button))) (goto-char (button-start btn)) (setq treemacs--previously-followed-tag-btn btn) (let ((imenu-auto-rescan nil)) (setcar tag-path (car (car tag-path))) (setcdr tag-path (cons buffer-file (cdr tag-path))) (treemacs--goto-tag-button-at tag-path)) (hl-line-highlight) (treemacs--evade-image) (if treemacs-recenter-after-tag-follow (progn (treemacs--maybe-recenter))))
  (unwind-protect (progn (select-window (car save-selected-window--state) (quote norecord)) (setq btn (treemacs-current-button)) (if btn (progn (if (memq (button-get btn :state) (quote (tag-node-open tag-node-closed tag-node))) (progn (while (not ...) (setq btn ...)))) (if (and treemacs--previously-followed-tag-btn (not (eq treemacs--previously-followed-tag-btn btn))) (progn (save-excursion (goto-char treemacs--previously-followed-tag-btn) (if ... ...)))) (if (string-equal buffer-file (button-get btn :path)) nil (treemacs-goto-button buffer-file project) (setq btn (treemacs-current-button)))) (treemacs-goto-button buffer-file project) (setq btn (treemacs-current-button))) (goto-char (button-start btn)) (setq treemacs--previously-followed-tag-btn btn) (let ((imenu-auto-rescan nil)) (setcar tag-path (car (car tag-path))) (setcdr tag-path (cons buffer-file (cdr tag-path))) (treemacs--goto-tag-button-at tag-path)) (hl-line-highlight) (treemacs--evade-image) (if treemacs-recenter-after-tag-follow (progn (treemacs--maybe-recenter)))) (internal--after-with-selected-window save-selected-window--state))
  (save-current-buffer (unwind-protect (progn (select-window (car save-selected-window--state) (quote norecord)) (setq btn (treemacs-current-button)) (if btn (progn (if (memq (button-get btn :state) (quote ...)) (progn (while ... ...))) (if (and treemacs--previously-followed-tag-btn (not ...)) (progn (save-excursion ... ...))) (if (string-equal buffer-file (button-get btn :path)) nil (treemacs-goto-button buffer-file project) (setq btn (treemacs-current-button)))) (treemacs-goto-button buffer-file project) (setq btn (treemacs-current-button))) (goto-char (button-start btn)) (setq treemacs--previously-followed-tag-btn btn) (let ((imenu-auto-rescan nil)) (setcar tag-path (car (car tag-path))) (setcdr tag-path (cons buffer-file (cdr tag-path))) (treemacs--goto-tag-button-at tag-path)) (hl-line-highlight) (treemacs--evade-image) (if treemacs-recenter-after-tag-follow (progn (treemacs--maybe-recenter)))) (internal--after-with-selected-window save-selected-window--state)))
  (let ((save-selected-window--state (internal--before-with-selected-window treemacs-window))) (save-current-buffer (unwind-protect (progn (select-window (car save-selected-window--state) (quote norecord)) (setq btn (treemacs-current-button)) (if btn (progn (if (memq ... ...) (progn ...)) (if (and treemacs--previously-followed-tag-btn ...) (progn ...)) (if (string-equal buffer-file ...) nil (treemacs-goto-button buffer-file project) (setq btn ...))) (treemacs-goto-button buffer-file project) (setq btn (treemacs-current-button))) (goto-char (button-start btn)) (setq treemacs--previously-followed-tag-btn btn) (let ((imenu-auto-rescan nil)) (setcar tag-path (car (car tag-path))) (setcdr tag-path (cons buffer-file (cdr tag-path))) (treemacs--goto-tag-button-at tag-path)) (hl-line-highlight) (treemacs--evade-image) (if treemacs-recenter-after-tag-follow (progn (treemacs--maybe-recenter)))) (internal--after-with-selected-window save-selected-window--state))))
  (progn (let ((save-selected-window--state (internal--before-with-selected-window treemacs-window))) (save-current-buffer (unwind-protect (progn (select-window (car save-selected-window--state) (quote norecord)) (setq btn (treemacs-current-button)) (if btn (progn (if ... ...) (if ... ...) (if ... nil ... ...)) (treemacs-goto-button buffer-file project) (setq btn (treemacs-current-button))) (goto-char (button-start btn)) (setq treemacs--previously-followed-tag-btn btn) (let ((imenu-auto-rescan nil)) (setcar tag-path (car ...)) (setcdr tag-path (cons buffer-file ...)) (treemacs--goto-tag-button-at tag-path)) (hl-line-highlight) (treemacs--evade-image) (if treemacs-recenter-after-tag-follow (progn (treemacs--maybe-recenter)))) (internal--after-with-selected-window save-selected-window--state)))))
  (unwind-protect (progn (let ((save-selected-window--state (internal--before-with-selected-window treemacs-window))) (save-current-buffer (unwind-protect (progn (select-window (car save-selected-window--state) (quote norecord)) (setq btn (treemacs-current-button)) (if btn (progn ... ... ...) (treemacs-goto-button buffer-file project) (setq btn ...)) (goto-char (button-start btn)) (setq treemacs--previously-followed-tag-btn btn) (let (...) (setcar tag-path ...) (setcdr tag-path ...) (treemacs--goto-tag-button-at tag-path)) (hl-line-highlight) (treemacs--evade-image) (if treemacs-recenter-after-tag-follow (progn ...))) (internal--after-with-selected-window save-selected-window--state))))) (with-no-warnings (setq treemacs--ready-to-follow o)))
  (let ((o (with-no-warnings treemacs--ready-to-follow))) (with-no-warnings (setq treemacs--ready-to-follow nil)) (unwind-protect (progn (let ((save-selected-window--state (internal--before-with-selected-window treemacs-window))) (save-current-buffer (unwind-protect (progn (select-window ... ...) (setq btn ...) (if btn ... ... ...) (goto-char ...) (setq treemacs--previously-followed-tag-btn btn) (let ... ... ... ...) (hl-line-highlight) (treemacs--evade-image) (if treemacs-recenter-after-tag-follow ...)) (internal--after-with-selected-window save-selected-window--state))))) (with-no-warnings (setq treemacs--ready-to-follow o))))
  (progn (let ((o (with-no-warnings treemacs--ready-to-follow))) (with-no-warnings (setq treemacs--ready-to-follow nil)) (unwind-protect (progn (let ((save-selected-window--state (internal--before-with-selected-window treemacs-window))) (save-current-buffer (unwind-protect (progn ... ... ... ... ... ... ... ... ...) (internal--after-with-selected-window save-selected-window--state))))) (with-no-warnings (setq treemacs--ready-to-follow o)))))
  (if tag-path (progn (let ((o (with-no-warnings treemacs--ready-to-follow))) (with-no-warnings (setq treemacs--ready-to-follow nil)) (unwind-protect (progn (let ((save-selected-window--state ...)) (save-current-buffer (unwind-protect ... ...)))) (with-no-warnings (setq treemacs--ready-to-follow o))))))
  (let* ((tag-path (treemacs--find-index-pos (point) flat-index)) (file-states (quote (file-node-open file-node-closed root-node-open root-node-closed))) (btn)) (if tag-path (progn (let ((o (with-no-warnings treemacs--ready-to-follow))) (with-no-warnings (setq treemacs--ready-to-follow nil)) (unwind-protect (progn (let (...) (save-current-buffer ...))) (with-no-warnings (setq treemacs--ready-to-follow o)))))))
  treemacs--do-follow-tag(((("Nat" . #<marker at 116 in Nat.x>) "F") (("Z" . #<marker at 122 in Nat.x>) "F") (("S" . #<marker at 126 in Nat.x>) "F") (("isZ" . #<marker at 151 in Nat.x>) "F") (("isS" . #<marker at 217 in Nat.x>) "F") (("`+`" . #<marker at 262 in Nat.x>) "F") (("`*`" . #<marker at 331 in Nat.x>) "F") (("`^`" . #<marker at 402 in Nat.x>) "F") (("pred" . #<marker at 469 in Nat.x>) "F") (("natFromInt" . #<marker at 547 in Nat.x>) "F") (("natFromIntAccum" . #<marker at 615 in Nat.x>) "F") (("natToIntAccum" . #<marker at 783 in Nat.x>) "F") (("natToInt" . #<marker at 890 in Nat.x>) "F")) #<window 6 on  *Treemacs-Framebuffer-1*> "/home/user/c/lib/Base/Nat.x" [cl-struct-treemacs-project "c" "/home/user/c"])
  (progn (treemacs--do-follow-tag index treemacs-window buffer-file project))
  (if index (progn (treemacs--do-follow-tag index treemacs-window buffer-file project)))
  (let ((index (treemacs--flatten&sort-imenu-index))) (if index (progn (treemacs--do-follow-tag index treemacs-window buffer-file project))))
  (progn (let ((index (treemacs--flatten&sort-imenu-index))) (if index (progn (treemacs--do-follow-tag index treemacs-window buffer-file project)))))
  (if (and treemacs-window buffer-file project) (progn (let ((index (treemacs--flatten&sort-imenu-index))) (if index (progn (treemacs--do-follow-tag index treemacs-window buffer-file project))))))
  (let* ((treemacs-window (treemacs-get-local-window)) (buffer (current-buffer)) (buffer-file (if buffer (progn (buffer-file-name)))) (project (treemacs--find-project-for-buffer))) (if (and treemacs-window buffer-file project) (progn (let ((index (treemacs--flatten&sort-imenu-index))) (if index (progn (treemacs--do-follow-tag index treemacs-window buffer-file project)))))))
  treemacs--follow-tag-at-point()
  apply(treemacs--follow-tag-at-point nil)
  timer-event-handler([t 0 0 100000 t treemacs--follow-tag-at-point nil idle 0])