[Emacs-diffs] master 73e6f36: Replace uses of in-string-p; make it obsolete

[Dmitry Gutov]

branch: master
commit 73e6f36ed672edc827621b85dc88b8521030633d
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>

    Replace uses of in-string-p; make it obsolete
    
    * lisp/thingatpt.el (in-string-p): Declare obsolete (bug#20732).
    (end-of-sexp, beginning-of-sexp): Use syntax-ppss instead.
---
 lisp/thingatpt.el |    5 +++--
 1 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el
index b3fe1bc..7fdb32c 100644
--- a/lisp/thingatpt.el
+++ b/lisp/thingatpt.el
@@ -180,6 +180,7 @@ The bounds of THING are determined by 
`bounds-of-thing-at-point'."
 (defun in-string-p ()
   "Return non-nil if point is in a string.
 \[This is an internal function.]"
+  (declare (obsolete "use (nth 3 (syntax-ppss)) instead." "25.1"))
   (let ((orig (point)))
     (save-excursion
       (beginning-of-defun)
@@ -190,7 +191,7 @@ The bounds of THING are determined by 
`bounds-of-thing-at-point'."
 \[This is an internal function.]"
   (let ((char-syntax (syntax-after (point))))
     (if (or (eq char-syntax ?\))
-           (and (eq char-syntax ?\") (in-string-p)))
+           (and (eq char-syntax ?\") (nth 3 (syntax-ppss))))
        (forward-char 1)
       (forward-sexp 1))))
 
@@ -201,7 +202,7 @@ The bounds of THING are determined by 
`bounds-of-thing-at-point'."
 \[This is an internal function.]"
   (let ((char-syntax (char-syntax (char-before))))
     (if (or (eq char-syntax ?\()
-           (and (eq char-syntax ?\") (in-string-p)))
+           (and (eq char-syntax ?\") (nth 3 (syntax-ppss))))
        (forward-char -1)
       (forward-sexp -1))))