Mercurial > emacs
comparison lisp/ido.el @ 76795:bcf68ba23417
(ido-read-internal): When reading file or dir, only override
minibuffer-local-filename-completion-map, otherwise only override
minibuffer-local-completion-map.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Thu, 29 Mar 2007 22:33:22 +0000 |
parents | a5db78ff7104 |
children | ba8b19b89247 4ef881a120fe |
comparison
equal
deleted
inserted
replaced
76794:fbe60d04cec2 | 76795:bcf68ba23417 |
---|---|
1938 | 1938 |
1939 (ido-set-matches) | 1939 (ido-set-matches) |
1940 (if (and ido-matches (eq ido-try-merged-list 'auto)) | 1940 (if (and ido-matches (eq ido-try-merged-list 'auto)) |
1941 (setq ido-try-merged-list t)) | 1941 (setq ido-try-merged-list t)) |
1942 (let | 1942 (let |
1943 ((minibuffer-local-completion-map ido-completion-map) | 1943 ((minibuffer-local-completion-map |
1944 (minibuffer-local-filename-completion-map ido-completion-map) | 1944 (if (memq ido-cur-item '(file dir)) |
1945 minibuffer-local-completion-map | |
1946 ido-completion-map)) | |
1947 (minibuffer-local-filename-completion-map | |
1948 (if (memq ido-cur-item '(file dir)) | |
1949 ido-completion-map | |
1950 minibuffer-local-filename-completion-map)) | |
1945 (max-mini-window-height (or ido-max-window-height | 1951 (max-mini-window-height (or ido-max-window-height |
1946 (and (boundp 'max-mini-window-height) max-mini-window-height))) | 1952 (and (boundp 'max-mini-window-height) max-mini-window-height))) |
1947 (ido-completing-read t) | 1953 (ido-completing-read t) |
1948 (ido-require-match require-match) | 1954 (ido-require-match require-match) |
1949 (ido-use-mycompletion-depth (1+ (minibuffer-depth))) | 1955 (ido-use-mycompletion-depth (1+ (minibuffer-depth))) |