Mercurial > hg > xemacs-beta

comparison lisp/packages/icomplete.el @ 32:e04119814345 r19-15b99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b99
author cvs
date Mon, 13 Aug 2007 08:52:56 +0200
parents b82b59fe008d
children 461c7ba8286a
comparison
equal deleted inserted replaced
31:b9328a10c56c 32:e04119814345
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/18 03:53:27 steve Exp $ 7 ;;; Version: $Id: icomplete.el,v 1.2 1997/03/16 05:55: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
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 (let* ((sym (intern func-name))
134 (concat "<" 134 (buf (set-buffer (window-buffer owindow)))
135 (if keys 135 (keys (where-is-internal sym (current-local-map buf))))
136 (mapconcat 'key-description 136 (concat "<"
137 (sort '([next] [kp_next] [(control v)]) 137 (if keys
138 #'(lambda (x y) 138 (mapconcat 'key-description
139 (< (length x) (length y)))) 139 (sort '([next] [kp_next] [(control v)])
140 ", ") 140 #'(lambda (x y)
141 "Unbound") 141 (< (length x) (length y))))
142 ">")))) 142 ", ")
143 "Unbound")
144 ">")))))
143 145
144 ;;;_ > icomplete-mode (&optional prefix) 146 ;;;_ > icomplete-mode (&optional prefix)
145 ;;;###autoload 147 ;;;###autoload
146 (defun icomplete-mode (&optional prefix) 148 (defun icomplete-mode (&optional prefix)
147 "Activate incremental minibuffer completion for this emacs session, 149 "Activate incremental minibuffer completion for this emacs session,