Mercurial > emacs
comparison lisp/help-fns.el @ 95444:f4d291b9de49
(describe-variable-custom-version-info): Handle dotted
`package-version' info.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Sat, 31 May 2008 18:19:05 +0000 |
| parents | ee5932bf781d |
| children | 0f9baaf9427f |
comparison
equal
deleted
inserted
replaced
| 95443:14f66635f87d | 95444:f4d291b9de49 |
|---|---|
| 472 (setq output | 472 (setq output |
| 473 (format "This variable was introduced, or its default value was changed, in\nversion %s of Emacs.\n" | 473 (format "This variable was introduced, or its default value was changed, in\nversion %s of Emacs.\n" |
| 474 custom-version)) | 474 custom-version)) |
| 475 (when cpv | 475 (when cpv |
| 476 (let* ((package (car-safe cpv)) | 476 (let* ((package (car-safe cpv)) |
| 477 (version (car (cdr-safe cpv))) | 477 (version (if (listp (cdr-safe cpv)) |
| 478 (car (cdr-safe cpv)) | |
| 479 (cdr-safe cpv))) | |
| 478 (pkg-versions (assq package customize-package-emacs-version-alist)) | 480 (pkg-versions (assq package customize-package-emacs-version-alist)) |
| 479 (emacsv (cdr (assoc version pkg-versions)))) | 481 (emacsv (cdr (assoc version pkg-versions)))) |
| 480 (if (and package version) | 482 (if (and package version) |
| 481 (setq output | 483 (setq output |
| 482 (format (concat "This variable was introduced, or its default value was changed, in\nversion %s of the %s package" | 484 (format (concat "This variable was introduced, or its default value was changed, in\nversion %s of the %s package" |