From 61291e06cc804de2075305c220d31ef6072f28c8 Mon Sep 17 00:00:00 2001 From: Mauro Aranda Date: Wed, 19 May 2021 09:57:46 -0300 Subject: [PATCH] Lift restriction for finding theme summary line * lisp/cus-theme.el (custom-theme-summary): Don't limit the file to having the deftheme form as the very first form, rather look for the deftheme form explicitly. --- lisp/cus-theme.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/cus-theme.el b/lisp/cus-theme.el index 13fb9f34fa0..dfa22264037 100644 --- a/lisp/cus-theme.el +++ b/lisp/cus-theme.el @@ -657,10 +657,12 @@ Theme files are named *-theme.el in `")) (insert-file-contents fn) (let ((sexp (let ((read-circle nil)) (condition-case nil - (read (current-buffer)) - (end-of-file nil))))) - (and (eq (car-safe sexp) 'deftheme) - (setq doc (nth 2 sexp)))))))) + (progn + (re-search-forward "^(deftheme") + (beginning-of-line) + (read (current-buffer))) + (error nil))))) + (setq doc (nth 2 sexp))))))) (cond ((null doc) "(no documentation available)") ((string-match ".*" doc) -- 2.39.5