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

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

[elpa] externals/ergoemacs-mode 2acbb4a 205/325: Remove a component prom


From: Stefan Monnier
Subject: [elpa] externals/ergoemacs-mode 2acbb4a 205/325: Remove a component prompt
Date: Sat, 23 Oct 2021 18:48:54 -0400 (EDT)

branch: externals/ergoemacs-mode
commit 2acbb4af32369bb5fb11e6694ff1ac10f34a4ce1
Author: Walter Landry <wlandry@caltech.edu>
Commit: Walter Landry <wlandry@caltech.edu>

    Remove a component prompt
---
 ergoemacs-theme-engine.el | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/ergoemacs-theme-engine.el b/ergoemacs-theme-engine.el
index 0de4141..bca43b6 100644
--- a/ergoemacs-theme-engine.el
+++ b/ergoemacs-theme-engine.el
@@ -334,15 +334,12 @@ See also `find-function-recenter-line' and 
`find-function-after-hook'."
   (ergoemacs-component-find-1 theme 'ergoemacs-theme 'switch-to-buffer))
 
 (defun ergoemacs-theme-describe ()
-  "Display the full documentation of THEME (a symbol or string)."
-  (interactive (ergoemacs-component--prompt t))
+  "Display the full documentation for Ergoemacs."
+  (interactive)
   (let* (required-p
          svg png tmp)
-    (if current-prefix-arg
-       (setq svg (ergoemacs-theme--svg nil t)
-              png (ergoemacs-theme--png nil t))
-      (setq svg (ergoemacs-theme--svg)
-           png (ergoemacs-theme--png)))
+    (setq svg (ergoemacs-theme--svg)
+         png (ergoemacs-theme--png))
     (help-setup-xref (list #'ergoemacs-theme-describe)
                      (called-interactively-p 'interactive))
     (with-help-window (help-buffer)
@@ -863,6 +860,7 @@ See also `find-function-recenter-line' and 
`find-function-after-hook'."
                 (push file-name ret)))
           (unless (equal lay old-layout)
             (setq ergoemacs-keyboard-layout old-layout)
+            ;; TODO: Is this OK?
             (ergoemacs-mode-reset)))
         ret
         )



reply via email to

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