Mercurial > hg > xemacs-beta

comparison lisp/packages/icomplete.el @ 74:54cc21c15cbb r20-0b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b32
author cvs
date Mon, 13 Aug 2007 09:04:33 +0200
parents b9518feda344
children fe104dbd9147
comparison
equal deleted inserted replaced
73:e2d7a37b7c8d 74:54cc21c15cbb
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 22:50:53 steve Exp $ 7 ;;; Version: $Id: icomplete.el,v 1.1.1.3 1996/12/21 20:48:12 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
132 (let* ((sym (intern func-name)) 132 (let* ((sym (intern func-name))
133 (keys (where-is-internal sym))) 133 (keys (where-is-internal sym)))
134 (concat "<" 134 (concat "<"
135 (if keys 135 (if keys
136 (mapconcat 'key-description 136 (mapconcat 'key-description
137 (sort '([next] [kp_next] [(control v)]) 137 (sort '([next] [kp-next] [(control v)])
138 #'(lambda (x y) 138 #'(lambda (x y)
139 (< (length x) (length y)))) 139 (< (length x) (length y))))
140 ", ") 140 ", ")
141 "Unbound") 141 "Unbound")
142 ">")))) 142 ">"))))