From: Mauro Aranda <maurooaranda@gmail.com>
Date: Wed, 19 May 2021 12:57:46 +0000 (-0300)
Subject: Lift restriction for finding theme summary line
X-Git-Tag: emacs-28.0.90~2398
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=61291e06cc804de2075305c220d31ef6072f28c8;p=emacs.git

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.
---

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)