Commits

Stephen Weeks  committed 9ffb5ef

improvements to Jane.find functions

  • Participants
  • Parent commits fbdec05
  • Tags 2012-06-13-roll-prod

Comments (0)

Files changed (1)

File js-micro-features.el

                          (puthash dominating-directory hash-table
                                   ,hash-tables-by-dominating-directory)
                          hash-table))))
-                (path (gethash (completing-read (concat ,hash-table-key-name ": ") hash-table
-                                                nil
-                                                t ; require a match
-                                                )
+                (path (gethash (if (fboundp 'anything-comp-read)
+                                   (anything-comp-read (concat ,hash-table-key-name ": ") hash-table
+                                                       :must-match t
+                                                       :alistp nil
+                                                       )
+                                 (completing-read (concat ,hash-table-key-name ": ") hash-table
+                                                  nil
+                                                  t ; require a match
+                                                  ))
                                hash-table)))
            (when path
              ;; We would like for the final file that we produce to use the same form as
                                        "\
 find . -type f \
 | grep -E 'OMakefile$' \
-| xargs grep 'OCamlMakeLib' \
-| sed -rn 's_^\\./(.*)OMakefile:.*OCamlMakeLib(Package)?.*\\((.*)\\).*_\\1,\\3_p' \
+| xargs grep -E 'OCamlMake(Ordinary)?Lib' \
+| sed -rn 's_^\\./(.*)OMakefile:.*OCamlMake(Ordinary)?Lib(Package)?.*\\((.*)\\).*_\\1,\\4_p' \
 ")))
                               (let ((line (split-string line ",")))
                                 (when (= (length line) 2)