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

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

[elpa] externals/theme-buffet e412016226 09/12: Corrected functions docs


From: ELPA Syncer
Subject: [elpa] externals/theme-buffet e412016226 09/12: Corrected functions docstrings
Date: Fri, 24 Nov 2023 15:58:48 -0500 (EST)

branch: externals/theme-buffet
commit e4120162263f03af90cf532c9cce640343119592
Author: bboal <egomet@bboal.com>
Commit: bboal <egomet@bboal.com>

    Corrected functions docstrings
---
 theme-buffet.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/theme-buffet.el b/theme-buffet.el
index b2e1d8cfde..79195adb6e 100644
--- a/theme-buffet.el
+++ b/theme-buffet.el
@@ -93,9 +93,9 @@ the time of the day.  A true theme feast for the eyes..."
   :group 'faces)
 
 (defun theme-buffet--set-const-themes ()
-  "Get themes from default Emacs build directory and `custom-theme-load-path'.
-Return list for usage in `theme-buffet-menu' type options if PLIST-USAGE is
-non-nil."
+  "Get list of themes from `custom-available-themes'.
+Return a new list with the symbol const prepended to each element for usage in
+`theme-buffet--end-user' type options."
     (mapcar (lambda (theme)
                 (list 'const theme))
             (custom-available-themes)))
@@ -176,7 +176,7 @@ Prefilled with Emacs default themes as an example to be 
changed by the user."
                  (const :tag "User specified themes" end-user)))
 
 (defun theme-buffet--selected-menu ()
-  "Return property list based on given MENU."
+  "Return property list based on `theme-buffet-menu' value."
   (pcase theme-buffet-menu
     ('built-in theme-buffet--built-in)
     ('modus-ef theme-buffet--modus-ef)
@@ -298,7 +298,7 @@ An error message will appear if the theme is not available 
to load through
 
 ;;;###autoload
 (defun theme-buffet-a-la-carte ()
-  "Prompt user for theme according to the current period of the day."
+  "Prompt user for a theme according to the current period of the day."
   (declare (interactive-only t))
   (interactive)
   (let ((chosen-theme (intern (theme-buffet--theme-prompt))))
@@ -316,7 +316,7 @@ An error message will appear if the theme is not available 
to load through
 
 ;;;###autoload
 (defun theme-buffet-order-other-period ()
-  "Interactively load a random theme from the current day period."
+  "Interactively load a random theme from a prompted period."
   (declare (interactive-only t))
   (interactive)
   (let ((period (intern (theme-buffet--period-prompt))))



reply via email to

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