diff options
| author | Stefan Monnier | 2019-07-06 18:42:02 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2019-07-06 18:42:02 -0400 |
| commit | 851535f58745dcfbc8798b3a34b4fea852f93a3e (patch) | |
| tree | 5b5c037f158527e76ebcdb8014e568d11139442c | |
| parent | d8732a82451fea57d6efa43e704e0c693e11b517 (diff) | |
| download | emacs-851535f58745dcfbc8798b3a34b4fea852f93a3e.tar.gz emacs-851535f58745dcfbc8798b3a34b4fea852f93a3e.zip | |
* lisp/emacs-lisp/nadvice.el: Make it a package separate from `emacs`.
* lisp/finder.el (finder-compile-keywords): Grab version from
package--builtin-versions when available.
| -rw-r--r-- | lisp/emacs-lisp/nadvice.el | 1 | ||||
| -rw-r--r-- | lisp/finder.el | 3 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/nadvice.el b/lisp/emacs-lisp/nadvice.el index 2278e389cef..b0dd03edfd5 100644 --- a/lisp/emacs-lisp/nadvice.el +++ b/lisp/emacs-lisp/nadvice.el | |||
| @@ -4,7 +4,6 @@ | |||
| 4 | 4 | ||
| 5 | ;; Author: Stefan Monnier <monnier@iro.umontreal.ca> | 5 | ;; Author: Stefan Monnier <monnier@iro.umontreal.ca> |
| 6 | ;; Keywords: extensions, lisp, tools | 6 | ;; Keywords: extensions, lisp, tools |
| 7 | ;; Package: emacs | ||
| 8 | 7 | ||
| 9 | ;; This program is free software; you can redistribute it and/or modify | 8 | ;; This program is free software; you can redistribute it and/or modify |
| 10 | ;; it under the terms of the GNU General Public License as published by | 9 | ;; it under the terms of the GNU General Public License as published by |
diff --git a/lisp/finder.el b/lisp/finder.el index f95049f60bd..ad9441210c5 100644 --- a/lisp/finder.el +++ b/lisp/finder.el | |||
| @@ -240,7 +240,8 @@ from; the default is `load-path'." | |||
| 240 | (lm-synopsis)) | 240 | (lm-synopsis)) |
| 241 | version (lm-header "version"))) | 241 | version (lm-header "version"))) |
| 242 | (when summary | 242 | (when summary |
| 243 | (setq version (ignore-errors (version-to-list version))) | 243 | (setq version (or (ignore-errors (version-to-list version)) |
| 244 | (alist-get package package--builtin-versions))) | ||
| 244 | (setq entry (assq package package--builtins)) | 245 | (setq entry (assq package package--builtins)) |
| 245 | (cond ((null entry) | 246 | (cond ((null entry) |
| 246 | (push (cons package | 247 | (push (cons package |