; Avoid 'call-interactively' with constant arg

diff --git a/lisp/pcomplete.el b/lisp/pcomplete.el
index da905fc10af062f47b7c7dc222b14c60b1c8e55d..23ffc44851c818d9c1638f7df0f4bba70af5b3c7 100644 (file)
--- 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 ()