branch: externals/logos
commit f03cf3ebd9480806f8d9bb456cd0c17582e4bd07
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Fix fallback value of logos-outline-regexp-alist
---
logos.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/logos.el b/logos.el
index 9bcaa59d7b..326264b802 100644
--- a/logos.el
+++ b/logos.el
@@ -92,10 +92,13 @@ When this variable is nil, pages are demarcated by the
:type 'boolean
:group 'logos)
+(defconst logos--page-delimiter (default-value 'page-delimiter)
+ "The default value of `page-delimiter'.")
+
(defcustom logos-outline-regexp-alist ; TODO 2022-03-02: more sensible
outlines?
- '((emacs-lisp-mode . "^;;;+ ")
+ `((emacs-lisp-mode . "^;;;+ ")
(org-mode . "^\\*+ +")
- (t . (or outline-regexp logos--page-delimiter)))
+ (t . ,(or outline-regexp logos--page-delimiter)))
"Alist of major mode and regular expression of the outline.
Only used when `logos-outlines-are-pages' is non-nil."
:type `(alist :key-type symbol :value-type string) ; TODO 2022-03-02: ensure
symbol is mode?
@@ -135,9 +138,6 @@ This is only relevant when `logos-focus-mode' is enabled."
(when (bound-and-true-p logos-focus-mode)
(buffer-local-value 'logos-focus-mode (current-buffer))))
-(defconst logos--page-delimiter (default-value 'page-delimiter)
- "The default value of `page-delimiter'.")
-
;;;; Page motions
(defun logos--outline-regexp ()
