From: Eshel Yaron <me@eshelyaron.com>
Date: Fri, 15 Nov 2024 11:04:55 +0000 (+0100)
Subject: Fix some meta-calls with constant arguments
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5040fda7783193eb28d795436f2aadfd076f7e12;p=emacs.git

Fix some meta-calls with constant arguments
---

diff --git a/lisp/align.el b/lisp/align.el
index 16d502d1a7d..835eeca60b9 100644
--- a/lisp/align.el
+++ b/lisp/align.el
@@ -1007,7 +1007,7 @@ indented."
 			align-region-separate)
 		      'entire))
 	(end (point)))
-    (call-interactively 'newline-and-indent)
+    (newline-and-indent (prefix-numeric-value current-prefix-arg))
     (save-excursion
       (forward-line -1)
       (while (not (or (bobp)
diff --git a/lisp/allout.el b/lisp/allout.el
index e49bdfc9cd0..c3439acc7de 100644
--- a/lisp/allout.el
+++ b/lisp/allout.el
@@ -3143,10 +3143,7 @@ Returns resulting position, else nil if none found."
 (defun allout-backward-current-level (arg)
   "Inverse of `allout-forward-current-level'."
   (interactive "p")
-  (if (allout-called-interactively-p)
-      (let ((current-prefix-arg (* -1 arg)))
-	(call-interactively 'allout-forward-current-level))
-    (allout-forward-current-level (* -1 arg))))
+  (allout-forward-current-level (- arg)))
 
 ;;;_ #5 Alteration
 
diff --git a/lisp/gnus/gnus-topic.el b/lisp/gnus/gnus-topic.el
index 7a1053bd6f0..b02eb052834 100644
--- a/lisp/gnus/gnus-topic.el
+++ b/lisp/gnus/gnus-topic.el
@@ -1210,7 +1210,7 @@ If performed over a topic line, toggle folding the topic."
   "Expire articles in this topic or group."
   (interactive (list (gnus-group-topic-name)) gnus-topic-mode)
   (if (not topic)
-      (call-interactively 'gnus-group-expire-articles)
+      (gnus-group-expire-articles current-prefix-arg)
     (save-excursion
       (gnus-message 5 "Expiring groups in %s..." topic)
       (let ((gnus-group-marked
@@ -1225,7 +1225,7 @@ If performed over a topic line, toggle folding the topic."
 Also see `gnus-group-catchup'."
   (interactive (list (gnus-group-topic-name)) gnus-topic-mode)
   (if (not topic)
-      (call-interactively 'gnus-group-catchup-current)
+      (gnus-group-catchup-current current-prefix-arg)
     (save-excursion
       (let* ((groups
               (mapcar (lambda (entry) (car (nth 1 entry)))
diff --git a/lisp/repeat.el b/lisp/repeat.el
index 4c21c439099..2be182769ad 100644
--- a/lisp/repeat.el
+++ b/lisp/repeat.el
@@ -293,7 +293,7 @@ recently executed command not bound to an input event\"."
 		   ;; need it so `last-repeatable-command' can be recognized
 		   ;; later (bug#12232).
                    (setq real-this-command 'repeat)
-                   (call-interactively 'repeat))))))
+                   (repeat current-prefix-arg))))))
          map)))))
 
 (defun repeat-message (format &rest args)