* helm-mode.el: Issue #125 Fix *read-file-name

(helm-c-read-file-name): Maybe append helm-pattern to list of candidates.
emacs-helm · Sep 29, 2012 · f8da4df · f8da4df
1 parent 3864533
commit f8da4df
Showing 1 changed file with 11 additions and 9 deletions.
diff --git a/helm-mode.el b/helm-mode.el
@@ -702,17 +702,19 @@ Keys description:
                                  (setq helm-ff-auto-update-flag
                                        helm-ff-auto-update-initial-value)))
                        (mode-line . helm-read-file-name-mode-line-string)
+                       (match . helm-ff-match-function)
                        (candidates
                         . (lambda ()
-                            (if test
-                                (loop with hn = (helm-ff-tramp-hostnames)
-                                      for i in (helm-find-files-get-candidates
-                                                must-match)
-                                      when (or (member i hn)    ; A tramp host
-                                               (funcall test i) ; Test ok
-                                               (not (file-exists-p i))) ; A new file.
-                                      collect i)
-                                (helm-find-files-get-candidates must-match))))
+                            (append (and (not (file-exists-p helm-pattern))
+                                         (list helm-pattern))
+                                    (if test
+                                        (loop with hn = (helm-ff-tramp-hostnames)
+                                              for i in (helm-find-files-get-candidates
+                                                        must-match)
+                                              when (or (member i hn) ; A tramp host
+                                                       (funcall test i)) ; Test ok
+                                              collect i)
+                                        (helm-find-files-get-candidates must-match)))))
                        (filtered-candidate-transformer
                         helm-c-find-files-transformer)
                        (persistent-action . ,persistent-action)