From f8a69464d0ad9c25bb2a8142ad93030a8117c2c7 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Tue, 3 Mar 2020 16:15:43 -0500 Subject: [PATCH] Remove smartparens dependency for doom/info --- core/autoload/debug.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/core/autoload/debug.el b/core/autoload/debug.el index 6ebf2e2df..7055cae2f 100644 --- a/core/autoload/debug.el +++ b/core/autoload/debug.el @@ -23,17 +23,19 @@ (when (file-exists-p file) (insert-file-contents file)))) -(defun doom--collect-forms-in (file form) +(defsubst doom--collect-forms-in (file form) (when (file-readable-p file) (let (forms) (with-temp-buffer (insert-file-contents file) (delay-mode-hooks (emacs-lisp-mode)) (while (re-search-forward (format "(%s " (regexp-quote form)) nil t) - (unless (doom-point-in-string-or-comment-p) - (save-excursion - (goto-char (match-beginning 0)) - (push (sexp-at-point) forms)))) + (let ((ppss (syntax-ppss))) + (unless (or (nth 4 ppss) + (nth 3 ppss)) + (save-excursion + (goto-char (match-beginning 0)) + (push (sexp-at-point) forms))))) (nreverse forms))))) ;;;###autoload