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

Slight namespace cleanup for thingatpt.el.

Browse source 
* lisp/thingatpt.el (thing-at-point--in-string-p)
(thing-at-point--end-of-sexp, thing-at-point--beginning-of-sexp)
(thing-at-point--read-from-whole-string): Rename from
old versions without "thing-at-point--" prefix.
Keep old versions as obsolete aliases.  Update all uses.
This commit is contained in:
Glenn Morris 2015-06-10 19:07:09 -04:00
parent 7c24a2c210
commit cabaa992fa
1 changed files with 27 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
lisp/thingatpt.el
View file

@ -177,36 +177,45 @@ The bounds of THING are determined by `bounds-of-thing-at-point'."
;; Sexps
(defun in-string-p ()
"Return non-nil if point is in a string.
\[This is an internal function.]"
(defun thing-at-point--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)))
(save-excursion
(beginning-of-defun)
(nth 3 (parse-partial-sexp (point) orig)))))
(defun end-of-sexp ()
"Move point to the end of the current sexp.
\[This is an internal function.]"
(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))))
(if (or (eq char-syntax ?\))
(and (eq char-syntax ?\") (nth 3 (syntax-ppss))))
(forward-char 1)
(forward-sexp 1))))
(put 'sexp 'end-op 'end-of-sexp)
(define-obsolete-function-alias 'end-of-sexp
'thing-at-point--end-of-sexp "25.1"
"This is an internal thingatpt function and should not be used.")
(defun beginning-of-sexp ()
"Move point to the beginning of the current sexp.
\[This is an internal function.]"
(put 'sexp 'end-op 'thing-at-point--end-of-sexp)
(defun thing-at-point--beginning-of-sexp ()
"Move point to the beginning of the current sexp."
(let ((char-syntax (char-syntax (char-before))))
(if (or (eq char-syntax ?\()
(and (eq char-syntax ?\") (nth 3 (syntax-ppss))))
(forward-char -1)
(forward-sexp -1))))
(put 'sexp 'beginning-op 'beginning-of-sexp)
(define-obsolete-function-alias 'beginning-of-sexp
'thing-at-point--beginning-of-sexp "25.1"
"This is an internal thingatpt function and should not be used.")
(put 'sexp 'beginning-op 'thing-at-point--beginning-of-sexp)
;; Lists
@ -551,7 +560,7 @@ with angle brackets.")
"Return the sentence at point. See `thing-at-point'."
(thing-at-point 'sentence))
(defun read-from-whole-string (str)
(defun thing-at-point--read-from-whole-string (str)
"Read a Lisp expression from STR.
Signal an error if the entire string was not used."
(let* ((read-data (read-from-string str))
@ -565,9 +574,14 @@ Signal an error if the entire string was not used."
(error "Can't read whole string")
(car read-data))))
(define-obsolete-function-alias 'read-from-whole-string
'thing-at-point--read-from-whole-string "25.1"
"This is an internal thingatpt function and should not be used.")
(defun form-at-point (&optional thing pred)
(let ((sexp (ignore-errors
(read-from-whole-string (thing-at-point (or thing 'sexp))))))
(thing-at-point--read-from-whole-string
(thing-at-point (or thing 'sexp))))))
(if (or (not pred) (funcall pred sexp)) sexp)))
;;;###autoload