Re: [External] : ThingAtPointPlus, and extending things at point

[Jean Louis <bugs@gnu.support>]

I find it useful to have this:

;;; Thing at point 'thing-within-spaces

(defun rcd-tap-thing-within-spaces-start ()
    "Move point to the beginning of thing within spaces."
  (re-search-backward (rx whitespace))
  (forward-char 1))

(defun rcd-tap-thing-within-spaces-end ()
    "Move point to the end of thing within spaces."
  (re-search-forward (rx whitespace))
  (backward-char 1))

(put 'thing-within-spaces 'beginning-op 'rcd-tap-thing-within-spaces-start)
(put 'thing-within-spaces 'end-op 'rcd-tap-thing-within-spaces-end)

-- 
Jean

Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns

In support of Richard M. Stallman
https://stallmansupport.org/