emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/logos f03cf3ebd9 06/25: Fix fallback value of logos-out


From: ELPA Syncer
Subject: [elpa] externals/logos f03cf3ebd9 06/25: Fix fallback value of logos-outline-regexp-alist
Date: Fri, 11 Mar 2022 08:58:00 -0500 (EST)

branch: externals/logos
commit f03cf3ebd9480806f8d9bb456cd0c17582e4bd07
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@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 ()



reply via email to

[Prev in Thread] Current Thread [Next in Thread]