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