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

Accept NO-PROPERTIES in thing-at-point aliases (Bug#35491)

Browse source 
* lisp/thingatpt.el (word-at-point, sentence-at-point): Accept and
pass NO-PROPERTIES to thing-at-point.
* etc/NEWS: Announce change.
This commit is contained in:
Noam Postavsky 2019-05-07 18:15:35 -04:00
parent 88cc910abe
commit 04e9938350
2 changed files with 12 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
etc/NEWS
View file

@ -1283,11 +1283,18 @@ automatically updates. In the buffer, you can use 's q' or 's e' to
signal a thread with quit or error respectively, or get a snapshot
backtrace with 'b'.
** thingatpt.el
---
** thingatpt.el supports a new "thing" called 'uuid'.
*** 'thing-at-point' supports a new "thing" called 'uuid'.
A symbol 'uuid' can be passed to 'thing-at-point' and it returns the
UUID at point.
---
*** 'word-at-point' and 'sentence-at-point' accept NO-PROPERTIES.
Just like 'thing-at-point' itself.
** Interactive automatic highlighting
+++

8
lisp/thingatpt.el
View file

@ -585,13 +585,13 @@ See RFC 4122 for the description of the format.")
;; Aliases
(defun word-at-point ()
(defun word-at-point (&optional no-properties)
"Return the word at point. See `thing-at-point'."
(thing-at-point 'word))
(thing-at-point 'word no-properties))
(defun sentence-at-point ()
(defun sentence-at-point (&optional no-properties)
"Return the sentence at point. See `thing-at-point'."
(thing-at-point 'sentence))
(thing-at-point 'sentence no-properties))
(defun thing-at-point--read-from-whole-string (str)
"Read a Lisp expression from STR.