Mercurial > emacs
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)) |