From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 11 Jun 2015 17:20:41 +0000 (-0400)
Subject: * lisp/thingatpt.el (in-string-p): Revert last change,
X-Git-Tag: emacs-25.0.90~1799
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eda386fc71419a6ec33f2f5fe73d7cb7ce51c028;p=emacs.git

* 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 ac4a3d342d7..c26b9be1da8 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))))