comparison lisp/help.el @ 72920:380408390d43

(describe-prefix-bindings): Use let, not let*.
author Eli Zaretskii <eliz@gnu.org>
date Sat, 16 Sep 2006 10:43:39 +0000
parents 21cdd33b2649
children eacc6e3eac06
comparison
equal deleted inserted replaced
72919:6096463ca253 72920:380408390d43
307 (defun describe-prefix-bindings () 307 (defun describe-prefix-bindings ()
308 "Describe the bindings of the prefix used to reach this command. 308 "Describe the bindings of the prefix used to reach this command.
309 The prefix described consists of all but the last event 309 The prefix described consists of all but the last event
310 of the key sequence that ran this command." 310 of the key sequence that ran this command."
311 (interactive) 311 (interactive)
312 (let* ((key (this-command-keys))) 312 (let ((key (this-command-keys)))
313 (describe-bindings 313 (describe-bindings
314 (if (stringp key) 314 (if (stringp key)
315 (substring key 0 (1- (length key))) 315 (substring key 0 (1- (length key)))
316 (let ((prefix (make-vector (1- (length key)) nil)) 316 (let ((prefix (make-vector (1- (length key)) nil))
317 (i 0)) 317 (i 0))