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

Make 'emacs-news-cycle-tag' work at all levels

Browse source 
* lisp/textmodes/emacs-news-mode.el (emacs-news-cycle-tag): Search for
a heading starting with 2 or more '*' rather than exactly 3.
* test/lisp/textmodes/emacs-news-mode-resources/cycle-tag.erts
(Point-Char): Add tests for 2 and 4 '*' levels.
This commit is contained in:
Robert Pluim 2023-02-21 15:20:56 +01:00
parent 16ca258b1f
commit 1976ca1634
2 changed files with 92 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/textmodes/emacs-news-mode.el
View file

@ -195,7 +195,9 @@ untagged NEWS entry."
(goto-char (line-beginning-position)) (goto-char (line-beginning-position))
(cond ((or (looking-at (rx bol (or "---" "+++") eol))) (cond ((or (looking-at (rx bol (or "---" "+++") eol)))
(forward-line 2)) (forward-line 2))
((or (looking-at (rx bol "*** "))) ((or (looking-at (rx bol "**"
(zero-or-more "*")
" ")))
(forward-line 1))) (forward-line 1)))
(outline-previous-visible-heading 1) (outline-previous-visible-heading 1)
(forward-line -1) (forward-line -1)

89
test/lisp/textmodes/emacs-news-mode-resources/cycle-tag.erts
View file

@ -129,3 +129,92 @@ The corresponding key "% Y" is now bound by default in Dired.
Before, that binding was only available if the 'dired-x' package was Before, that binding was only available if the 'dired-x' package was
loaded. loaded.
=-=-= =-=-=
Name: tag7-2level
Point-Char: |
=-=
+++
** 'dired-do-relsymlink-regexp' moved from dired-x to dired.
The corresponding key "% Y" is now bound by default in Dired.
|+++
** 'M-G' is now bound to 'dired-goto-subdir'.
Before, that binding was only available if the 'dired-x' package was
loaded.
=-=
+++
** 'dired-do-relsymlink-regexp' moved from dired-x to dired.
The corresponding key "% Y" is now bound by default in Dired.
|** 'M-G' is now bound to 'dired-goto-subdir'.
Before, that binding was only available if the 'dired-x' package was
loaded.
=-=-=
Name: tag8-2level
Point-Char: |
=-=
+++
** 'dired-do-relsymlink-regexp' moved from dired-x to dired.
The corresponding key "% Y" is now bound by default in Dired.
+++
|** 'M-G' is now bound to 'dired-goto-subdir'.
Before, that binding was only available if the 'dired-x' package was
loaded.
=-=
+++
** 'dired-do-relsymlink-regexp' moved from dired-x to dired.
The corresponding key "% Y" is now bound by default in Dired.
|** 'M-G' is now bound to 'dired-goto-subdir'.
Before, that binding was only available if the 'dired-x' package was
loaded.
=-=-=
Name: tag9-2level-notag
Point-Char: |
=-=
+++
** 'dired-do-relsymlink-regexp' moved from dired-x to dired.
The corresponding key "% Y" is now bound by default in Dired.
|** 'M-G' is now bound to 'dired-goto-subdir'.
Before, that binding was only available if the 'dired-x' package was
loaded.
=-=
+++
** 'dired-do-relsymlink-regexp' moved from dired-x to dired.
The corresponding key "% Y" is now bound by default in Dired.
---
|** 'M-G' is now bound to 'dired-goto-subdir'.
Before, that binding was only available if the 'dired-x' package was
loaded.
=-=-=
Name: tag10-4level
Point-Char: |
=-=
+++
**** 'dired-do-relsymlink-regexp' moved from dired-x to dired.
The corresponding key "% Y" is now bound by default in Dired.
|**** 'M-G' is now bound to 'dired-goto-subdir'.
Before, that binding was only available if the 'dired-x' package was
loaded.
=-=
+++
**** 'dired-do-relsymlink-regexp' moved from dired-x to dired.
The corresponding key "% Y" is now bound by default in Dired.
---
|**** 'M-G' is now bound to 'dired-goto-subdir'.
Before, that binding was only available if the 'dired-x' package was
loaded.
=-=-=