Mercurial > hg > xemacs-beta

comparison lisp/packages/icomplete.el @ 52:461c7ba8286a r19-16-pre1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16-pre1
author cvs
date Mon, 13 Aug 2007 08:57:19 +0200
parents e04119814345
children 05472e90ae02
comparison
equal deleted inserted replaced
51:69ce12f60f55 52:461c7ba8286a
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.2 1997/03/16 05:55:27 steve Exp $ 7 ;;; Version: $Id: icomplete.el,v 1.3 1997/09/13 00:24:38 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
134 (buf (set-buffer (window-buffer owindow))) 134 (buf (set-buffer (window-buffer owindow)))
135 (keys (where-is-internal sym (current-local-map buf)))) 135 (keys (where-is-internal sym (current-local-map buf))))
136 (concat "<" 136 (concat "<"
137 (if keys 137 (if keys
138 (mapconcat 'key-description 138 (mapconcat 'key-description
139 (sort '([next] [kp_next] [(control v)]) 139 (sort '([next] [kp-next] [(control v)])
140 #'(lambda (x y) 140 #'(lambda (x y)
141 (< (length x) (length y)))) 141 (< (length x) (length y))))
142 ", ") 142 ", ")
143 "Unbound") 143 "Unbound")
144 ">"))))) 144 ">")))))