procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/thingatpt.el (in-string-p): Revert last change,

Browse source 
since in-string-p is not used in thingatpt.el but only from outside.

Also, use lexical binding.
This commit is contained in:
Stefan Monnier 2015-06-11 13:20:41 -04:00
parent 35d19cc2a1
commit eda386fc71
1 changed files with 2 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/thingatpt.el
View 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))))