Mercurial > hg > xemacs-beta
diff lisp/packages/icomplete.el @ 4:b82b59fe008d r19-15b3
Import from CVS: tag r19-15b3
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:46:56 +0200 |
| parents | ac2d302a0011 |
| children | e04119814345 |
line wrap: on
line diff
--- a/lisp/packages/icomplete.el Mon Aug 13 08:46:35 2007 +0200 +++ b/lisp/packages/icomplete.el Mon Aug 13 08:46:56 2007 +0200 @@ -4,7 +4,7 @@ ;;; Author: Ken Manheimer <klm@nist.gov> ;;; Maintainer: Ken Manheimer <klm@nist.gov> -;;; Version: $Id: icomplete.el,v 1.1.1.2 1996/12/18 03:44:58 steve Exp $ +;;; Version: $Id: icomplete.el,v 1.1.1.3 1996/12/18 03:53:27 steve Exp $ ;;; Created: Mar 1993 klm@nist.gov - first release to usenet ;;; Keywords: help, abbrev @@ -91,6 +91,9 @@ will constrain rsz-mini to a maximum minibuffer height of 3 lines when icompletion is occurring.") +(if (string-match "XEmacs\\|Lucid" emacs-version) + (add-hook 'icomplete-minibuffer-setup-hook 'icomplete-exhibit)) + ;;;_ + Internal Variables ;;;_ = icomplete-mode (defvar icomplete-mode t @@ -273,7 +276,7 @@ " [Matched]" ;; XEmacs (if (and icomplete-show-key-bindings - (commandp (car comps))) + (commandp (intern-soft (car comps)))) (icomplete-get-keys (car comps)) "") ))