From 568a943006551dc8083bd39fd148583f7eadfe79 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 26 Aug 2023 10:54:43 +0300 Subject: [PATCH] ; Fix last change * lisp/cus-theme.el (describe-theme-from-file): Fix doc string and arguments. (describe-theme-1): Fix the call to 'describe-theme-from-file'. (Bug#65468) --- lisp/cus-theme.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/cus-theme.el b/lisp/cus-theme.el index c6c9d9c892b..ccd8ba51c9d 100644 --- a/lisp/cus-theme.el +++ b/lisp/cus-theme.el @@ -490,12 +490,12 @@ It includes all faces in list FACES." (with-current-buffer standard-output (describe-theme-1 theme)))) -(defun describe-theme-from-file (&optional file short) - "Describe theme from its file FILE without loading it. +(defun describe-theme-from-file (theme &optional file short) + "Describe THEME from its FILE without loading it. -If FILE is nil try to find the file from the theme name in -`custom-theme-load-path'. -If SHORT is non nil show only the first line of documentation." +If FILE is nil try to look in `custom-theme-load-path' for the +theme's file using the theme's name. +If SHORT is non-nil, show only the first line of thene's documentation." (let ((file (or file (locate-file (concat (symbol-name theme) "-theme.el") (custom-theme--load-path) @@ -535,7 +535,7 @@ If SHORT is non nil show only the first line of documentation." (princ "It is not loaded.") ;; Attempt to grab the theme documentation from file. (when fn - (setq doc (describe-theme-from-file fn)))) + (setq doc (describe-theme-from-file theme fn)))) (princ "\n\nDocumentation:\n") (princ (if (stringp doc) (substitute-command-keys doc) -- 2.39.5