diff options
| author | Joakim Verona | 2013-08-27 10:12:21 +0200 |
|---|---|---|
| committer | Joakim Verona | 2013-08-27 10:12:21 +0200 |
| commit | c8d61aef58410a28fda7fbdf1bd49aa00c25d815 (patch) | |
| tree | 67e4354e57dac62ec2bd48234a898f810a0c75be /lisp | |
| parent | 369c41754f0090065eb226e879f5c30a2a711132 (diff) | |
| parent | c076ba953a2c7fe2b4ea80a66bec55250f5b6920 (diff) | |
| download | emacs-c8d61aef58410a28fda7fbdf1bd49aa00c25d815.tar.gz emacs-c8d61aef58410a28fda7fbdf1bd49aa00c25d815.zip | |
merge from trunk
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/emacs-lisp/package.el | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b8351f11f61..e8e56133d88 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2013-08-27 Glenn Morris <rgm@gnu.org> | ||
| 2 | |||
| 3 | * emacs-lisp/package.el (package-buffer-info): Fix message typo. | ||
| 4 | |||
| 1 | 2013-08-27 Stefan Monnier <monnier@iro.umontreal.ca> | 5 | 2013-08-27 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 6 | ||
| 3 | * progmodes/python.el (python-font-lock-keywords): Don't return nil | 7 | * progmodes/python.el (python-font-lock-keywords): Don't return nil |
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index add73fd4bde..0085074e5be 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el | |||
| @@ -981,7 +981,7 @@ error. If there is a package, narrow the buffer to the file's | |||
| 981 | boundaries." | 981 | boundaries." |
| 982 | (goto-char (point-min)) | 982 | (goto-char (point-min)) |
| 983 | (unless (re-search-forward "^;;; \\([^ ]*\\)\\.el ---[ \t]*\\(.*?\\)[ \t]*\\(-\\*-.*-\\*-[ \t]*\\)?$" nil t) | 983 | (unless (re-search-forward "^;;; \\([^ ]*\\)\\.el ---[ \t]*\\(.*?\\)[ \t]*\\(-\\*-.*-\\*-[ \t]*\\)?$" nil t) |
| 984 | (error "Packages lacks a file header")) | 984 | (error "Package lacks a file header")) |
| 985 | (let ((file-name (match-string-no-properties 1)) | 985 | (let ((file-name (match-string-no-properties 1)) |
| 986 | (desc (match-string-no-properties 2)) | 986 | (desc (match-string-no-properties 2)) |
| 987 | (start (line-beginning-position))) | 987 | (start (line-beginning-position))) |