~clean up config

This commit is contained in:
dx
2020-06-11 20:51:51 +01:00
parent 93326421fe
commit f7d134af3b
3 changed files with 3 additions and 9 deletions

View File

@@ -79,7 +79,7 @@ Shamelessly copied from rosetta code.
#+BEGIN_SRC elisp
(defun dx:org/count-sub (str pat)
(loop with z = 0 with s = 0 while s do
(when (setf s (search pat str :start2 s))
(when (setf s (cl-search pat str :start2 s))
(incf z) (incf s (length pat)))
finally (return z)))
#+END_SRC