Skip to content

Commit

Permalink
* anything-config.el Fix fname completion in minibuffers.
Browse files Browse the repository at this point in the history
(anything-find-files-1,
anything-c-read-file-name): Disable auto expansion when minibuffer is active.
  • Loading branch information
Thierry Volpiatto committed Sep 30, 2011
1 parent 0cbdd07 commit 4525a42
Showing 1 changed file with 8 additions and 1 deletion.
9 changes: 8 additions & 1 deletion anything-config.el
Original file line number Diff line number Diff line change
Expand Up @@ -3382,7 +3382,8 @@ Don't set it directly, use instead `anything-ff-auto-update-initial-value'.")
;; It is needed for filenames with capital letters
(disable-shortcuts)
(init . (lambda ()
(setq anything-ff-auto-update-flag anything-ff-auto-update-initial-value)))
(setq anything-ff-auto-update-flag
anything-ff-auto-update-initial-value)))
(candidates . anything-find-files-get-candidates)
(filtered-candidate-transformer anything-c-find-files-transformer)
(image-action1 . anything-ff-rotate-image-left)
Expand Down Expand Up @@ -4663,6 +4664,9 @@ Use it for non--interactive calls of `anything-find-files'."
(when (get-buffer anything-action-buffer)
(kill-buffer anything-action-buffer))
(let ((anything-mp-highlight-delay nil)
;; Be sure we don't erase the precedent minibuffer if some.
(anything-ff-auto-update-initial-value
(not (minibuffer-window-active-p (minibuffer-window))))
anything-samewindow)
(anything :sources 'anything-c-source-find-files
:input fname
Expand Down Expand Up @@ -5005,6 +5009,9 @@ INITIAL-INPUT is a valid path, TEST is a predicate that take one arg."
(when (get-buffer anything-action-buffer)
(kill-buffer anything-action-buffer))
(let ((anything-mp-highlight-delay nil)
;; Be sure we don't erase the underlying minibuffer if some.
(anything-ff-auto-update-initial-value
(not (minibuffer-window-active-p (minibuffer-window))))
anything-same-window)
(flet ((action-fn (candidate)
(if marked-candidates
Expand Down

0 comments on commit 4525a42

Please sign in to comment.