diff options
| author | Chong Yidong <[email protected]> | 2011-03-15 12:21:30 -0400 |
|---|---|---|
| committer | Chong Yidong <[email protected]> | 2011-03-15 12:21:30 -0400 |
| commit | d72700e549c5006c24f368f6c35db0464593b1f0 (patch) | |
| tree | 449851037941e6fab823d14fb4b611b8f7dd906a | |
| parent | 1e6603953ad85904ce6db6d6b5e319f0335d534b (diff) | |
* lisp/startup.el (command-line): Update package subdirectory regexp.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/startup.el | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b62d061fe7..f09c5fa9d9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2011-03-15 Chong Yidong <[email protected]> + + * startup.el (command-line): Update package subdirectory regexp. + 2011-03-15 Stefan Monnier <[email protected]> * allout.el (allout-abbreviate-flattened-numbering) diff --git a/lisp/startup.el b/lisp/startup.el index 384d81391a..2bdb6fef50 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -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)) |