Commit d72700e5 authored by Chong Yidong's avatar Chong Yidong
Browse files

* lisp/startup.el (command-line): Update package subdirectory regexp.

parent 1e660395
2011-03-15 Chong Yidong <cyd@stupidchicken.com>
* startup.el (command-line): Update package subdirectory regexp.
2011-03-15 Stefan Monnier <monnier@iro.umontreal.ca>
 
* allout.el (allout-abbreviate-flattened-numbering)
......
......@@ -1191,7 +1191,7 @@ the `--debug-init' option to view a complete error backtrace."
(dolist (subdir (directory-files dir))
(when (and (file-directory-p (expand-file-name subdir dir))
;; package-subdirectory-regexp from package.el
(string-match "^\\([^.].*\\)-\\([0-9]+\\(?:[.][0-9]+\\)*\\)$"
(string-match "\\`\\([^.].*?\\)-\\([0-9]+\\(?:[.][0-9]+\\|\\(?:pre\\|beta\\|alpha\\)[0-9]+\\)*\\)\\'"
subdir))
(throw 'package-dir-found t)))))))
(package-initialize))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment