diff options
| author | Xiyue Deng <manphiz@gmail.com> | 2023-12-13 13:38:55 -0800 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2023-12-23 10:48:06 +0200 |
| commit | 77232826821a60b50ab2c1f315ebffd4ebecfe66 (patch) | |
| tree | 652714d3971fd10d570851d96bfaac89b9dda9ca /doc/lispintro/emacs-lisp-intro.texi | |
| parent | 7a00ca92c191a8d105283f73e9b68f6a0378a3a0 (diff) | |
| download | emacs-77232826821a60b50ab2c1f315ebffd4ebecfe66.tar.gz emacs-77232826821a60b50ab2c1f315ebffd4ebecfe66.tar.bz2 emacs-77232826821a60b50ab2c1f315ebffd4ebecfe66.zip | |
Add sample code to the "let*" section in "forward-paragraph"
* doc/lispintro/emacs-lisp-intro.texi (fwd-para let): Add code
sample. (Bug#67817)
Diffstat (limited to 'doc/lispintro/emacs-lisp-intro.texi')
| -rw-r--r-- | doc/lispintro/emacs-lisp-intro.texi | 35 |
1 files changed, 34 insertions, 1 deletions
diff --git a/doc/lispintro/emacs-lisp-intro.texi b/doc/lispintro/emacs-lisp-intro.texi index 68943d9b6f4..aaa7511ef30 100644 --- a/doc/lispintro/emacs-lisp-intro.texi +++ b/doc/lispintro/emacs-lisp-intro.texi @@ -12847,7 +12847,40 @@ The next line of the @code{forward-paragraph} function begins a introduced}), in which Emacs binds a total of seven variables: @code{opoint}, @code{fill-prefix-regexp}, @code{parstart}, @code{parsep}, @code{sp-parstart}, @code{start}, and -@code{found-start}. +@code{found-start}. The first part of the @code{let*} expression +looks like below: + +@smallexample +@group +(let* ((opoint (point)) + (fill-prefix-regexp + (and fill-prefix (not (equal fill-prefix "")) + (not paragraph-ignore-fill-prefix) + (regexp-quote fill-prefix))) + ;; Remove ^ from paragraph-start and paragraph-sep if they are there. + ;; These regexps shouldn't be anchored, because we look for them + ;; starting at the left-margin. This allows paragraph commands to + ;; work normally with indented text. + ;; This hack will not find problem cases like "whatever\\|^something". + (parstart (if (and (not (equal "" paragraph-start)) + (equal ?^ (aref paragraph-start 0))) + (substring paragraph-start 1) + paragraph-start)) + (parsep (if (and (not (equal "" paragraph-separate)) + (equal ?^ (aref paragraph-separate 0))) + (substring paragraph-separate 1) + paragraph-separate)) + (parsep + (if fill-prefix-regexp + (concat parsep "\\|" + fill-prefix-regexp "[ \t]*$") + parsep)) + ;; This is used for searching. + (sp-parstart (concat "^[ \t]*\\(?:" parstart "\\|" parsep "\\)")) + start found-start) + ...) +@end group +@end smallexample The variable @code{parsep} appears twice, first, to remove instances of @samp{^}, and second, to handle fill prefixes. |