diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-01-21 12:45:24 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-01-21 12:45:29 +0100 |
| commit | 8e7728a5bfaf99efd3fb9ea7dd42dabd11a00b5c (patch) | |
| tree | 4032553c6cca0d50bd8bbf72bf18637fc27fbf5c | |
| parent | bacc24b5d0d708dd9ac34e314c2d3af25b311397 (diff) | |
| download | emacs-8e7728a5bfaf99efd3fb9ea7dd42dabd11a00b5c.tar.gz emacs-8e7728a5bfaf99efd3fb9ea7dd42dabd11a00b5c.tar.bz2 emacs-8e7728a5bfaf99efd3fb9ea7dd42dabd11a00b5c.zip | |
Fix thinko in previous footnote.el change
* lisp/mail/footnote.el (footnote--regenerate-alist): Don't error
out when there's no footnotes.
| -rw-r--r-- | lisp/mail/footnote.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/mail/footnote.el b/lisp/mail/footnote.el index 9c1a738035e..995ae5f9160 100644 --- a/lisp/mail/footnote.el +++ b/lisp/mail/footnote.el @@ -916,8 +916,7 @@ play around with the following keys: (defun footnote--regenerate-alist () (save-excursion (goto-char (point-min)) - (if (not (re-search-forward footnote-section-tag-regexp nil t)) - (error "No footnote section in this buffer") + (when (re-search-forward footnote-section-tag-regexp nil t) (setq footnote--markers-alist (cl-loop with start-of-footnotes = (match-beginning 0) |