From 4b404c58a5889d46c208658f976dba4fb450a173 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Tue, 3 Apr 2001 14:48:02 +0000 Subject: [PATCH] (icomplete-mode): Treat an argument like other modes do. --- lisp/icomplete.el | 26 ++++++++++++++------------ 1 file changed, 14 insertions(+), 12 deletions(-) diff --git a/lisp/icomplete.el b/lisp/icomplete.el index 46ba90b2960..5be4ce99139 100644 --- a/lisp/icomplete.el +++ b/lisp/icomplete.el @@ -1,6 +1,7 @@ ;;; icomplete.el --- minibuffer completion incremental feedback -;; Copyright (C) 1992, 1993, 1994, 1997, 1999 Free Software Foundation, Inc. +;; Copyright (C) 1992, 1993, 1994, 1997, 1999, 2001 +;;; Free Software Foundation, Inc. ;; Author: Ken Manheimer ;; Maintainer: Ken Manheimer @@ -172,17 +173,18 @@ is minibuffer." ;;;_ > icomplete-mode (&optional prefix) ;;;###autoload -(defun icomplete-mode (&optional prefix) - "Activate incremental minibuffer completion for this Emacs session. -Deactivates with negative universal argument." - (interactive "p") - (or prefix (setq prefix 0)) - (cond ((>= prefix 0) - (setq icomplete-mode t) - ;; The following is not really necessary after first time - - ;; no great loss. - (add-hook 'minibuffer-setup-hook 'icomplete-minibuffer-setup)) - (t (setq icomplete-mode nil)))) +(defun icomplete-mode (&optional arg) + "Toggle incremental minibuffer completion for this Emacs session. +With a numeric argument, turn Icomplete mode on iff ARG is positive." + (interactive "P") + (let ((on-p (if (null arg) + (not icomplete-mode) + (> (prefix-numeric-value arg) 0)))) + (setq icomplete-mode on-p) + (when on-p + ;; The following is not really necessary after first time - + ;; no great loss. + (add-hook 'minibuffer-setup-hook 'icomplete-minibuffer-setup)))) ;;;_ > icomplete-simple-completing-p () (defun icomplete-simple-completing-p () -- 2.39.5