Commits

seanmcl  committed c3471d9 Merge
  • Participants
  • Parent commits 2a49630, bda1f19

Comments (0)

Files changed (1)

File elisp/omake/omake-path.el

   (assert (stringp path))
   (when (Omake.Path.is-tramp path) (signal 'Omake.Errors.tramp nil))
   (let ((legal (progn
-                 (string-match "[.~a-zA-Z0-9/_-]*[.a-zA-Z0-9~_-]" path)
+                 (string-match "[.~a-zA-Z0-9/_+-]*[.a-zA-Z0-9~_+-]" path)
                  (match-string 0 path))))
     (equal path legal)))
 
 (Jane.test-eq Omake.Path.ok.3 (Omake.Path.ok "/mnt/local/sda1/smclaughlin/elisp/dev/omake-mode") t)
 (Jane.test-eq Omake.Path.ok.4 (Omake.Path.ok "/mnt/local.a.b.c/sda1/smclaughlin/elisp/dev/omake-mode") t)
 (Jane.test-eq Omake.Path.ok.5 (Omake.Path.ok "~/gord-test") t)
+(Jane.test-eq Omake.Path.ok.6 (Omake.Path.ok "/mnt/global/base/opt/ocaml-3.12.1+jane2+omake-fix_64/src/ocaml/stdlib") t)
 
 (defun Omake.Path.omakeroot-dir (path)
   "Get the full, unaliased path to the OMakeroot file above the given path.