We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent f9a15e0 commit 367fe90Copy full SHA for 367fe90
jcs-template.el
@@ -68,11 +68,13 @@
68
;; (@* "Util" )
69
;;
70
71
+;;;###autoload
72
(defun jcs-current-file-empty-p (&optional fn)
73
"Check if the FN an empty file."
74
(if fn (with-current-buffer fn (and (bobp) (eobp)))
75
(and (bobp) (eobp))))
76
77
78
(defun jcs-string-compare-p (regexp str type &optional ignore-case)
79
"Compare STR with REGEXP by TYPE.
80
@@ -91,6 +93,7 @@ or `suffix'."
91
93
(`suffix (string-suffix-p regexp str ignore-case))
92
94
(t (ignore-errors (string-match-p regexp str)))))
95
96
97
(defun jcs-contain-list-type-str (elt list type &optional reverse)
98
"Return non-nil if ELT is listed in LIST.
99
0 commit comments