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

minmo : notes

Browse source
This commit is contained in:
bth 2026-06-03 11:39:13 -07:00
commit 24e1030a55
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
packages/minmo.el
View file

@ -114,7 +114,7 @@ filesystem FSTYPE, 'git or 'disk."
(or minmo--git-status-cache " ")) (or minmo--git-status-cache " "))
(defvar minmo--git-directory-table (make-hash-table :test 'equal) (defvar minmo--git-directory-table (make-hash-table :test 'equal)
"Store known directories with .git") "Store known directories with and without a ruling .git")
(defun minmo--find-git (file &optional force) (defun minmo--find-git (file &optional force)
"Walk up the directory tree looking for `.git'. Returns the path or nil. "Walk up the directory tree looking for `.git'. Returns the path or nil.
@ -122,8 +122,9 @@ Optional FORCE means ignore the minmo--git-directory-table."
(let* ((dir (file-name-directory file)) (let* ((dir (file-name-directory file))
(hash (gethash dir minmo--git-directory-table))) (hash (gethash dir minmo--git-directory-table)))
(if (or force (not hash)) (if (or force (not hash))
;; NOTE: store 'ignore for files not under .git ;; NOTE: store 'ignore for files not under .git, so these calls are also optimized:
(puthash dir (or (locate-dominating-file file ".git") 'ignore) minmo--git-directory-table) (puthash dir (or (locate-dominating-file file ".git") 'ignore) minmo--git-directory-table)
;; but return nil when 'ignore, so that this function serves as a guard:
(if (eq hash 'ignore) nil hash)))) (if (eq hash 'ignore) nil hash))))
(defun minmo--file-exists-locally-p () (defun minmo--file-exists-locally-p ()