]> git.eshelyaron.com Git - emacs.git/commitdiff
* lisp/thingatpt.el (in-string-p): Revert last change,
authorStefan Monnier <monnier@iro.umontreal.ca>
Thu, 11 Jun 2015 17:20:41 +0000 (13:20 -0400)
committerStefan Monnier <monnier@iro.umontreal.ca>
Thu, 11 Jun 2015 17:20:41 +0000 (13:20 -0400)
since in-string-p is not used in thingatpt.el but only from outside.

Also, use lexical binding.

lisp/thingatpt.el

index ac4a3d342d7250aa3ea1850e157f0fe188739279..c26b9be1da890865cfbb3a459e31ec30fc059a04 100644 (file)
@@ -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))))