From 90d2834bef6ef8408671098fbf76c76f64ac020f Mon Sep 17 00:00:00 2001 From: StrawberryTea Date: Sat, 8 Feb 2025 00:08:28 -0500 Subject: [PATCH] fix(emacs-lisp): handle malformed outline-regexp Sometimes elisp files specify an outline-regexp which does not match any groups so this causes it to return a default value of 0 instead of an error. --- modules/lang/emacs-lisp/autoload.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/modules/lang/emacs-lisp/autoload.el b/modules/lang/emacs-lisp/autoload.el index 2e4ade158..846508bd3 100644 --- a/modules/lang/emacs-lisp/autoload.el +++ b/modules/lang/emacs-lisp/autoload.el @@ -32,7 +32,9 @@ to a pop up buffer." (defun +emacs-lisp-outline-level () "Return outline level for comment at point. Intended to replace `lisp-outline-level'." - (- (match-end 1) (match-beginning 1))) + (if (match-beginning 1) + (- (match-end 1) (match-beginning 1)) + 0)) ;;