[Emacs-diffs] master eda386f: * lisp/thingatpt.el (in-string-p): Revert last change,

[Stefan Monnier]

branch: master
commit eda386fc71419a6ec33f2f5fe73d7cb7ce51c028
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * 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.
---
 lisp/thingatpt.el |    8 ++------
 1 files changed, 2 insertions(+), 6 deletions(-)

diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el
index ac4a3d3..c26b9be 100644
--- 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))))