comparison lisp/cus-edit.el @ 70021:8991a6461375

* cus-edit.el (customize-package-emacs-version-alist): Update docstring. (customize-package-emacs-version): Use cdr instead of cadr now that alists use dotted pairs. * custom.el (defcustom): Fix docstring for :package-version.

70020:2578326defd6

  "Version for `customize-changed-options' to refer back to by default.")

;; Packages will update this variable, so make it available.
;;;###autoload
(defvar customize-package-emacs-version-alist nil
  "Alist that maps packages to alists of package to Emacs versions.
The value alists map all package versions used with
the :package-version keyword to Emacs versions.  Packages are
symbols and versions are strings.

For example:
  '((MH-E (\"7.4\" \"22.1\") (\"8.0\" \"22.1\"))
    (Gnus (\"5.11\" \"22.1\")))")

;;;###autoload
(defalias 'customize-changed 'customize-changed-options)

;;;###autoload

      (error "No user option defaults have been changed since Emacs %s"
	     since-version))))

(defun customize-package-emacs-version (symbol package-version)
  "Return Emacs version of SYMBOL.
PACKAGE-VERSION has the form (PACKAGE VERSION).  The VERSION of
PACKAGE is looked up in the associated list
`customize-package-emacs-version-alist' to find the version of
Emacs that is associated with it."
  (let (package-versions emacs-version)
    ;; Use message instead of error since we want user to be able to

    (cond ((not (listp package-version))
           (message "Invalid package-version value for %s" symbol))
          ((setq package-versions (assq (car package-version)
                                        customize-package-emacs-version-alist))
           (setq emacs-version
                 (cadr (assoc (cadr package-version) package-versions)))
           (unless emacs-version
             (message "Package version of %s not found in %s" symbol
                      "customize-package-emacs-version-alist")))
          (t
           (message "Package %s neglected to update %s"
                    (car package-version)
                    "customize-package-emacs-version-alist")))

70021:8991a6461375

  "Version for `customize-changed-options' to refer back to by default.")

;; Packages will update this variable, so make it available.
;;;###autoload
(defvar customize-package-emacs-version-alist nil
  "Alist mapping versions of Emacs to versions of a package.
These package versions are listed in the :package-version
keyword used in `defcustom', `defgroup', and `defface'. Its
elements look like this:

     (PACKAGE (PVERSION . EVERSION)...)

For each PACKAGE, which is a symbol, there are one or more
elements that contain a package version PVERSION with an
associated Emacs version EVERSION.  These versions are strings.
For example, the MH-E package updates this alist with the
following:

     (add-to-list 'customize-package-emacs-version-alist
                  '(MH-E (\"6.0\" . \"22.1\") (\"6.1\" . \"22.1\")
                         (\"7.0\" . \"22.1\") (\"7.1\" . \"22.1\")
                         (\"7.2\" . \"22.1\") (\"7.3\" . \"22.1\")
                         (\"7.4\" . \"22.1\") (\"8.0\" . \"22.1\")))

The value of PACKAGE needs to be unique and it needs to match the
PACKAGE value appearing in the :package-version keyword.  Since
the user might see the value in a error message, a good choice is
the official name of the package, such as MH-E or Gnus.")

;;;###autoload
(defalias 'customize-changed 'customize-changed-options)

;;;###autoload

      (error "No user option defaults have been changed since Emacs %s"
	     since-version))))

(defun customize-package-emacs-version (symbol package-version)
  "Return Emacs version of SYMBOL.
PACKAGE-VERSION has the form (PACKAGE . VERSION).  The VERSION of
PACKAGE is looked up in the associated list
`customize-package-emacs-version-alist' to find the version of
Emacs that is associated with it."
  (let (package-versions emacs-version)
    ;; Use message instead of error since we want user to be able to

    (cond ((not (listp package-version))
           (message "Invalid package-version value for %s" symbol))
          ((setq package-versions (assq (car package-version)
                                        customize-package-emacs-version-alist))
           (setq emacs-version
                 (cdr (assoc (cdr package-version) package-versions)))
           (unless emacs-version
             (message "%s version %s not found in %s" symbol
                      (cdr package-version)
                      "customize-package-emacs-version-alist")))
          (t
           (message "Package %s neglected to update %s"
                    (car package-version)
                    "customize-package-emacs-version-alist")))