diff options
| author | Juanma Barranquero | 2007-01-31 15:31:15 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2007-01-31 15:31:15 +0000 |
| commit | ccaa42ede56a265f9a9dca53bd8ccd3e44f9a7ec (patch) | |
| tree | ae1dbe35f375be08dd4541736605f4229128b7cd | |
| parent | 8b6125c6cbe645ea37e0d9350c6c824aa5594b24 (diff) | |
| download | emacs-ccaa42ede56a265f9a9dca53bd8ccd3e44f9a7ec.tar.gz emacs-ccaa42ede56a265f9a9dca53bd8ccd3e44f9a7ec.zip | |
(ido-set-common-completion): Use `let', not `let*'.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/ido.el | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9e7e5bef7fb..3385b372283 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2007-01-31 Juanma Barranquero <lekktu@gmail.com> | ||
| 2 | |||
| 3 | * ido.el (ido-set-common-completion): Use `let', not `let*'. | ||
| 4 | |||
| 1 | 2007-01-31 Romain Francoise <romain@orebokech.com> | 5 | 2007-01-31 Romain Francoise <romain@orebokech.com> |
| 2 | 6 | ||
| 3 | * comint.el: Delete extra copy of `comint-copy-old-input' added in | 7 | * comint.el: Delete extra copy of `comint-copy-old-input' added in |
diff --git a/lisp/ido.el b/lisp/ido.el index 10418d209aa..52460574718 100644 --- a/lisp/ido.el +++ b/lisp/ido.el | |||
| @@ -2403,8 +2403,8 @@ If cursor is not at the end of the user input, move to end of input." | |||
| 2403 | (defun ido-set-common-completion () | 2403 | (defun ido-set-common-completion () |
| 2404 | ;; Find common completion of `ido-text' in `ido-matches' | 2404 | ;; Find common completion of `ido-text' in `ido-matches' |
| 2405 | ;; The result is stored in `ido-common-match-string' | 2405 | ;; The result is stored in `ido-common-match-string' |
| 2406 | (let* (val) | 2406 | (let (val) |
| 2407 | (setq ido-common-match-string nil) | 2407 | (setq ido-common-match-string nil) |
| 2408 | (if (and ido-matches | 2408 | (if (and ido-matches |
| 2409 | (not ido-enable-regexp) ;; testing | 2409 | (not ido-enable-regexp) ;; testing |
| 2410 | (stringp ido-text) | 2410 | (stringp ido-text) |