Fix warning about `in-string-p'

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)