Mercurial > hg > xemacs-beta

comparison lisp/packages/icomplete.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 54cc21c15cbb
children 25f70ba0133c
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
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.3 1996/12/21 20:48:12 steve Exp $ 7 ;;; Version: $Id: icomplete.el,v 1.2 1997/03/16 03:05:29 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
127 127
128 ;; XEmacs addition 128 ;; XEmacs addition
129 (defun icomplete-get-keys (func-name) 129 (defun icomplete-get-keys (func-name)
130 "Return the keys `func-name' is bound to as a string." 130 "Return the keys `func-name' is bound to as a string."
131 (when (commandp func-name) 131 (when (commandp func-name)
132 (let* ((sym (intern func-name)) 132 (save-excursion
133 (keys (where-is-internal sym))) 133 ;; Depends on dynamic scope from read-from-minibuffer :-(
134 (concat "<" 134 (let* ((sym (intern func-name))
135 (if keys 135 (buf (set-buffer (window-buffer owindow)))
136 (mapconcat 'key-description 136 (keys (where-is-internal sym (current-local-map buf))))
137 (sort '([next] [kp-next] [(control v)]) 137 (concat "<"
138 #'(lambda (x y) 138 (if keys
139 (< (length x) (length y)))) 139 (mapconcat 'key-description
140 ", ") 140 (sort keys
141 "Unbound") 141 #'(lambda (x y)
142 ">")))) 142 (< (length x) (length y))))
143 ", ")
144 "Unbound")
145 ">")))))
143 146
144 ;;;_ > icomplete-mode (&optional prefix) 147 ;;;_ > icomplete-mode (&optional prefix)
145 ;;;###autoload 148 ;;;###autoload
146 (defun icomplete-mode (&optional prefix) 149 (defun icomplete-mode (&optional prefix)
147 "Activate incremental minibuffer completion for this emacs session, 150 "Activate incremental minibuffer completion for this emacs session,