diff options
| -rw-r--r-- | etc/NEWS | 9 | ||||
| -rw-r--r-- | lisp/thingatpt.el | 8 |
2 files changed, 12 insertions, 5 deletions
@@ -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 +++ diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el index 26e084320bd..60a20e2d188 100644 --- a/lisp/thingatpt.el +++ b/lisp/thingatpt.el @@ -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. |