* lisp/thingatpt.el (in-string-p): Revert last change,

since in-string-p is not used in thingatpt.el but only from outside.

Also, use lexical binding.

diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el
index ac4a3d342d7250aa3ea1850e157f0fe188739279..c26b9be1da890865cfbb3a459e31ec30fc059a04 100644 (file)
--- a/lisp/thingatpt.el
+++ b/lisp/thingatpt.el
@@ -1,4 +1,4 @@
-;;; thingatpt.el --- get the `thing' at point
+;;; thingatpt.el --- get the `thing' at point  -*- lexical-binding:t -*-
 
 ;; Copyright (C) 1991-1998, 2000-2015 Free Software Foundation, Inc.
 
@@ -177,7 +177,7 @@ The bounds of THING are determined by `bounds-of-thing-at-point'."
 
 ;;  Sexps
 
-(defun thing-at-point--in-string-p ()
+(defun in-string-p ()
   "Return non-nil if point is in a string."
   (declare (obsolete "use (nth 3 (syntax-ppss)) instead." "25.1"))
   (let ((orig (point)))
@@ -185,10 +185,6 @@ The bounds of THING are determined by `bounds-of-thing-at-point'."
       (beginning-of-defun)
       (nth 3 (parse-partial-sexp (point) orig)))))
 
-(define-obsolete-function-alias 'in-string-p
-  'thing-at-point--in-string-p "25.1"
-  "This is an internal thingatpt function and should not be used.")
-
 (defun thing-at-point--end-of-sexp ()
   "Move point to the end of the current sexp."
   (let ((char-syntax (syntax-after (point))))