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 <>
* startup.el (command-line): Update package subdirectory regexp.
2011-03-15 Stefan Monnier <>
* 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]+\\)*\\)\\'"
(throw 'package-dir-found t)))))))
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