diff options
Diffstat (limited to 'lisp/thingatpt.el')
| -rw-r--r-- | lisp/thingatpt.el | 8 |
1 files 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)))) |