mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(icomplete-mode): Treat an argument like other

Browse source 
modes do.
This commit is contained in:
Gerd Moellmann 2001-04-03 14:48:02 +00:00
parent 86b032fa4c
commit 4b404c58a5
1 changed files with 14 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

26
lisp/icomplete.el
View file

@ -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 <klm@i.am>
;; Maintainer: Ken Manheimer <klm@i.am>
@ -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 ()