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

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

[elpa] externals/engrave-faces d3a8a55674 1/6: Update macro-generated in


From: ELPA Syncer
Subject: [elpa] externals/engrave-faces d3a8a55674 1/6: Update macro-generated interactive specs
Date: Sat, 7 May 2022 15:57:29 -0400 (EDT)

branch: externals/engrave-faces
commit d3a8a55674f15db4714b9130ada7c8ca9fc650c3
Author: TEC <tec@tecosaur.com>
Commit: TEC <tec@tecosaur.com>

    Update macro-generated interactive specs
---
 engrave-faces.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/engrave-faces.el b/engrave-faces.el
index d31167574a..fef009e033 100644
--- a/engrave-faces.el
+++ b/engrave-faces.el
@@ -91,7 +91,7 @@ and cause a -standalone version of the buffer transforming 
function to be create
                        (list ,backend :face-transformer ,face-transformer 
:extension ,extension))
           (defun ,(intern (concat "engrave-faces-" backend "-buffer")) 
(&optional theme switch-to-result)
             ,(concat "Convert buffer to " backend " formatting.")
-            (interactive '(t))
+            (interactive '(nil t))
             (let ((buf (engrave-faces-buffer ,backend theme)))
               (when switch-to-result
                 (switch-to-buffer buf)
@@ -99,7 +99,7 @@ and cause a -standalone version of the buffer transforming 
function to be create
               buf))
           ,(when standalone-transformer
              `(defun ,(intern (concat "engrave-faces-" backend 
"-buffer-standalone")) (&optional theme switch-to-result)
-                (interactive '(t))
+                (interactive '(nil t))
                 ,(concat "Export the current buffer to a standalone " backend 
" buffer.")
                 (let ((buf (engrave-faces-buffer ,backend theme)))
                   (with-current-buffer buf
@@ -110,7 +110,7 @@ and cause a -standalone version of the buffer transforming 
function to be create
                   buf)))
           (defun ,(intern (concat "engrave-faces-" backend "-file")) (file 
&optional out-file theme open-result)
             ,(concat "Convert file to " backend " formatting.")
-            (interactive (list buffer-file-name nil t))
+            (interactive (list buffer-file-name nil nil t))
             (unless out-file
               (setq out-file (concat file ,extension)))
             (engrave-faces-file file out-file ,backend theme 
,standalone-transformer)



reply via email to

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