procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Replace uses of in-string-p; make it obsolete

Browse source 
* lisp/thingatpt.el (in-string-p): Declare obsolete (bug#20732).
(end-of-sexp, beginning-of-sexp): Use syntax-ppss instead.
This commit is contained in:
Dmitry Gutov 2015-06-06 12:57:59 +03:00
parent e5108ff1e4
commit 73e6f36ed6
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/thingatpt.el
View file

@ -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))))