From: Eshel Yaron <me@eshelyaron.com>
Date: Fri, 17 Jan 2025 11:28:14 +0000 (+0100)
Subject: ; Avoid 'call-interactively' with constant arg
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=624e20434679a7fd4e2358f23161494d6d314e0d;p=emacs.git

; Avoid 'call-interactively' with constant arg
---

diff --git a/lisp/pcomplete.el b/lisp/pcomplete.el
index da905fc10af..23ffc44851c 100644
--- a/lisp/pcomplete.el
+++ b/lisp/pcomplete.el
@@ -598,7 +598,8 @@ completion functions list (it should occur fairly early in the list)."
 (defun pcomplete-reverse ()
   "If cycling completion is in use, cycle backwards."
   (interactive)
-  (call-interactively 'pcomplete))
+  (with-suppressed-warnings ((obsolete pcomplete))
+    (pcomplete t)))
 
 ;;;###autoload
 (defun pcomplete-expand-and-complete ()
@@ -616,7 +617,8 @@ This will modify the current buffer."
   (interactive)
   (setq pcomplete-current-completions nil
 	pcomplete-last-completion-raw nil)
-  (call-interactively 'pcomplete))
+  (with-suppressed-warnings ((obsolete pcomplete))
+    (pcomplete t)))
 
 ;;;###autoload
 (defun pcomplete-expand ()