Fix some meta-calls with constant arguments

diff --git a/lisp/align.el b/lisp/align.el
index 16d502d1a7dd0f697f3334c93a36e014a67f8954..835eeca60b92ad68611626e0c18e6ccc68698d8a 100644 (file)
--- 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 e49bdfc9cd0fec48f010aa1679ae3e830efb88f1..c3439acc7ded180b9ac459ff38fcb517a1b07b65 100644 (file)
--- 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 7a1053bd6f0f9c35098bfc4eaf1a44e8c5ec89df..b02eb052834df437373deffecb2d603f0c9652b9 100644 (file)
--- 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 4c21c4390991351ddd6708ae2666f231917c3ddd..2be182769aded372fed5e3426924d2e3000b774a 100644 (file)
--- 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)