bth/minmo
Watch
1
Fork
You've already forked minmo
 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

minmo : minmo--update-file-exists-cache should use minmo--file-exists-locally-p

Browse source
This commit is contained in:
bth 2026-06-09 12:47:43 -07:00
commit 0bccec7550
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
packages/minmo.el
View file

@ -140,7 +140,7 @@ Optional FORCE means ignore the minmo--git-directory-table."
(if (eq hash 'ignore) nil hash))) (if (eq hash 'ignore) nil hash)))
(defun minmo--file-exists-locally-p () (defun minmo--file-exists-locally-p ()
"Utility predicate to prevent expensive VC checks remotely." "Utility predicate to prevent expensive reads remotely."
(and buffer-file-name (not (file-remote-p (buffer-file-name))))) (and buffer-file-name (not (file-remote-p (buffer-file-name)))))
(defun minmo--git-status-short (file) (defun minmo--git-status-short (file)
@ -225,11 +225,11 @@ Optional FORCE means ignore the minmo--git-directory-table."
"Cached boolean indicating if the file exists on disk.") "Cached boolean indicating if the file exists on disk.")
(defun minmo--update-file-exists-cache () (defun minmo--update-file-exists-cache ()
(when buffer-file-name (setq minmo--file-exists-cache
(setq minmo--file-exists-cache ;; skip the check for remote files and assume they exist:
;; skip the check for remote files and assume they exist: (if (minmo--file-exists-locally-p)
(if (file-remote-p (buffer-file-name)) t (file-exists-p buffer-file-name)
(file-exists-p buffer-file-name))))) t)))
(defun minmo--update-file-exists-cache-window (frame-or-window) (defun minmo--update-file-exists-cache-window (frame-or-window)
(minmo--window-hook frame-or-window 'minmo--update-file-exists-cache)) (minmo--window-hook frame-or-window 'minmo--update-file-exists-cache))