diff --git a/emacs/.emacs.d/init.org b/emacs/.emacs.d/init.org
index 2c7fa7a..a7c2248 100644
--- a/emacs/.emacs.d/init.org
+++ b/emacs/.emacs.d/init.org
@@ -939,11 +939,11 @@
      (defun oni:delete-string-contents ()
        (interactive)
 
-       (unless (in-string-p)
+       (unless (nth 3 (syntax-ppss))
          (error "You must be in a string for this command to work"))
 
        (save-excursion
-         (while (in-string-p) (forward-char -1))
+         (while (nth 3 (syntax-ppss)) (forward-char -1))
 
          (let ((bos (point)))
            (forward-sexp)