Skip to content

Commit

Permalink
Update jcs-template.el
Browse files Browse the repository at this point in the history
  • Loading branch information
jcs090218 authored Dec 22, 2024
1 parent f9a15e0 commit 367fe90
Showing 1 changed file with 3 additions and 0 deletions.
3 changes: 3 additions & 0 deletions jcs-template.el
Original file line number Diff line number Diff line change
Expand Up @@ -68,11 +68,13 @@
;; (@* "Util" )
;;

;;;###autoload
(defun jcs-current-file-empty-p (&optional fn)
"Check if the FN an empty file."
(if fn (with-current-buffer fn (and (bobp) (eobp)))
(and (bobp) (eobp))))

;;;###autoload
(defun jcs-string-compare-p (regexp str type &optional ignore-case)
"Compare STR with REGEXP by TYPE.
Expand All @@ -91,6 +93,7 @@ or `suffix'."
(`suffix (string-suffix-p regexp str ignore-case))
(t (ignore-errors (string-match-p regexp str)))))

;;;###autoload
(defun jcs-contain-list-type-str (elt list type &optional reverse)
"Return non-nil if ELT is listed in LIST.
Expand Down

0 comments on commit 367fe90

Please sign in to comment.