branch: elpa/rpm-spec-mode
commit ded4b7620fad38ef6fc5f391aa7ba3d98146a544
Author: Justin Koh <j...@ustink.org>
Commit: Björn Bidar <bjorn.bi...@thaodan.de>
Rename args to match completing-read
(cherry picked from commit 7dbebc24a59dd7f612555aaf679c2c4743b13bdb)
---
rpm-spec-mode.el | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/rpm-spec-mode.el b/rpm-spec-mode.el
index b4a71ffe8c..421215762c 100644
--- a/rpm-spec-mode.el
+++ b/rpm-spec-mode.el
@@ -911,14 +911,14 @@ using FILETYPE to prompt the user."
(interactive "GDirectory: ")
(rpm-insert-f "%docdir " dirname))
-;;------------------------------------------------------------
-(defun rpm-completing-read (prompt table &optional pred require init hist)
- "Read from the minibuffer like `completing-read' but for rpms-spec-mode.
-Take `rpm-spec-completion-ignore-case' into account and forward
-all arguments i.e. PROMPT, TABLE, PRED, REQUIRE, INIT and HIST.
-Call `completing-read' accordingly."
+(defun rpm-completing-read (prompt collection &optional predicate
+ require-match initial-input hist)
+ "Take `rpm-spec-completion-ignore-case' into account call `completion-read'.
+Forward all arguments i.e. PROMPT, COLLECTION, PREDICATE, REQUIRE-MATCH,
+INITIAL-INPUT and HIST to `completing-read'."
(let ((completion-ignore-case rpm-spec-completion-ignore-case))
- (completing-read prompt table pred require init hist)))
+ (completing-read prompt collection predicate
+ require-match initial-input hist)))
(defun rpm-insert (&optional what file-completion)
"Insert given tag. Use FILE-COMPLETION if argument is t.
