|
From: | Jean Louis |
Subject: | Re: [External] : ThingAtPointPlus, and extending things at point |
Date: | Fri, 6 Jan 2023 18:49:13 +0300 |
User-agent: | Mutt/2.2.9+54 (af2080d) (2022-11-21) |
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/
[Prev in Thread] | Current Thread | [Next in Thread] |