Mercurial > hg > xemacs-beta

comparison lisp/packages/icomplete.el @ 4:b82b59fe008d r19-15b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b3
author cvs
date Mon, 13 Aug 2007 08:46:56 +0200
parents ac2d302a0011
children e04119814345
comparison
equal deleted inserted replaced
3:30df88044ec6 4:b82b59fe008d
2 2
3 ;;; Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc. 3 ;;; Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc.
4 4
5 ;;; Author: Ken Manheimer <klm@nist.gov> 5 ;;; Author: Ken Manheimer <klm@nist.gov>
6 ;;; Maintainer: Ken Manheimer <klm@nist.gov> 6 ;;; Maintainer: Ken Manheimer <klm@nist.gov>
7 ;;; Version: $Id: icomplete.el,v 1.1.1.2 1996/12/18 03:44:58 steve Exp $ 7 ;;; Version: $Id: icomplete.el,v 1.1.1.3 1996/12/18 03:53:27 steve Exp $
8 ;;; Created: Mar 1993 klm@nist.gov - first release to usenet 8 ;;; Created: Mar 1993 klm@nist.gov - first release to usenet
9 ;;; Keywords: help, abbrev 9 ;;; Keywords: help, abbrev
10 10
11 ;;; Hacked for XEmacs: David Hughes 7th September 1995 11 ;;; Hacked for XEmacs: David Hughes 7th September 1995
12 12
88 \(make-local-variable 'resize-minibuffer-window-max-height) 88 \(make-local-variable 'resize-minibuffer-window-max-height)
89 \(setq resize-minibuffer-window-max-height 3)))) 89 \(setq resize-minibuffer-window-max-height 3))))
90 90
91 will constrain rsz-mini to a maximum minibuffer height of 3 lines when 91 will constrain rsz-mini to a maximum minibuffer height of 3 lines when
92 icompletion is occurring.") 92 icompletion is occurring.")
93
94 (if (string-match "XEmacs\\|Lucid" emacs-version)
95 (add-hook 'icomplete-minibuffer-setup-hook 'icomplete-exhibit))
93 96
94 ;;;_ + Internal Variables 97 ;;;_ + Internal Variables
95 ;;;_ = icomplete-mode 98 ;;;_ = icomplete-mode
96 (defvar icomplete-mode t 99 (defvar icomplete-mode t
97 "Non-nil enables incremental minibuffer completion, once 100 "Non-nil enables incremental minibuffer completion, once
271 close-bracket-determined) 274 close-bracket-determined)
272 "") 275 "")
273 " [Matched]" 276 " [Matched]"
274 ;; XEmacs 277 ;; XEmacs
275 (if (and icomplete-show-key-bindings 278 (if (and icomplete-show-key-bindings
276 (commandp (car comps))) 279 (commandp (intern-soft (car comps))))
277 (icomplete-get-keys (car comps)) 280 (icomplete-get-keys (car comps))
278 "") 281 "")
279 )) 282 ))
280 (t ;multiple matches 283 (t ;multiple matches
281 (let* ((most (try-completion name candidates predicate)) 284 (let* ((most (try-completion name candidates predicate))