From eda386fc71419a6ec33f2f5fe73d7cb7ce51c028 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 11 Jun 2015 13:20:41 -0400 Subject: [PATCH] * 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 file changed, 2 insertions(+), 6 deletions(-) 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)))) -- 2.39.2