From 624e20434679a7fd4e2358f23161494d6d314e0d Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Fri, 17 Jan 2025 12:28:14 +0100 Subject: [PATCH] ; Avoid 'call-interactively' with constant arg --- lisp/pcomplete.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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 () -- 2.39.5