diff options
| -rw-r--r-- | ChangeLog | 6 | ||||
| -rw-r--r-- | glep-mode.el | 9 |
2 files changed, 10 insertions, 5 deletions
@@ -1,3 +1,9 @@ +2023-09-16 Ulrich Müller <ulm@gentoo.org> + + * glep-mode.el (rst-classify-adornment) + (glep-mode-ignore-preamble): Use :before-while instead of :around + as advice combinator. + 2023-09-12 Ulrich Müller <ulm@gentoo.org> * Version 1.67 released. diff --git a/glep-mode.el b/glep-mode.el index c2817a0..9175c4e 100644 --- a/glep-mode.el +++ b/glep-mode.el @@ -160,13 +160,12 @@ to `font-lock-end'." ;; Prevent rst-mode from interpreting the "---" delimiter as section header. ;; *** FIXME *** This is incomplete and probably too brittle. -(defun glep-ignore-preamble (oldfun adornment end &rest args) +(defun glep-mode-ignore-preamble (_adornment end &rest _args) "Ignore GLEP preamble in `rst-classify-adornment'." - (if (not (and (eq major-mode 'glep-mode) - (glep-mode-in-preamble-p end))) - (apply oldfun adornment end args))) + (not (and (eq major-mode 'glep-mode) + (glep-mode-in-preamble-p end)))) -(advice-add 'rst-classify-adornment :around #'glep-ignore-preamble) +(advice-add 'rst-classify-adornment :before-while #'glep-mode-ignore-preamble) ;;; Generate HTML from GLEP. |