Skip to content

Commit

Permalink
fix(core): ignore case when matching regexps in +make-first-file-hook!
Browse files Browse the repository at this point in the history
  • Loading branch information
abougouffa committed Jan 14, 2024
1 parent 0521268 commit 6241629
Showing 1 changed file with 2 additions and 1 deletion.
3 changes: 2 additions & 1 deletion core/me-lib.el
Original file line number Diff line number Diff line change
Expand Up @@ -343,7 +343,8 @@ Executed before `find-file-noselect', it runs all hooks in `%s' and provide the
(when-let ((files (cdr command-line-args))) ; or immediately if the file is passed as a command line argument
(cl-some (lambda (file) (string= (expand-file-name filename) (expand-file-name file))) files)))
filename ; for named files
(string-match-p ,ext-regexp filename)) ; file name matches the regexp
(let ((case-fold-search t)) ;; case-insensitive
(string-match-p ,ext-regexp filename))) ; file name matches the regexp
(+log! "Running %d `%s' hooks." (length ,hook-name) ',hook-name)
(advice-remove 'find-file-noselect #',fn-name)
(provide ',feature-name)
Expand Down

0 comments on commit 6241629

Please sign in to comment.