mirror of
https://github.com/doomemacs/doomemacs
synced 2025-08-03 12:27:26 -05:00
17 lines
441 B
EmacsLisp
17 lines
441 B
EmacsLisp
;;; lisp/lib/strings.el -*- lexical-binding: t; -*-
|
|
|
|
;;;###autoload
|
|
(defun doom-pcre-quote (str)
|
|
"Like `reqexp-quote', but for PCREs."
|
|
(let ((special '(?. ?^ ?$ ?* ?+ ?? ?{ ?\\ ?\[ ?\| ?\())
|
|
(quoted nil))
|
|
(mapc (lambda (c)
|
|
(when (memq c special)
|
|
(push ?\\ quoted))
|
|
(push c quoted))
|
|
str)
|
|
(concat (nreverse quoted))))
|
|
|
|
(provide 'doom-lib '(strings))
|
|
;;; strings.el ends here
|