* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
;;; package.el --- Simple package system for Emacs -*- lexical-binding:t -*-
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2019-01-01 00:59:58 +00:00
|
|
|
|
;; Copyright (C) 2007-2019 Free Software Foundation, Inc.
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
|
|
|
|
|
;; Author: Tom Tromey <tromey@redhat.com>
|
2013-06-26 00:44:35 +00:00
|
|
|
|
;; Daniel Hackney <dan@haxney.org>
|
2010-06-17 02:08:10 +00:00
|
|
|
|
;; Created: 10 Mar 2007
|
2015-12-01 15:11:33 +00:00
|
|
|
|
;; Version: 1.1.0
|
2010-06-17 02:08:10 +00:00
|
|
|
|
;; Keywords: tools
|
2013-12-10 00:54:38 +00:00
|
|
|
|
;; Package-Requires: ((tabulated-list "1.0"))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
|
|
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
|
|
|
2012-09-24 16:36:42 +00:00
|
|
|
|
;; GNU Emacs is free software: you can redistribute it and/or modify
|
2010-06-17 02:08:10 +00:00
|
|
|
|
;; it under the terms of the GNU General Public License as published by
|
2012-09-24 16:36:42 +00:00
|
|
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
|
|
|
|
;; (at your option) any later version.
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
|
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
|
|
|
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
|
;; GNU General Public License for more details.
|
|
|
|
|
|
|
|
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
2017-09-13 22:52:52 +00:00
|
|
|
|
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
|
|
|
|
|
;;; Commentary:
|
|
|
|
|
|
|
|
|
|
|
|
;; The idea behind package.el is to be able to download packages and
|
|
|
|
|
|
;; install them. Packages are versioned and have versioned
|
|
|
|
|
|
;; dependencies. Furthermore, this supports built-in packages which
|
|
|
|
|
|
;; may or may not be newer than user-specified packages. This makes
|
|
|
|
|
|
;; it possible to upgrade Emacs and automatically disable packages
|
|
|
|
|
|
;; which have moved from external to core. (Note though that we don't
|
|
|
|
|
|
;; currently register any of these, so this feature does not actually
|
|
|
|
|
|
;; work.)
|
|
|
|
|
|
|
|
|
|
|
|
;; A package is described by its name and version. The distribution
|
|
|
|
|
|
;; format is either a tar file or a single .el file.
|
|
|
|
|
|
|
|
|
|
|
|
;; A tar file should be named "NAME-VERSION.tar". The tar file must
|
|
|
|
|
|
;; unpack into a directory named after the package and version:
|
|
|
|
|
|
;; "NAME-VERSION". It must contain a file named "PACKAGE-pkg.el"
|
|
|
|
|
|
;; which consists of a call to define-package. It may also contain a
|
|
|
|
|
|
;; "dir" file and the info files it references.
|
|
|
|
|
|
|
2010-07-28 18:54:42 +00:00
|
|
|
|
;; A .el file is named "NAME-VERSION.el" in the remote archive, but is
|
2010-06-17 02:08:10 +00:00
|
|
|
|
;; installed as simply "NAME.el" in a directory named "NAME-VERSION".
|
|
|
|
|
|
|
2010-07-28 18:54:42 +00:00
|
|
|
|
;; The downloader downloads all dependent packages. By default,
|
|
|
|
|
|
;; packages come from the official GNU sources, but others may be
|
|
|
|
|
|
;; added by customizing the `package-archives' alist. Packages get
|
|
|
|
|
|
;; byte-compiled at install time.
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
|
|
|
|
|
;; At activation time we will set up the load-path and the info path,
|
|
|
|
|
|
;; and we will load the package's autoloads. If a package's
|
|
|
|
|
|
;; dependencies are not available, we will not activate that package.
|
|
|
|
|
|
|
|
|
|
|
|
;; Conceptually a package has multiple state transitions:
|
|
|
|
|
|
;;
|
|
|
|
|
|
;; * Download. Fetching the package from ELPA.
|
|
|
|
|
|
;; * Install. Untar the package, or write the .el file, into
|
|
|
|
|
|
;; ~/.emacs.d/elpa/ directory.
|
2015-12-01 15:11:33 +00:00
|
|
|
|
;; * Autoload generation.
|
2010-06-17 02:08:10 +00:00
|
|
|
|
;; * Byte compile. Currently this phase is done during install,
|
|
|
|
|
|
;; but we may change this.
|
|
|
|
|
|
;; * Activate. Evaluate the autoloads for the package to make it
|
|
|
|
|
|
;; available to the user.
|
|
|
|
|
|
;; * Load. Actually load the package and run some code from it.
|
|
|
|
|
|
|
|
|
|
|
|
;; Other external functions you may want to use:
|
|
|
|
|
|
;;
|
2010-11-03 23:21:51 +00:00
|
|
|
|
;; M-x list-packages
|
2010-06-17 02:08:10 +00:00
|
|
|
|
;; Enters a mode similar to buffer-menu which lets you manage
|
|
|
|
|
|
;; packages. You can choose packages for install (mark with "i",
|
|
|
|
|
|
;; then "x" to execute) or deletion (not implemented yet), and you
|
|
|
|
|
|
;; can see what packages are available. This will automatically
|
|
|
|
|
|
;; fetch the latest list of packages from ELPA.
|
|
|
|
|
|
;;
|
|
|
|
|
|
;; M-x package-install-from-buffer
|
|
|
|
|
|
;; Install a package consisting of a single .el file that appears
|
|
|
|
|
|
;; in the current buffer. This only works for packages which
|
|
|
|
|
|
;; define a Version header properly; package.el also supports the
|
|
|
|
|
|
;; extension headers Package-Version (in case Version is an RCS id
|
|
|
|
|
|
;; or similar), and Package-Requires (if the package requires other
|
|
|
|
|
|
;; packages).
|
|
|
|
|
|
;;
|
|
|
|
|
|
;; M-x package-install-file
|
|
|
|
|
|
;; Install a package from the indicated file. The package can be
|
|
|
|
|
|
;; either a tar file or a .el file. A tar file must contain an
|
|
|
|
|
|
;; appropriately-named "-pkg.el" file; a .el file must be properly
|
|
|
|
|
|
;; formatted as with package-install-from-buffer.
|
|
|
|
|
|
|
|
|
|
|
|
;;; Thanks:
|
|
|
|
|
|
;;; (sorted by sort-lines):
|
|
|
|
|
|
|
|
|
|
|
|
;; Jim Blandy <jimb@red-bean.com>
|
|
|
|
|
|
;; Karl Fogel <kfogel@red-bean.com>
|
|
|
|
|
|
;; Kevin Ryde <user42@zip.com.au>
|
|
|
|
|
|
;; Lawrence Mitchell
|
|
|
|
|
|
;; Michael Olson <mwolson@member.fsf.org>
|
|
|
|
|
|
;; Sebastian Tennant <sebyte@smolny.plus.com>
|
|
|
|
|
|
;; Stefan Monnier <monnier@iro.umontreal.ca>
|
2017-10-29 22:28:58 +00:00
|
|
|
|
;; Vinicius Jose Latorre <viniciusjl.gnu@gmail.com>
|
2010-06-17 02:08:10 +00:00
|
|
|
|
;; Phil Hagelberg <phil@hagelb.org>
|
|
|
|
|
|
|
|
|
|
|
|
;;; ToDo:
|
|
|
|
|
|
|
|
|
|
|
|
;; - putting info dirs at the start of the info path means
|
|
|
|
|
|
;; users see a weird ordering of categories. OTOH we want to
|
|
|
|
|
|
;; override later entries. maybe emacs needs to enforce
|
|
|
|
|
|
;; the standard layout?
|
|
|
|
|
|
;; - put bytecode in a separate directory tree
|
|
|
|
|
|
;; - perhaps give users a way to recompile their bytecode
|
|
|
|
|
|
;; or do it automatically when emacs changes
|
|
|
|
|
|
;; - give users a way to know whether a package is installed ok
|
|
|
|
|
|
;; - give users a way to view a package's documentation when it
|
|
|
|
|
|
;; only appears in the .el
|
|
|
|
|
|
;; - use/extend checkdoc so people can tell if their package will work
|
|
|
|
|
|
;; - "installed" instead of a blank in the status column
|
|
|
|
|
|
;; - tramp needs its files to be compiled in a certain order.
|
|
|
|
|
|
;; how to handle this? fix tramp?
|
|
|
|
|
|
;; - maybe we need separate .elc directories for various emacs versions
|
|
|
|
|
|
;; and also emacs-vs-xemacs. That way conditional compilation can
|
|
|
|
|
|
;; work. But would this break anything?
|
|
|
|
|
|
;; - William Xu suggests being able to open a package file without
|
|
|
|
|
|
;; installing it
|
|
|
|
|
|
;; - Interface with desktop.el so that restarting after an install
|
|
|
|
|
|
;; works properly
|
|
|
|
|
|
;; - Use hierarchical layout. PKG/etc PKG/lisp PKG/info
|
|
|
|
|
|
;; ... except maybe lisp?
|
|
|
|
|
|
;; - It may be nice to have a macro that expands to the package's
|
|
|
|
|
|
;; private data dir, aka ".../etc". Or, maybe data-directory
|
|
|
|
|
|
;; needs to be a list (though this would be less nice)
|
|
|
|
|
|
;; a few packages want this, eg sokoban
|
2015-12-01 15:11:33 +00:00
|
|
|
|
;; - Allow multiple versions on the server, so that if a user doesn't
|
|
|
|
|
|
;; meet the requirements for the most recent version they can still
|
|
|
|
|
|
;; install an older one.
|
2010-06-17 02:08:10 +00:00
|
|
|
|
;; - Allow optional package dependencies
|
|
|
|
|
|
;; then if we require 'bbdb', bbdb-specific lisp in lisp/bbdb
|
|
|
|
|
|
;; and just don't compile to add to load path ...?
|
|
|
|
|
|
;; - Our treatment of the info path is somewhat bogus
|
|
|
|
|
|
|
|
|
|
|
|
;;; Code:
|
|
|
|
|
|
|
2018-03-23 04:40:24 +00:00
|
|
|
|
(require 'cl-lib)
|
2015-02-05 23:41:02 +00:00
|
|
|
|
(eval-when-compile (require 'subr-x))
|
* lisp/epg.el: Use cl-defstruct.
(epg-make-data-from-file, epg-make-data-from-string, epg-data-file)
(epg-data-string): Define via cl-defstruct.
(epg--gv-nreverse): New macro.
(epg-context--make): New constructor (provided vi cl-defstruct).
(epg-make-context): Rewrite using it.
(epg-context-protocol, epg-context-program)
(epg-context-home-directory, epg-context-armor, epg-context-textmode)
(epg-context-include-certs, epg-context-cipher-algorithm)
(epg-context-digest-algorithm, epg-context-compress-algorithm)
(epg-context-passphrase-callback, epg-context-progress-callback)
(epg-context-signers, epg-context-sig-notations, epg-context-process)
(epg-context-output-file, epg-context-result, epg-context-operation)
(epg-context-pinentry-mode): Define using cl-defstruct.
(epg-context-set-protocol, epg-context-set-program)
(epg-context-set-include-certs, epg-context-set-cipher-algorithm)
(epg-context-set-digest-algorithm)
(epg-context-set-sig-notations, epg-context-set-process)
(epg-context-set-output-file, epg-context-set-result)
(epg-context-set-operation, epg-context-set-pinentry-mode)
(epg-context-set-compress-algorithm): Remove. Use setf instead.
(epg-context-set-armor, epg-context-set-textmode)
(epg-context-set-signers): Redefine using setf
and declare as obsolete.
(epg-context-set-passphrase-callback)
(epg-context-set-progress-callback): Use setf.
(epg-signature-notations): Rename from epg-sig-notations.
(epg-make-signature, epg-signature-status, epg-signature-key-id)
(epg-signature-validity, epg-signature-fingerprint)
(epg-signature-creation-time, epg-signature-expiration-time)
(epg-signature-pubkey-algorithm, epg-signature-digest-algorithm)
(epg-signature-class, epg-signature-version): Define vi cl-defstruct.
(epg-signature-set-status, epg-signature-set-key-id)
(epg-signature-set-validity, epg-signature-set-fingerprint)
(epg-signature-set-creation-time, epg-signature-set-expiration-time)
(epg-signature-set-pubkey-algorithm)
(epg-signature-set-digest-algorithm, epg-signature-set-class)
(epg-signature-set-version, epg-signature-set-notations): Remove.
Use setf instead.
(epg-make-new-signature, epg-new-signature-type)
(epg-new-signature-pubkey-algorithm)
(epg-new-signature-digest-algorithm, epg-new-signature-class)
(epg-new-signature-creation-time, epg-new-signature-fingerprint):
Define using cl-defstruct.
(epg-make-key, epg-key-owner-trust, epg-key-sub-key-list)
(epg-key-user-id-list): Define using cl-defstruct.
(epg-key-set-sub-key-list, epg-key-set-user-id-list): Remove.
Use setf instead.
(epg-make-sub-key, epg-sub-key-validity, epg-sub-key-capability)
(epg-sub-key-secret-p, epg-sub-key-algorithm, epg-sub-key-length)
(epg-sub-key-id, epg-sub-key-creation-time)
(epg-sub-key-expiration-time, epg-sub-key-fingerprint): Define using
cl-defstruct.
(epg-sub-key-set-fingerprint): Remove. Use setf instead.
(epg-make-user-id, epg-user-id-validity, epg-user-id-string)
(epg-user-id-signature-list): Define using cl-defstruct.
(epg-user-id-set-signature-list): Remove. Use setf instead.
(epg-make-key-signature, epg-key-signature-validity)
(epg-key-signature-pubkey-algorithm, epg-key-signature-key-id)
(epg-key-signature-creation-time, epg-key-signature-expiration-time)
(epg-key-signature-user-id, epg-key-signature-class)
(epg-key-signature-exportable-p): Define using cl-defstruct.
(epg-make-sig-notation, epg-sig-notation-name)
(epg-sig-notation-value, epg-sig-notation-human-readable)
(epg-sig-notation-critical): Define using cl-defstruct.
(epg-sig-notation-set-value): Remove. Use setf instead.
(epg-make-import-status, epg-import-status-fingerprint)
(epg-import-status-reason, epg-import-status-new)
(epg-import-status-user-id, epg-import-status-signature)
(epg-import-status-sub-key, epg-import-status-secret): Define using
cl-defstruct.
(epg-make-import-result, epg-import-result-considered)
(epg-import-result-no-user-id, epg-import-result-imported)
(epg-import-result-imported-rsa, epg-import-result-unchanged)
(epg-import-result-new-user-ids, epg-import-result-new-sub-keys)
(epg-import-result-new-signatures, epg-import-result-new-revocations)
(epg-import-result-secret-read, epg-import-result-secret-imported)
(epg-import-result-secret-unchanged, epg-import-result-not-imported)
(epg-import-result-imports): Define using cl-defstruct.
* lisp/emacs-lisp/package.el: Require EPG during macroexpansion.
(package--check-signature, package-import-keyring): Use setf instead of
epg-context-set-home-directory.
2014-10-23 21:38:56 +00:00
|
|
|
|
(eval-when-compile (require 'epg)) ;For setf accessors.
|
2016-04-07 20:26:55 +00:00
|
|
|
|
(require 'seq)
|
2013-06-12 00:49:33 +00:00
|
|
|
|
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(require 'tabulated-list)
|
2014-10-24 23:02:25 +00:00
|
|
|
|
(require 'macroexp)
|
2015-11-27 10:59:52 +00:00
|
|
|
|
(require 'url-handlers)
|
2019-07-28 14:01:45 +00:00
|
|
|
|
(require 'browse-url)
|
2011-04-06 20:33:30 +00:00
|
|
|
|
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(defgroup package nil
|
|
|
|
|
|
"Manager for Emacs Lisp packages."
|
|
|
|
|
|
:group 'applications
|
|
|
|
|
|
:version "24.1")
|
|
|
|
|
|
|
2015-03-28 20:36:14 +00:00
|
|
|
|
|
|
|
|
|
|
;;; Customization options
|
2010-06-17 02:08:10 +00:00
|
|
|
|
;;;###autoload
|
|
|
|
|
|
(defcustom package-enable-at-startup t
|
2018-03-03 05:06:53 +00:00
|
|
|
|
"Whether to make installed packages available when Emacs starts.
|
|
|
|
|
|
If non-nil, packages are made available before reading the init
|
|
|
|
|
|
file (but after reading the early init file). This means that if
|
|
|
|
|
|
you wish to set this variable, you must do so in the early init
|
|
|
|
|
|
file. Regardless of the value of this variable, packages are not
|
|
|
|
|
|
made available if `user-init-file' is nil (e.g. Emacs was started
|
|
|
|
|
|
with \"-q\").
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
|
|
|
|
|
Even if the value is nil, you can type \\[package-initialize] to
|
2018-03-03 05:06:53 +00:00
|
|
|
|
make installed packages available at any time, or you can
|
|
|
|
|
|
call (package-initialize) in your init-file."
|
2010-06-17 02:08:10 +00:00
|
|
|
|
:type 'boolean
|
|
|
|
|
|
:version "24.1")
|
|
|
|
|
|
|
|
|
|
|
|
(defcustom package-load-list '(all)
|
2018-03-03 05:06:53 +00:00
|
|
|
|
"List of packages for `package-initialize' to make available.
|
2010-06-17 02:08:10 +00:00
|
|
|
|
Each element in this list should be a list (NAME VERSION), or the
|
2018-03-03 05:06:53 +00:00
|
|
|
|
symbol `all'. The symbol `all' says to make available the latest
|
|
|
|
|
|
installed versions of all packages not specified by other
|
|
|
|
|
|
elements.
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
|
|
|
|
|
For an element (NAME VERSION), NAME is a package name (a symbol).
|
|
|
|
|
|
VERSION should be t, a string, or nil.
|
2018-03-03 05:06:53 +00:00
|
|
|
|
If VERSION is t, the most recent version is made available.
|
|
|
|
|
|
If VERSION is a string, only that version is ever made available.
|
2010-06-17 02:08:10 +00:00
|
|
|
|
Any other version, even if newer, is silently ignored.
|
|
|
|
|
|
Hence, the package is \"held\" at that version.
|
2018-03-03 05:06:53 +00:00
|
|
|
|
If VERSION is nil, the package is not made available (it is \"disabled\")."
|
2016-01-28 16:58:43 +00:00
|
|
|
|
:type '(repeat (choice (const all)
|
|
|
|
|
|
(list :tag "Specific package"
|
|
|
|
|
|
(symbol :tag "Package name")
|
|
|
|
|
|
(choice :tag "Version"
|
|
|
|
|
|
(const :tag "disable" nil)
|
|
|
|
|
|
(const :tag "most recent" t)
|
|
|
|
|
|
(string :tag "specific version")))))
|
2010-07-28 18:54:42 +00:00
|
|
|
|
:risky t
|
2010-06-17 02:08:10 +00:00
|
|
|
|
:version "24.1")
|
|
|
|
|
|
|
2017-04-04 23:04:52 +00:00
|
|
|
|
(defcustom package-archives `(("gnu" .
|
|
|
|
|
|
,(format "http%s://elpa.gnu.org/packages/"
|
|
|
|
|
|
(if (gnutls-available-p) "s" ""))))
|
2010-07-28 18:54:42 +00:00
|
|
|
|
"An alist of archives from which to fetch.
|
|
|
|
|
|
The default value points to the GNU Emacs package repository.
|
2011-03-06 03:22:06 +00:00
|
|
|
|
|
|
|
|
|
|
Each element has the form (ID . LOCATION).
|
|
|
|
|
|
ID is an archive name, as a string.
|
|
|
|
|
|
LOCATION specifies the base location for the archive.
|
2017-04-04 23:04:52 +00:00
|
|
|
|
If it starts with \"http(s):\", it is treated as an HTTP(S) URL;
|
2011-03-06 03:22:06 +00:00
|
|
|
|
otherwise it should be an absolute directory name.
|
2011-12-06 08:31:42 +00:00
|
|
|
|
(Other types of URL are currently not supported.)
|
|
|
|
|
|
|
|
|
|
|
|
Only add locations that you trust, since fetching and installing
|
|
|
|
|
|
a package can run arbitrary code."
|
2010-07-28 18:54:42 +00:00
|
|
|
|
:type '(alist :key-type (string :tag "Archive name")
|
2011-03-06 03:22:06 +00:00
|
|
|
|
:value-type (string :tag "URL or directory name"))
|
2010-07-28 18:54:42 +00:00
|
|
|
|
:risky t
|
2017-04-04 23:04:52 +00:00
|
|
|
|
:version "26.1") ; gnutls test
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2015-04-22 08:31:16 +00:00
|
|
|
|
(defcustom package-menu-hide-low-priority 'archive
|
|
|
|
|
|
"If non-nil, hide low priority packages from the packages menu.
|
|
|
|
|
|
A package is considered low priority if there's another version
|
|
|
|
|
|
of it available such that:
|
|
|
|
|
|
(a) the archive of the other package is higher priority than
|
|
|
|
|
|
this one, as per `package-archive-priorities';
|
|
|
|
|
|
or
|
|
|
|
|
|
(b) they both have the same archive priority but the other
|
|
|
|
|
|
package has a higher version number.
|
|
|
|
|
|
|
|
|
|
|
|
This variable has three possible values:
|
|
|
|
|
|
nil: no packages are hidden;
|
2015-12-12 13:17:14 +00:00
|
|
|
|
`archive': only criterion (a) is used;
|
2015-04-22 08:31:16 +00:00
|
|
|
|
t: both criteria are used.
|
|
|
|
|
|
|
2015-06-22 15:20:46 +00:00
|
|
|
|
This variable has no effect if `package-menu--hide-packages' is
|
|
|
|
|
|
nil, so it can be toggled with \\<package-menu-mode-map> \\[package-menu-toggle-hiding]."
|
2015-04-22 08:31:16 +00:00
|
|
|
|
:type '(choice (const :tag "Don't hide anything" nil)
|
|
|
|
|
|
(const :tag "Hide per package-archive-priorities"
|
|
|
|
|
|
archive)
|
|
|
|
|
|
(const :tag "Hide per archive and version number" t))
|
|
|
|
|
|
:version "25.1")
|
|
|
|
|
|
|
2014-12-07 21:28:38 +00:00
|
|
|
|
(defcustom package-archive-priorities nil
|
|
|
|
|
|
"An alist of priorities for packages.
|
|
|
|
|
|
|
|
|
|
|
|
Each element has the form (ARCHIVE-ID . PRIORITY).
|
|
|
|
|
|
|
|
|
|
|
|
When installing packages, the package with the highest version
|
|
|
|
|
|
number from the archive with the highest priority is
|
2015-12-12 13:17:14 +00:00
|
|
|
|
selected. When higher versions are available from archives with
|
2014-12-07 21:28:38 +00:00
|
|
|
|
lower priorities, the user has to select those manually.
|
|
|
|
|
|
|
2019-07-14 22:17:59 +00:00
|
|
|
|
Archives not in this list have the priority 0, as have packages
|
|
|
|
|
|
that are already installed. If you use negative priorities for
|
|
|
|
|
|
the archives, they will not be upgraded automatically.
|
2015-04-22 08:31:16 +00:00
|
|
|
|
|
|
|
|
|
|
See also `package-menu-hide-low-priority'."
|
2015-01-17 10:58:58 +00:00
|
|
|
|
:type '(alist :key-type (string :tag "Archive name")
|
|
|
|
|
|
:value-type (integer :tag "Priority (default is 0)"))
|
2014-12-07 21:28:38 +00:00
|
|
|
|
:risky t
|
|
|
|
|
|
:version "25.1")
|
|
|
|
|
|
|
2013-04-04 01:51:33 +00:00
|
|
|
|
(defcustom package-pinned-packages nil
|
2014-06-03 04:41:20 +00:00
|
|
|
|
"An alist of packages that are pinned to specific archives.
|
|
|
|
|
|
This can be useful if you have multiple package archives enabled,
|
|
|
|
|
|
and want to control which archive a given package gets installed from.
|
|
|
|
|
|
|
|
|
|
|
|
Each element of the alist has the form (PACKAGE . ARCHIVE), where:
|
|
|
|
|
|
PACKAGE is a symbol representing a package
|
|
|
|
|
|
ARCHIVE is a string representing an archive (it should be the car of
|
|
|
|
|
|
an element in `package-archives', e.g. \"gnu\").
|
|
|
|
|
|
|
|
|
|
|
|
Adding an entry to this variable means that only ARCHIVE will be
|
|
|
|
|
|
considered as a source for PACKAGE. If other archives provide PACKAGE,
|
|
|
|
|
|
they are ignored (for this package). If ARCHIVE does not contain PACKAGE,
|
|
|
|
|
|
the package will be unavailable."
|
2013-04-04 01:51:33 +00:00
|
|
|
|
:type '(alist :key-type (symbol :tag "Package")
|
|
|
|
|
|
:value-type (string :tag "Archive name"))
|
2014-06-03 04:41:20 +00:00
|
|
|
|
;; I don't really see why this is risky...
|
|
|
|
|
|
;; I suppose it could prevent you receiving updates for a package,
|
|
|
|
|
|
;; via an entry (PACKAGE . NON-EXISTING). Which could be an issue
|
|
|
|
|
|
;; if PACKAGE has a known vulnerability that is fixed in newer versions.
|
2013-04-04 01:51:33 +00:00
|
|
|
|
:risky t
|
|
|
|
|
|
:version "24.4")
|
|
|
|
|
|
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(defcustom package-user-dir (locate-user-emacs-file "elpa")
|
|
|
|
|
|
"Directory containing the user's Emacs Lisp packages.
|
|
|
|
|
|
The directory name should be absolute.
|
|
|
|
|
|
Apart from this directory, Emacs also looks for system-wide
|
|
|
|
|
|
packages in `package-directory-list'."
|
|
|
|
|
|
:type 'directory
|
2010-07-28 18:54:42 +00:00
|
|
|
|
:risky t
|
2010-06-17 02:08:10 +00:00
|
|
|
|
:version "24.1")
|
|
|
|
|
|
|
|
|
|
|
|
(defcustom package-directory-list
|
|
|
|
|
|
;; Defaults are subdirs named "elpa" in the site-lisp dirs.
|
|
|
|
|
|
(let (result)
|
|
|
|
|
|
(dolist (f load-path)
|
2010-09-04 17:54:48 +00:00
|
|
|
|
(and (stringp f)
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(equal (file-name-nondirectory f) "site-lisp")
|
|
|
|
|
|
(push (expand-file-name "elpa" f) result)))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(nreverse result))
|
|
|
|
|
|
"List of additional directories containing Emacs Lisp packages.
|
|
|
|
|
|
Each directory name should be absolute.
|
|
|
|
|
|
|
|
|
|
|
|
These directories contain packages intended for system-wide; in
|
|
|
|
|
|
contrast, `package-user-dir' contains packages for personal use."
|
|
|
|
|
|
:type '(repeat directory)
|
2010-07-28 18:54:42 +00:00
|
|
|
|
:risky t
|
2010-06-17 02:08:10 +00:00
|
|
|
|
:version "24.1")
|
|
|
|
|
|
|
2016-05-18 19:31:07 +00:00
|
|
|
|
(declare-function epg-find-configuration "epg-config"
|
2016-05-26 20:38:28 +00:00
|
|
|
|
(protocol &optional no-cache program-alist))
|
2014-10-02 15:13:05 +00:00
|
|
|
|
|
2017-04-11 09:27:37 +00:00
|
|
|
|
(defcustom package-gnupghome-dir (expand-file-name "gnupg" package-user-dir)
|
|
|
|
|
|
"Directory containing GnuPG keyring or nil.
|
|
|
|
|
|
This variable specifies the GnuPG home directory used by package.
|
|
|
|
|
|
That directory is passed via the option \"--homedir\" to GnuPG.
|
|
|
|
|
|
If nil, do not use the option \"--homedir\", but stick with GnuPG's
|
|
|
|
|
|
default directory."
|
|
|
|
|
|
:type `(choice
|
|
|
|
|
|
(const
|
|
|
|
|
|
:tag "Default Emacs package management GnuPG home directory"
|
|
|
|
|
|
,(expand-file-name "gnupg" package-user-dir))
|
|
|
|
|
|
(const
|
|
|
|
|
|
:tag "Default GnuPG directory (GnuPG option --homedir not used)"
|
|
|
|
|
|
nil)
|
|
|
|
|
|
(directory :tag "A specific GnuPG --homedir"))
|
|
|
|
|
|
:risky t
|
|
|
|
|
|
:version "26.1")
|
|
|
|
|
|
|
2019-07-26 06:30:24 +00:00
|
|
|
|
(defcustom package-check-signature 'allow-unsigned
|
2014-06-05 06:15:44 +00:00
|
|
|
|
"Non-nil means to check package signatures when installing.
|
2019-05-12 17:03:24 +00:00
|
|
|
|
More specifically the value can be:
|
|
|
|
|
|
- nil: package signatures are ignored.
|
2019-07-26 06:30:24 +00:00
|
|
|
|
- `allow-unsigned': install a package even if it is unsigned, but
|
|
|
|
|
|
if it is signed, we have the key for it, and OpenGPG is
|
|
|
|
|
|
installed, verify the signature.
|
2019-05-12 17:03:24 +00:00
|
|
|
|
- t: accept a package only if it comes with at least one verified signature.
|
|
|
|
|
|
- `all': same as t, except when the package has several signatures,
|
|
|
|
|
|
in which case we verify all the signatures.
|
2014-06-05 06:15:44 +00:00
|
|
|
|
|
|
|
|
|
|
This also applies to the \"archive-contents\" file that lists the
|
|
|
|
|
|
contents of the archive."
|
2013-10-03 07:11:27 +00:00
|
|
|
|
:type '(choice (const nil :tag "Never")
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(const allow-unsigned :tag "Allow unsigned")
|
2019-05-12 17:03:24 +00:00
|
|
|
|
(const t :tag "Check always")
|
|
|
|
|
|
(const all :tag "Check all signatures"))
|
2013-10-03 07:11:27 +00:00
|
|
|
|
:risky t
|
2019-05-12 17:03:24 +00:00
|
|
|
|
:version "27.1")
|
2013-10-03 07:11:27 +00:00
|
|
|
|
|
2019-07-26 06:30:24 +00:00
|
|
|
|
(defun package-check-signature ()
|
|
|
|
|
|
"Check whether we have a usable OpenPGP configuration.
|
|
|
|
|
|
If true, and `package-check-signature' is `allow-unsigned',
|
|
|
|
|
|
return `allow-unsigned', otherwise return the value of
|
|
|
|
|
|
`package-check-signature'."
|
|
|
|
|
|
(if (eq package-check-signature 'allow-unsigned)
|
|
|
|
|
|
(progn
|
|
|
|
|
|
(require 'epg-config)
|
|
|
|
|
|
(and (epg-find-configuration 'OpenPGP)
|
|
|
|
|
|
'allow-unsigned))
|
|
|
|
|
|
package-check-signature))
|
|
|
|
|
|
|
2013-10-03 07:11:27 +00:00
|
|
|
|
(defcustom package-unsigned-archives nil
|
2014-06-05 06:15:44 +00:00
|
|
|
|
"List of archives where we do not check for package signatures."
|
2013-10-03 07:11:27 +00:00
|
|
|
|
:type '(repeat (string :tag "Archive name"))
|
|
|
|
|
|
:risky t
|
2014-05-30 05:08:10 +00:00
|
|
|
|
:version "24.4")
|
2013-10-03 07:11:27 +00:00
|
|
|
|
|
2015-02-01 21:45:47 +00:00
|
|
|
|
(defcustom package-selected-packages nil
|
2015-02-22 04:00:16 +00:00
|
|
|
|
"Store here packages installed explicitly by user.
|
|
|
|
|
|
This variable is fed automatically by Emacs when installing a new package.
|
|
|
|
|
|
This variable is used by `package-autoremove' to decide
|
|
|
|
|
|
which packages are no longer needed.
|
2015-02-01 21:45:47 +00:00
|
|
|
|
You can use it to (re)install packages on other machines
|
2015-05-22 10:00:10 +00:00
|
|
|
|
by running `package-install-selected-packages'.
|
2015-02-03 13:43:10 +00:00
|
|
|
|
|
|
|
|
|
|
To check if a package is contained in this list here, use
|
|
|
|
|
|
`package--user-selected-p', as it may populate the variable with
|
|
|
|
|
|
a sane initial value."
|
2016-01-13 01:06:49 +00:00
|
|
|
|
:version "25.1"
|
2015-02-01 22:28:21 +00:00
|
|
|
|
:type '(repeat symbol))
|
2015-02-01 21:45:47 +00:00
|
|
|
|
|
2015-04-26 21:03:21 +00:00
|
|
|
|
(defcustom package-menu-async t
|
|
|
|
|
|
"If non-nil, package-menu will use async operations when possible.
|
2015-05-20 19:54:20 +00:00
|
|
|
|
Currently, only the refreshing of archive contents supports
|
|
|
|
|
|
asynchronous operations. Package transactions are still done
|
|
|
|
|
|
synchronously."
|
2015-04-26 21:03:21 +00:00
|
|
|
|
:type 'boolean
|
|
|
|
|
|
:version "25.1")
|
|
|
|
|
|
|
2015-03-28 20:36:14 +00:00
|
|
|
|
|
|
|
|
|
|
;;; `package-desc' object definition
|
|
|
|
|
|
;; This is the struct used internally to represent packages.
|
|
|
|
|
|
;; Functions that deal with packages should generally take this object
|
|
|
|
|
|
;; as an argument. In some situations (e.g. commands that query the
|
|
|
|
|
|
;; user) it makes sense to take the package name as a symbol instead,
|
|
|
|
|
|
;; but keep in mind there could be multiple `package-desc's with the
|
|
|
|
|
|
;; same name.
|
2013-06-12 00:49:33 +00:00
|
|
|
|
(defvar package--default-summary "No description available.")
|
|
|
|
|
|
|
|
|
|
|
|
(cl-defstruct (package-desc
|
|
|
|
|
|
;; Rename the default constructor from `make-package-desc'.
|
|
|
|
|
|
(:constructor package-desc-create)
|
|
|
|
|
|
;; Has the same interface as the old `define-package',
|
|
|
|
|
|
;; which is still used in the "foo-pkg.el" files. Extra
|
|
|
|
|
|
;; options can be supported by adding additional keys.
|
|
|
|
|
|
(:constructor
|
|
|
|
|
|
package-desc-from-define
|
|
|
|
|
|
(name-string version-string &optional summary requirements
|
2013-09-29 19:41:00 +00:00
|
|
|
|
&rest rest-plist
|
2013-06-12 00:49:33 +00:00
|
|
|
|
&aux
|
|
|
|
|
|
(name (intern name-string))
|
|
|
|
|
|
(version (version-to-list version-string))
|
|
|
|
|
|
(reqs (mapcar #'(lambda (elt)
|
|
|
|
|
|
(list (car elt)
|
|
|
|
|
|
(version-to-list (cadr elt))))
|
|
|
|
|
|
(if (eq 'quote (car requirements))
|
|
|
|
|
|
(nth 1 requirements)
|
2013-09-29 19:41:00 +00:00
|
|
|
|
requirements)))
|
|
|
|
|
|
(kind (plist-get rest-plist :kind))
|
|
|
|
|
|
(archive (plist-get rest-plist :archive))
|
|
|
|
|
|
(extras (let (alist)
|
|
|
|
|
|
(while rest-plist
|
2013-10-01 15:52:53 +00:00
|
|
|
|
(unless (memq (car rest-plist) '(:kind :archive))
|
|
|
|
|
|
(let ((value (cadr rest-plist)))
|
|
|
|
|
|
(when value
|
2014-01-15 04:58:06 +00:00
|
|
|
|
(push (cons (car rest-plist)
|
|
|
|
|
|
(if (eq (car-safe value) 'quote)
|
2014-03-22 08:43:30 +00:00
|
|
|
|
(cadr value)
|
2014-01-15 04:58:06 +00:00
|
|
|
|
value))
|
2013-10-01 15:52:53 +00:00
|
|
|
|
alist))))
|
2013-09-29 19:41:00 +00:00
|
|
|
|
(setq rest-plist (cddr rest-plist)))
|
|
|
|
|
|
alist)))))
|
2013-06-12 00:49:33 +00:00
|
|
|
|
"Structure containing information about an individual package.
|
|
|
|
|
|
Slots:
|
|
|
|
|
|
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
`name' Name of the package, as a symbol.
|
2013-06-12 00:49:33 +00:00
|
|
|
|
|
|
|
|
|
|
`version' Version of the package, as a version list.
|
|
|
|
|
|
|
|
|
|
|
|
`summary' Short description of the package, typically taken from
|
2015-02-02 11:55:24 +00:00
|
|
|
|
the first line of the file.
|
2013-06-12 00:49:33 +00:00
|
|
|
|
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
`reqs' Requirements of the package. A list of (PACKAGE
|
2015-02-02 11:55:24 +00:00
|
|
|
|
VERSION-LIST) naming the dependent package and the minimum
|
|
|
|
|
|
required version.
|
2013-06-12 00:49:33 +00:00
|
|
|
|
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
`kind' The distribution format of the package. Currently, it is
|
2015-02-02 11:55:24 +00:00
|
|
|
|
either `single' or `tar'.
|
2013-06-12 00:49:33 +00:00
|
|
|
|
|
|
|
|
|
|
`archive' The name of the archive (as a string) whence this
|
2015-02-02 11:55:24 +00:00
|
|
|
|
package came.
|
2013-06-14 03:20:18 +00:00
|
|
|
|
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
`dir' The directory where the package is installed (if installed),
|
2015-02-02 11:55:24 +00:00
|
|
|
|
`builtin' if it is built-in, or nil otherwise.
|
2013-09-29 19:41:00 +00:00
|
|
|
|
|
2013-10-03 07:11:27 +00:00
|
|
|
|
`extras' Optional alist of additional keyword-value pairs.
|
|
|
|
|
|
|
|
|
|
|
|
`signed' Flag to indicate that the package is signed by provider."
|
2013-06-12 00:49:33 +00:00
|
|
|
|
name
|
|
|
|
|
|
version
|
|
|
|
|
|
(summary package--default-summary)
|
|
|
|
|
|
reqs
|
|
|
|
|
|
kind
|
2013-06-14 03:20:18 +00:00
|
|
|
|
archive
|
2013-09-29 19:41:00 +00:00
|
|
|
|
dir
|
2013-10-03 07:11:27 +00:00
|
|
|
|
extras
|
|
|
|
|
|
signed)
|
2013-06-14 03:20:18 +00:00
|
|
|
|
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(defun package--from-builtin (bi-desc)
|
|
|
|
|
|
(package-desc-create :name (pop bi-desc)
|
|
|
|
|
|
:version (package--bi-desc-version bi-desc)
|
|
|
|
|
|
:summary (package--bi-desc-summary bi-desc)
|
|
|
|
|
|
:dir 'builtin))
|
|
|
|
|
|
|
2013-06-14 03:20:18 +00:00
|
|
|
|
;; Pseudo fields.
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(defun package-version-join (vlist)
|
|
|
|
|
|
"Return the version string corresponding to the list VLIST.
|
|
|
|
|
|
This is, approximately, the inverse of `version-to-list'.
|
|
|
|
|
|
\(Actually, it returns only one of the possible inverses, since
|
|
|
|
|
|
`version-to-list' is a many-to-one operation.)"
|
|
|
|
|
|
(if (null vlist)
|
|
|
|
|
|
""
|
|
|
|
|
|
(let ((str-list (list "." (int-to-string (car vlist)))))
|
|
|
|
|
|
(dolist (num (cdr vlist))
|
|
|
|
|
|
(cond
|
|
|
|
|
|
((>= num 0)
|
|
|
|
|
|
(push (int-to-string num) str-list)
|
|
|
|
|
|
(push "." str-list))
|
|
|
|
|
|
((< num -4)
|
Go back to grave quoting in source-code docstrings etc.
This reverts almost all my recent changes to use curved quotes
in docstrings and/or strings used for error diagnostics.
There are a few exceptions, e.g., Bahá’í proper names.
* admin/unidata/unidata-gen.el (unidata-gen-table):
* lisp/abbrev.el (expand-region-abbrevs):
* lisp/align.el (align-region):
* lisp/allout.el (allout-mode, allout-solicit-alternate-bullet)
(outlineify-sticky):
* lisp/apropos.el (apropos-library):
* lisp/bookmark.el (bookmark-default-annotation-text):
* lisp/button.el (button-category-symbol, button-put)
(make-text-button):
* lisp/calc/calc-aent.el (math-read-if, math-read-factor):
* lisp/calc/calc-embed.el (calc-do-embedded):
* lisp/calc/calc-ext.el (calc-user-function-list):
* lisp/calc/calc-graph.el (calc-graph-show-dumb):
* lisp/calc/calc-help.el (calc-describe-key)
(calc-describe-thing, calc-full-help):
* lisp/calc/calc-lang.el (calc-c-language)
(math-parse-fortran-vector-end, math-parse-tex-sum)
(math-parse-eqn-matrix, math-parse-eqn-prime)
(calc-yacas-language, calc-maxima-language, calc-giac-language)
(math-read-giac-subscr, math-read-math-subscr)
(math-read-big-rec, math-read-big-balance):
* lisp/calc/calc-misc.el (calc-help, report-calc-bug):
* lisp/calc/calc-mode.el (calc-auto-why, calc-save-modes)
(calc-auto-recompute):
* lisp/calc/calc-prog.el (calc-fix-token-name)
(calc-read-parse-table-part, calc-user-define-invocation)
(math-do-arg-check):
* lisp/calc/calc-store.el (calc-edit-variable):
* lisp/calc/calc-units.el (math-build-units-table-buffer):
* lisp/calc/calc-vec.el (math-read-brackets):
* lisp/calc/calc-yank.el (calc-edit-mode):
* lisp/calc/calc.el (calc, calc-do, calc-user-invocation):
* lisp/calendar/appt.el (appt-display-message):
* lisp/calendar/diary-lib.el (diary-check-diary-file)
(diary-mail-entries, diary-from-outlook):
* lisp/calendar/icalendar.el (icalendar-export-region)
(icalendar--convert-float-to-ical)
(icalendar--convert-date-to-ical)
(icalendar--convert-ical-to-diary)
(icalendar--convert-recurring-to-diary)
(icalendar--add-diary-entry):
* lisp/calendar/time-date.el (format-seconds):
* lisp/calendar/timeclock.el (timeclock-mode-line-display)
(timeclock-make-hours-explicit, timeclock-log-data):
* lisp/calendar/todo-mode.el (todo-prefix, todo-delete-category)
(todo-item-mark, todo-check-format)
(todo-insert-item--next-param, todo-edit-item--next-key)
(todo-mode):
* lisp/cedet/ede/pmake.el (ede-proj-makefile-insert-dist-rules):
* lisp/cedet/mode-local.el (describe-mode-local-overload)
(mode-local-print-binding, mode-local-describe-bindings-2):
* lisp/cedet/semantic/complete.el (semantic-displayor-show-request):
* lisp/cedet/srecode/srt-mode.el (srecode-macro-help):
* lisp/cus-start.el (standard):
* lisp/cus-theme.el (describe-theme-1):
* lisp/custom.el (custom-add-dependencies, custom-check-theme)
(custom--sort-vars-1, load-theme):
* lisp/descr-text.el (describe-text-properties-1, describe-char):
* lisp/dired-x.el (dired-do-run-mail):
* lisp/dired.el (dired-log):
* lisp/emacs-lisp/advice.el (ad-read-advised-function)
(ad-read-advice-class, ad-read-advice-name, ad-enable-advice)
(ad-disable-advice, ad-remove-advice, ad-set-argument)
(ad-set-arguments, ad--defalias-fset, ad-activate)
(ad-deactivate):
* lisp/emacs-lisp/byte-opt.el (byte-compile-inline-expand)
(byte-compile-unfold-lambda, byte-optimize-form-code-walker)
(byte-optimize-while, byte-optimize-apply):
* lisp/emacs-lisp/byte-run.el (defun, defsubst):
* lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode)
(byte-compile-log-file, byte-compile-format-warn)
(byte-compile-nogroup-warn, byte-compile-arglist-warn)
(byte-compile-cl-warn)
(byte-compile-warn-about-unresolved-functions)
(byte-compile-file, byte-compile--declare-var)
(byte-compile-file-form-defmumble, byte-compile-form)
(byte-compile-normal-call, byte-compile-check-variable)
(byte-compile-variable-ref, byte-compile-variable-set)
(byte-compile-subr-wrong-args, byte-compile-setq-default)
(byte-compile-negation-optimizer)
(byte-compile-condition-case--old)
(byte-compile-condition-case--new, byte-compile-save-excursion)
(byte-compile-defvar, byte-compile-autoload)
(byte-compile-lambda-form)
(byte-compile-make-variable-buffer-local, display-call-tree)
(batch-byte-compile):
* lisp/emacs-lisp/cconv.el (cconv-convert, cconv--analyze-use):
* lisp/emacs-lisp/chart.el (chart-space-usage):
* lisp/emacs-lisp/check-declare.el (check-declare-scan)
(check-declare-warn, check-declare-file)
(check-declare-directory):
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine)
(checkdoc-message-text-engine):
* lisp/emacs-lisp/cl-extra.el (cl-parse-integer)
(cl--describe-class):
* lisp/emacs-lisp/cl-generic.el (cl-defgeneric)
(cl--generic-describe, cl-generic-generalizers):
* lisp/emacs-lisp/cl-macs.el (cl--parse-loop-clause, cl-tagbody)
(cl-symbol-macrolet):
* lisp/emacs-lisp/cl.el (cl-unload-function, flet):
* lisp/emacs-lisp/copyright.el (copyright)
(copyright-update-directory):
* lisp/emacs-lisp/edebug.el (edebug-read-list):
* lisp/emacs-lisp/eieio-base.el (eieio-persistent-read):
* lisp/emacs-lisp/eieio-core.el (eieio--slot-override)
(eieio-oref):
* lisp/emacs-lisp/eieio-opt.el (eieio-help-constructor):
* lisp/emacs-lisp/eieio-speedbar.el:
(eieio-speedbar-child-make-tag-lines)
(eieio-speedbar-child-description):
* lisp/emacs-lisp/eieio.el (defclass, change-class):
* lisp/emacs-lisp/elint.el (elint-file, elint-get-top-forms)
(elint-init-form, elint-check-defalias-form)
(elint-check-let-form):
* lisp/emacs-lisp/ert.el (ert-get-test, ert-results-mode-menu)
(ert-results-pop-to-backtrace-for-test-at-point)
(ert-results-pop-to-messages-for-test-at-point)
(ert-results-pop-to-should-forms-for-test-at-point)
(ert-describe-test):
* lisp/emacs-lisp/find-func.el (find-function-search-for-symbol)
(find-function-library):
* lisp/emacs-lisp/generator.el (iter-yield):
* lisp/emacs-lisp/gv.el (gv-define-simple-setter):
* lisp/emacs-lisp/lisp-mnt.el (lm-verify):
* lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning):
* lisp/emacs-lisp/map-ynp.el (map-y-or-n-p):
* lisp/emacs-lisp/nadvice.el (advice--make-docstring)
(advice--make, define-advice):
* lisp/emacs-lisp/package-x.el (package-upload-file):
* lisp/emacs-lisp/package.el (package-version-join)
(package-disabled-p, package-activate-1, package-activate)
(package--download-one-archive)
(package--download-and-read-archives)
(package-compute-transaction, package-install-from-archive)
(package-install, package-install-selected-packages)
(package-delete, package-autoremove, describe-package-1)
(package-install-button-action, package-delete-button-action)
(package-menu-hide-package, package-menu--list-to-prompt)
(package-menu--perform-transaction)
(package-menu--find-and-notify-upgrades):
* lisp/emacs-lisp/pcase.el (pcase-exhaustive, pcase--u1):
* lisp/emacs-lisp/re-builder.el (reb-enter-subexp-mode):
* lisp/emacs-lisp/ring.el (ring-previous, ring-next):
* lisp/emacs-lisp/rx.el (rx-check, rx-anything)
(rx-check-any-string, rx-check-any, rx-check-not, rx-=)
(rx-repeat, rx-check-backref, rx-syntax, rx-check-category)
(rx-form):
* lisp/emacs-lisp/smie.el (smie-config-save):
* lisp/emacs-lisp/subr-x.el (internal--check-binding):
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-put-tag):
* lisp/emacs-lisp/testcover.el (testcover-1value):
* lisp/emacs-lisp/timer.el (timer-event-handler):
* lisp/emulation/viper-cmd.el (viper-toggle-parse-sexp-ignore-comments)
(viper-toggle-search-style, viper-kill-buffer)
(viper-brac-function):
* lisp/emulation/viper-macs.el (viper-record-kbd-macro):
* lisp/env.el (setenv):
* lisp/erc/erc-button.el (erc-nick-popup):
* lisp/erc/erc.el (erc-cmd-LOAD, erc-handle-login, english):
* lisp/eshell/em-dirs.el (eshell/cd):
* lisp/eshell/em-glob.el (eshell-glob-regexp)
(eshell-glob-entries):
* lisp/eshell/em-pred.el (eshell-parse-modifiers):
* lisp/eshell/esh-opt.el (eshell-show-usage):
* lisp/facemenu.el (facemenu-add-new-face)
(facemenu-add-new-color):
* lisp/faces.el (read-face-name, read-face-font, describe-face)
(x-resolve-font-name):
* lisp/files-x.el (modify-file-local-variable):
* lisp/files.el (locate-user-emacs-file, find-alternate-file)
(set-auto-mode, hack-one-local-variable--obsolete)
(dir-locals-set-directory-class, write-file, basic-save-buffer)
(delete-directory, copy-directory, recover-session)
(recover-session-finish, insert-directory)
(file-modes-char-to-who, file-modes-symbolic-to-number)
(move-file-to-trash):
* lisp/filesets.el (filesets-add-buffer, filesets-remove-buffer):
* lisp/find-cmd.el (find-generic, find-to-string):
* lisp/finder.el (finder-commentary):
* lisp/font-lock.el (font-lock-fontify-buffer):
* lisp/format.el (format-write-file, format-find-file)
(format-insert-file):
* lisp/frame.el (get-device-terminal, select-frame-by-name):
* lisp/fringe.el (fringe--check-style):
* lisp/gnus/nnmairix.el (nnmairix-widget-create-query):
* lisp/help-fns.el (help-fns--key-bindings)
(help-fns--compiler-macro, help-fns--parent-mode)
(help-fns--obsolete, help-fns--interactive-only)
(describe-function-1, describe-variable):
* lisp/help.el (describe-mode)
(describe-minor-mode-from-indicator):
* lisp/image.el (image-type):
* lisp/international/ccl.el (ccl-dump):
* lisp/international/fontset.el (x-must-resolve-font-name):
* lisp/international/mule-cmds.el (prefer-coding-system)
(select-safe-coding-system-interactively)
(select-safe-coding-system, activate-input-method)
(toggle-input-method, describe-current-input-method)
(describe-language-environment):
* lisp/international/mule-conf.el (code-offset):
* lisp/international/mule-diag.el (describe-character-set)
(list-input-methods-1):
* lisp/mail/feedmail.el (feedmail-run-the-queue):
* lisp/mouse.el (minor-mode-menu-from-indicator):
* lisp/mpc.el (mpc-playlist-rename):
* lisp/msb.el (msb--choose-menu):
* lisp/net/ange-ftp.el (ange-ftp-shell-command):
* lisp/net/imap.el (imap-interactive-login):
* lisp/net/mairix.el (mairix-widget-create-query):
* lisp/net/newst-backend.el (newsticker--sentinel-work):
* lisp/net/newst-treeview.el (newsticker--treeview-load):
* lisp/net/rlogin.el (rlogin):
* lisp/obsolete/iswitchb.el (iswitchb-possible-new-buffer):
* lisp/obsolete/otodo-mode.el (todo-more-important-p):
* lisp/obsolete/pgg-gpg.el (pgg-gpg-process-region):
* lisp/obsolete/pgg-pgp.el (pgg-pgp-process-region):
* lisp/obsolete/pgg-pgp5.el (pgg-pgp5-process-region):
* lisp/org/ob-core.el (org-babel-goto-named-src-block)
(org-babel-goto-named-result):
* lisp/org/ob-fortran.el (org-babel-fortran-ensure-main-wrap):
* lisp/org/ob-ref.el (org-babel-ref-resolve):
* lisp/org/org-agenda.el (org-agenda-prepare):
* lisp/org/org-clock.el (org-clock-notify-once-if-expired)
(org-clock-resolve):
* lisp/org/org-ctags.el (org-ctags-ask-rebuild-tags-file-then-find-tag):
* lisp/org/org-feed.el (org-feed-parse-atom-entry):
* lisp/org/org-habit.el (org-habit-parse-todo):
* lisp/org/org-mouse.el (org-mouse-popup-global-menu)
(org-mouse-context-menu):
* lisp/org/org-table.el (org-table-edit-formulas):
* lisp/org/ox.el (org-export-async-start):
* lisp/proced.el (proced-log):
* lisp/progmodes/ada-mode.el (ada-get-indent-case)
(ada-check-matching-start, ada-goto-matching-start):
* lisp/progmodes/ada-prj.el (ada-prj-display-page):
* lisp/progmodes/ada-xref.el (ada-find-executable):
* lisp/progmodes/ebrowse.el (ebrowse-tags-apropos):
* lisp/progmodes/etags.el (etags-tags-apropos-additional):
* lisp/progmodes/flymake.el (flymake-parse-err-lines)
(flymake-start-syntax-check-process):
* lisp/progmodes/python.el (python-shell-get-process-or-error)
(python-define-auxiliary-skeleton):
* lisp/progmodes/sql.el (sql-comint):
* lisp/progmodes/verilog-mode.el (verilog-load-file-at-point):
* lisp/progmodes/vhdl-mode.el (vhdl-widget-directory-validate):
* lisp/recentf.el (recentf-open-files):
* lisp/replace.el (query-replace-read-from)
(occur-after-change-function, occur-1):
* lisp/scroll-bar.el (scroll-bar-columns):
* lisp/server.el (server-get-auth-key):
* lisp/simple.el (execute-extended-command)
(undo-outer-limit-truncate, list-processes--refresh)
(compose-mail, set-variable, choose-completion-string)
(define-alternatives):
* lisp/startup.el (site-run-file, tty-handle-args, command-line)
(command-line-1):
* lisp/subr.el (noreturn, define-error, add-to-list)
(read-char-choice, version-to-list):
* lisp/term/common-win.el (x-handle-xrm-switch)
(x-handle-name-switch, x-handle-args):
* lisp/term/x-win.el (x-handle-parent-id, x-handle-smid):
* lisp/textmodes/reftex-ref.el (reftex-label):
* lisp/textmodes/reftex-toc.el (reftex-toc-rename-label):
* lisp/textmodes/two-column.el (2C-split):
* lisp/tutorial.el (tutorial--describe-nonstandard-key)
(tutorial--find-changed-keys):
* lisp/type-break.el (type-break-noninteractive-query):
* lisp/wdired.el (wdired-do-renames, wdired-do-symlink-changes)
(wdired-do-perm-changes):
* lisp/whitespace.el (whitespace-report-region):
Prefer grave quoting in source-code strings used to generate help
and diagnostics.
* lisp/faces.el (face-documentation):
No need to convert quotes, since the result is a docstring.
* lisp/info.el (Info-virtual-index-find-node)
(Info-virtual-index, info-apropos):
Simplify by generating only curved quotes, since info files are
typically that ways nowadays anyway.
* lisp/international/mule-diag.el (list-input-methods):
Don’t assume text quoting style is curved.
* lisp/org/org-bibtex.el (org-bibtex-fields):
Revert my recent changes, going back to the old quoting style.
2015-09-07 15:41:44 +00:00
|
|
|
|
(error "Invalid version list `%s'" vlist))
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(t
|
|
|
|
|
|
;; pre, or beta, or alpha
|
|
|
|
|
|
(cond ((equal "." (car str-list))
|
|
|
|
|
|
(pop str-list))
|
|
|
|
|
|
((not (string-match "[0-9]+" (car str-list)))
|
Go back to grave quoting in source-code docstrings etc.
This reverts almost all my recent changes to use curved quotes
in docstrings and/or strings used for error diagnostics.
There are a few exceptions, e.g., Bahá’í proper names.
* admin/unidata/unidata-gen.el (unidata-gen-table):
* lisp/abbrev.el (expand-region-abbrevs):
* lisp/align.el (align-region):
* lisp/allout.el (allout-mode, allout-solicit-alternate-bullet)
(outlineify-sticky):
* lisp/apropos.el (apropos-library):
* lisp/bookmark.el (bookmark-default-annotation-text):
* lisp/button.el (button-category-symbol, button-put)
(make-text-button):
* lisp/calc/calc-aent.el (math-read-if, math-read-factor):
* lisp/calc/calc-embed.el (calc-do-embedded):
* lisp/calc/calc-ext.el (calc-user-function-list):
* lisp/calc/calc-graph.el (calc-graph-show-dumb):
* lisp/calc/calc-help.el (calc-describe-key)
(calc-describe-thing, calc-full-help):
* lisp/calc/calc-lang.el (calc-c-language)
(math-parse-fortran-vector-end, math-parse-tex-sum)
(math-parse-eqn-matrix, math-parse-eqn-prime)
(calc-yacas-language, calc-maxima-language, calc-giac-language)
(math-read-giac-subscr, math-read-math-subscr)
(math-read-big-rec, math-read-big-balance):
* lisp/calc/calc-misc.el (calc-help, report-calc-bug):
* lisp/calc/calc-mode.el (calc-auto-why, calc-save-modes)
(calc-auto-recompute):
* lisp/calc/calc-prog.el (calc-fix-token-name)
(calc-read-parse-table-part, calc-user-define-invocation)
(math-do-arg-check):
* lisp/calc/calc-store.el (calc-edit-variable):
* lisp/calc/calc-units.el (math-build-units-table-buffer):
* lisp/calc/calc-vec.el (math-read-brackets):
* lisp/calc/calc-yank.el (calc-edit-mode):
* lisp/calc/calc.el (calc, calc-do, calc-user-invocation):
* lisp/calendar/appt.el (appt-display-message):
* lisp/calendar/diary-lib.el (diary-check-diary-file)
(diary-mail-entries, diary-from-outlook):
* lisp/calendar/icalendar.el (icalendar-export-region)
(icalendar--convert-float-to-ical)
(icalendar--convert-date-to-ical)
(icalendar--convert-ical-to-diary)
(icalendar--convert-recurring-to-diary)
(icalendar--add-diary-entry):
* lisp/calendar/time-date.el (format-seconds):
* lisp/calendar/timeclock.el (timeclock-mode-line-display)
(timeclock-make-hours-explicit, timeclock-log-data):
* lisp/calendar/todo-mode.el (todo-prefix, todo-delete-category)
(todo-item-mark, todo-check-format)
(todo-insert-item--next-param, todo-edit-item--next-key)
(todo-mode):
* lisp/cedet/ede/pmake.el (ede-proj-makefile-insert-dist-rules):
* lisp/cedet/mode-local.el (describe-mode-local-overload)
(mode-local-print-binding, mode-local-describe-bindings-2):
* lisp/cedet/semantic/complete.el (semantic-displayor-show-request):
* lisp/cedet/srecode/srt-mode.el (srecode-macro-help):
* lisp/cus-start.el (standard):
* lisp/cus-theme.el (describe-theme-1):
* lisp/custom.el (custom-add-dependencies, custom-check-theme)
(custom--sort-vars-1, load-theme):
* lisp/descr-text.el (describe-text-properties-1, describe-char):
* lisp/dired-x.el (dired-do-run-mail):
* lisp/dired.el (dired-log):
* lisp/emacs-lisp/advice.el (ad-read-advised-function)
(ad-read-advice-class, ad-read-advice-name, ad-enable-advice)
(ad-disable-advice, ad-remove-advice, ad-set-argument)
(ad-set-arguments, ad--defalias-fset, ad-activate)
(ad-deactivate):
* lisp/emacs-lisp/byte-opt.el (byte-compile-inline-expand)
(byte-compile-unfold-lambda, byte-optimize-form-code-walker)
(byte-optimize-while, byte-optimize-apply):
* lisp/emacs-lisp/byte-run.el (defun, defsubst):
* lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode)
(byte-compile-log-file, byte-compile-format-warn)
(byte-compile-nogroup-warn, byte-compile-arglist-warn)
(byte-compile-cl-warn)
(byte-compile-warn-about-unresolved-functions)
(byte-compile-file, byte-compile--declare-var)
(byte-compile-file-form-defmumble, byte-compile-form)
(byte-compile-normal-call, byte-compile-check-variable)
(byte-compile-variable-ref, byte-compile-variable-set)
(byte-compile-subr-wrong-args, byte-compile-setq-default)
(byte-compile-negation-optimizer)
(byte-compile-condition-case--old)
(byte-compile-condition-case--new, byte-compile-save-excursion)
(byte-compile-defvar, byte-compile-autoload)
(byte-compile-lambda-form)
(byte-compile-make-variable-buffer-local, display-call-tree)
(batch-byte-compile):
* lisp/emacs-lisp/cconv.el (cconv-convert, cconv--analyze-use):
* lisp/emacs-lisp/chart.el (chart-space-usage):
* lisp/emacs-lisp/check-declare.el (check-declare-scan)
(check-declare-warn, check-declare-file)
(check-declare-directory):
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine)
(checkdoc-message-text-engine):
* lisp/emacs-lisp/cl-extra.el (cl-parse-integer)
(cl--describe-class):
* lisp/emacs-lisp/cl-generic.el (cl-defgeneric)
(cl--generic-describe, cl-generic-generalizers):
* lisp/emacs-lisp/cl-macs.el (cl--parse-loop-clause, cl-tagbody)
(cl-symbol-macrolet):
* lisp/emacs-lisp/cl.el (cl-unload-function, flet):
* lisp/emacs-lisp/copyright.el (copyright)
(copyright-update-directory):
* lisp/emacs-lisp/edebug.el (edebug-read-list):
* lisp/emacs-lisp/eieio-base.el (eieio-persistent-read):
* lisp/emacs-lisp/eieio-core.el (eieio--slot-override)
(eieio-oref):
* lisp/emacs-lisp/eieio-opt.el (eieio-help-constructor):
* lisp/emacs-lisp/eieio-speedbar.el:
(eieio-speedbar-child-make-tag-lines)
(eieio-speedbar-child-description):
* lisp/emacs-lisp/eieio.el (defclass, change-class):
* lisp/emacs-lisp/elint.el (elint-file, elint-get-top-forms)
(elint-init-form, elint-check-defalias-form)
(elint-check-let-form):
* lisp/emacs-lisp/ert.el (ert-get-test, ert-results-mode-menu)
(ert-results-pop-to-backtrace-for-test-at-point)
(ert-results-pop-to-messages-for-test-at-point)
(ert-results-pop-to-should-forms-for-test-at-point)
(ert-describe-test):
* lisp/emacs-lisp/find-func.el (find-function-search-for-symbol)
(find-function-library):
* lisp/emacs-lisp/generator.el (iter-yield):
* lisp/emacs-lisp/gv.el (gv-define-simple-setter):
* lisp/emacs-lisp/lisp-mnt.el (lm-verify):
* lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning):
* lisp/emacs-lisp/map-ynp.el (map-y-or-n-p):
* lisp/emacs-lisp/nadvice.el (advice--make-docstring)
(advice--make, define-advice):
* lisp/emacs-lisp/package-x.el (package-upload-file):
* lisp/emacs-lisp/package.el (package-version-join)
(package-disabled-p, package-activate-1, package-activate)
(package--download-one-archive)
(package--download-and-read-archives)
(package-compute-transaction, package-install-from-archive)
(package-install, package-install-selected-packages)
(package-delete, package-autoremove, describe-package-1)
(package-install-button-action, package-delete-button-action)
(package-menu-hide-package, package-menu--list-to-prompt)
(package-menu--perform-transaction)
(package-menu--find-and-notify-upgrades):
* lisp/emacs-lisp/pcase.el (pcase-exhaustive, pcase--u1):
* lisp/emacs-lisp/re-builder.el (reb-enter-subexp-mode):
* lisp/emacs-lisp/ring.el (ring-previous, ring-next):
* lisp/emacs-lisp/rx.el (rx-check, rx-anything)
(rx-check-any-string, rx-check-any, rx-check-not, rx-=)
(rx-repeat, rx-check-backref, rx-syntax, rx-check-category)
(rx-form):
* lisp/emacs-lisp/smie.el (smie-config-save):
* lisp/emacs-lisp/subr-x.el (internal--check-binding):
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-put-tag):
* lisp/emacs-lisp/testcover.el (testcover-1value):
* lisp/emacs-lisp/timer.el (timer-event-handler):
* lisp/emulation/viper-cmd.el (viper-toggle-parse-sexp-ignore-comments)
(viper-toggle-search-style, viper-kill-buffer)
(viper-brac-function):
* lisp/emulation/viper-macs.el (viper-record-kbd-macro):
* lisp/env.el (setenv):
* lisp/erc/erc-button.el (erc-nick-popup):
* lisp/erc/erc.el (erc-cmd-LOAD, erc-handle-login, english):
* lisp/eshell/em-dirs.el (eshell/cd):
* lisp/eshell/em-glob.el (eshell-glob-regexp)
(eshell-glob-entries):
* lisp/eshell/em-pred.el (eshell-parse-modifiers):
* lisp/eshell/esh-opt.el (eshell-show-usage):
* lisp/facemenu.el (facemenu-add-new-face)
(facemenu-add-new-color):
* lisp/faces.el (read-face-name, read-face-font, describe-face)
(x-resolve-font-name):
* lisp/files-x.el (modify-file-local-variable):
* lisp/files.el (locate-user-emacs-file, find-alternate-file)
(set-auto-mode, hack-one-local-variable--obsolete)
(dir-locals-set-directory-class, write-file, basic-save-buffer)
(delete-directory, copy-directory, recover-session)
(recover-session-finish, insert-directory)
(file-modes-char-to-who, file-modes-symbolic-to-number)
(move-file-to-trash):
* lisp/filesets.el (filesets-add-buffer, filesets-remove-buffer):
* lisp/find-cmd.el (find-generic, find-to-string):
* lisp/finder.el (finder-commentary):
* lisp/font-lock.el (font-lock-fontify-buffer):
* lisp/format.el (format-write-file, format-find-file)
(format-insert-file):
* lisp/frame.el (get-device-terminal, select-frame-by-name):
* lisp/fringe.el (fringe--check-style):
* lisp/gnus/nnmairix.el (nnmairix-widget-create-query):
* lisp/help-fns.el (help-fns--key-bindings)
(help-fns--compiler-macro, help-fns--parent-mode)
(help-fns--obsolete, help-fns--interactive-only)
(describe-function-1, describe-variable):
* lisp/help.el (describe-mode)
(describe-minor-mode-from-indicator):
* lisp/image.el (image-type):
* lisp/international/ccl.el (ccl-dump):
* lisp/international/fontset.el (x-must-resolve-font-name):
* lisp/international/mule-cmds.el (prefer-coding-system)
(select-safe-coding-system-interactively)
(select-safe-coding-system, activate-input-method)
(toggle-input-method, describe-current-input-method)
(describe-language-environment):
* lisp/international/mule-conf.el (code-offset):
* lisp/international/mule-diag.el (describe-character-set)
(list-input-methods-1):
* lisp/mail/feedmail.el (feedmail-run-the-queue):
* lisp/mouse.el (minor-mode-menu-from-indicator):
* lisp/mpc.el (mpc-playlist-rename):
* lisp/msb.el (msb--choose-menu):
* lisp/net/ange-ftp.el (ange-ftp-shell-command):
* lisp/net/imap.el (imap-interactive-login):
* lisp/net/mairix.el (mairix-widget-create-query):
* lisp/net/newst-backend.el (newsticker--sentinel-work):
* lisp/net/newst-treeview.el (newsticker--treeview-load):
* lisp/net/rlogin.el (rlogin):
* lisp/obsolete/iswitchb.el (iswitchb-possible-new-buffer):
* lisp/obsolete/otodo-mode.el (todo-more-important-p):
* lisp/obsolete/pgg-gpg.el (pgg-gpg-process-region):
* lisp/obsolete/pgg-pgp.el (pgg-pgp-process-region):
* lisp/obsolete/pgg-pgp5.el (pgg-pgp5-process-region):
* lisp/org/ob-core.el (org-babel-goto-named-src-block)
(org-babel-goto-named-result):
* lisp/org/ob-fortran.el (org-babel-fortran-ensure-main-wrap):
* lisp/org/ob-ref.el (org-babel-ref-resolve):
* lisp/org/org-agenda.el (org-agenda-prepare):
* lisp/org/org-clock.el (org-clock-notify-once-if-expired)
(org-clock-resolve):
* lisp/org/org-ctags.el (org-ctags-ask-rebuild-tags-file-then-find-tag):
* lisp/org/org-feed.el (org-feed-parse-atom-entry):
* lisp/org/org-habit.el (org-habit-parse-todo):
* lisp/org/org-mouse.el (org-mouse-popup-global-menu)
(org-mouse-context-menu):
* lisp/org/org-table.el (org-table-edit-formulas):
* lisp/org/ox.el (org-export-async-start):
* lisp/proced.el (proced-log):
* lisp/progmodes/ada-mode.el (ada-get-indent-case)
(ada-check-matching-start, ada-goto-matching-start):
* lisp/progmodes/ada-prj.el (ada-prj-display-page):
* lisp/progmodes/ada-xref.el (ada-find-executable):
* lisp/progmodes/ebrowse.el (ebrowse-tags-apropos):
* lisp/progmodes/etags.el (etags-tags-apropos-additional):
* lisp/progmodes/flymake.el (flymake-parse-err-lines)
(flymake-start-syntax-check-process):
* lisp/progmodes/python.el (python-shell-get-process-or-error)
(python-define-auxiliary-skeleton):
* lisp/progmodes/sql.el (sql-comint):
* lisp/progmodes/verilog-mode.el (verilog-load-file-at-point):
* lisp/progmodes/vhdl-mode.el (vhdl-widget-directory-validate):
* lisp/recentf.el (recentf-open-files):
* lisp/replace.el (query-replace-read-from)
(occur-after-change-function, occur-1):
* lisp/scroll-bar.el (scroll-bar-columns):
* lisp/server.el (server-get-auth-key):
* lisp/simple.el (execute-extended-command)
(undo-outer-limit-truncate, list-processes--refresh)
(compose-mail, set-variable, choose-completion-string)
(define-alternatives):
* lisp/startup.el (site-run-file, tty-handle-args, command-line)
(command-line-1):
* lisp/subr.el (noreturn, define-error, add-to-list)
(read-char-choice, version-to-list):
* lisp/term/common-win.el (x-handle-xrm-switch)
(x-handle-name-switch, x-handle-args):
* lisp/term/x-win.el (x-handle-parent-id, x-handle-smid):
* lisp/textmodes/reftex-ref.el (reftex-label):
* lisp/textmodes/reftex-toc.el (reftex-toc-rename-label):
* lisp/textmodes/two-column.el (2C-split):
* lisp/tutorial.el (tutorial--describe-nonstandard-key)
(tutorial--find-changed-keys):
* lisp/type-break.el (type-break-noninteractive-query):
* lisp/wdired.el (wdired-do-renames, wdired-do-symlink-changes)
(wdired-do-perm-changes):
* lisp/whitespace.el (whitespace-report-region):
Prefer grave quoting in source-code strings used to generate help
and diagnostics.
* lisp/faces.el (face-documentation):
No need to convert quotes, since the result is a docstring.
* lisp/info.el (Info-virtual-index-find-node)
(Info-virtual-index, info-apropos):
Simplify by generating only curved quotes, since info files are
typically that ways nowadays anyway.
* lisp/international/mule-diag.el (list-input-methods):
Don’t assume text quoting style is curved.
* lisp/org/org-bibtex.el (org-bibtex-fields):
Revert my recent changes, going back to the old quoting style.
2015-09-07 15:41:44 +00:00
|
|
|
|
(error "Invalid version list `%s'" vlist)))
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(push (cond ((= num -1) "pre")
|
|
|
|
|
|
((= num -2) "beta")
|
|
|
|
|
|
((= num -3) "alpha")
|
|
|
|
|
|
((= num -4) "snapshot"))
|
|
|
|
|
|
str-list))))
|
|
|
|
|
|
(if (equal "." (car str-list))
|
|
|
|
|
|
(pop str-list))
|
2019-01-22 22:54:29 +00:00
|
|
|
|
(apply #'concat (nreverse str-list)))))
|
2015-03-28 20:36:14 +00:00
|
|
|
|
|
2013-06-21 03:08:47 +00:00
|
|
|
|
(defun package-desc-full-name (pkg-desc)
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(format "%s-%s"
|
|
|
|
|
|
(package-desc-name pkg-desc)
|
|
|
|
|
|
(package-version-join (package-desc-version pkg-desc))))
|
2013-06-12 00:49:33 +00:00
|
|
|
|
|
2013-06-21 03:08:47 +00:00
|
|
|
|
(defun package-desc-suffix (pkg-desc)
|
|
|
|
|
|
(pcase (package-desc-kind pkg-desc)
|
2018-11-05 00:22:15 +00:00
|
|
|
|
('single ".el")
|
|
|
|
|
|
('tar ".tar")
|
|
|
|
|
|
('dir "")
|
2013-06-21 03:08:47 +00:00
|
|
|
|
(kind (error "Unknown package kind: %s" kind))))
|
|
|
|
|
|
|
2014-01-16 12:23:14 +00:00
|
|
|
|
(defun package-desc--keywords (pkg-desc)
|
|
|
|
|
|
(let ((keywords (cdr (assoc :keywords (package-desc-extras pkg-desc)))))
|
2014-01-15 04:58:06 +00:00
|
|
|
|
(if (eq (car-safe keywords) 'quote)
|
2014-01-16 16:44:17 +00:00
|
|
|
|
(nth 1 keywords)
|
2014-01-15 04:58:06 +00:00
|
|
|
|
keywords)))
|
|
|
|
|
|
|
2015-04-22 08:31:16 +00:00
|
|
|
|
(defun package-desc-priority (p)
|
|
|
|
|
|
"Return the priority of the archive of package-desc object P."
|
|
|
|
|
|
(package-archive-priority (package-desc-archive p)))
|
|
|
|
|
|
|
2013-06-12 00:49:33 +00:00
|
|
|
|
;; Package descriptor format used in finder-inf.el and package--builtins.
|
|
|
|
|
|
(cl-defstruct (package--bi-desc
|
|
|
|
|
|
(:constructor package-make-builtin (version summary))
|
|
|
|
|
|
(:type vector))
|
|
|
|
|
|
version
|
|
|
|
|
|
reqs
|
|
|
|
|
|
summary)
|
|
|
|
|
|
|
2015-03-28 20:36:14 +00:00
|
|
|
|
|
|
|
|
|
|
;;; Installed packages
|
|
|
|
|
|
;; The following variables store information about packages present in
|
|
|
|
|
|
;; the system. The most important of these is `package-alist'. The
|
|
|
|
|
|
;; command `package-initialize' is also closely related to this
|
|
|
|
|
|
;; section, but it is left for a later section because it also affects
|
|
|
|
|
|
;; other stuff.
|
2010-08-29 22:15:09 +00:00
|
|
|
|
(defvar package--builtins nil
|
|
|
|
|
|
"Alist of built-in packages.
|
2010-11-03 23:21:51 +00:00
|
|
|
|
The actual value is initialized by loading the library
|
|
|
|
|
|
`finder-inf'; this is not done until it is needed, e.g. by the
|
|
|
|
|
|
function `package-built-in-p'.
|
|
|
|
|
|
|
2013-06-12 00:49:33 +00:00
|
|
|
|
Each element has the form (PKG . PACKAGE-BI-DESC), where PKG is a package
|
|
|
|
|
|
name (a symbol) and DESC is a `package--bi-desc' structure.")
|
2010-07-28 18:54:42 +00:00
|
|
|
|
(put 'package--builtins 'risky-local-variable t)
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2010-08-29 22:15:09 +00:00
|
|
|
|
(defvar package-alist nil
|
2010-06-17 02:08:10 +00:00
|
|
|
|
"Alist of all packages available for activation.
|
2013-06-21 14:12:56 +00:00
|
|
|
|
Each element has the form (PKG . DESCS), where PKG is a package
|
2019-07-17 14:02:21 +00:00
|
|
|
|
name (a symbol) and DESCS is a non-empty list of `package-desc'
|
|
|
|
|
|
structures, sorted by decreasing versions.
|
2010-08-29 22:15:09 +00:00
|
|
|
|
|
|
|
|
|
|
This variable is set automatically by `package-load-descriptor',
|
|
|
|
|
|
called via `package-initialize'. To change which packages are
|
|
|
|
|
|
loaded and/or activated, customize `package-load-list'.")
|
2011-09-15 01:57:54 +00:00
|
|
|
|
(put 'package-alist 'risky-local-variable t)
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2010-08-29 22:15:09 +00:00
|
|
|
|
(defvar package-activated-list nil
|
2013-06-15 15:36:11 +00:00
|
|
|
|
;; FIXME: This should implicitly include all builtin packages.
|
2010-06-17 02:08:10 +00:00
|
|
|
|
"List of the names of currently activated packages.")
|
2010-07-28 18:54:42 +00:00
|
|
|
|
(put 'package-activated-list 'risky-local-variable t)
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2015-03-28 20:36:14 +00:00
|
|
|
|
;;;; Populating `package-alist'.
|
|
|
|
|
|
;; The following functions are called on each installed package by
|
|
|
|
|
|
;; `package-load-all-descriptors', which ultimately populates the
|
|
|
|
|
|
;; `package-alist' variable.
|
|
|
|
|
|
(defun package-process-define-package (exp)
|
|
|
|
|
|
(when (eq (car-safe exp) 'define-package)
|
|
|
|
|
|
(let* ((new-pkg-desc (apply #'package-desc-from-define (cdr exp)))
|
|
|
|
|
|
(name (package-desc-name new-pkg-desc))
|
|
|
|
|
|
(version (package-desc-version new-pkg-desc))
|
|
|
|
|
|
(old-pkgs (assq name package-alist)))
|
|
|
|
|
|
(if (null old-pkgs)
|
|
|
|
|
|
;; If there's no old package, just add this to `package-alist'.
|
|
|
|
|
|
(push (list name new-pkg-desc) package-alist)
|
|
|
|
|
|
;; If there is, insert the new package at the right place in the list.
|
|
|
|
|
|
(while
|
|
|
|
|
|
(if (and (cdr old-pkgs)
|
|
|
|
|
|
(version-list-< version
|
|
|
|
|
|
(package-desc-version (cadr old-pkgs))))
|
|
|
|
|
|
(setq old-pkgs (cdr old-pkgs))
|
|
|
|
|
|
(push new-pkg-desc (cdr old-pkgs))
|
|
|
|
|
|
nil)))
|
|
|
|
|
|
new-pkg-desc)))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(defun package-load-descriptor (pkg-dir)
|
|
|
|
|
|
"Load the description file in directory PKG-DIR."
|
|
|
|
|
|
(let ((pkg-file (expand-file-name (package--description-file pkg-dir)
|
2013-10-03 07:11:27 +00:00
|
|
|
|
pkg-dir))
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(signed-file (concat pkg-dir ".signed")))
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(when (file-exists-p pkg-file)
|
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
|
(insert-file-contents pkg-file)
|
|
|
|
|
|
(goto-char (point-min))
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(let ((pkg-desc (or (package-process-define-package
|
|
|
|
|
|
(read (current-buffer)))
|
|
|
|
|
|
(error "Can't find define-package in %s" pkg-file))))
|
2013-06-21 03:08:47 +00:00
|
|
|
|
(setf (package-desc-dir pkg-desc) pkg-dir)
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(if (file-exists-p signed-file)
|
|
|
|
|
|
(setf (package-desc-signed pkg-desc) t))
|
2013-06-21 03:08:47 +00:00
|
|
|
|
pkg-desc)))))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
|
|
|
|
|
(defun package-load-all-descriptors ()
|
|
|
|
|
|
"Load descriptors for installed Emacs Lisp packages.
|
|
|
|
|
|
This looks for package subdirectories in `package-user-dir' and
|
|
|
|
|
|
`package-directory-list'. The variable `package-load-list'
|
|
|
|
|
|
controls which package subdirectories may be loaded.
|
|
|
|
|
|
|
|
|
|
|
|
In each valid package subdirectory, this function loads the
|
|
|
|
|
|
description file containing a call to `define-package', which
|
2013-06-21 14:12:56 +00:00
|
|
|
|
updates `package-alist'."
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(dolist (dir (cons package-user-dir package-directory-list))
|
|
|
|
|
|
(when (file-directory-p dir)
|
|
|
|
|
|
(dolist (subdir (directory-files dir))
|
2015-05-29 20:41:53 +00:00
|
|
|
|
(unless (equal subdir "..")
|
|
|
|
|
|
(let ((pkg-dir (expand-file-name subdir dir)))
|
|
|
|
|
|
(when (file-directory-p pkg-dir)
|
|
|
|
|
|
(package-load-descriptor pkg-dir))))))))
|
2013-06-14 03:20:18 +00:00
|
|
|
|
|
2019-01-22 22:54:29 +00:00
|
|
|
|
(defun package--alist ()
|
|
|
|
|
|
"Return `package-alist', after computing it if needed."
|
|
|
|
|
|
(or package-alist
|
|
|
|
|
|
(progn (package-load-all-descriptors)
|
|
|
|
|
|
package-alist)))
|
|
|
|
|
|
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(defun define-package (_name-string _version-string
|
|
|
|
|
|
&optional _docstring _requirements
|
|
|
|
|
|
&rest _extra-properties)
|
|
|
|
|
|
"Define a new package.
|
|
|
|
|
|
NAME-STRING is the name of the package, as a string.
|
|
|
|
|
|
VERSION-STRING is the version of the package, as a string.
|
|
|
|
|
|
DOCSTRING is a short description of the package, a string.
|
|
|
|
|
|
REQUIREMENTS is a list of dependencies on other packages.
|
|
|
|
|
|
Each requirement is of the form (OTHER-PACKAGE OTHER-VERSION),
|
|
|
|
|
|
where OTHER-VERSION is a string.
|
|
|
|
|
|
|
|
|
|
|
|
EXTRA-PROPERTIES is currently unused."
|
|
|
|
|
|
;; FIXME: Placeholder! Should we keep it?
|
|
|
|
|
|
(error "Don't call me!"))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;; Package activation
|
|
|
|
|
|
;; Section for functions used by `package-activate', which see.
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(defun package-disabled-p (pkg-name version)
|
|
|
|
|
|
"Return whether PKG-NAME at VERSION can be activated.
|
|
|
|
|
|
The decision is made according to `package-load-list'.
|
|
|
|
|
|
Return nil if the package can be activated.
|
|
|
|
|
|
Return t if the package is completely disabled.
|
|
|
|
|
|
Return the max version (as a string) if the package is held at a lower version."
|
|
|
|
|
|
(let ((force (assq pkg-name package-load-list)))
|
|
|
|
|
|
(cond ((null force) (not (memq 'all package-load-list)))
|
|
|
|
|
|
((null (setq force (cadr force))) t) ; disabled
|
|
|
|
|
|
((eq force t) nil)
|
|
|
|
|
|
((stringp force) ; held
|
|
|
|
|
|
(unless (version-list-= version (version-to-list force))
|
|
|
|
|
|
force))
|
Go back to grave quoting in source-code docstrings etc.
This reverts almost all my recent changes to use curved quotes
in docstrings and/or strings used for error diagnostics.
There are a few exceptions, e.g., Bahá’í proper names.
* admin/unidata/unidata-gen.el (unidata-gen-table):
* lisp/abbrev.el (expand-region-abbrevs):
* lisp/align.el (align-region):
* lisp/allout.el (allout-mode, allout-solicit-alternate-bullet)
(outlineify-sticky):
* lisp/apropos.el (apropos-library):
* lisp/bookmark.el (bookmark-default-annotation-text):
* lisp/button.el (button-category-symbol, button-put)
(make-text-button):
* lisp/calc/calc-aent.el (math-read-if, math-read-factor):
* lisp/calc/calc-embed.el (calc-do-embedded):
* lisp/calc/calc-ext.el (calc-user-function-list):
* lisp/calc/calc-graph.el (calc-graph-show-dumb):
* lisp/calc/calc-help.el (calc-describe-key)
(calc-describe-thing, calc-full-help):
* lisp/calc/calc-lang.el (calc-c-language)
(math-parse-fortran-vector-end, math-parse-tex-sum)
(math-parse-eqn-matrix, math-parse-eqn-prime)
(calc-yacas-language, calc-maxima-language, calc-giac-language)
(math-read-giac-subscr, math-read-math-subscr)
(math-read-big-rec, math-read-big-balance):
* lisp/calc/calc-misc.el (calc-help, report-calc-bug):
* lisp/calc/calc-mode.el (calc-auto-why, calc-save-modes)
(calc-auto-recompute):
* lisp/calc/calc-prog.el (calc-fix-token-name)
(calc-read-parse-table-part, calc-user-define-invocation)
(math-do-arg-check):
* lisp/calc/calc-store.el (calc-edit-variable):
* lisp/calc/calc-units.el (math-build-units-table-buffer):
* lisp/calc/calc-vec.el (math-read-brackets):
* lisp/calc/calc-yank.el (calc-edit-mode):
* lisp/calc/calc.el (calc, calc-do, calc-user-invocation):
* lisp/calendar/appt.el (appt-display-message):
* lisp/calendar/diary-lib.el (diary-check-diary-file)
(diary-mail-entries, diary-from-outlook):
* lisp/calendar/icalendar.el (icalendar-export-region)
(icalendar--convert-float-to-ical)
(icalendar--convert-date-to-ical)
(icalendar--convert-ical-to-diary)
(icalendar--convert-recurring-to-diary)
(icalendar--add-diary-entry):
* lisp/calendar/time-date.el (format-seconds):
* lisp/calendar/timeclock.el (timeclock-mode-line-display)
(timeclock-make-hours-explicit, timeclock-log-data):
* lisp/calendar/todo-mode.el (todo-prefix, todo-delete-category)
(todo-item-mark, todo-check-format)
(todo-insert-item--next-param, todo-edit-item--next-key)
(todo-mode):
* lisp/cedet/ede/pmake.el (ede-proj-makefile-insert-dist-rules):
* lisp/cedet/mode-local.el (describe-mode-local-overload)
(mode-local-print-binding, mode-local-describe-bindings-2):
* lisp/cedet/semantic/complete.el (semantic-displayor-show-request):
* lisp/cedet/srecode/srt-mode.el (srecode-macro-help):
* lisp/cus-start.el (standard):
* lisp/cus-theme.el (describe-theme-1):
* lisp/custom.el (custom-add-dependencies, custom-check-theme)
(custom--sort-vars-1, load-theme):
* lisp/descr-text.el (describe-text-properties-1, describe-char):
* lisp/dired-x.el (dired-do-run-mail):
* lisp/dired.el (dired-log):
* lisp/emacs-lisp/advice.el (ad-read-advised-function)
(ad-read-advice-class, ad-read-advice-name, ad-enable-advice)
(ad-disable-advice, ad-remove-advice, ad-set-argument)
(ad-set-arguments, ad--defalias-fset, ad-activate)
(ad-deactivate):
* lisp/emacs-lisp/byte-opt.el (byte-compile-inline-expand)
(byte-compile-unfold-lambda, byte-optimize-form-code-walker)
(byte-optimize-while, byte-optimize-apply):
* lisp/emacs-lisp/byte-run.el (defun, defsubst):
* lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode)
(byte-compile-log-file, byte-compile-format-warn)
(byte-compile-nogroup-warn, byte-compile-arglist-warn)
(byte-compile-cl-warn)
(byte-compile-warn-about-unresolved-functions)
(byte-compile-file, byte-compile--declare-var)
(byte-compile-file-form-defmumble, byte-compile-form)
(byte-compile-normal-call, byte-compile-check-variable)
(byte-compile-variable-ref, byte-compile-variable-set)
(byte-compile-subr-wrong-args, byte-compile-setq-default)
(byte-compile-negation-optimizer)
(byte-compile-condition-case--old)
(byte-compile-condition-case--new, byte-compile-save-excursion)
(byte-compile-defvar, byte-compile-autoload)
(byte-compile-lambda-form)
(byte-compile-make-variable-buffer-local, display-call-tree)
(batch-byte-compile):
* lisp/emacs-lisp/cconv.el (cconv-convert, cconv--analyze-use):
* lisp/emacs-lisp/chart.el (chart-space-usage):
* lisp/emacs-lisp/check-declare.el (check-declare-scan)
(check-declare-warn, check-declare-file)
(check-declare-directory):
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine)
(checkdoc-message-text-engine):
* lisp/emacs-lisp/cl-extra.el (cl-parse-integer)
(cl--describe-class):
* lisp/emacs-lisp/cl-generic.el (cl-defgeneric)
(cl--generic-describe, cl-generic-generalizers):
* lisp/emacs-lisp/cl-macs.el (cl--parse-loop-clause, cl-tagbody)
(cl-symbol-macrolet):
* lisp/emacs-lisp/cl.el (cl-unload-function, flet):
* lisp/emacs-lisp/copyright.el (copyright)
(copyright-update-directory):
* lisp/emacs-lisp/edebug.el (edebug-read-list):
* lisp/emacs-lisp/eieio-base.el (eieio-persistent-read):
* lisp/emacs-lisp/eieio-core.el (eieio--slot-override)
(eieio-oref):
* lisp/emacs-lisp/eieio-opt.el (eieio-help-constructor):
* lisp/emacs-lisp/eieio-speedbar.el:
(eieio-speedbar-child-make-tag-lines)
(eieio-speedbar-child-description):
* lisp/emacs-lisp/eieio.el (defclass, change-class):
* lisp/emacs-lisp/elint.el (elint-file, elint-get-top-forms)
(elint-init-form, elint-check-defalias-form)
(elint-check-let-form):
* lisp/emacs-lisp/ert.el (ert-get-test, ert-results-mode-menu)
(ert-results-pop-to-backtrace-for-test-at-point)
(ert-results-pop-to-messages-for-test-at-point)
(ert-results-pop-to-should-forms-for-test-at-point)
(ert-describe-test):
* lisp/emacs-lisp/find-func.el (find-function-search-for-symbol)
(find-function-library):
* lisp/emacs-lisp/generator.el (iter-yield):
* lisp/emacs-lisp/gv.el (gv-define-simple-setter):
* lisp/emacs-lisp/lisp-mnt.el (lm-verify):
* lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning):
* lisp/emacs-lisp/map-ynp.el (map-y-or-n-p):
* lisp/emacs-lisp/nadvice.el (advice--make-docstring)
(advice--make, define-advice):
* lisp/emacs-lisp/package-x.el (package-upload-file):
* lisp/emacs-lisp/package.el (package-version-join)
(package-disabled-p, package-activate-1, package-activate)
(package--download-one-archive)
(package--download-and-read-archives)
(package-compute-transaction, package-install-from-archive)
(package-install, package-install-selected-packages)
(package-delete, package-autoremove, describe-package-1)
(package-install-button-action, package-delete-button-action)
(package-menu-hide-package, package-menu--list-to-prompt)
(package-menu--perform-transaction)
(package-menu--find-and-notify-upgrades):
* lisp/emacs-lisp/pcase.el (pcase-exhaustive, pcase--u1):
* lisp/emacs-lisp/re-builder.el (reb-enter-subexp-mode):
* lisp/emacs-lisp/ring.el (ring-previous, ring-next):
* lisp/emacs-lisp/rx.el (rx-check, rx-anything)
(rx-check-any-string, rx-check-any, rx-check-not, rx-=)
(rx-repeat, rx-check-backref, rx-syntax, rx-check-category)
(rx-form):
* lisp/emacs-lisp/smie.el (smie-config-save):
* lisp/emacs-lisp/subr-x.el (internal--check-binding):
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-put-tag):
* lisp/emacs-lisp/testcover.el (testcover-1value):
* lisp/emacs-lisp/timer.el (timer-event-handler):
* lisp/emulation/viper-cmd.el (viper-toggle-parse-sexp-ignore-comments)
(viper-toggle-search-style, viper-kill-buffer)
(viper-brac-function):
* lisp/emulation/viper-macs.el (viper-record-kbd-macro):
* lisp/env.el (setenv):
* lisp/erc/erc-button.el (erc-nick-popup):
* lisp/erc/erc.el (erc-cmd-LOAD, erc-handle-login, english):
* lisp/eshell/em-dirs.el (eshell/cd):
* lisp/eshell/em-glob.el (eshell-glob-regexp)
(eshell-glob-entries):
* lisp/eshell/em-pred.el (eshell-parse-modifiers):
* lisp/eshell/esh-opt.el (eshell-show-usage):
* lisp/facemenu.el (facemenu-add-new-face)
(facemenu-add-new-color):
* lisp/faces.el (read-face-name, read-face-font, describe-face)
(x-resolve-font-name):
* lisp/files-x.el (modify-file-local-variable):
* lisp/files.el (locate-user-emacs-file, find-alternate-file)
(set-auto-mode, hack-one-local-variable--obsolete)
(dir-locals-set-directory-class, write-file, basic-save-buffer)
(delete-directory, copy-directory, recover-session)
(recover-session-finish, insert-directory)
(file-modes-char-to-who, file-modes-symbolic-to-number)
(move-file-to-trash):
* lisp/filesets.el (filesets-add-buffer, filesets-remove-buffer):
* lisp/find-cmd.el (find-generic, find-to-string):
* lisp/finder.el (finder-commentary):
* lisp/font-lock.el (font-lock-fontify-buffer):
* lisp/format.el (format-write-file, format-find-file)
(format-insert-file):
* lisp/frame.el (get-device-terminal, select-frame-by-name):
* lisp/fringe.el (fringe--check-style):
* lisp/gnus/nnmairix.el (nnmairix-widget-create-query):
* lisp/help-fns.el (help-fns--key-bindings)
(help-fns--compiler-macro, help-fns--parent-mode)
(help-fns--obsolete, help-fns--interactive-only)
(describe-function-1, describe-variable):
* lisp/help.el (describe-mode)
(describe-minor-mode-from-indicator):
* lisp/image.el (image-type):
* lisp/international/ccl.el (ccl-dump):
* lisp/international/fontset.el (x-must-resolve-font-name):
* lisp/international/mule-cmds.el (prefer-coding-system)
(select-safe-coding-system-interactively)
(select-safe-coding-system, activate-input-method)
(toggle-input-method, describe-current-input-method)
(describe-language-environment):
* lisp/international/mule-conf.el (code-offset):
* lisp/international/mule-diag.el (describe-character-set)
(list-input-methods-1):
* lisp/mail/feedmail.el (feedmail-run-the-queue):
* lisp/mouse.el (minor-mode-menu-from-indicator):
* lisp/mpc.el (mpc-playlist-rename):
* lisp/msb.el (msb--choose-menu):
* lisp/net/ange-ftp.el (ange-ftp-shell-command):
* lisp/net/imap.el (imap-interactive-login):
* lisp/net/mairix.el (mairix-widget-create-query):
* lisp/net/newst-backend.el (newsticker--sentinel-work):
* lisp/net/newst-treeview.el (newsticker--treeview-load):
* lisp/net/rlogin.el (rlogin):
* lisp/obsolete/iswitchb.el (iswitchb-possible-new-buffer):
* lisp/obsolete/otodo-mode.el (todo-more-important-p):
* lisp/obsolete/pgg-gpg.el (pgg-gpg-process-region):
* lisp/obsolete/pgg-pgp.el (pgg-pgp-process-region):
* lisp/obsolete/pgg-pgp5.el (pgg-pgp5-process-region):
* lisp/org/ob-core.el (org-babel-goto-named-src-block)
(org-babel-goto-named-result):
* lisp/org/ob-fortran.el (org-babel-fortran-ensure-main-wrap):
* lisp/org/ob-ref.el (org-babel-ref-resolve):
* lisp/org/org-agenda.el (org-agenda-prepare):
* lisp/org/org-clock.el (org-clock-notify-once-if-expired)
(org-clock-resolve):
* lisp/org/org-ctags.el (org-ctags-ask-rebuild-tags-file-then-find-tag):
* lisp/org/org-feed.el (org-feed-parse-atom-entry):
* lisp/org/org-habit.el (org-habit-parse-todo):
* lisp/org/org-mouse.el (org-mouse-popup-global-menu)
(org-mouse-context-menu):
* lisp/org/org-table.el (org-table-edit-formulas):
* lisp/org/ox.el (org-export-async-start):
* lisp/proced.el (proced-log):
* lisp/progmodes/ada-mode.el (ada-get-indent-case)
(ada-check-matching-start, ada-goto-matching-start):
* lisp/progmodes/ada-prj.el (ada-prj-display-page):
* lisp/progmodes/ada-xref.el (ada-find-executable):
* lisp/progmodes/ebrowse.el (ebrowse-tags-apropos):
* lisp/progmodes/etags.el (etags-tags-apropos-additional):
* lisp/progmodes/flymake.el (flymake-parse-err-lines)
(flymake-start-syntax-check-process):
* lisp/progmodes/python.el (python-shell-get-process-or-error)
(python-define-auxiliary-skeleton):
* lisp/progmodes/sql.el (sql-comint):
* lisp/progmodes/verilog-mode.el (verilog-load-file-at-point):
* lisp/progmodes/vhdl-mode.el (vhdl-widget-directory-validate):
* lisp/recentf.el (recentf-open-files):
* lisp/replace.el (query-replace-read-from)
(occur-after-change-function, occur-1):
* lisp/scroll-bar.el (scroll-bar-columns):
* lisp/server.el (server-get-auth-key):
* lisp/simple.el (execute-extended-command)
(undo-outer-limit-truncate, list-processes--refresh)
(compose-mail, set-variable, choose-completion-string)
(define-alternatives):
* lisp/startup.el (site-run-file, tty-handle-args, command-line)
(command-line-1):
* lisp/subr.el (noreturn, define-error, add-to-list)
(read-char-choice, version-to-list):
* lisp/term/common-win.el (x-handle-xrm-switch)
(x-handle-name-switch, x-handle-args):
* lisp/term/x-win.el (x-handle-parent-id, x-handle-smid):
* lisp/textmodes/reftex-ref.el (reftex-label):
* lisp/textmodes/reftex-toc.el (reftex-toc-rename-label):
* lisp/textmodes/two-column.el (2C-split):
* lisp/tutorial.el (tutorial--describe-nonstandard-key)
(tutorial--find-changed-keys):
* lisp/type-break.el (type-break-noninteractive-query):
* lisp/wdired.el (wdired-do-renames, wdired-do-symlink-changes)
(wdired-do-perm-changes):
* lisp/whitespace.el (whitespace-report-region):
Prefer grave quoting in source-code strings used to generate help
and diagnostics.
* lisp/faces.el (face-documentation):
No need to convert quotes, since the result is a docstring.
* lisp/info.el (Info-virtual-index-find-node)
(Info-virtual-index, info-apropos):
Simplify by generating only curved quotes, since info files are
typically that ways nowadays anyway.
* lisp/international/mule-diag.el (list-input-methods):
Don’t assume text quoting style is curved.
* lisp/org/org-bibtex.el (org-bibtex-fields):
Revert my recent changes, going back to the old quoting style.
2015-09-07 15:41:44 +00:00
|
|
|
|
(t (error "Invalid element in `package-load-list'")))))
|
2010-06-19 22:36:51 +00:00
|
|
|
|
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(defun package-built-in-p (package &optional min-version)
|
2017-05-19 13:42:57 +00:00
|
|
|
|
"Return non-nil if PACKAGE is built-in to Emacs.
|
2015-03-28 20:36:14 +00:00
|
|
|
|
Optional arg MIN-VERSION, if non-nil, should be a version list
|
|
|
|
|
|
specifying the minimum acceptable version."
|
|
|
|
|
|
(if (package-desc-p package) ;; was built-in and then was converted
|
|
|
|
|
|
(eq 'builtin (package-desc-dir package))
|
|
|
|
|
|
(let ((bi (assq package package--builtin-versions)))
|
|
|
|
|
|
(cond
|
|
|
|
|
|
(bi (version-list-<= min-version (cdr bi)))
|
|
|
|
|
|
((remove 0 min-version) nil)
|
|
|
|
|
|
(t
|
|
|
|
|
|
(require 'finder-inf nil t) ; For `package--builtins'.
|
|
|
|
|
|
(assq package package--builtins))))))
|
|
|
|
|
|
|
2015-09-07 22:51:42 +00:00
|
|
|
|
(defun package--autoloads-file-name (pkg-desc)
|
|
|
|
|
|
"Return the absolute name of the autoloads file, sans extension.
|
|
|
|
|
|
PKG-DESC is a `package-desc' object."
|
|
|
|
|
|
(expand-file-name
|
|
|
|
|
|
(format "%s-autoloads" (package-desc-name pkg-desc))
|
|
|
|
|
|
(package-desc-dir pkg-desc)))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package--activate-autoloads-and-load-path (pkg-desc)
|
|
|
|
|
|
"Load the autoloads file and add package dir to `load-path'.
|
|
|
|
|
|
PKG-DESC is a `package-desc' object."
|
|
|
|
|
|
(let* ((old-lp load-path)
|
|
|
|
|
|
(pkg-dir (package-desc-dir pkg-desc))
|
|
|
|
|
|
(pkg-dir-dir (file-name-as-directory pkg-dir)))
|
|
|
|
|
|
(with-demoted-errors "Error loading autoloads: %s"
|
|
|
|
|
|
(load (package--autoloads-file-name pkg-desc) nil t))
|
|
|
|
|
|
(when (and (eq old-lp load-path)
|
|
|
|
|
|
(not (or (member pkg-dir load-path)
|
|
|
|
|
|
(member pkg-dir-dir load-path))))
|
|
|
|
|
|
;; Old packages don't add themselves to the `load-path', so we have to
|
|
|
|
|
|
;; do it ourselves.
|
|
|
|
|
|
(push pkg-dir load-path))))
|
|
|
|
|
|
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(defvar Info-directory-list)
|
|
|
|
|
|
(declare-function info-initialize "info" ())
|
|
|
|
|
|
|
2018-03-26 13:41:30 +00:00
|
|
|
|
(defvar package--quickstart-pkgs t
|
|
|
|
|
|
"If set to a list, we're computing the set of pkgs to activate.")
|
|
|
|
|
|
|
2015-12-03 14:50:09 +00:00
|
|
|
|
(defun package--load-files-for-activation (pkg-desc reload)
|
|
|
|
|
|
"Load files for activating a package given by PKG-DESC.
|
|
|
|
|
|
Load the autoloads file, and ensure `load-path' is setup. If
|
|
|
|
|
|
RELOAD is non-nil, also load all files in the package that
|
|
|
|
|
|
correspond to previously loaded files."
|
2018-10-18 16:17:52 +00:00
|
|
|
|
(let* ((loaded-files-list
|
|
|
|
|
|
(when reload
|
|
|
|
|
|
(package--list-loaded-files (package-desc-dir pkg-desc)))))
|
2015-12-03 14:50:09 +00:00
|
|
|
|
;; Add to load path, add autoloads, and activate the package.
|
|
|
|
|
|
(package--activate-autoloads-and-load-path pkg-desc)
|
|
|
|
|
|
;; Call `load' on all files in `package-desc-dir' already present in
|
|
|
|
|
|
;; `load-history'. This is done so that macros in these files are updated
|
|
|
|
|
|
;; to their new definitions. If another package is being installed which
|
|
|
|
|
|
;; depends on this new definition, not doing this update would cause
|
|
|
|
|
|
;; compilation errors and break the installation.
|
|
|
|
|
|
(with-demoted-errors "Error in package--load-files-for-activation: %s"
|
|
|
|
|
|
(mapc (lambda (feature) (load feature nil t))
|
|
|
|
|
|
;; Skip autoloads file since we already evaluated it above.
|
|
|
|
|
|
(remove (file-truename (package--autoloads-file-name pkg-desc))
|
|
|
|
|
|
loaded-files-list)))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package-activate-1 (pkg-desc &optional reload deps)
|
2014-12-18 10:10:34 +00:00
|
|
|
|
"Activate package given by PKG-DESC, even if it was already active.
|
2015-12-03 14:50:09 +00:00
|
|
|
|
If DEPS is non-nil, also activate its dependencies (unless they
|
|
|
|
|
|
are already activated).
|
2014-12-18 10:10:34 +00:00
|
|
|
|
If RELOAD is non-nil, also `load' any files inside the package which
|
|
|
|
|
|
correspond to previously loaded files (those returned by
|
|
|
|
|
|
`package--list-loaded-files')."
|
2013-06-12 00:49:33 +00:00
|
|
|
|
(let* ((name (package-desc-name pkg-desc))
|
2015-09-07 22:51:42 +00:00
|
|
|
|
(pkg-dir (package-desc-dir pkg-desc)))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(unless pkg-dir
|
Go back to grave quoting in source-code docstrings etc.
This reverts almost all my recent changes to use curved quotes
in docstrings and/or strings used for error diagnostics.
There are a few exceptions, e.g., Bahá’í proper names.
* admin/unidata/unidata-gen.el (unidata-gen-table):
* lisp/abbrev.el (expand-region-abbrevs):
* lisp/align.el (align-region):
* lisp/allout.el (allout-mode, allout-solicit-alternate-bullet)
(outlineify-sticky):
* lisp/apropos.el (apropos-library):
* lisp/bookmark.el (bookmark-default-annotation-text):
* lisp/button.el (button-category-symbol, button-put)
(make-text-button):
* lisp/calc/calc-aent.el (math-read-if, math-read-factor):
* lisp/calc/calc-embed.el (calc-do-embedded):
* lisp/calc/calc-ext.el (calc-user-function-list):
* lisp/calc/calc-graph.el (calc-graph-show-dumb):
* lisp/calc/calc-help.el (calc-describe-key)
(calc-describe-thing, calc-full-help):
* lisp/calc/calc-lang.el (calc-c-language)
(math-parse-fortran-vector-end, math-parse-tex-sum)
(math-parse-eqn-matrix, math-parse-eqn-prime)
(calc-yacas-language, calc-maxima-language, calc-giac-language)
(math-read-giac-subscr, math-read-math-subscr)
(math-read-big-rec, math-read-big-balance):
* lisp/calc/calc-misc.el (calc-help, report-calc-bug):
* lisp/calc/calc-mode.el (calc-auto-why, calc-save-modes)
(calc-auto-recompute):
* lisp/calc/calc-prog.el (calc-fix-token-name)
(calc-read-parse-table-part, calc-user-define-invocation)
(math-do-arg-check):
* lisp/calc/calc-store.el (calc-edit-variable):
* lisp/calc/calc-units.el (math-build-units-table-buffer):
* lisp/calc/calc-vec.el (math-read-brackets):
* lisp/calc/calc-yank.el (calc-edit-mode):
* lisp/calc/calc.el (calc, calc-do, calc-user-invocation):
* lisp/calendar/appt.el (appt-display-message):
* lisp/calendar/diary-lib.el (diary-check-diary-file)
(diary-mail-entries, diary-from-outlook):
* lisp/calendar/icalendar.el (icalendar-export-region)
(icalendar--convert-float-to-ical)
(icalendar--convert-date-to-ical)
(icalendar--convert-ical-to-diary)
(icalendar--convert-recurring-to-diary)
(icalendar--add-diary-entry):
* lisp/calendar/time-date.el (format-seconds):
* lisp/calendar/timeclock.el (timeclock-mode-line-display)
(timeclock-make-hours-explicit, timeclock-log-data):
* lisp/calendar/todo-mode.el (todo-prefix, todo-delete-category)
(todo-item-mark, todo-check-format)
(todo-insert-item--next-param, todo-edit-item--next-key)
(todo-mode):
* lisp/cedet/ede/pmake.el (ede-proj-makefile-insert-dist-rules):
* lisp/cedet/mode-local.el (describe-mode-local-overload)
(mode-local-print-binding, mode-local-describe-bindings-2):
* lisp/cedet/semantic/complete.el (semantic-displayor-show-request):
* lisp/cedet/srecode/srt-mode.el (srecode-macro-help):
* lisp/cus-start.el (standard):
* lisp/cus-theme.el (describe-theme-1):
* lisp/custom.el (custom-add-dependencies, custom-check-theme)
(custom--sort-vars-1, load-theme):
* lisp/descr-text.el (describe-text-properties-1, describe-char):
* lisp/dired-x.el (dired-do-run-mail):
* lisp/dired.el (dired-log):
* lisp/emacs-lisp/advice.el (ad-read-advised-function)
(ad-read-advice-class, ad-read-advice-name, ad-enable-advice)
(ad-disable-advice, ad-remove-advice, ad-set-argument)
(ad-set-arguments, ad--defalias-fset, ad-activate)
(ad-deactivate):
* lisp/emacs-lisp/byte-opt.el (byte-compile-inline-expand)
(byte-compile-unfold-lambda, byte-optimize-form-code-walker)
(byte-optimize-while, byte-optimize-apply):
* lisp/emacs-lisp/byte-run.el (defun, defsubst):
* lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode)
(byte-compile-log-file, byte-compile-format-warn)
(byte-compile-nogroup-warn, byte-compile-arglist-warn)
(byte-compile-cl-warn)
(byte-compile-warn-about-unresolved-functions)
(byte-compile-file, byte-compile--declare-var)
(byte-compile-file-form-defmumble, byte-compile-form)
(byte-compile-normal-call, byte-compile-check-variable)
(byte-compile-variable-ref, byte-compile-variable-set)
(byte-compile-subr-wrong-args, byte-compile-setq-default)
(byte-compile-negation-optimizer)
(byte-compile-condition-case--old)
(byte-compile-condition-case--new, byte-compile-save-excursion)
(byte-compile-defvar, byte-compile-autoload)
(byte-compile-lambda-form)
(byte-compile-make-variable-buffer-local, display-call-tree)
(batch-byte-compile):
* lisp/emacs-lisp/cconv.el (cconv-convert, cconv--analyze-use):
* lisp/emacs-lisp/chart.el (chart-space-usage):
* lisp/emacs-lisp/check-declare.el (check-declare-scan)
(check-declare-warn, check-declare-file)
(check-declare-directory):
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine)
(checkdoc-message-text-engine):
* lisp/emacs-lisp/cl-extra.el (cl-parse-integer)
(cl--describe-class):
* lisp/emacs-lisp/cl-generic.el (cl-defgeneric)
(cl--generic-describe, cl-generic-generalizers):
* lisp/emacs-lisp/cl-macs.el (cl--parse-loop-clause, cl-tagbody)
(cl-symbol-macrolet):
* lisp/emacs-lisp/cl.el (cl-unload-function, flet):
* lisp/emacs-lisp/copyright.el (copyright)
(copyright-update-directory):
* lisp/emacs-lisp/edebug.el (edebug-read-list):
* lisp/emacs-lisp/eieio-base.el (eieio-persistent-read):
* lisp/emacs-lisp/eieio-core.el (eieio--slot-override)
(eieio-oref):
* lisp/emacs-lisp/eieio-opt.el (eieio-help-constructor):
* lisp/emacs-lisp/eieio-speedbar.el:
(eieio-speedbar-child-make-tag-lines)
(eieio-speedbar-child-description):
* lisp/emacs-lisp/eieio.el (defclass, change-class):
* lisp/emacs-lisp/elint.el (elint-file, elint-get-top-forms)
(elint-init-form, elint-check-defalias-form)
(elint-check-let-form):
* lisp/emacs-lisp/ert.el (ert-get-test, ert-results-mode-menu)
(ert-results-pop-to-backtrace-for-test-at-point)
(ert-results-pop-to-messages-for-test-at-point)
(ert-results-pop-to-should-forms-for-test-at-point)
(ert-describe-test):
* lisp/emacs-lisp/find-func.el (find-function-search-for-symbol)
(find-function-library):
* lisp/emacs-lisp/generator.el (iter-yield):
* lisp/emacs-lisp/gv.el (gv-define-simple-setter):
* lisp/emacs-lisp/lisp-mnt.el (lm-verify):
* lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning):
* lisp/emacs-lisp/map-ynp.el (map-y-or-n-p):
* lisp/emacs-lisp/nadvice.el (advice--make-docstring)
(advice--make, define-advice):
* lisp/emacs-lisp/package-x.el (package-upload-file):
* lisp/emacs-lisp/package.el (package-version-join)
(package-disabled-p, package-activate-1, package-activate)
(package--download-one-archive)
(package--download-and-read-archives)
(package-compute-transaction, package-install-from-archive)
(package-install, package-install-selected-packages)
(package-delete, package-autoremove, describe-package-1)
(package-install-button-action, package-delete-button-action)
(package-menu-hide-package, package-menu--list-to-prompt)
(package-menu--perform-transaction)
(package-menu--find-and-notify-upgrades):
* lisp/emacs-lisp/pcase.el (pcase-exhaustive, pcase--u1):
* lisp/emacs-lisp/re-builder.el (reb-enter-subexp-mode):
* lisp/emacs-lisp/ring.el (ring-previous, ring-next):
* lisp/emacs-lisp/rx.el (rx-check, rx-anything)
(rx-check-any-string, rx-check-any, rx-check-not, rx-=)
(rx-repeat, rx-check-backref, rx-syntax, rx-check-category)
(rx-form):
* lisp/emacs-lisp/smie.el (smie-config-save):
* lisp/emacs-lisp/subr-x.el (internal--check-binding):
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-put-tag):
* lisp/emacs-lisp/testcover.el (testcover-1value):
* lisp/emacs-lisp/timer.el (timer-event-handler):
* lisp/emulation/viper-cmd.el (viper-toggle-parse-sexp-ignore-comments)
(viper-toggle-search-style, viper-kill-buffer)
(viper-brac-function):
* lisp/emulation/viper-macs.el (viper-record-kbd-macro):
* lisp/env.el (setenv):
* lisp/erc/erc-button.el (erc-nick-popup):
* lisp/erc/erc.el (erc-cmd-LOAD, erc-handle-login, english):
* lisp/eshell/em-dirs.el (eshell/cd):
* lisp/eshell/em-glob.el (eshell-glob-regexp)
(eshell-glob-entries):
* lisp/eshell/em-pred.el (eshell-parse-modifiers):
* lisp/eshell/esh-opt.el (eshell-show-usage):
* lisp/facemenu.el (facemenu-add-new-face)
(facemenu-add-new-color):
* lisp/faces.el (read-face-name, read-face-font, describe-face)
(x-resolve-font-name):
* lisp/files-x.el (modify-file-local-variable):
* lisp/files.el (locate-user-emacs-file, find-alternate-file)
(set-auto-mode, hack-one-local-variable--obsolete)
(dir-locals-set-directory-class, write-file, basic-save-buffer)
(delete-directory, copy-directory, recover-session)
(recover-session-finish, insert-directory)
(file-modes-char-to-who, file-modes-symbolic-to-number)
(move-file-to-trash):
* lisp/filesets.el (filesets-add-buffer, filesets-remove-buffer):
* lisp/find-cmd.el (find-generic, find-to-string):
* lisp/finder.el (finder-commentary):
* lisp/font-lock.el (font-lock-fontify-buffer):
* lisp/format.el (format-write-file, format-find-file)
(format-insert-file):
* lisp/frame.el (get-device-terminal, select-frame-by-name):
* lisp/fringe.el (fringe--check-style):
* lisp/gnus/nnmairix.el (nnmairix-widget-create-query):
* lisp/help-fns.el (help-fns--key-bindings)
(help-fns--compiler-macro, help-fns--parent-mode)
(help-fns--obsolete, help-fns--interactive-only)
(describe-function-1, describe-variable):
* lisp/help.el (describe-mode)
(describe-minor-mode-from-indicator):
* lisp/image.el (image-type):
* lisp/international/ccl.el (ccl-dump):
* lisp/international/fontset.el (x-must-resolve-font-name):
* lisp/international/mule-cmds.el (prefer-coding-system)
(select-safe-coding-system-interactively)
(select-safe-coding-system, activate-input-method)
(toggle-input-method, describe-current-input-method)
(describe-language-environment):
* lisp/international/mule-conf.el (code-offset):
* lisp/international/mule-diag.el (describe-character-set)
(list-input-methods-1):
* lisp/mail/feedmail.el (feedmail-run-the-queue):
* lisp/mouse.el (minor-mode-menu-from-indicator):
* lisp/mpc.el (mpc-playlist-rename):
* lisp/msb.el (msb--choose-menu):
* lisp/net/ange-ftp.el (ange-ftp-shell-command):
* lisp/net/imap.el (imap-interactive-login):
* lisp/net/mairix.el (mairix-widget-create-query):
* lisp/net/newst-backend.el (newsticker--sentinel-work):
* lisp/net/newst-treeview.el (newsticker--treeview-load):
* lisp/net/rlogin.el (rlogin):
* lisp/obsolete/iswitchb.el (iswitchb-possible-new-buffer):
* lisp/obsolete/otodo-mode.el (todo-more-important-p):
* lisp/obsolete/pgg-gpg.el (pgg-gpg-process-region):
* lisp/obsolete/pgg-pgp.el (pgg-pgp-process-region):
* lisp/obsolete/pgg-pgp5.el (pgg-pgp5-process-region):
* lisp/org/ob-core.el (org-babel-goto-named-src-block)
(org-babel-goto-named-result):
* lisp/org/ob-fortran.el (org-babel-fortran-ensure-main-wrap):
* lisp/org/ob-ref.el (org-babel-ref-resolve):
* lisp/org/org-agenda.el (org-agenda-prepare):
* lisp/org/org-clock.el (org-clock-notify-once-if-expired)
(org-clock-resolve):
* lisp/org/org-ctags.el (org-ctags-ask-rebuild-tags-file-then-find-tag):
* lisp/org/org-feed.el (org-feed-parse-atom-entry):
* lisp/org/org-habit.el (org-habit-parse-todo):
* lisp/org/org-mouse.el (org-mouse-popup-global-menu)
(org-mouse-context-menu):
* lisp/org/org-table.el (org-table-edit-formulas):
* lisp/org/ox.el (org-export-async-start):
* lisp/proced.el (proced-log):
* lisp/progmodes/ada-mode.el (ada-get-indent-case)
(ada-check-matching-start, ada-goto-matching-start):
* lisp/progmodes/ada-prj.el (ada-prj-display-page):
* lisp/progmodes/ada-xref.el (ada-find-executable):
* lisp/progmodes/ebrowse.el (ebrowse-tags-apropos):
* lisp/progmodes/etags.el (etags-tags-apropos-additional):
* lisp/progmodes/flymake.el (flymake-parse-err-lines)
(flymake-start-syntax-check-process):
* lisp/progmodes/python.el (python-shell-get-process-or-error)
(python-define-auxiliary-skeleton):
* lisp/progmodes/sql.el (sql-comint):
* lisp/progmodes/verilog-mode.el (verilog-load-file-at-point):
* lisp/progmodes/vhdl-mode.el (vhdl-widget-directory-validate):
* lisp/recentf.el (recentf-open-files):
* lisp/replace.el (query-replace-read-from)
(occur-after-change-function, occur-1):
* lisp/scroll-bar.el (scroll-bar-columns):
* lisp/server.el (server-get-auth-key):
* lisp/simple.el (execute-extended-command)
(undo-outer-limit-truncate, list-processes--refresh)
(compose-mail, set-variable, choose-completion-string)
(define-alternatives):
* lisp/startup.el (site-run-file, tty-handle-args, command-line)
(command-line-1):
* lisp/subr.el (noreturn, define-error, add-to-list)
(read-char-choice, version-to-list):
* lisp/term/common-win.el (x-handle-xrm-switch)
(x-handle-name-switch, x-handle-args):
* lisp/term/x-win.el (x-handle-parent-id, x-handle-smid):
* lisp/textmodes/reftex-ref.el (reftex-label):
* lisp/textmodes/reftex-toc.el (reftex-toc-rename-label):
* lisp/textmodes/two-column.el (2C-split):
* lisp/tutorial.el (tutorial--describe-nonstandard-key)
(tutorial--find-changed-keys):
* lisp/type-break.el (type-break-noninteractive-query):
* lisp/wdired.el (wdired-do-renames, wdired-do-symlink-changes)
(wdired-do-perm-changes):
* lisp/whitespace.el (whitespace-report-region):
Prefer grave quoting in source-code strings used to generate help
and diagnostics.
* lisp/faces.el (face-documentation):
No need to convert quotes, since the result is a docstring.
* lisp/info.el (Info-virtual-index-find-node)
(Info-virtual-index, info-apropos):
Simplify by generating only curved quotes, since info files are
typically that ways nowadays anyway.
* lisp/international/mule-diag.el (list-input-methods):
Don’t assume text quoting style is curved.
* lisp/org/org-bibtex.el (org-bibtex-fields):
Revert my recent changes, going back to the old quoting style.
2015-09-07 15:41:44 +00:00
|
|
|
|
(error "Internal error: unable to find directory for `%s'"
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(package-desc-full-name pkg-desc)))
|
2017-08-25 06:10:53 +00:00
|
|
|
|
(catch 'exit
|
|
|
|
|
|
;; Activate its dependencies recursively.
|
|
|
|
|
|
;; FIXME: This doesn't check whether the activated version is the
|
|
|
|
|
|
;; required version.
|
|
|
|
|
|
(when deps
|
|
|
|
|
|
(dolist (req (package-desc-reqs pkg-desc))
|
|
|
|
|
|
(unless (package-activate (car req))
|
|
|
|
|
|
(message "Unable to activate package `%s'.\nRequired package `%s-%s' is unavailable"
|
|
|
|
|
|
name (car req) (package-version-join (cadr req)))
|
|
|
|
|
|
(throw 'exit nil))))
|
2018-03-26 13:41:30 +00:00
|
|
|
|
(if (listp package--quickstart-pkgs)
|
|
|
|
|
|
;; We're only collecting the set of packages to activate!
|
|
|
|
|
|
(push pkg-desc package--quickstart-pkgs)
|
|
|
|
|
|
(package--load-files-for-activation pkg-desc reload))
|
2017-08-25 06:10:53 +00:00
|
|
|
|
;; Add info node.
|
|
|
|
|
|
(when (file-exists-p (expand-file-name "dir" pkg-dir))
|
|
|
|
|
|
;; FIXME: not the friendliest, but simple.
|
|
|
|
|
|
(require 'info)
|
|
|
|
|
|
(info-initialize)
|
|
|
|
|
|
(push pkg-dir Info-directory-list))
|
|
|
|
|
|
(push name package-activated-list)
|
|
|
|
|
|
;; Don't return nil.
|
|
|
|
|
|
t)))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2014-12-18 20:23:15 +00:00
|
|
|
|
(declare-function find-library-name "find-func" (library))
|
2015-03-28 20:36:14 +00:00
|
|
|
|
|
2014-12-13 11:48:08 +00:00
|
|
|
|
(defun package--list-loaded-files (dir)
|
|
|
|
|
|
"Recursively list all files in DIR which correspond to loaded features.
|
|
|
|
|
|
Returns the `file-name-sans-extension' of each file, relative to
|
|
|
|
|
|
DIR, sorted by most recently loaded last."
|
2014-12-17 21:57:09 +00:00
|
|
|
|
(let* ((history (delq nil
|
|
|
|
|
|
(mapcar (lambda (x)
|
|
|
|
|
|
(let ((f (car x)))
|
2019-03-01 09:44:52 +00:00
|
|
|
|
(and (stringp f)
|
|
|
|
|
|
(file-name-sans-extension f))))
|
2014-12-17 21:57:09 +00:00
|
|
|
|
load-history)))
|
2014-12-13 11:48:08 +00:00
|
|
|
|
(dir (file-truename dir))
|
|
|
|
|
|
;; List all files that have already been loaded.
|
|
|
|
|
|
(list-of-conflicts
|
2014-12-17 21:57:09 +00:00
|
|
|
|
(delq
|
2014-12-13 11:48:08 +00:00
|
|
|
|
nil
|
|
|
|
|
|
(mapcar
|
|
|
|
|
|
(lambda (x) (let* ((file (file-relative-name x dir))
|
|
|
|
|
|
;; Previously loaded file, if any.
|
|
|
|
|
|
(previous
|
|
|
|
|
|
(ignore-errors
|
|
|
|
|
|
(file-name-sans-extension
|
|
|
|
|
|
(file-truename (find-library-name file)))))
|
|
|
|
|
|
(pos (when previous (member previous history))))
|
|
|
|
|
|
;; Return (RELATIVE-FILENAME . HISTORY-POSITION)
|
|
|
|
|
|
(when pos
|
|
|
|
|
|
(cons (file-name-sans-extension file) (length pos)))))
|
|
|
|
|
|
(directory-files-recursively dir "\\`[^\\.].*\\.el\\'")))))
|
|
|
|
|
|
;; Turn the list of (FILENAME . POS) back into a list of features. Files in
|
|
|
|
|
|
;; subdirectories are returned relative to DIR (so not actually features).
|
|
|
|
|
|
(let ((default-directory (file-name-as-directory dir)))
|
|
|
|
|
|
(mapcar (lambda (x) (file-truename (car x)))
|
|
|
|
|
|
(sort list-of-conflicts
|
|
|
|
|
|
;; Sort the files by ascending HISTORY-POSITION.
|
|
|
|
|
|
(lambda (x y) (< (cdr x) (cdr y))))))))
|
|
|
|
|
|
|
2015-03-28 20:36:14 +00:00
|
|
|
|
;;;; `package-activate'
|
|
|
|
|
|
;; This function activates a newer version of a package if an older
|
|
|
|
|
|
;; one was already activated. It also loads a features of this
|
|
|
|
|
|
;; package which were already loaded.
|
2013-06-21 14:12:56 +00:00
|
|
|
|
(defun package-activate (package &optional force)
|
2015-12-03 14:50:09 +00:00
|
|
|
|
"Activate the package named PACKAGE.
|
2015-03-28 20:36:14 +00:00
|
|
|
|
If FORCE is true, (re-)activate it if it's already activated.
|
|
|
|
|
|
Newer versions are always activated, regardless of FORCE."
|
2013-06-21 14:12:56 +00:00
|
|
|
|
(let ((pkg-descs (cdr (assq package package-alist))))
|
2010-11-03 03:25:36 +00:00
|
|
|
|
;; Check if PACKAGE is available in `package-alist'.
|
2013-06-21 14:12:56 +00:00
|
|
|
|
(while
|
|
|
|
|
|
(when pkg-descs
|
|
|
|
|
|
(let ((available-version (package-desc-version (car pkg-descs))))
|
|
|
|
|
|
(or (package-disabled-p package available-version)
|
|
|
|
|
|
;; Prefer a builtin package.
|
|
|
|
|
|
(package-built-in-p package available-version))))
|
|
|
|
|
|
(setq pkg-descs (cdr pkg-descs)))
|
2010-11-03 03:25:36 +00:00
|
|
|
|
(cond
|
|
|
|
|
|
;; If no such package is found, maybe it's built-in.
|
2013-06-21 14:12:56 +00:00
|
|
|
|
((null pkg-descs)
|
|
|
|
|
|
(package-built-in-p package))
|
2010-11-03 03:25:36 +00:00
|
|
|
|
;; If the package is already activated, just return t.
|
2013-06-21 14:12:56 +00:00
|
|
|
|
((and (memq package package-activated-list) (not force))
|
2010-11-03 03:25:36 +00:00
|
|
|
|
t)
|
|
|
|
|
|
;; Otherwise, proceed with activation.
|
2015-12-03 14:50:09 +00:00
|
|
|
|
(t (package-activate-1 (car pkg-descs) nil 'deps)))))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2015-03-28 20:36:14 +00:00
|
|
|
|
|
|
|
|
|
|
;;; Installation -- Local operations
|
|
|
|
|
|
;; This section contains a variety of features regarding installing a
|
|
|
|
|
|
;; package to/from disk. This includes autoload generation,
|
|
|
|
|
|
;; unpacking, compiling, as well as defining a package from the
|
|
|
|
|
|
;; current buffer.
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2015-03-28 20:36:14 +00:00
|
|
|
|
;;;; Unpacking
|
2011-03-19 18:27:55 +00:00
|
|
|
|
(defvar tar-parse-info)
|
|
|
|
|
|
(declare-function tar-untar-buffer "tar-mode" ())
|
2013-05-11 02:27:28 +00:00
|
|
|
|
(declare-function tar-header-name "tar-mode" (tar-header) t)
|
|
|
|
|
|
(declare-function tar-header-link-type "tar-mode" (tar-header) t)
|
2011-03-19 18:27:55 +00:00
|
|
|
|
|
|
|
|
|
|
(defun package-untar-buffer (dir)
|
2010-06-17 02:08:10 +00:00
|
|
|
|
"Untar the current buffer.
|
2011-03-19 18:27:55 +00:00
|
|
|
|
This uses `tar-untar-buffer' from Tar mode. All files should
|
|
|
|
|
|
untar into a directory named DIR; otherwise, signal an error."
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(require 'tar-mode)
|
2011-03-19 18:27:55 +00:00
|
|
|
|
(tar-mode)
|
|
|
|
|
|
;; Make sure everything extracts into DIR.
|
2012-12-29 11:06:10 +00:00
|
|
|
|
(let ((regexp (concat "\\`" (regexp-quote (expand-file-name dir)) "/"))
|
2016-11-14 03:00:24 +00:00
|
|
|
|
(case-fold-search (file-name-case-insensitive-p dir)))
|
2011-03-19 18:27:55 +00:00
|
|
|
|
(dolist (tar-data tar-parse-info)
|
2012-12-29 11:06:10 +00:00
|
|
|
|
(let ((name (expand-file-name (tar-header-name tar-data))))
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(or (string-match regexp name)
|
|
|
|
|
|
;; Tarballs created by some utilities don't list
|
|
|
|
|
|
;; directories with a trailing slash (Bug#13136).
|
|
|
|
|
|
(and (string-equal dir name)
|
|
|
|
|
|
(eq (tar-header-link-type tar-data) 5))
|
|
|
|
|
|
(error "Package does not untar cleanly into directory %s/" dir)))))
|
2011-03-19 18:27:55 +00:00
|
|
|
|
(tar-untar-buffer))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2014-09-02 19:51:25 +00:00
|
|
|
|
(defun package--alist-to-plist-args (alist)
|
2019-01-22 22:54:29 +00:00
|
|
|
|
(mapcar #'macroexp-quote
|
2014-09-02 19:51:25 +00:00
|
|
|
|
(apply #'nconc
|
|
|
|
|
|
(mapcar (lambda (pair) (list (car pair) (cdr pair))) alist))))
|
2013-06-21 03:08:47 +00:00
|
|
|
|
(defun package-unpack (pkg-desc)
|
|
|
|
|
|
"Install the contents of the current buffer as a package."
|
|
|
|
|
|
(let* ((name (package-desc-name pkg-desc))
|
|
|
|
|
|
(dirname (package-desc-full-name pkg-desc))
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(pkg-dir (expand-file-name dirname package-user-dir)))
|
2013-06-21 03:08:47 +00:00
|
|
|
|
(pcase (package-desc-kind pkg-desc)
|
2018-11-05 00:22:15 +00:00
|
|
|
|
('dir
|
2015-01-13 01:35:46 +00:00
|
|
|
|
(make-directory pkg-dir t)
|
|
|
|
|
|
(let ((file-list
|
|
|
|
|
|
(directory-files
|
|
|
|
|
|
default-directory 'full "\\`[^.].*\\.el\\'" 'nosort)))
|
|
|
|
|
|
(dolist (source-file file-list)
|
|
|
|
|
|
(let ((target-el-file
|
|
|
|
|
|
(expand-file-name (file-name-nondirectory source-file) pkg-dir)))
|
|
|
|
|
|
(copy-file source-file target-el-file t)))
|
|
|
|
|
|
;; Now that the files have been installed, this package is
|
|
|
|
|
|
;; indistinguishable from a `tar' or a `single'. Let's make
|
|
|
|
|
|
;; things simple by ensuring we're one of them.
|
|
|
|
|
|
(setf (package-desc-kind pkg-desc)
|
|
|
|
|
|
(if (> (length file-list) 1) 'tar 'single))))
|
2018-11-05 00:22:15 +00:00
|
|
|
|
('tar
|
2013-06-21 03:08:47 +00:00
|
|
|
|
(make-directory package-user-dir t)
|
|
|
|
|
|
;; FIXME: should we delete PKG-DIR if it exists?
|
|
|
|
|
|
(let* ((default-directory (file-name-as-directory package-user-dir)))
|
|
|
|
|
|
(package-untar-buffer dirname)))
|
2018-11-05 00:22:15 +00:00
|
|
|
|
('single
|
2013-06-21 03:08:47 +00:00
|
|
|
|
(let ((el-file (expand-file-name (format "%s.el" name) pkg-dir)))
|
|
|
|
|
|
(make-directory pkg-dir t)
|
|
|
|
|
|
(package--write-file-no-coding el-file)))
|
|
|
|
|
|
(kind (error "Unknown package kind: %S" kind)))
|
|
|
|
|
|
(package--make-autoloads-and-stuff pkg-desc pkg-dir)
|
|
|
|
|
|
;; Update package-alist.
|
|
|
|
|
|
(let ((new-desc (package-load-descriptor pkg-dir)))
|
2015-12-12 21:43:34 +00:00
|
|
|
|
(unless (equal (package-desc-full-name new-desc)
|
|
|
|
|
|
(package-desc-full-name pkg-desc))
|
|
|
|
|
|
(error "The retrieved package (`%s') doesn't match what the archive offered (`%s')"
|
|
|
|
|
|
(package-desc-full-name new-desc) (package-desc-full-name pkg-desc)))
|
2015-12-03 15:24:51 +00:00
|
|
|
|
;; Activation has to be done before compilation, so that if we're
|
|
|
|
|
|
;; upgrading and macros have changed we load the new definitions
|
|
|
|
|
|
;; before compiling.
|
2017-08-25 06:10:53 +00:00
|
|
|
|
(when (package-activate-1 new-desc :reload :deps)
|
|
|
|
|
|
;; FIXME: Compilation should be done as a separate, optional, step.
|
|
|
|
|
|
;; E.g. for multi-package installs, we should first install all packages
|
|
|
|
|
|
;; and then compile them.
|
|
|
|
|
|
(package--compile new-desc)
|
|
|
|
|
|
;; After compilation, load again any files loaded by
|
|
|
|
|
|
;; `activate-1', so that we use the byte-compiled definitions.
|
|
|
|
|
|
(package--load-files-for-activation new-desc :reload)))
|
2013-06-21 03:08:47 +00:00
|
|
|
|
pkg-dir))
|
|
|
|
|
|
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(defun package-generate-description-file (pkg-desc pkg-file)
|
|
|
|
|
|
"Create the foo-pkg.el file for single-file packages."
|
|
|
|
|
|
(let* ((name (package-desc-name pkg-desc)))
|
|
|
|
|
|
(let ((print-level nil)
|
|
|
|
|
|
(print-quoted t)
|
|
|
|
|
|
(print-length nil))
|
|
|
|
|
|
(write-region
|
|
|
|
|
|
(concat
|
2019-02-08 19:16:31 +00:00
|
|
|
|
";;; Generated package description from "
|
|
|
|
|
|
(replace-regexp-in-string "-pkg\\.el\\'" ".el" pkg-file)
|
|
|
|
|
|
" -*- no-byte-compile: t -*-\n"
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(prin1-to-string
|
|
|
|
|
|
(nconc
|
|
|
|
|
|
(list 'define-package
|
|
|
|
|
|
(symbol-name name)
|
|
|
|
|
|
(package-version-join (package-desc-version pkg-desc))
|
|
|
|
|
|
(package-desc-summary pkg-desc)
|
|
|
|
|
|
(let ((requires (package-desc-reqs pkg-desc)))
|
|
|
|
|
|
(list 'quote
|
|
|
|
|
|
;; Turn version lists into string form.
|
|
|
|
|
|
(mapcar
|
|
|
|
|
|
(lambda (elt)
|
|
|
|
|
|
(list (car elt)
|
|
|
|
|
|
(package-version-join (cadr elt))))
|
|
|
|
|
|
requires))))
|
|
|
|
|
|
(package--alist-to-plist-args
|
|
|
|
|
|
(package-desc-extras pkg-desc))))
|
|
|
|
|
|
"\n")
|
|
|
|
|
|
nil pkg-file nil 'silent))))
|
|
|
|
|
|
|
|
|
|
|
|
;;;; Autoload
|
2017-05-09 17:03:04 +00:00
|
|
|
|
(declare-function autoload-rubric "autoload" (file &optional type feature))
|
|
|
|
|
|
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(defun package-autoload-ensure-default-file (file)
|
|
|
|
|
|
"Make sure that the autoload file FILE exists and if not create it."
|
|
|
|
|
|
(unless (file-exists-p file)
|
2017-05-09 17:03:04 +00:00
|
|
|
|
(require 'autoload)
|
|
|
|
|
|
(write-region (autoload-rubric file "package" nil) nil file nil 'silent))
|
2015-03-28 20:36:14 +00:00
|
|
|
|
file)
|
|
|
|
|
|
|
|
|
|
|
|
(defvar generated-autoload-file)
|
2016-03-01 04:47:12 +00:00
|
|
|
|
(defvar autoload-timestamps)
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(defvar version-control)
|
|
|
|
|
|
|
|
|
|
|
|
(defun package-generate-autoloads (name pkg-dir)
|
|
|
|
|
|
(let* ((auto-name (format "%s-autoloads.el" name))
|
|
|
|
|
|
;;(ignore-name (concat name "-pkg.el"))
|
|
|
|
|
|
(generated-autoload-file (expand-file-name auto-name pkg-dir))
|
2016-03-01 04:47:12 +00:00
|
|
|
|
;; We don't need 'em, and this makes the output reproducible.
|
|
|
|
|
|
(autoload-timestamps nil)
|
2015-04-12 14:03:45 +00:00
|
|
|
|
;; Silence `autoload-generate-file-autoloads'.
|
2015-05-04 13:09:29 +00:00
|
|
|
|
(noninteractive inhibit-message)
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(backup-inhibited t)
|
|
|
|
|
|
(version-control 'never))
|
|
|
|
|
|
(package-autoload-ensure-default-file generated-autoload-file)
|
|
|
|
|
|
(update-directory-autoloads pkg-dir)
|
|
|
|
|
|
(let ((buf (find-buffer-visiting generated-autoload-file)))
|
|
|
|
|
|
(when buf (kill-buffer buf)))
|
|
|
|
|
|
auto-name))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package--make-autoloads-and-stuff (pkg-desc pkg-dir)
|
|
|
|
|
|
"Generate autoloads, description file, etc.. for PKG-DESC installed at PKG-DIR."
|
|
|
|
|
|
(package-generate-autoloads (package-desc-name pkg-desc) pkg-dir)
|
|
|
|
|
|
(let ((desc-file (expand-file-name (package--description-file pkg-dir)
|
|
|
|
|
|
pkg-dir)))
|
|
|
|
|
|
(unless (file-exists-p desc-file)
|
|
|
|
|
|
(package-generate-description-file pkg-desc desc-file)))
|
|
|
|
|
|
;; FIXME: Create foo.info and dir file from foo.texi?
|
|
|
|
|
|
)
|
|
|
|
|
|
|
|
|
|
|
|
;;;; Compilation
|
2015-05-04 13:09:29 +00:00
|
|
|
|
(defvar warning-minimum-level)
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(defun package--compile (pkg-desc)
|
2015-12-12 21:39:19 +00:00
|
|
|
|
"Byte-compile installed package PKG-DESC.
|
|
|
|
|
|
This assumes that `pkg-desc' has already been activated with
|
|
|
|
|
|
`package-activate-1'."
|
2015-05-04 13:09:29 +00:00
|
|
|
|
(let ((warning-minimum-level :error)
|
2015-09-07 22:51:42 +00:00
|
|
|
|
(save-silently inhibit-message)
|
|
|
|
|
|
(load-path load-path))
|
2015-05-04 13:09:29 +00:00
|
|
|
|
(byte-recompile-directory (package-desc-dir pkg-desc) 0 t)))
|
2015-03-28 20:36:14 +00:00
|
|
|
|
|
|
|
|
|
|
;;;; Inferring package from current buffer
|
|
|
|
|
|
(defun package-read-from-string (str)
|
|
|
|
|
|
"Read a Lisp expression from STR.
|
|
|
|
|
|
Signal an error if the entire string was not used."
|
2017-12-03 00:38:36 +00:00
|
|
|
|
(pcase-let ((`(,expr . ,offset) (read-from-string str)))
|
|
|
|
|
|
(condition-case ()
|
|
|
|
|
|
;; The call to `ignore' suppresses a compiler warning.
|
|
|
|
|
|
(progn (ignore (read-from-string str offset))
|
|
|
|
|
|
(error "Can't read whole string"))
|
|
|
|
|
|
(end-of-file expr))))
|
2015-03-28 20:36:14 +00:00
|
|
|
|
|
|
|
|
|
|
(defun package--prepare-dependencies (deps)
|
|
|
|
|
|
"Turn DEPS into an acceptable list of dependencies.
|
|
|
|
|
|
|
|
|
|
|
|
Any parts missing a version string get a default version string
|
|
|
|
|
|
of \"0\" (meaning any version) and an appropriate level of lists
|
|
|
|
|
|
is wrapped around any parts requiring it."
|
|
|
|
|
|
(cond
|
|
|
|
|
|
((not (listp deps))
|
|
|
|
|
|
(error "Invalid requirement specifier: %S" deps))
|
|
|
|
|
|
(t (mapcar (lambda (dep)
|
|
|
|
|
|
(cond
|
|
|
|
|
|
((symbolp dep) `(,dep "0"))
|
|
|
|
|
|
((stringp dep)
|
|
|
|
|
|
(error "Invalid requirement specifier: %S" dep))
|
|
|
|
|
|
((and (listp dep) (null (cdr dep)))
|
|
|
|
|
|
(list (car dep) "0"))
|
|
|
|
|
|
(t dep)))
|
|
|
|
|
|
deps))))
|
|
|
|
|
|
|
|
|
|
|
|
(declare-function lm-header "lisp-mnt" (header))
|
2019-08-31 14:48:59 +00:00
|
|
|
|
(declare-function lm-header-multiline "lisp-mnt" (header))
|
2015-05-01 00:06:15 +00:00
|
|
|
|
(declare-function lm-homepage "lisp-mnt" (&optional file))
|
2019-02-08 19:16:31 +00:00
|
|
|
|
(declare-function lm-keywords-list "lisp-mnt" (&optional file))
|
2015-07-17 22:51:32 +00:00
|
|
|
|
(declare-function lm-maintainer "lisp-mnt" (&optional file))
|
|
|
|
|
|
(declare-function lm-authors "lisp-mnt" (&optional file))
|
2015-03-28 20:36:14 +00:00
|
|
|
|
|
|
|
|
|
|
(defun package-buffer-info ()
|
|
|
|
|
|
"Return a `package-desc' describing the package in the current buffer.
|
|
|
|
|
|
|
|
|
|
|
|
If the buffer does not contain a conforming package, signal an
|
|
|
|
|
|
error. If there is a package, narrow the buffer to the file's
|
|
|
|
|
|
boundaries."
|
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(unless (re-search-forward "^;;; \\([^ ]*\\)\\.el ---[ \t]*\\(.*?\\)[ \t]*\\(-\\*-.*-\\*-[ \t]*\\)?$" nil t)
|
|
|
|
|
|
(error "Package lacks a file header"))
|
|
|
|
|
|
(let ((file-name (match-string-no-properties 1))
|
|
|
|
|
|
(desc (match-string-no-properties 2))
|
|
|
|
|
|
(start (line-beginning-position)))
|
2018-06-20 16:19:00 +00:00
|
|
|
|
;; The terminating comment format could be extended to accept a
|
|
|
|
|
|
;; generic string that is not in English.
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(unless (search-forward (concat ";;; " file-name ".el ends here"))
|
|
|
|
|
|
(error "Package lacks a terminating comment"))
|
|
|
|
|
|
;; Try to include a trailing newline.
|
|
|
|
|
|
(forward-line)
|
|
|
|
|
|
(narrow-to-region start (point))
|
|
|
|
|
|
(require 'lisp-mnt)
|
|
|
|
|
|
;; Use some headers we've invented to drive the process.
|
2019-08-31 14:48:59 +00:00
|
|
|
|
(let* (;; Prefer Package-Version; if defined, the package author
|
2015-03-28 20:36:14 +00:00
|
|
|
|
;; probably wants us to use it. Otherwise try Version.
|
|
|
|
|
|
(pkg-version
|
|
|
|
|
|
(or (package-strip-rcs-id (lm-header "package-version"))
|
|
|
|
|
|
(package-strip-rcs-id (lm-header "version"))))
|
2019-02-08 19:16:31 +00:00
|
|
|
|
(keywords (lm-keywords-list))
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(homepage (lm-homepage)))
|
|
|
|
|
|
(unless pkg-version
|
|
|
|
|
|
(error
|
|
|
|
|
|
"Package lacks a \"Version\" or \"Package-Version\" header"))
|
|
|
|
|
|
(package-desc-from-define
|
|
|
|
|
|
file-name pkg-version desc
|
2019-08-31 14:48:59 +00:00
|
|
|
|
(and-let* ((require-lines (lm-header-multiline "package-requires")))
|
|
|
|
|
|
(package--prepare-dependencies
|
|
|
|
|
|
(package-read-from-string (mapconcat #'identity require-lines " "))))
|
2015-03-28 20:36:14 +00:00
|
|
|
|
:kind 'single
|
2015-07-17 18:24:15 +00:00
|
|
|
|
:url homepage
|
2019-02-08 19:16:31 +00:00
|
|
|
|
:keywords keywords
|
2015-07-17 18:24:15 +00:00
|
|
|
|
:maintainer (lm-maintainer)
|
|
|
|
|
|
:authors (lm-authors)))))
|
2015-03-28 20:36:14 +00:00
|
|
|
|
|
|
|
|
|
|
(defun package--read-pkg-desc (kind)
|
|
|
|
|
|
"Read a `define-package' form in current buffer.
|
|
|
|
|
|
Return the pkg-desc, with desc-kind set to KIND."
|
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(unwind-protect
|
|
|
|
|
|
(let* ((pkg-def-parsed (read (current-buffer)))
|
|
|
|
|
|
(pkg-desc
|
|
|
|
|
|
(when (eq (car pkg-def-parsed) 'define-package)
|
|
|
|
|
|
(apply #'package-desc-from-define
|
|
|
|
|
|
(append (cdr pkg-def-parsed))))))
|
|
|
|
|
|
(when pkg-desc
|
|
|
|
|
|
(setf (package-desc-kind pkg-desc) kind)
|
|
|
|
|
|
pkg-desc))))
|
|
|
|
|
|
|
|
|
|
|
|
(declare-function tar-get-file-descriptor "tar-mode" (file))
|
|
|
|
|
|
(declare-function tar--extract "tar-mode" (descriptor))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package-tar-file-info ()
|
|
|
|
|
|
"Find package information for a tar file.
|
|
|
|
|
|
The return result is a `package-desc'."
|
|
|
|
|
|
(cl-assert (derived-mode-p 'tar-mode))
|
|
|
|
|
|
(let* ((dir-name (file-name-directory
|
|
|
|
|
|
(tar-header-name (car tar-parse-info))))
|
|
|
|
|
|
(desc-file (package--description-file dir-name))
|
|
|
|
|
|
(tar-desc (tar-get-file-descriptor (concat dir-name desc-file))))
|
|
|
|
|
|
(unless tar-desc
|
|
|
|
|
|
(error "No package descriptor file found"))
|
|
|
|
|
|
(with-current-buffer (tar--extract tar-desc)
|
|
|
|
|
|
(unwind-protect
|
|
|
|
|
|
(or (package--read-pkg-desc 'tar)
|
|
|
|
|
|
(error "Can't find define-package in %s"
|
|
|
|
|
|
(tar-header-name tar-desc)))
|
|
|
|
|
|
(kill-buffer (current-buffer))))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package-dir-info ()
|
|
|
|
|
|
"Find package information for a directory.
|
|
|
|
|
|
The return result is a `package-desc'."
|
|
|
|
|
|
(cl-assert (derived-mode-p 'dired-mode))
|
|
|
|
|
|
(let* ((desc-file (package--description-file default-directory)))
|
|
|
|
|
|
(if (file-readable-p desc-file)
|
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
|
(insert-file-contents desc-file)
|
|
|
|
|
|
(package--read-pkg-desc 'dir))
|
|
|
|
|
|
(let ((files (directory-files default-directory t "\\.el\\'" t))
|
|
|
|
|
|
info)
|
|
|
|
|
|
(while files
|
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
|
(insert-file-contents (pop files))
|
|
|
|
|
|
;; When we find the file with the data,
|
|
|
|
|
|
(when (setq info (ignore-errors (package-buffer-info)))
|
|
|
|
|
|
;; stop looping,
|
|
|
|
|
|
(setq files nil)
|
|
|
|
|
|
;; set the 'dir kind,
|
|
|
|
|
|
(setf (package-desc-kind info) 'dir))))
|
2016-06-25 19:57:39 +00:00
|
|
|
|
(unless info
|
|
|
|
|
|
(error "No .el files with package headers in `%s'" default-directory))
|
2015-03-28 20:36:14 +00:00
|
|
|
|
;; and return the info.
|
|
|
|
|
|
info))))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;; Communicating with Archives
|
|
|
|
|
|
;; Set of low-level functions for communicating with archives and
|
|
|
|
|
|
;; signature checking.
|
|
|
|
|
|
(defun package--write-file-no-coding (file-name)
|
|
|
|
|
|
(let ((buffer-file-coding-system 'no-conversion))
|
|
|
|
|
|
(write-region (point-min) (point-max) file-name nil 'silent)))
|
|
|
|
|
|
|
|
|
|
|
|
(declare-function url-http-file-exists-p "url-http" (url))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2013-10-03 07:11:27 +00:00
|
|
|
|
(defun package--archive-file-exists-p (location file)
|
|
|
|
|
|
(let ((http (string-match "\\`https?:" location)))
|
|
|
|
|
|
(if http
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(progn
|
|
|
|
|
|
(require 'url-http)
|
|
|
|
|
|
(url-http-file-exists-p (concat location file)))
|
2013-10-03 07:11:27 +00:00
|
|
|
|
(file-exists-p (expand-file-name file location)))))
|
|
|
|
|
|
|
|
|
|
|
|
(declare-function epg-make-context "epg"
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(&optional protocol armor textmode include-certs
|
|
|
|
|
|
cipher-algorithm
|
|
|
|
|
|
digest-algorithm
|
|
|
|
|
|
compress-algorithm))
|
2013-10-03 07:11:27 +00:00
|
|
|
|
(declare-function epg-verify-string "epg" (context signature
|
2015-02-02 11:55:24 +00:00
|
|
|
|
&optional signed-text))
|
2013-10-03 07:11:27 +00:00
|
|
|
|
(declare-function epg-context-result-for "epg" (context name))
|
2015-05-05 00:21:47 +00:00
|
|
|
|
(declare-function epg-signature-status "epg" (signature) t)
|
2013-10-03 07:11:27 +00:00
|
|
|
|
(declare-function epg-signature-to-string "epg" (signature))
|
|
|
|
|
|
|
2014-11-06 03:44:52 +00:00
|
|
|
|
(defun package--display-verify-error (context sig-file)
|
|
|
|
|
|
(unless (equal (epg-context-error-output context) "")
|
|
|
|
|
|
(with-output-to-temp-buffer "*Error*"
|
|
|
|
|
|
(with-current-buffer standard-output
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(if (epg-context-result-for context 'verify)
|
|
|
|
|
|
(insert (format "Failed to verify signature %s:\n" sig-file)
|
|
|
|
|
|
(mapconcat #'epg-signature-to-string
|
|
|
|
|
|
(epg-context-result-for context 'verify)
|
|
|
|
|
|
"\n"))
|
|
|
|
|
|
(insert (format "Error while verifying signature %s:\n" sig-file)))
|
|
|
|
|
|
(insert "\nCommand output:\n" (epg-context-error-output context))))))
|
2014-11-06 03:44:52 +00:00
|
|
|
|
|
2019-06-26 14:24:59 +00:00
|
|
|
|
(defmacro package--with-work-buffer (location file &rest body)
|
|
|
|
|
|
"Run BODY in a buffer containing the contents of FILE at LOCATION.
|
|
|
|
|
|
LOCATION is the base location of a package archive, and should be
|
|
|
|
|
|
one of the URLs (or file names) specified in `package-archives'.
|
|
|
|
|
|
FILE is the name of a file relative to that base location.
|
|
|
|
|
|
|
|
|
|
|
|
This macro retrieves FILE from LOCATION into a temporary buffer,
|
|
|
|
|
|
and evaluates BODY while that buffer is current. This work
|
|
|
|
|
|
buffer is killed afterwards. Return the last value in BODY."
|
|
|
|
|
|
(declare (indent 2) (debug t)
|
|
|
|
|
|
(obsolete package--with-response-buffer "25.1"))
|
|
|
|
|
|
`(with-temp-buffer
|
|
|
|
|
|
(if (string-match-p "\\`https?:" ,location)
|
|
|
|
|
|
(url-insert-file-contents (concat ,location ,file))
|
|
|
|
|
|
(unless (file-name-absolute-p ,location)
|
|
|
|
|
|
(error "Archive location %s is not an absolute file name"
|
|
|
|
|
|
,location))
|
|
|
|
|
|
(insert-file-contents (expand-file-name ,file ,location)))
|
|
|
|
|
|
,@body))
|
|
|
|
|
|
|
2015-11-14 15:44:44 +00:00
|
|
|
|
(cl-defmacro package--with-response-buffer (url &rest body &key async file error-form noerror &allow-other-keys)
|
|
|
|
|
|
"Access URL and run BODY in a buffer containing the response.
|
|
|
|
|
|
Point is after the headers when BODY runs.
|
|
|
|
|
|
FILE, if provided, is added to URL.
|
|
|
|
|
|
URL can be a local file name, which must be absolute.
|
|
|
|
|
|
ASYNC, if non-nil, runs the request asynchronously.
|
2015-12-05 16:37:01 +00:00
|
|
|
|
ERROR-FORM is run only if a connection error occurs. If NOERROR
|
|
|
|
|
|
is non-nil, don't propagate connection errors (does not apply to
|
|
|
|
|
|
errors signaled by ERROR-FORM or by BODY).
|
2015-11-14 15:44:44 +00:00
|
|
|
|
|
|
|
|
|
|
\(fn URL &key ASYNC FILE ERROR-FORM NOERROR &rest BODY)"
|
|
|
|
|
|
(declare (indent defun) (debug t))
|
|
|
|
|
|
(while (keywordp (car body))
|
|
|
|
|
|
(setq body (cdr (cdr body))))
|
2019-05-18 21:40:21 +00:00
|
|
|
|
`(package--with-response-buffer-1 ,url (lambda () ,@body)
|
|
|
|
|
|
:file ,file
|
|
|
|
|
|
:async ,async
|
|
|
|
|
|
:error-function (lambda () ,error-form)
|
|
|
|
|
|
:noerror ,noerror))
|
|
|
|
|
|
|
2019-05-18 22:32:47 +00:00
|
|
|
|
(defmacro package--unless-error (body &rest before-body)
|
|
|
|
|
|
(declare (debug t) (indent 1))
|
|
|
|
|
|
(let ((err (make-symbol "err")))
|
|
|
|
|
|
`(with-temp-buffer
|
|
|
|
|
|
(set-buffer-multibyte nil)
|
|
|
|
|
|
(when (condition-case ,err
|
|
|
|
|
|
(progn ,@before-body t)
|
|
|
|
|
|
(error (funcall error-function)
|
|
|
|
|
|
(unless noerror
|
|
|
|
|
|
(signal (car ,err) (cdr ,err)))))
|
|
|
|
|
|
(funcall ,body)))))
|
|
|
|
|
|
|
2019-05-18 21:40:21 +00:00
|
|
|
|
(cl-defun package--with-response-buffer-1 (url body &key async file error-function noerror &allow-other-keys)
|
2019-05-18 22:32:47 +00:00
|
|
|
|
(if (string-match-p "\\`https?:" url)
|
2019-05-18 21:40:21 +00:00
|
|
|
|
(let ((url (concat url file)))
|
|
|
|
|
|
(if async
|
2019-05-18 22:32:47 +00:00
|
|
|
|
(package--unless-error #'ignore
|
|
|
|
|
|
(url-retrieve
|
|
|
|
|
|
url
|
|
|
|
|
|
(lambda (status)
|
|
|
|
|
|
(let ((b (current-buffer)))
|
|
|
|
|
|
(require 'url-handlers)
|
|
|
|
|
|
(package--unless-error body
|
|
|
|
|
|
(when-let* ((er (plist-get status :error)))
|
|
|
|
|
|
(error "Error retrieving: %s %S" url er))
|
|
|
|
|
|
(with-current-buffer b
|
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(unless (search-forward-regexp "^\r?\n\r?" nil t)
|
|
|
|
|
|
(error "Error retrieving: %s %S"
|
|
|
|
|
|
url "incomprehensible buffer")))
|
|
|
|
|
|
(url-insert b)
|
|
|
|
|
|
(kill-buffer b)
|
|
|
|
|
|
(goto-char (point-min)))))
|
|
|
|
|
|
nil
|
|
|
|
|
|
'silent))
|
|
|
|
|
|
(package--unless-error body
|
|
|
|
|
|
;; Copy&pasted from url-insert-file-contents,
|
|
|
|
|
|
;; except it calls `url-insert' because we want the contents
|
|
|
|
|
|
;; literally (but there's no url-insert-file-contents-literally).
|
|
|
|
|
|
(let ((buffer (url-retrieve-synchronously url)))
|
|
|
|
|
|
(unless buffer (signal 'file-error (list url "No Data")))
|
|
|
|
|
|
(when (fboundp 'url-http--insert-file-helper)
|
|
|
|
|
|
;; XXX: This is HTTP/S specific and should be moved
|
|
|
|
|
|
;; to url-http instead. See bug#17549.
|
|
|
|
|
|
(url-http--insert-file-helper buffer url))
|
|
|
|
|
|
(url-insert buffer)
|
|
|
|
|
|
(kill-buffer buffer)
|
|
|
|
|
|
(goto-char (point-min))))))
|
|
|
|
|
|
(package--unless-error body
|
2019-05-18 21:40:21 +00:00
|
|
|
|
(let ((url (expand-file-name file url)))
|
|
|
|
|
|
(unless (file-name-absolute-p url)
|
2019-05-18 22:32:47 +00:00
|
|
|
|
(error "Location %s is not a url nor an absolute file name"
|
|
|
|
|
|
url))
|
|
|
|
|
|
(insert-file-contents-literally url)))))
|
2015-12-05 16:37:01 +00:00
|
|
|
|
|
|
|
|
|
|
(define-error 'bad-signature "Failed to verify signature")
|
2015-04-01 10:03:43 +00:00
|
|
|
|
|
|
|
|
|
|
(defun package--check-signature-content (content string &optional sig-file)
|
|
|
|
|
|
"Check signature CONTENT against STRING.
|
|
|
|
|
|
SIG-FILE is the name of the signature file, used when signaling
|
|
|
|
|
|
errors."
|
2017-04-11 09:27:37 +00:00
|
|
|
|
(let ((context (epg-make-context 'OpenPGP)))
|
|
|
|
|
|
(when package-gnupghome-dir
|
|
|
|
|
|
(setf (epg-context-home-directory context) package-gnupghome-dir))
|
2014-11-06 03:44:52 +00:00
|
|
|
|
(condition-case error
|
2015-04-01 10:03:43 +00:00
|
|
|
|
(epg-verify-string context content string)
|
|
|
|
|
|
(error (package--display-verify-error context sig-file)
|
2015-12-05 16:37:01 +00:00
|
|
|
|
(signal 'bad-signature error)))
|
2014-06-26 07:10:22 +00:00
|
|
|
|
(let (good-signatures had-fatal-error)
|
|
|
|
|
|
;; The .sig file may contain multiple signatures. Success if one
|
|
|
|
|
|
;; of the signatures is good.
|
|
|
|
|
|
(dolist (sig (epg-context-result-for context 'verify))
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(if (eq (epg-signature-status sig) 'good)
|
|
|
|
|
|
(push sig good-signatures)
|
2019-07-26 06:30:24 +00:00
|
|
|
|
;; If `package-check-signature' is allow-unsigned, don't
|
2015-02-02 11:55:24 +00:00
|
|
|
|
;; signal error when we can't verify signature because of
|
|
|
|
|
|
;; missing public key. Other errors are still treated as
|
|
|
|
|
|
;; fatal (bug#17625).
|
2019-07-26 06:30:24 +00:00
|
|
|
|
(unless (and (eq (package-check-signature) 'allow-unsigned)
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(eq (epg-signature-status sig) 'no-pubkey))
|
|
|
|
|
|
(setq had-fatal-error t))))
|
2019-05-12 17:03:24 +00:00
|
|
|
|
(when (or (null good-signatures)
|
2019-07-26 06:30:24 +00:00
|
|
|
|
(and (eq (package-check-signature) 'all)
|
2019-05-12 17:03:24 +00:00
|
|
|
|
had-fatal-error))
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(package--display-verify-error context sig-file)
|
2015-12-05 16:37:01 +00:00
|
|
|
|
(signal 'bad-signature (list sig-file)))
|
2014-11-06 03:44:52 +00:00
|
|
|
|
good-signatures)))
|
2013-10-03 07:11:27 +00:00
|
|
|
|
|
2015-12-05 16:37:01 +00:00
|
|
|
|
(defun package--check-signature (location file &optional string async callback unwind)
|
2015-04-01 10:03:43 +00:00
|
|
|
|
"Check signature of the current buffer.
|
2015-04-01 17:21:47 +00:00
|
|
|
|
Download the signature file from LOCATION by appending \".sig\"
|
2015-04-01 10:03:43 +00:00
|
|
|
|
to FILE.
|
2017-04-11 09:27:37 +00:00
|
|
|
|
GnuPG keyring location depends on `package-gnupghome-dir'.
|
2015-04-01 10:03:43 +00:00
|
|
|
|
STRING is the string to verify, it defaults to `buffer-string'.
|
|
|
|
|
|
If ASYNC is non-nil, the download of the signature file is
|
|
|
|
|
|
done asynchronously.
|
|
|
|
|
|
|
2015-12-05 16:37:01 +00:00
|
|
|
|
If the signature does not verify, signal an error.
|
|
|
|
|
|
If the signature is verified and CALLBACK was provided, `funcall'
|
|
|
|
|
|
CALLBACK with the list of good signatures as argument (the list
|
|
|
|
|
|
can be empty).
|
|
|
|
|
|
If no signatures file is found, and `package-check-signature' is
|
|
|
|
|
|
`allow-unsigned', call CALLBACK with a nil argument.
|
|
|
|
|
|
Otherwise, an error is signaled.
|
|
|
|
|
|
|
|
|
|
|
|
UNWIND, if provided, is a function to be called after everything
|
|
|
|
|
|
else, even if an error is signaled."
|
2015-04-01 10:03:43 +00:00
|
|
|
|
(let ((sig-file (concat file ".sig"))
|
|
|
|
|
|
(string (or string (buffer-string))))
|
2015-11-14 15:44:44 +00:00
|
|
|
|
(package--with-response-buffer location :file sig-file
|
|
|
|
|
|
:async async :noerror t
|
2015-12-05 16:37:01 +00:00
|
|
|
|
;; Connection error is assumed to mean "no sig-file".
|
2019-05-18 22:32:47 +00:00
|
|
|
|
:error-form (let ((allow-unsigned
|
2019-07-26 06:30:24 +00:00
|
|
|
|
(eq (package-check-signature) 'allow-unsigned)))
|
2015-12-05 16:37:01 +00:00
|
|
|
|
(when (and callback allow-unsigned)
|
|
|
|
|
|
(funcall callback nil))
|
|
|
|
|
|
(when unwind (funcall unwind))
|
|
|
|
|
|
(unless allow-unsigned
|
|
|
|
|
|
(error "Unsigned file `%s' at %s" file location)))
|
|
|
|
|
|
;; OTOH, an error here means "bad signature", which we never
|
|
|
|
|
|
;; suppress. (Bug#22089)
|
|
|
|
|
|
(unwind-protect
|
2019-05-18 22:32:47 +00:00
|
|
|
|
(let ((sig (package--check-signature-content
|
|
|
|
|
|
(buffer-substring (point) (point-max))
|
|
|
|
|
|
string sig-file)))
|
2015-12-05 16:37:01 +00:00
|
|
|
|
(when callback (funcall callback sig))
|
|
|
|
|
|
sig)
|
|
|
|
|
|
(when unwind (funcall unwind))))))
|
2015-03-28 20:36:14 +00:00
|
|
|
|
|
|
|
|
|
|
;;; Packages on Archives
|
|
|
|
|
|
;; The following variables store information about packages available
|
|
|
|
|
|
;; from archives. The most important of these is
|
|
|
|
|
|
;; `package-archive-contents' which is initially populated by the
|
|
|
|
|
|
;; function `package-read-all-archive-contents' from a cache on disk.
|
|
|
|
|
|
;; The `package-initialize' command is also closely related to this
|
|
|
|
|
|
;; section, but it has its own section.
|
|
|
|
|
|
(defconst package-archive-version 1
|
|
|
|
|
|
"Version number of the package archive understood by this file.
|
|
|
|
|
|
Lower version numbers than this will probably be understood as well.")
|
|
|
|
|
|
|
|
|
|
|
|
;; We don't prime the cache since it tends to get out of date.
|
|
|
|
|
|
(defvar package-archive-contents nil
|
|
|
|
|
|
"Cache of the contents of the Emacs Lisp Package Archive.
|
|
|
|
|
|
This is an alist mapping package names (symbols) to
|
|
|
|
|
|
non-empty lists of `package-desc' structures.")
|
|
|
|
|
|
(put 'package-archive-contents 'risky-local-variable t)
|
|
|
|
|
|
|
|
|
|
|
|
(defvar package--compatibility-table nil
|
|
|
|
|
|
"Hash table connecting package names to their compatibility.
|
|
|
|
|
|
Each key is a symbol, the name of a package.
|
|
|
|
|
|
|
|
|
|
|
|
The value is either nil, representing an incompatible package, or
|
|
|
|
|
|
a version list, representing the highest compatible version of
|
|
|
|
|
|
that package which is available.
|
|
|
|
|
|
|
|
|
|
|
|
A package is considered incompatible if it requires an Emacs
|
|
|
|
|
|
version higher than the one being used. To check for package
|
|
|
|
|
|
\(in)compatibility, don't read this table directly, use
|
|
|
|
|
|
`package--incompatible-p' which also checks dependencies.")
|
|
|
|
|
|
|
|
|
|
|
|
(defun package--build-compatibility-table ()
|
|
|
|
|
|
"Build `package--compatibility-table' with `package--mapc'."
|
2015-04-12 01:33:29 +00:00
|
|
|
|
;; Initialize the list of built-ins.
|
|
|
|
|
|
(require 'finder-inf nil t)
|
2015-03-28 20:36:14 +00:00
|
|
|
|
;; Build compat table.
|
|
|
|
|
|
(setq package--compatibility-table (make-hash-table :test 'eq))
|
|
|
|
|
|
(package--mapc #'package--add-to-compatibility-table))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package--add-to-compatibility-table (pkg)
|
|
|
|
|
|
"If PKG is compatible (without dependencies), add to the compatibility table.
|
|
|
|
|
|
PKG is a package-desc object.
|
|
|
|
|
|
Only adds if its version is higher than what's already stored in
|
|
|
|
|
|
the table."
|
|
|
|
|
|
(unless (package--incompatible-p pkg 'shallow)
|
|
|
|
|
|
(let* ((name (package-desc-name pkg))
|
|
|
|
|
|
(version (or (package-desc-version pkg) '(0)))
|
|
|
|
|
|
(table-version (gethash name package--compatibility-table)))
|
|
|
|
|
|
(when (or (not table-version)
|
|
|
|
|
|
(version-list-< table-version version))
|
|
|
|
|
|
(puthash name version package--compatibility-table)))))
|
|
|
|
|
|
|
|
|
|
|
|
;; Package descriptor objects used inside the "archive-contents" file.
|
|
|
|
|
|
;; Changing this defstruct implies changing the format of the
|
|
|
|
|
|
;; "archive-contents" files.
|
|
|
|
|
|
(cl-defstruct (package--ac-desc
|
|
|
|
|
|
(:constructor package-make-ac-desc (version reqs summary kind extras))
|
|
|
|
|
|
(:copier nil)
|
|
|
|
|
|
(:type vector))
|
|
|
|
|
|
version reqs summary kind extras)
|
|
|
|
|
|
|
|
|
|
|
|
(defun package--append-to-alist (pkg-desc alist)
|
|
|
|
|
|
"Append an entry for PKG-DESC to the start of ALIST and return it.
|
|
|
|
|
|
This entry takes the form (`package-desc-name' PKG-DESC).
|
|
|
|
|
|
|
|
|
|
|
|
If ALIST already has an entry with this name, destructively add
|
|
|
|
|
|
PKG-DESC to the cdr of this entry instead, sorted by version
|
|
|
|
|
|
number."
|
|
|
|
|
|
(let* ((name (package-desc-name pkg-desc))
|
|
|
|
|
|
(priority-version (package-desc-priority-version pkg-desc))
|
|
|
|
|
|
(existing-packages (assq name alist)))
|
|
|
|
|
|
(if (not existing-packages)
|
|
|
|
|
|
(cons (list name pkg-desc)
|
|
|
|
|
|
alist)
|
|
|
|
|
|
(while (if (and (cdr existing-packages)
|
|
|
|
|
|
(version-list-< priority-version
|
|
|
|
|
|
(package-desc-priority-version
|
|
|
|
|
|
(cadr existing-packages))))
|
|
|
|
|
|
(setq existing-packages (cdr existing-packages))
|
|
|
|
|
|
(push pkg-desc (cdr existing-packages))
|
|
|
|
|
|
nil))
|
|
|
|
|
|
alist)))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package--add-to-archive-contents (package archive)
|
|
|
|
|
|
"Add the PACKAGE from the given ARCHIVE if necessary.
|
|
|
|
|
|
PACKAGE should have the form (NAME . PACKAGE--AC-DESC).
|
|
|
|
|
|
Also, add the originating archive to the `package-desc' structure."
|
|
|
|
|
|
(let* ((name (car package))
|
|
|
|
|
|
(version (package--ac-desc-version (cdr package)))
|
|
|
|
|
|
(pkg-desc
|
|
|
|
|
|
(package-desc-create
|
|
|
|
|
|
:name name
|
|
|
|
|
|
:version version
|
|
|
|
|
|
:reqs (package--ac-desc-reqs (cdr package))
|
|
|
|
|
|
:summary (package--ac-desc-summary (cdr package))
|
|
|
|
|
|
:kind (package--ac-desc-kind (cdr package))
|
|
|
|
|
|
:archive archive
|
|
|
|
|
|
:extras (and (> (length (cdr package)) 4)
|
|
|
|
|
|
;; Older archive-contents files have only 4
|
|
|
|
|
|
;; elements here.
|
|
|
|
|
|
(package--ac-desc-extras (cdr package)))))
|
|
|
|
|
|
(pinned-to-archive (assoc name package-pinned-packages)))
|
|
|
|
|
|
;; Skip entirely if pinned to another archive.
|
|
|
|
|
|
(when (not (and pinned-to-archive
|
|
|
|
|
|
(not (equal (cdr pinned-to-archive) archive))))
|
|
|
|
|
|
(setq package-archive-contents
|
|
|
|
|
|
(package--append-to-alist pkg-desc package-archive-contents)))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package--read-archive-file (file)
|
|
|
|
|
|
"Re-read archive file FILE, if it exists.
|
|
|
|
|
|
Will return the data from the file, or nil if the file does not exist.
|
|
|
|
|
|
Will throw an error if the archive version is too new."
|
|
|
|
|
|
(let ((filename (expand-file-name file package-user-dir)))
|
|
|
|
|
|
(when (file-exists-p filename)
|
|
|
|
|
|
(with-temp-buffer
|
2015-04-19 16:47:02 +00:00
|
|
|
|
(let ((coding-system-for-read 'utf-8))
|
|
|
|
|
|
(insert-file-contents filename))
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(let ((contents (read (current-buffer))))
|
|
|
|
|
|
(if (> (car contents) package-archive-version)
|
|
|
|
|
|
(error "Package archive version %d is higher than %d"
|
|
|
|
|
|
(car contents) package-archive-version))
|
|
|
|
|
|
(cdr contents))))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package-read-archive-contents (archive)
|
|
|
|
|
|
"Re-read archive contents for ARCHIVE.
|
|
|
|
|
|
If successful, set the variable `package-archive-contents'.
|
|
|
|
|
|
If the archive version is too new, signal an error."
|
|
|
|
|
|
;; Version 1 of 'archive-contents' is identical to our internal
|
|
|
|
|
|
;; representation.
|
|
|
|
|
|
(let* ((contents-file (format "archives/%s/archive-contents" archive))
|
|
|
|
|
|
(contents (package--read-archive-file contents-file)))
|
|
|
|
|
|
(when contents
|
|
|
|
|
|
(dolist (package contents)
|
|
|
|
|
|
(package--add-to-archive-contents package archive)))))
|
|
|
|
|
|
|
2015-10-16 22:54:38 +00:00
|
|
|
|
(defvar package--old-archive-priorities nil
|
|
|
|
|
|
"Store currently used `package-archive-priorities'.
|
|
|
|
|
|
This is the value of `package-archive-priorities' last time
|
|
|
|
|
|
`package-read-all-archive-contents' was called. It can be used
|
|
|
|
|
|
by arbitrary functions to decide whether it is necessary to call
|
|
|
|
|
|
it again.")
|
|
|
|
|
|
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(defun package-read-all-archive-contents ()
|
|
|
|
|
|
"Re-read `archive-contents', if it exists.
|
|
|
|
|
|
If successful, set `package-archive-contents'."
|
|
|
|
|
|
(setq package-archive-contents nil)
|
2015-10-16 22:54:38 +00:00
|
|
|
|
(setq package--old-archive-priorities package-archive-priorities)
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(dolist (archive package-archives)
|
|
|
|
|
|
(package-read-archive-contents (car archive))))
|
|
|
|
|
|
|
|
|
|
|
|
;;;; Package Initialize
|
|
|
|
|
|
;; A bit of a milestone. This brings together some of the above
|
|
|
|
|
|
;; sections and populates all relevant lists of packages from contents
|
|
|
|
|
|
;; available on disk.
|
|
|
|
|
|
(defvar package--initialized nil)
|
|
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
|
(defun package-initialize (&optional no-activate)
|
|
|
|
|
|
"Load Emacs Lisp packages, and activate them.
|
|
|
|
|
|
The variable `package-load-list' controls which packages to load.
|
2015-04-07 17:59:40 +00:00
|
|
|
|
If optional arg NO-ACTIVATE is non-nil, don't activate packages.
|
2015-09-06 12:52:54 +00:00
|
|
|
|
If called as part of loading `user-init-file', set
|
|
|
|
|
|
`package-enable-at-startup' to nil, to prevent accidentally
|
2016-04-30 14:48:50 +00:00
|
|
|
|
loading packages twice.
|
2018-03-03 05:06:53 +00:00
|
|
|
|
|
2016-04-30 14:48:50 +00:00
|
|
|
|
It is not necessary to adjust `load-path' or `require' the
|
|
|
|
|
|
individual packages after calling `package-initialize' -- this is
|
2018-03-03 05:06:53 +00:00
|
|
|
|
taken care of by `package-initialize'.
|
|
|
|
|
|
|
|
|
|
|
|
If `package-initialize' is called twice during Emacs startup,
|
|
|
|
|
|
signal a warning, since this is a bad idea except in highly
|
|
|
|
|
|
advanced use cases. To suppress the warning, remove the
|
|
|
|
|
|
superfluous call to `package-initialize' from your init-file. If
|
|
|
|
|
|
you have code which must run before `package-initialize', put
|
|
|
|
|
|
that code in the early init-file."
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(interactive)
|
2018-03-03 05:06:53 +00:00
|
|
|
|
(when (and package--initialized (not after-init-time))
|
|
|
|
|
|
(lwarn '(package reinitialization) :warning
|
|
|
|
|
|
"Unnecessary call to `package-initialize' in init file"))
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(setq package-alist nil)
|
2018-02-17 11:36:16 +00:00
|
|
|
|
(setq package-enable-at-startup nil)
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(package-load-all-descriptors)
|
|
|
|
|
|
(package-read-all-archive-contents)
|
2018-03-26 13:41:30 +00:00
|
|
|
|
(setq package--initialized t)
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(unless no-activate
|
2018-03-26 13:41:30 +00:00
|
|
|
|
(package-activate-all))
|
|
|
|
|
|
;; This uses `package--mapc' so it must be called after
|
|
|
|
|
|
;; `package--initialized' is t.
|
|
|
|
|
|
(package--build-compatibility-table))
|
|
|
|
|
|
|
|
|
|
|
|
(defvar package-quickstart-file)
|
|
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
|
(defun package-activate-all ()
|
|
|
|
|
|
"Activate all installed packages.
|
|
|
|
|
|
The variable `package-load-list' controls which packages to load."
|
|
|
|
|
|
(setq package-enable-at-startup nil)
|
|
|
|
|
|
(if (file-readable-p package-quickstart-file)
|
|
|
|
|
|
;; Skip load-source-file-function which would slow us down by a factor
|
|
|
|
|
|
;; 2 (this assumes we were careful to save this file so it doesn't need
|
|
|
|
|
|
;; any decoding).
|
|
|
|
|
|
(let ((load-source-file-function nil))
|
2019-01-14 20:10:14 +00:00
|
|
|
|
(load package-quickstart-file nil 'nomessage))
|
2019-01-22 22:54:29 +00:00
|
|
|
|
(dolist (elt (package--alist))
|
2017-08-25 06:10:53 +00:00
|
|
|
|
(condition-case err
|
|
|
|
|
|
(package-activate (car elt))
|
|
|
|
|
|
;; Don't let failure of activation of a package arbitrarily stop
|
|
|
|
|
|
;; activation of further packages.
|
2018-03-26 13:41:30 +00:00
|
|
|
|
(error (message "%s" (error-message-string err)))))))
|
2015-03-28 20:36:14 +00:00
|
|
|
|
|
|
|
|
|
|
;;;; Populating `package-archive-contents' from archives
|
|
|
|
|
|
;; This subsection populates the variables listed above from the
|
|
|
|
|
|
;; actual archives, instead of from a local cache.
|
2015-04-01 10:03:43 +00:00
|
|
|
|
(defvar package--downloads-in-progress nil
|
|
|
|
|
|
"List of in-progress asynchronous downloads.")
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(declare-function epg-import-keys-from-file "epg" (context keys))
|
2013-02-13 16:02:35 +00:00
|
|
|
|
|
2015-03-28 20:36:14 +00:00
|
|
|
|
;;;###autoload
|
|
|
|
|
|
(defun package-import-keyring (&optional file)
|
|
|
|
|
|
"Import keys from FILE."
|
|
|
|
|
|
(interactive "fFile: ")
|
|
|
|
|
|
(setq file (expand-file-name file))
|
2017-04-11 09:27:37 +00:00
|
|
|
|
(let ((context (epg-make-context 'OpenPGP)))
|
|
|
|
|
|
(when package-gnupghome-dir
|
|
|
|
|
|
(with-file-modes 448
|
|
|
|
|
|
(make-directory package-gnupghome-dir t))
|
|
|
|
|
|
(setf (epg-context-home-directory context) package-gnupghome-dir))
|
2015-05-04 13:09:29 +00:00
|
|
|
|
(message "Importing %s..." (file-name-nondirectory file))
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(epg-import-keys-from-file context file)
|
2015-05-04 13:09:29 +00:00
|
|
|
|
(message "Importing %s...done" (file-name-nondirectory file))))
|
2015-02-04 14:51:39 +00:00
|
|
|
|
|
2015-04-01 10:03:43 +00:00
|
|
|
|
(defvar package--post-download-archives-hook nil
|
|
|
|
|
|
"Hook run after the archive contents are downloaded.
|
|
|
|
|
|
Don't run this hook directly. It is meant to be run as part of
|
|
|
|
|
|
`package--update-downloads-in-progress'.")
|
|
|
|
|
|
(put 'package--post-download-archives-hook 'risky-local-variable t)
|
|
|
|
|
|
|
|
|
|
|
|
(defun package--update-downloads-in-progress (entry)
|
|
|
|
|
|
"Remove ENTRY from `package--downloads-in-progress'.
|
|
|
|
|
|
Once it's empty, run `package--post-download-archives-hook'."
|
|
|
|
|
|
;; Keep track of the downloading progress.
|
|
|
|
|
|
(setq package--downloads-in-progress
|
|
|
|
|
|
(remove entry package--downloads-in-progress))
|
|
|
|
|
|
;; If this was the last download, run the hook.
|
|
|
|
|
|
(unless package--downloads-in-progress
|
|
|
|
|
|
(package-read-all-archive-contents)
|
2015-04-05 22:39:43 +00:00
|
|
|
|
(package--build-compatibility-table)
|
2015-04-01 10:03:43 +00:00
|
|
|
|
;; We message before running the hook, so the hook can give
|
|
|
|
|
|
;; messages as well.
|
|
|
|
|
|
(message "Package refresh done")
|
|
|
|
|
|
(run-hooks 'package--post-download-archives-hook)))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package--download-one-archive (archive file &optional async)
|
|
|
|
|
|
"Retrieve an archive file FILE from ARCHIVE, and cache it.
|
|
|
|
|
|
ARCHIVE should be a cons cell of the form (NAME . LOCATION),
|
|
|
|
|
|
similar to an entry in `package-alist'. Save the cached copy to
|
|
|
|
|
|
\"archives/NAME/FILE\" in `package-user-dir'."
|
2015-11-14 15:44:44 +00:00
|
|
|
|
(package--with-response-buffer (cdr archive) :file file
|
|
|
|
|
|
:async async
|
|
|
|
|
|
:error-form (package--update-downloads-in-progress archive)
|
2015-04-01 10:03:43 +00:00
|
|
|
|
(let* ((location (cdr archive))
|
|
|
|
|
|
(name (car archive))
|
|
|
|
|
|
(content (buffer-string))
|
2018-06-20 16:19:00 +00:00
|
|
|
|
(dir (expand-file-name (concat "archives/" name) package-user-dir))
|
2015-04-01 10:03:43 +00:00
|
|
|
|
(local-file (expand-file-name file dir)))
|
2018-06-16 22:59:43 +00:00
|
|
|
|
(when (listp (read content))
|
2015-04-01 10:03:43 +00:00
|
|
|
|
(make-directory dir t)
|
2019-07-26 06:30:24 +00:00
|
|
|
|
(if (or (not (package-check-signature))
|
2017-06-05 22:01:55 +00:00
|
|
|
|
(member name package-unsigned-archives))
|
2015-04-01 10:03:43 +00:00
|
|
|
|
;; If we don't care about the signature, save the file and
|
|
|
|
|
|
;; we're done.
|
2019-05-18 22:32:47 +00:00
|
|
|
|
(progn
|
|
|
|
|
|
(cl-assert (not enable-multibyte-characters))
|
|
|
|
|
|
(let ((coding-system-for-write 'binary))
|
|
|
|
|
|
(write-region content nil local-file nil 'silent))
|
|
|
|
|
|
(package--update-downloads-in-progress archive))
|
2015-04-01 10:03:43 +00:00
|
|
|
|
;; If we care, check it (perhaps async) and *then* write the file.
|
|
|
|
|
|
(package--check-signature
|
|
|
|
|
|
location file content async
|
2015-04-04 20:00:38 +00:00
|
|
|
|
;; This function will be called after signature checking.
|
2015-04-01 10:03:43 +00:00
|
|
|
|
(lambda (&optional good-sigs)
|
2019-05-18 22:32:47 +00:00
|
|
|
|
(cl-assert (not enable-multibyte-characters))
|
|
|
|
|
|
(let ((coding-system-for-write 'binary))
|
2019-03-19 11:16:50 +00:00
|
|
|
|
(write-region content nil local-file nil 'silent))
|
2015-04-01 10:03:43 +00:00
|
|
|
|
;; Write out good signatures into archive-contents.signed file.
|
|
|
|
|
|
(when good-sigs
|
|
|
|
|
|
(write-region (mapconcat #'epg-signature-to-string good-sigs "\n")
|
2015-12-05 16:37:01 +00:00
|
|
|
|
nil (concat local-file ".signed") nil 'silent)))
|
|
|
|
|
|
(lambda () (package--update-downloads-in-progress archive))))))))
|
2015-04-01 10:03:43 +00:00
|
|
|
|
|
|
|
|
|
|
(defun package--download-and-read-archives (&optional async)
|
|
|
|
|
|
"Download descriptions of all `package-archives' and read them.
|
|
|
|
|
|
This populates `package-archive-contents'. If ASYNC is non-nil,
|
2015-04-01 17:21:47 +00:00
|
|
|
|
perform the downloads asynchronously."
|
|
|
|
|
|
;; The downloaded archive contents will be read as part of
|
2015-04-01 10:03:43 +00:00
|
|
|
|
;; `package--update-downloads-in-progress'.
|
2015-04-29 23:57:46 +00:00
|
|
|
|
(dolist (archive package-archives)
|
|
|
|
|
|
(cl-pushnew archive package--downloads-in-progress
|
|
|
|
|
|
:test #'equal))
|
2015-04-01 10:03:43 +00:00
|
|
|
|
(dolist (archive package-archives)
|
|
|
|
|
|
(condition-case-unless-debug nil
|
2015-11-14 15:44:44 +00:00
|
|
|
|
(package--download-one-archive archive "archive-contents" async)
|
Go back to grave quoting in source-code docstrings etc.
This reverts almost all my recent changes to use curved quotes
in docstrings and/or strings used for error diagnostics.
There are a few exceptions, e.g., Bahá’í proper names.
* admin/unidata/unidata-gen.el (unidata-gen-table):
* lisp/abbrev.el (expand-region-abbrevs):
* lisp/align.el (align-region):
* lisp/allout.el (allout-mode, allout-solicit-alternate-bullet)
(outlineify-sticky):
* lisp/apropos.el (apropos-library):
* lisp/bookmark.el (bookmark-default-annotation-text):
* lisp/button.el (button-category-symbol, button-put)
(make-text-button):
* lisp/calc/calc-aent.el (math-read-if, math-read-factor):
* lisp/calc/calc-embed.el (calc-do-embedded):
* lisp/calc/calc-ext.el (calc-user-function-list):
* lisp/calc/calc-graph.el (calc-graph-show-dumb):
* lisp/calc/calc-help.el (calc-describe-key)
(calc-describe-thing, calc-full-help):
* lisp/calc/calc-lang.el (calc-c-language)
(math-parse-fortran-vector-end, math-parse-tex-sum)
(math-parse-eqn-matrix, math-parse-eqn-prime)
(calc-yacas-language, calc-maxima-language, calc-giac-language)
(math-read-giac-subscr, math-read-math-subscr)
(math-read-big-rec, math-read-big-balance):
* lisp/calc/calc-misc.el (calc-help, report-calc-bug):
* lisp/calc/calc-mode.el (calc-auto-why, calc-save-modes)
(calc-auto-recompute):
* lisp/calc/calc-prog.el (calc-fix-token-name)
(calc-read-parse-table-part, calc-user-define-invocation)
(math-do-arg-check):
* lisp/calc/calc-store.el (calc-edit-variable):
* lisp/calc/calc-units.el (math-build-units-table-buffer):
* lisp/calc/calc-vec.el (math-read-brackets):
* lisp/calc/calc-yank.el (calc-edit-mode):
* lisp/calc/calc.el (calc, calc-do, calc-user-invocation):
* lisp/calendar/appt.el (appt-display-message):
* lisp/calendar/diary-lib.el (diary-check-diary-file)
(diary-mail-entries, diary-from-outlook):
* lisp/calendar/icalendar.el (icalendar-export-region)
(icalendar--convert-float-to-ical)
(icalendar--convert-date-to-ical)
(icalendar--convert-ical-to-diary)
(icalendar--convert-recurring-to-diary)
(icalendar--add-diary-entry):
* lisp/calendar/time-date.el (format-seconds):
* lisp/calendar/timeclock.el (timeclock-mode-line-display)
(timeclock-make-hours-explicit, timeclock-log-data):
* lisp/calendar/todo-mode.el (todo-prefix, todo-delete-category)
(todo-item-mark, todo-check-format)
(todo-insert-item--next-param, todo-edit-item--next-key)
(todo-mode):
* lisp/cedet/ede/pmake.el (ede-proj-makefile-insert-dist-rules):
* lisp/cedet/mode-local.el (describe-mode-local-overload)
(mode-local-print-binding, mode-local-describe-bindings-2):
* lisp/cedet/semantic/complete.el (semantic-displayor-show-request):
* lisp/cedet/srecode/srt-mode.el (srecode-macro-help):
* lisp/cus-start.el (standard):
* lisp/cus-theme.el (describe-theme-1):
* lisp/custom.el (custom-add-dependencies, custom-check-theme)
(custom--sort-vars-1, load-theme):
* lisp/descr-text.el (describe-text-properties-1, describe-char):
* lisp/dired-x.el (dired-do-run-mail):
* lisp/dired.el (dired-log):
* lisp/emacs-lisp/advice.el (ad-read-advised-function)
(ad-read-advice-class, ad-read-advice-name, ad-enable-advice)
(ad-disable-advice, ad-remove-advice, ad-set-argument)
(ad-set-arguments, ad--defalias-fset, ad-activate)
(ad-deactivate):
* lisp/emacs-lisp/byte-opt.el (byte-compile-inline-expand)
(byte-compile-unfold-lambda, byte-optimize-form-code-walker)
(byte-optimize-while, byte-optimize-apply):
* lisp/emacs-lisp/byte-run.el (defun, defsubst):
* lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode)
(byte-compile-log-file, byte-compile-format-warn)
(byte-compile-nogroup-warn, byte-compile-arglist-warn)
(byte-compile-cl-warn)
(byte-compile-warn-about-unresolved-functions)
(byte-compile-file, byte-compile--declare-var)
(byte-compile-file-form-defmumble, byte-compile-form)
(byte-compile-normal-call, byte-compile-check-variable)
(byte-compile-variable-ref, byte-compile-variable-set)
(byte-compile-subr-wrong-args, byte-compile-setq-default)
(byte-compile-negation-optimizer)
(byte-compile-condition-case--old)
(byte-compile-condition-case--new, byte-compile-save-excursion)
(byte-compile-defvar, byte-compile-autoload)
(byte-compile-lambda-form)
(byte-compile-make-variable-buffer-local, display-call-tree)
(batch-byte-compile):
* lisp/emacs-lisp/cconv.el (cconv-convert, cconv--analyze-use):
* lisp/emacs-lisp/chart.el (chart-space-usage):
* lisp/emacs-lisp/check-declare.el (check-declare-scan)
(check-declare-warn, check-declare-file)
(check-declare-directory):
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine)
(checkdoc-message-text-engine):
* lisp/emacs-lisp/cl-extra.el (cl-parse-integer)
(cl--describe-class):
* lisp/emacs-lisp/cl-generic.el (cl-defgeneric)
(cl--generic-describe, cl-generic-generalizers):
* lisp/emacs-lisp/cl-macs.el (cl--parse-loop-clause, cl-tagbody)
(cl-symbol-macrolet):
* lisp/emacs-lisp/cl.el (cl-unload-function, flet):
* lisp/emacs-lisp/copyright.el (copyright)
(copyright-update-directory):
* lisp/emacs-lisp/edebug.el (edebug-read-list):
* lisp/emacs-lisp/eieio-base.el (eieio-persistent-read):
* lisp/emacs-lisp/eieio-core.el (eieio--slot-override)
(eieio-oref):
* lisp/emacs-lisp/eieio-opt.el (eieio-help-constructor):
* lisp/emacs-lisp/eieio-speedbar.el:
(eieio-speedbar-child-make-tag-lines)
(eieio-speedbar-child-description):
* lisp/emacs-lisp/eieio.el (defclass, change-class):
* lisp/emacs-lisp/elint.el (elint-file, elint-get-top-forms)
(elint-init-form, elint-check-defalias-form)
(elint-check-let-form):
* lisp/emacs-lisp/ert.el (ert-get-test, ert-results-mode-menu)
(ert-results-pop-to-backtrace-for-test-at-point)
(ert-results-pop-to-messages-for-test-at-point)
(ert-results-pop-to-should-forms-for-test-at-point)
(ert-describe-test):
* lisp/emacs-lisp/find-func.el (find-function-search-for-symbol)
(find-function-library):
* lisp/emacs-lisp/generator.el (iter-yield):
* lisp/emacs-lisp/gv.el (gv-define-simple-setter):
* lisp/emacs-lisp/lisp-mnt.el (lm-verify):
* lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning):
* lisp/emacs-lisp/map-ynp.el (map-y-or-n-p):
* lisp/emacs-lisp/nadvice.el (advice--make-docstring)
(advice--make, define-advice):
* lisp/emacs-lisp/package-x.el (package-upload-file):
* lisp/emacs-lisp/package.el (package-version-join)
(package-disabled-p, package-activate-1, package-activate)
(package--download-one-archive)
(package--download-and-read-archives)
(package-compute-transaction, package-install-from-archive)
(package-install, package-install-selected-packages)
(package-delete, package-autoremove, describe-package-1)
(package-install-button-action, package-delete-button-action)
(package-menu-hide-package, package-menu--list-to-prompt)
(package-menu--perform-transaction)
(package-menu--find-and-notify-upgrades):
* lisp/emacs-lisp/pcase.el (pcase-exhaustive, pcase--u1):
* lisp/emacs-lisp/re-builder.el (reb-enter-subexp-mode):
* lisp/emacs-lisp/ring.el (ring-previous, ring-next):
* lisp/emacs-lisp/rx.el (rx-check, rx-anything)
(rx-check-any-string, rx-check-any, rx-check-not, rx-=)
(rx-repeat, rx-check-backref, rx-syntax, rx-check-category)
(rx-form):
* lisp/emacs-lisp/smie.el (smie-config-save):
* lisp/emacs-lisp/subr-x.el (internal--check-binding):
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-put-tag):
* lisp/emacs-lisp/testcover.el (testcover-1value):
* lisp/emacs-lisp/timer.el (timer-event-handler):
* lisp/emulation/viper-cmd.el (viper-toggle-parse-sexp-ignore-comments)
(viper-toggle-search-style, viper-kill-buffer)
(viper-brac-function):
* lisp/emulation/viper-macs.el (viper-record-kbd-macro):
* lisp/env.el (setenv):
* lisp/erc/erc-button.el (erc-nick-popup):
* lisp/erc/erc.el (erc-cmd-LOAD, erc-handle-login, english):
* lisp/eshell/em-dirs.el (eshell/cd):
* lisp/eshell/em-glob.el (eshell-glob-regexp)
(eshell-glob-entries):
* lisp/eshell/em-pred.el (eshell-parse-modifiers):
* lisp/eshell/esh-opt.el (eshell-show-usage):
* lisp/facemenu.el (facemenu-add-new-face)
(facemenu-add-new-color):
* lisp/faces.el (read-face-name, read-face-font, describe-face)
(x-resolve-font-name):
* lisp/files-x.el (modify-file-local-variable):
* lisp/files.el (locate-user-emacs-file, find-alternate-file)
(set-auto-mode, hack-one-local-variable--obsolete)
(dir-locals-set-directory-class, write-file, basic-save-buffer)
(delete-directory, copy-directory, recover-session)
(recover-session-finish, insert-directory)
(file-modes-char-to-who, file-modes-symbolic-to-number)
(move-file-to-trash):
* lisp/filesets.el (filesets-add-buffer, filesets-remove-buffer):
* lisp/find-cmd.el (find-generic, find-to-string):
* lisp/finder.el (finder-commentary):
* lisp/font-lock.el (font-lock-fontify-buffer):
* lisp/format.el (format-write-file, format-find-file)
(format-insert-file):
* lisp/frame.el (get-device-terminal, select-frame-by-name):
* lisp/fringe.el (fringe--check-style):
* lisp/gnus/nnmairix.el (nnmairix-widget-create-query):
* lisp/help-fns.el (help-fns--key-bindings)
(help-fns--compiler-macro, help-fns--parent-mode)
(help-fns--obsolete, help-fns--interactive-only)
(describe-function-1, describe-variable):
* lisp/help.el (describe-mode)
(describe-minor-mode-from-indicator):
* lisp/image.el (image-type):
* lisp/international/ccl.el (ccl-dump):
* lisp/international/fontset.el (x-must-resolve-font-name):
* lisp/international/mule-cmds.el (prefer-coding-system)
(select-safe-coding-system-interactively)
(select-safe-coding-system, activate-input-method)
(toggle-input-method, describe-current-input-method)
(describe-language-environment):
* lisp/international/mule-conf.el (code-offset):
* lisp/international/mule-diag.el (describe-character-set)
(list-input-methods-1):
* lisp/mail/feedmail.el (feedmail-run-the-queue):
* lisp/mouse.el (minor-mode-menu-from-indicator):
* lisp/mpc.el (mpc-playlist-rename):
* lisp/msb.el (msb--choose-menu):
* lisp/net/ange-ftp.el (ange-ftp-shell-command):
* lisp/net/imap.el (imap-interactive-login):
* lisp/net/mairix.el (mairix-widget-create-query):
* lisp/net/newst-backend.el (newsticker--sentinel-work):
* lisp/net/newst-treeview.el (newsticker--treeview-load):
* lisp/net/rlogin.el (rlogin):
* lisp/obsolete/iswitchb.el (iswitchb-possible-new-buffer):
* lisp/obsolete/otodo-mode.el (todo-more-important-p):
* lisp/obsolete/pgg-gpg.el (pgg-gpg-process-region):
* lisp/obsolete/pgg-pgp.el (pgg-pgp-process-region):
* lisp/obsolete/pgg-pgp5.el (pgg-pgp5-process-region):
* lisp/org/ob-core.el (org-babel-goto-named-src-block)
(org-babel-goto-named-result):
* lisp/org/ob-fortran.el (org-babel-fortran-ensure-main-wrap):
* lisp/org/ob-ref.el (org-babel-ref-resolve):
* lisp/org/org-agenda.el (org-agenda-prepare):
* lisp/org/org-clock.el (org-clock-notify-once-if-expired)
(org-clock-resolve):
* lisp/org/org-ctags.el (org-ctags-ask-rebuild-tags-file-then-find-tag):
* lisp/org/org-feed.el (org-feed-parse-atom-entry):
* lisp/org/org-habit.el (org-habit-parse-todo):
* lisp/org/org-mouse.el (org-mouse-popup-global-menu)
(org-mouse-context-menu):
* lisp/org/org-table.el (org-table-edit-formulas):
* lisp/org/ox.el (org-export-async-start):
* lisp/proced.el (proced-log):
* lisp/progmodes/ada-mode.el (ada-get-indent-case)
(ada-check-matching-start, ada-goto-matching-start):
* lisp/progmodes/ada-prj.el (ada-prj-display-page):
* lisp/progmodes/ada-xref.el (ada-find-executable):
* lisp/progmodes/ebrowse.el (ebrowse-tags-apropos):
* lisp/progmodes/etags.el (etags-tags-apropos-additional):
* lisp/progmodes/flymake.el (flymake-parse-err-lines)
(flymake-start-syntax-check-process):
* lisp/progmodes/python.el (python-shell-get-process-or-error)
(python-define-auxiliary-skeleton):
* lisp/progmodes/sql.el (sql-comint):
* lisp/progmodes/verilog-mode.el (verilog-load-file-at-point):
* lisp/progmodes/vhdl-mode.el (vhdl-widget-directory-validate):
* lisp/recentf.el (recentf-open-files):
* lisp/replace.el (query-replace-read-from)
(occur-after-change-function, occur-1):
* lisp/scroll-bar.el (scroll-bar-columns):
* lisp/server.el (server-get-auth-key):
* lisp/simple.el (execute-extended-command)
(undo-outer-limit-truncate, list-processes--refresh)
(compose-mail, set-variable, choose-completion-string)
(define-alternatives):
* lisp/startup.el (site-run-file, tty-handle-args, command-line)
(command-line-1):
* lisp/subr.el (noreturn, define-error, add-to-list)
(read-char-choice, version-to-list):
* lisp/term/common-win.el (x-handle-xrm-switch)
(x-handle-name-switch, x-handle-args):
* lisp/term/x-win.el (x-handle-parent-id, x-handle-smid):
* lisp/textmodes/reftex-ref.el (reftex-label):
* lisp/textmodes/reftex-toc.el (reftex-toc-rename-label):
* lisp/textmodes/two-column.el (2C-split):
* lisp/tutorial.el (tutorial--describe-nonstandard-key)
(tutorial--find-changed-keys):
* lisp/type-break.el (type-break-noninteractive-query):
* lisp/wdired.el (wdired-do-renames, wdired-do-symlink-changes)
(wdired-do-perm-changes):
* lisp/whitespace.el (whitespace-report-region):
Prefer grave quoting in source-code strings used to generate help
and diagnostics.
* lisp/faces.el (face-documentation):
No need to convert quotes, since the result is a docstring.
* lisp/info.el (Info-virtual-index-find-node)
(Info-virtual-index, info-apropos):
Simplify by generating only curved quotes, since info files are
typically that ways nowadays anyway.
* lisp/international/mule-diag.el (list-input-methods):
Don’t assume text quoting style is curved.
* lisp/org/org-bibtex.el (org-bibtex-fields):
Revert my recent changes, going back to the old quoting style.
2015-09-07 15:41:44 +00:00
|
|
|
|
(error (message "Failed to download `%s' archive."
|
2015-04-01 10:03:43 +00:00
|
|
|
|
(car archive))))))
|
|
|
|
|
|
|
2015-03-28 20:36:14 +00:00
|
|
|
|
;;;###autoload
|
2015-04-01 10:03:43 +00:00
|
|
|
|
(defun package-refresh-contents (&optional async)
|
2015-03-28 20:36:14 +00:00
|
|
|
|
"Download descriptions of all configured ELPA packages.
|
|
|
|
|
|
For each archive configured in the variable `package-archives',
|
|
|
|
|
|
inform Emacs about the latest versions of all packages it offers,
|
2015-04-01 10:03:43 +00:00
|
|
|
|
and make them available for download.
|
2015-04-01 17:21:47 +00:00
|
|
|
|
Optional argument ASYNC specifies whether to perform the
|
|
|
|
|
|
downloads in the background."
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(interactive)
|
|
|
|
|
|
(unless (file-exists-p package-user-dir)
|
|
|
|
|
|
(make-directory package-user-dir t))
|
|
|
|
|
|
(let ((default-keyring (expand-file-name "package-keyring.gpg"
|
2015-04-12 00:52:43 +00:00
|
|
|
|
data-directory))
|
2019-01-10 19:39:54 +00:00
|
|
|
|
(inhibit-message (or inhibit-message async)))
|
2019-07-26 06:30:24 +00:00
|
|
|
|
(when (and (package-check-signature) (file-exists-p default-keyring))
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(condition-case-unless-debug error
|
2016-02-17 07:44:16 +00:00
|
|
|
|
(package-import-keyring default-keyring)
|
2015-05-04 13:09:29 +00:00
|
|
|
|
(error (message "Cannot import default keyring: %S" (cdr error))))))
|
|
|
|
|
|
(package--download-and-read-archives async))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2015-03-28 20:36:14 +00:00
|
|
|
|
|
|
|
|
|
|
;;; Dependency Management
|
|
|
|
|
|
;; Calculating the full transaction necessary for an installation,
|
|
|
|
|
|
;; keeping track of which packages were installed strictly as
|
|
|
|
|
|
;; dependencies, and determining which packages cannot be removed
|
|
|
|
|
|
;; because they are dependencies.
|
2014-05-06 18:11:16 +00:00
|
|
|
|
(defun package-compute-transaction (packages requirements &optional seen)
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
"Return a list of packages to be installed, including PACKAGES.
|
|
|
|
|
|
PACKAGES should be a list of `package-desc'.
|
2010-08-29 22:15:09 +00:00
|
|
|
|
|
|
|
|
|
|
REQUIREMENTS should be a list of additional requirements; each
|
2011-04-22 02:35:48 +00:00
|
|
|
|
element in this list should have the form (PACKAGE VERSION-LIST),
|
|
|
|
|
|
where PACKAGE is a package name and VERSION-LIST is the required
|
|
|
|
|
|
version of that package.
|
2010-08-29 22:15:09 +00:00
|
|
|
|
|
|
|
|
|
|
This function recursively computes the requirements of the
|
|
|
|
|
|
packages in REQUIREMENTS, and returns a list of all the packages
|
|
|
|
|
|
that must be installed. Packages that are already installed are
|
2014-05-06 18:11:16 +00:00
|
|
|
|
not included in this list.
|
|
|
|
|
|
|
|
|
|
|
|
SEEN is used internally to detect infinite recursion."
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
;; FIXME: We really should use backtracking to explore the whole
|
|
|
|
|
|
;; search space (e.g. if foo require bar-1.3, and bar-1.4 requires toto-1.1
|
|
|
|
|
|
;; whereas bar-1.3 requires toto-1.0 and the user has put a hold on toto-1.0:
|
|
|
|
|
|
;; the current code might fail to see that it could install foo by using the
|
|
|
|
|
|
;; older bar-1.3).
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(dolist (elt requirements)
|
|
|
|
|
|
(let* ((next-pkg (car elt))
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(next-version (cadr elt))
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(already ()))
|
|
|
|
|
|
(dolist (pkg packages)
|
|
|
|
|
|
(if (eq next-pkg (package-desc-name pkg))
|
|
|
|
|
|
(setq already pkg)))
|
2014-05-06 18:11:16 +00:00
|
|
|
|
(when already
|
2014-03-21 06:06:52 +00:00
|
|
|
|
(if (version-list-<= next-version (package-desc-version already))
|
2014-05-06 18:11:16 +00:00
|
|
|
|
;; `next-pkg' is already in `packages', but its position there
|
|
|
|
|
|
;; means it might be installed too late: remove it from there, so
|
|
|
|
|
|
;; we re-add it (along with its dependencies) at an earlier place
|
|
|
|
|
|
;; below (bug#16994).
|
|
|
|
|
|
(if (memq already seen) ;Avoid inf-loop on dependency cycles.
|
2015-05-04 13:09:29 +00:00
|
|
|
|
(message "Dependency cycle going through %S"
|
2014-05-06 18:11:16 +00:00
|
|
|
|
(package-desc-full-name already))
|
|
|
|
|
|
(setq packages (delq already packages))
|
|
|
|
|
|
(setq already nil))
|
Go back to grave quoting in source-code docstrings etc.
This reverts almost all my recent changes to use curved quotes
in docstrings and/or strings used for error diagnostics.
There are a few exceptions, e.g., Bahá’í proper names.
* admin/unidata/unidata-gen.el (unidata-gen-table):
* lisp/abbrev.el (expand-region-abbrevs):
* lisp/align.el (align-region):
* lisp/allout.el (allout-mode, allout-solicit-alternate-bullet)
(outlineify-sticky):
* lisp/apropos.el (apropos-library):
* lisp/bookmark.el (bookmark-default-annotation-text):
* lisp/button.el (button-category-symbol, button-put)
(make-text-button):
* lisp/calc/calc-aent.el (math-read-if, math-read-factor):
* lisp/calc/calc-embed.el (calc-do-embedded):
* lisp/calc/calc-ext.el (calc-user-function-list):
* lisp/calc/calc-graph.el (calc-graph-show-dumb):
* lisp/calc/calc-help.el (calc-describe-key)
(calc-describe-thing, calc-full-help):
* lisp/calc/calc-lang.el (calc-c-language)
(math-parse-fortran-vector-end, math-parse-tex-sum)
(math-parse-eqn-matrix, math-parse-eqn-prime)
(calc-yacas-language, calc-maxima-language, calc-giac-language)
(math-read-giac-subscr, math-read-math-subscr)
(math-read-big-rec, math-read-big-balance):
* lisp/calc/calc-misc.el (calc-help, report-calc-bug):
* lisp/calc/calc-mode.el (calc-auto-why, calc-save-modes)
(calc-auto-recompute):
* lisp/calc/calc-prog.el (calc-fix-token-name)
(calc-read-parse-table-part, calc-user-define-invocation)
(math-do-arg-check):
* lisp/calc/calc-store.el (calc-edit-variable):
* lisp/calc/calc-units.el (math-build-units-table-buffer):
* lisp/calc/calc-vec.el (math-read-brackets):
* lisp/calc/calc-yank.el (calc-edit-mode):
* lisp/calc/calc.el (calc, calc-do, calc-user-invocation):
* lisp/calendar/appt.el (appt-display-message):
* lisp/calendar/diary-lib.el (diary-check-diary-file)
(diary-mail-entries, diary-from-outlook):
* lisp/calendar/icalendar.el (icalendar-export-region)
(icalendar--convert-float-to-ical)
(icalendar--convert-date-to-ical)
(icalendar--convert-ical-to-diary)
(icalendar--convert-recurring-to-diary)
(icalendar--add-diary-entry):
* lisp/calendar/time-date.el (format-seconds):
* lisp/calendar/timeclock.el (timeclock-mode-line-display)
(timeclock-make-hours-explicit, timeclock-log-data):
* lisp/calendar/todo-mode.el (todo-prefix, todo-delete-category)
(todo-item-mark, todo-check-format)
(todo-insert-item--next-param, todo-edit-item--next-key)
(todo-mode):
* lisp/cedet/ede/pmake.el (ede-proj-makefile-insert-dist-rules):
* lisp/cedet/mode-local.el (describe-mode-local-overload)
(mode-local-print-binding, mode-local-describe-bindings-2):
* lisp/cedet/semantic/complete.el (semantic-displayor-show-request):
* lisp/cedet/srecode/srt-mode.el (srecode-macro-help):
* lisp/cus-start.el (standard):
* lisp/cus-theme.el (describe-theme-1):
* lisp/custom.el (custom-add-dependencies, custom-check-theme)
(custom--sort-vars-1, load-theme):
* lisp/descr-text.el (describe-text-properties-1, describe-char):
* lisp/dired-x.el (dired-do-run-mail):
* lisp/dired.el (dired-log):
* lisp/emacs-lisp/advice.el (ad-read-advised-function)
(ad-read-advice-class, ad-read-advice-name, ad-enable-advice)
(ad-disable-advice, ad-remove-advice, ad-set-argument)
(ad-set-arguments, ad--defalias-fset, ad-activate)
(ad-deactivate):
* lisp/emacs-lisp/byte-opt.el (byte-compile-inline-expand)
(byte-compile-unfold-lambda, byte-optimize-form-code-walker)
(byte-optimize-while, byte-optimize-apply):
* lisp/emacs-lisp/byte-run.el (defun, defsubst):
* lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode)
(byte-compile-log-file, byte-compile-format-warn)
(byte-compile-nogroup-warn, byte-compile-arglist-warn)
(byte-compile-cl-warn)
(byte-compile-warn-about-unresolved-functions)
(byte-compile-file, byte-compile--declare-var)
(byte-compile-file-form-defmumble, byte-compile-form)
(byte-compile-normal-call, byte-compile-check-variable)
(byte-compile-variable-ref, byte-compile-variable-set)
(byte-compile-subr-wrong-args, byte-compile-setq-default)
(byte-compile-negation-optimizer)
(byte-compile-condition-case--old)
(byte-compile-condition-case--new, byte-compile-save-excursion)
(byte-compile-defvar, byte-compile-autoload)
(byte-compile-lambda-form)
(byte-compile-make-variable-buffer-local, display-call-tree)
(batch-byte-compile):
* lisp/emacs-lisp/cconv.el (cconv-convert, cconv--analyze-use):
* lisp/emacs-lisp/chart.el (chart-space-usage):
* lisp/emacs-lisp/check-declare.el (check-declare-scan)
(check-declare-warn, check-declare-file)
(check-declare-directory):
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine)
(checkdoc-message-text-engine):
* lisp/emacs-lisp/cl-extra.el (cl-parse-integer)
(cl--describe-class):
* lisp/emacs-lisp/cl-generic.el (cl-defgeneric)
(cl--generic-describe, cl-generic-generalizers):
* lisp/emacs-lisp/cl-macs.el (cl--parse-loop-clause, cl-tagbody)
(cl-symbol-macrolet):
* lisp/emacs-lisp/cl.el (cl-unload-function, flet):
* lisp/emacs-lisp/copyright.el (copyright)
(copyright-update-directory):
* lisp/emacs-lisp/edebug.el (edebug-read-list):
* lisp/emacs-lisp/eieio-base.el (eieio-persistent-read):
* lisp/emacs-lisp/eieio-core.el (eieio--slot-override)
(eieio-oref):
* lisp/emacs-lisp/eieio-opt.el (eieio-help-constructor):
* lisp/emacs-lisp/eieio-speedbar.el:
(eieio-speedbar-child-make-tag-lines)
(eieio-speedbar-child-description):
* lisp/emacs-lisp/eieio.el (defclass, change-class):
* lisp/emacs-lisp/elint.el (elint-file, elint-get-top-forms)
(elint-init-form, elint-check-defalias-form)
(elint-check-let-form):
* lisp/emacs-lisp/ert.el (ert-get-test, ert-results-mode-menu)
(ert-results-pop-to-backtrace-for-test-at-point)
(ert-results-pop-to-messages-for-test-at-point)
(ert-results-pop-to-should-forms-for-test-at-point)
(ert-describe-test):
* lisp/emacs-lisp/find-func.el (find-function-search-for-symbol)
(find-function-library):
* lisp/emacs-lisp/generator.el (iter-yield):
* lisp/emacs-lisp/gv.el (gv-define-simple-setter):
* lisp/emacs-lisp/lisp-mnt.el (lm-verify):
* lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning):
* lisp/emacs-lisp/map-ynp.el (map-y-or-n-p):
* lisp/emacs-lisp/nadvice.el (advice--make-docstring)
(advice--make, define-advice):
* lisp/emacs-lisp/package-x.el (package-upload-file):
* lisp/emacs-lisp/package.el (package-version-join)
(package-disabled-p, package-activate-1, package-activate)
(package--download-one-archive)
(package--download-and-read-archives)
(package-compute-transaction, package-install-from-archive)
(package-install, package-install-selected-packages)
(package-delete, package-autoremove, describe-package-1)
(package-install-button-action, package-delete-button-action)
(package-menu-hide-package, package-menu--list-to-prompt)
(package-menu--perform-transaction)
(package-menu--find-and-notify-upgrades):
* lisp/emacs-lisp/pcase.el (pcase-exhaustive, pcase--u1):
* lisp/emacs-lisp/re-builder.el (reb-enter-subexp-mode):
* lisp/emacs-lisp/ring.el (ring-previous, ring-next):
* lisp/emacs-lisp/rx.el (rx-check, rx-anything)
(rx-check-any-string, rx-check-any, rx-check-not, rx-=)
(rx-repeat, rx-check-backref, rx-syntax, rx-check-category)
(rx-form):
* lisp/emacs-lisp/smie.el (smie-config-save):
* lisp/emacs-lisp/subr-x.el (internal--check-binding):
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-put-tag):
* lisp/emacs-lisp/testcover.el (testcover-1value):
* lisp/emacs-lisp/timer.el (timer-event-handler):
* lisp/emulation/viper-cmd.el (viper-toggle-parse-sexp-ignore-comments)
(viper-toggle-search-style, viper-kill-buffer)
(viper-brac-function):
* lisp/emulation/viper-macs.el (viper-record-kbd-macro):
* lisp/env.el (setenv):
* lisp/erc/erc-button.el (erc-nick-popup):
* lisp/erc/erc.el (erc-cmd-LOAD, erc-handle-login, english):
* lisp/eshell/em-dirs.el (eshell/cd):
* lisp/eshell/em-glob.el (eshell-glob-regexp)
(eshell-glob-entries):
* lisp/eshell/em-pred.el (eshell-parse-modifiers):
* lisp/eshell/esh-opt.el (eshell-show-usage):
* lisp/facemenu.el (facemenu-add-new-face)
(facemenu-add-new-color):
* lisp/faces.el (read-face-name, read-face-font, describe-face)
(x-resolve-font-name):
* lisp/files-x.el (modify-file-local-variable):
* lisp/files.el (locate-user-emacs-file, find-alternate-file)
(set-auto-mode, hack-one-local-variable--obsolete)
(dir-locals-set-directory-class, write-file, basic-save-buffer)
(delete-directory, copy-directory, recover-session)
(recover-session-finish, insert-directory)
(file-modes-char-to-who, file-modes-symbolic-to-number)
(move-file-to-trash):
* lisp/filesets.el (filesets-add-buffer, filesets-remove-buffer):
* lisp/find-cmd.el (find-generic, find-to-string):
* lisp/finder.el (finder-commentary):
* lisp/font-lock.el (font-lock-fontify-buffer):
* lisp/format.el (format-write-file, format-find-file)
(format-insert-file):
* lisp/frame.el (get-device-terminal, select-frame-by-name):
* lisp/fringe.el (fringe--check-style):
* lisp/gnus/nnmairix.el (nnmairix-widget-create-query):
* lisp/help-fns.el (help-fns--key-bindings)
(help-fns--compiler-macro, help-fns--parent-mode)
(help-fns--obsolete, help-fns--interactive-only)
(describe-function-1, describe-variable):
* lisp/help.el (describe-mode)
(describe-minor-mode-from-indicator):
* lisp/image.el (image-type):
* lisp/international/ccl.el (ccl-dump):
* lisp/international/fontset.el (x-must-resolve-font-name):
* lisp/international/mule-cmds.el (prefer-coding-system)
(select-safe-coding-system-interactively)
(select-safe-coding-system, activate-input-method)
(toggle-input-method, describe-current-input-method)
(describe-language-environment):
* lisp/international/mule-conf.el (code-offset):
* lisp/international/mule-diag.el (describe-character-set)
(list-input-methods-1):
* lisp/mail/feedmail.el (feedmail-run-the-queue):
* lisp/mouse.el (minor-mode-menu-from-indicator):
* lisp/mpc.el (mpc-playlist-rename):
* lisp/msb.el (msb--choose-menu):
* lisp/net/ange-ftp.el (ange-ftp-shell-command):
* lisp/net/imap.el (imap-interactive-login):
* lisp/net/mairix.el (mairix-widget-create-query):
* lisp/net/newst-backend.el (newsticker--sentinel-work):
* lisp/net/newst-treeview.el (newsticker--treeview-load):
* lisp/net/rlogin.el (rlogin):
* lisp/obsolete/iswitchb.el (iswitchb-possible-new-buffer):
* lisp/obsolete/otodo-mode.el (todo-more-important-p):
* lisp/obsolete/pgg-gpg.el (pgg-gpg-process-region):
* lisp/obsolete/pgg-pgp.el (pgg-pgp-process-region):
* lisp/obsolete/pgg-pgp5.el (pgg-pgp5-process-region):
* lisp/org/ob-core.el (org-babel-goto-named-src-block)
(org-babel-goto-named-result):
* lisp/org/ob-fortran.el (org-babel-fortran-ensure-main-wrap):
* lisp/org/ob-ref.el (org-babel-ref-resolve):
* lisp/org/org-agenda.el (org-agenda-prepare):
* lisp/org/org-clock.el (org-clock-notify-once-if-expired)
(org-clock-resolve):
* lisp/org/org-ctags.el (org-ctags-ask-rebuild-tags-file-then-find-tag):
* lisp/org/org-feed.el (org-feed-parse-atom-entry):
* lisp/org/org-habit.el (org-habit-parse-todo):
* lisp/org/org-mouse.el (org-mouse-popup-global-menu)
(org-mouse-context-menu):
* lisp/org/org-table.el (org-table-edit-formulas):
* lisp/org/ox.el (org-export-async-start):
* lisp/proced.el (proced-log):
* lisp/progmodes/ada-mode.el (ada-get-indent-case)
(ada-check-matching-start, ada-goto-matching-start):
* lisp/progmodes/ada-prj.el (ada-prj-display-page):
* lisp/progmodes/ada-xref.el (ada-find-executable):
* lisp/progmodes/ebrowse.el (ebrowse-tags-apropos):
* lisp/progmodes/etags.el (etags-tags-apropos-additional):
* lisp/progmodes/flymake.el (flymake-parse-err-lines)
(flymake-start-syntax-check-process):
* lisp/progmodes/python.el (python-shell-get-process-or-error)
(python-define-auxiliary-skeleton):
* lisp/progmodes/sql.el (sql-comint):
* lisp/progmodes/verilog-mode.el (verilog-load-file-at-point):
* lisp/progmodes/vhdl-mode.el (vhdl-widget-directory-validate):
* lisp/recentf.el (recentf-open-files):
* lisp/replace.el (query-replace-read-from)
(occur-after-change-function, occur-1):
* lisp/scroll-bar.el (scroll-bar-columns):
* lisp/server.el (server-get-auth-key):
* lisp/simple.el (execute-extended-command)
(undo-outer-limit-truncate, list-processes--refresh)
(compose-mail, set-variable, choose-completion-string)
(define-alternatives):
* lisp/startup.el (site-run-file, tty-handle-args, command-line)
(command-line-1):
* lisp/subr.el (noreturn, define-error, add-to-list)
(read-char-choice, version-to-list):
* lisp/term/common-win.el (x-handle-xrm-switch)
(x-handle-name-switch, x-handle-args):
* lisp/term/x-win.el (x-handle-parent-id, x-handle-smid):
* lisp/textmodes/reftex-ref.el (reftex-label):
* lisp/textmodes/reftex-toc.el (reftex-toc-rename-label):
* lisp/textmodes/two-column.el (2C-split):
* lisp/tutorial.el (tutorial--describe-nonstandard-key)
(tutorial--find-changed-keys):
* lisp/type-break.el (type-break-noninteractive-query):
* lisp/wdired.el (wdired-do-renames, wdired-do-symlink-changes)
(wdired-do-perm-changes):
* lisp/whitespace.el (whitespace-report-region):
Prefer grave quoting in source-code strings used to generate help
and diagnostics.
* lisp/faces.el (face-documentation):
No need to convert quotes, since the result is a docstring.
* lisp/info.el (Info-virtual-index-find-node)
(Info-virtual-index, info-apropos):
Simplify by generating only curved quotes, since info files are
typically that ways nowadays anyway.
* lisp/international/mule-diag.el (list-input-methods):
Don’t assume text quoting style is curved.
* lisp/org/org-bibtex.el (org-bibtex-fields):
Revert my recent changes, going back to the old quoting style.
2015-09-07 15:41:44 +00:00
|
|
|
|
(error "Need package `%s-%s', but only %s is being installed"
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
next-pkg (package-version-join next-version)
|
|
|
|
|
|
(package-version-join (package-desc-version already)))))
|
2014-05-06 18:11:16 +00:00
|
|
|
|
(cond
|
|
|
|
|
|
(already nil)
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
((package-installed-p next-pkg next-version) nil)
|
|
|
|
|
|
|
|
|
|
|
|
(t
|
2015-02-02 11:55:24 +00:00
|
|
|
|
;; A package is required, but not installed. It might also be
|
|
|
|
|
|
;; blocked via `package-load-list'.
|
|
|
|
|
|
(let ((pkg-descs (cdr (assq next-pkg package-archive-contents)))
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(found nil)
|
2015-07-07 13:59:47 +00:00
|
|
|
|
(found-something nil)
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(problem nil))
|
|
|
|
|
|
(while (and pkg-descs (not found))
|
|
|
|
|
|
(let* ((pkg-desc (pop pkg-descs))
|
|
|
|
|
|
(version (package-desc-version pkg-desc))
|
2015-07-07 13:59:47 +00:00
|
|
|
|
(disabled (package-disabled-p next-pkg version)))
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(cond
|
|
|
|
|
|
((version-list-< version next-version)
|
2015-06-30 09:47:25 +00:00
|
|
|
|
;; pkg-descs is sorted by priority, not version, so
|
|
|
|
|
|
;; don't error just yet.
|
|
|
|
|
|
(unless found-something
|
|
|
|
|
|
(setq found-something (package-version-join version))))
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(disabled
|
|
|
|
|
|
(unless problem
|
|
|
|
|
|
(setq problem
|
|
|
|
|
|
(if (stringp disabled)
|
More-conservative ‘format’ quote restyling
Instead of restyling curved quotes for every call to ‘format’,
create a new function ‘format-message’ that does the restyling,
and using the new function instead of ‘format’ only in contexts
where this seems appropriate.
Problem reported by Dmitry Gutov and Andreas Schwab in:
http://lists.gnu.org/archive/html/emacs-devel/2015-08/msg00826.html
http://lists.gnu.org/archive/html/emacs-devel/2015-08/msg00827.html
* doc/lispref/commands.texi (Using Interactive):
* doc/lispref/control.texi (Signaling Errors, Signaling Errors):
* doc/lispref/display.texi (Displaying Messages, Progress):
* doc/lispref/elisp.texi:
* doc/lispref/help.texi (Keys in Documentation):
* doc/lispref/minibuf.texi (Minibuffer Misc):
* doc/lispref/strings.texi (Formatting Strings):
* etc/NEWS:
Document the changes.
* lisp/abbrev.el (expand-region-abbrevs):
* lisp/apropos.el (apropos-library):
* lisp/calc/calc-ext.el (calc-record-message)
(calc-user-function-list):
* lisp/calc/calc-help.el (calc-describe-key, calc-full-help):
* lisp/calc/calc-lang.el (math-read-big-balance):
* lisp/calc/calc-store.el (calc-edit-variable):
* lisp/calc/calc-units.el (math-build-units-table-buffer):
* lisp/calc/calc-yank.el (calc-edit-mode):
* lisp/calendar/icalendar.el (icalendar-export-region)
(icalendar--add-diary-entry):
* lisp/cedet/mode-local.el (mode-local-print-binding)
(mode-local-describe-bindings-2):
* lisp/cedet/semantic/complete.el (semantic-completion-message):
* lisp/cedet/semantic/edit.el (semantic-parse-changes-failed):
* lisp/cedet/semantic/wisent/comp.el (wisent-log):
* lisp/cedet/srecode/insert.el (srecode-insert-show-error-report):
* lisp/descr-text.el (describe-text-properties-1, describe-char):
* lisp/dframe.el (dframe-message):
* lisp/dired-aux.el (dired-query):
* lisp/emacs-lisp/byte-opt.el (byte-compile-log-lap-1):
* lisp/emacs-lisp/bytecomp.el (byte-compile-log)
(byte-compile-log-file, byte-compile-warn, byte-compile-form):
* lisp/emacs-lisp/cconv.el (cconv-convert, cconv--analyze-use)
(cconv-analyze-form):
* lisp/emacs-lisp/check-declare.el (check-declare-warn):
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine):
* lisp/emacs-lisp/cl-macs.el (cl-symbol-macrolet):
* lisp/emacs-lisp/edebug.el (edebug-format):
* lisp/emacs-lisp/eieio-core.el (eieio-oref):
* lisp/emacs-lisp/eldoc.el (eldoc-minibuffer-message)
(eldoc-message):
* lisp/emacs-lisp/elint.el (elint-file, elint-log):
* lisp/emacs-lisp/find-func.el (find-function-library):
* lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning):
* lisp/emacs-lisp/map-ynp.el (map-y-or-n-p):
* lisp/emacs-lisp/nadvice.el (advice--make-docstring):
* lisp/emacs-lisp/package.el (package-compute-transaction)
(package-install-button-action, package-delete-button-action)
(package-menu--list-to-prompt):
* lisp/emacs-lisp/timer.el (timer-event-handler):
* lisp/emacs-lisp/warnings.el (lwarn, warn):
* lisp/emulation/viper-cmd.el:
(viper-toggle-parse-sexp-ignore-comments)
(viper-kill-buffer, viper-brac-function):
* lisp/emulation/viper-macs.el (viper-record-kbd-macro):
* lisp/facemenu.el (facemenu-add-new-face):
* lisp/faces.el (face-documentation, read-face-name)
(face-read-string, read-face-font, describe-face):
* lisp/files.el (find-alternate-file, hack-local-variables)
(hack-one-local-variable--obsolete, write-file)
(basic-save-buffer, delete-directory):
* lisp/format.el (format-write-file, format-find-file)
(format-insert-file):
* lisp/help-fns.el (help-fns--key-bindings)
(help-fns--compiler-macro, help-fns--obsolete)
(help-fns--interactive-only, describe-function-1)
(describe-variable):
* lisp/help.el (describe-mode):
* lisp/info-xref.el (info-xref-output):
* lisp/info.el (Info-virtual-index-find-node)
(Info-virtual-index, info-apropos):
* lisp/international/kkc.el (kkc-error):
* lisp/international/mule-cmds.el:
(select-safe-coding-system-interactively)
(select-safe-coding-system, describe-input-method):
* lisp/international/mule-conf.el (code-offset):
* lisp/international/mule-diag.el (describe-character-set)
(list-input-methods-1):
* lisp/international/quail.el (quail-error):
* lisp/minibuffer.el (minibuffer-message):
* lisp/mpc.el (mpc--debug):
* lisp/msb.el (msb--choose-menu):
* lisp/net/ange-ftp.el (ange-ftp-message):
* lisp/net/gnutls.el (gnutls-message-maybe):
* lisp/net/newst-backend.el (newsticker--sentinel-work):
* lisp/net/newst-treeview.el (newsticker--treeview-load):
* lisp/net/nsm.el (nsm-query-user):
* lisp/net/rlogin.el (rlogin):
* lisp/net/soap-client.el (soap-warning):
* lisp/net/tramp.el (tramp-debug-message):
* lisp/nxml/nxml-outln.el (nxml-report-outline-error):
* lisp/nxml/nxml-parse.el (nxml-parse-error):
* lisp/nxml/rng-cmpct.el (rng-c-error):
* lisp/nxml/rng-match.el (rng-compile-error):
* lisp/nxml/rng-uri.el (rng-uri-error):
* lisp/obsolete/iswitchb.el (iswitchb-possible-new-buffer):
* lisp/org/org-ctags.el:
(org-ctags-ask-rebuild-tags-file-then-find-tag):
* lisp/proced.el (proced-log):
* lisp/progmodes/ebnf2ps.el (ebnf-log):
* lisp/progmodes/flymake.el (flymake-log):
* lisp/progmodes/vhdl-mode.el (vhdl-warning-when-idle):
* lisp/replace.el (occur-1):
* lisp/simple.el (execute-extended-command)
(undo-outer-limit-truncate, define-alternatives):
* lisp/startup.el (command-line):
* lisp/subr.el (error, user-error, add-to-list):
* lisp/tutorial.el (tutorial--describe-nonstandard-key)
(tutorial--find-changed-keys):
* src/callint.c (Fcall_interactively):
* src/editfns.c (Fmessage, Fmessage_box):
Restyle the quotes of format strings intended for use as a
diagnostic, when restyling seems appropriate.
* lisp/subr.el (format-message): New function.
* src/doc.c (Finternal__text_restyle): New function.
(syms_of_doc): Define it.
2015-08-24 05:38:02 +00:00
|
|
|
|
(format-message
|
Go back to grave quoting in source-code docstrings etc.
This reverts almost all my recent changes to use curved quotes
in docstrings and/or strings used for error diagnostics.
There are a few exceptions, e.g., Bahá’í proper names.
* admin/unidata/unidata-gen.el (unidata-gen-table):
* lisp/abbrev.el (expand-region-abbrevs):
* lisp/align.el (align-region):
* lisp/allout.el (allout-mode, allout-solicit-alternate-bullet)
(outlineify-sticky):
* lisp/apropos.el (apropos-library):
* lisp/bookmark.el (bookmark-default-annotation-text):
* lisp/button.el (button-category-symbol, button-put)
(make-text-button):
* lisp/calc/calc-aent.el (math-read-if, math-read-factor):
* lisp/calc/calc-embed.el (calc-do-embedded):
* lisp/calc/calc-ext.el (calc-user-function-list):
* lisp/calc/calc-graph.el (calc-graph-show-dumb):
* lisp/calc/calc-help.el (calc-describe-key)
(calc-describe-thing, calc-full-help):
* lisp/calc/calc-lang.el (calc-c-language)
(math-parse-fortran-vector-end, math-parse-tex-sum)
(math-parse-eqn-matrix, math-parse-eqn-prime)
(calc-yacas-language, calc-maxima-language, calc-giac-language)
(math-read-giac-subscr, math-read-math-subscr)
(math-read-big-rec, math-read-big-balance):
* lisp/calc/calc-misc.el (calc-help, report-calc-bug):
* lisp/calc/calc-mode.el (calc-auto-why, calc-save-modes)
(calc-auto-recompute):
* lisp/calc/calc-prog.el (calc-fix-token-name)
(calc-read-parse-table-part, calc-user-define-invocation)
(math-do-arg-check):
* lisp/calc/calc-store.el (calc-edit-variable):
* lisp/calc/calc-units.el (math-build-units-table-buffer):
* lisp/calc/calc-vec.el (math-read-brackets):
* lisp/calc/calc-yank.el (calc-edit-mode):
* lisp/calc/calc.el (calc, calc-do, calc-user-invocation):
* lisp/calendar/appt.el (appt-display-message):
* lisp/calendar/diary-lib.el (diary-check-diary-file)
(diary-mail-entries, diary-from-outlook):
* lisp/calendar/icalendar.el (icalendar-export-region)
(icalendar--convert-float-to-ical)
(icalendar--convert-date-to-ical)
(icalendar--convert-ical-to-diary)
(icalendar--convert-recurring-to-diary)
(icalendar--add-diary-entry):
* lisp/calendar/time-date.el (format-seconds):
* lisp/calendar/timeclock.el (timeclock-mode-line-display)
(timeclock-make-hours-explicit, timeclock-log-data):
* lisp/calendar/todo-mode.el (todo-prefix, todo-delete-category)
(todo-item-mark, todo-check-format)
(todo-insert-item--next-param, todo-edit-item--next-key)
(todo-mode):
* lisp/cedet/ede/pmake.el (ede-proj-makefile-insert-dist-rules):
* lisp/cedet/mode-local.el (describe-mode-local-overload)
(mode-local-print-binding, mode-local-describe-bindings-2):
* lisp/cedet/semantic/complete.el (semantic-displayor-show-request):
* lisp/cedet/srecode/srt-mode.el (srecode-macro-help):
* lisp/cus-start.el (standard):
* lisp/cus-theme.el (describe-theme-1):
* lisp/custom.el (custom-add-dependencies, custom-check-theme)
(custom--sort-vars-1, load-theme):
* lisp/descr-text.el (describe-text-properties-1, describe-char):
* lisp/dired-x.el (dired-do-run-mail):
* lisp/dired.el (dired-log):
* lisp/emacs-lisp/advice.el (ad-read-advised-function)
(ad-read-advice-class, ad-read-advice-name, ad-enable-advice)
(ad-disable-advice, ad-remove-advice, ad-set-argument)
(ad-set-arguments, ad--defalias-fset, ad-activate)
(ad-deactivate):
* lisp/emacs-lisp/byte-opt.el (byte-compile-inline-expand)
(byte-compile-unfold-lambda, byte-optimize-form-code-walker)
(byte-optimize-while, byte-optimize-apply):
* lisp/emacs-lisp/byte-run.el (defun, defsubst):
* lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode)
(byte-compile-log-file, byte-compile-format-warn)
(byte-compile-nogroup-warn, byte-compile-arglist-warn)
(byte-compile-cl-warn)
(byte-compile-warn-about-unresolved-functions)
(byte-compile-file, byte-compile--declare-var)
(byte-compile-file-form-defmumble, byte-compile-form)
(byte-compile-normal-call, byte-compile-check-variable)
(byte-compile-variable-ref, byte-compile-variable-set)
(byte-compile-subr-wrong-args, byte-compile-setq-default)
(byte-compile-negation-optimizer)
(byte-compile-condition-case--old)
(byte-compile-condition-case--new, byte-compile-save-excursion)
(byte-compile-defvar, byte-compile-autoload)
(byte-compile-lambda-form)
(byte-compile-make-variable-buffer-local, display-call-tree)
(batch-byte-compile):
* lisp/emacs-lisp/cconv.el (cconv-convert, cconv--analyze-use):
* lisp/emacs-lisp/chart.el (chart-space-usage):
* lisp/emacs-lisp/check-declare.el (check-declare-scan)
(check-declare-warn, check-declare-file)
(check-declare-directory):
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine)
(checkdoc-message-text-engine):
* lisp/emacs-lisp/cl-extra.el (cl-parse-integer)
(cl--describe-class):
* lisp/emacs-lisp/cl-generic.el (cl-defgeneric)
(cl--generic-describe, cl-generic-generalizers):
* lisp/emacs-lisp/cl-macs.el (cl--parse-loop-clause, cl-tagbody)
(cl-symbol-macrolet):
* lisp/emacs-lisp/cl.el (cl-unload-function, flet):
* lisp/emacs-lisp/copyright.el (copyright)
(copyright-update-directory):
* lisp/emacs-lisp/edebug.el (edebug-read-list):
* lisp/emacs-lisp/eieio-base.el (eieio-persistent-read):
* lisp/emacs-lisp/eieio-core.el (eieio--slot-override)
(eieio-oref):
* lisp/emacs-lisp/eieio-opt.el (eieio-help-constructor):
* lisp/emacs-lisp/eieio-speedbar.el:
(eieio-speedbar-child-make-tag-lines)
(eieio-speedbar-child-description):
* lisp/emacs-lisp/eieio.el (defclass, change-class):
* lisp/emacs-lisp/elint.el (elint-file, elint-get-top-forms)
(elint-init-form, elint-check-defalias-form)
(elint-check-let-form):
* lisp/emacs-lisp/ert.el (ert-get-test, ert-results-mode-menu)
(ert-results-pop-to-backtrace-for-test-at-point)
(ert-results-pop-to-messages-for-test-at-point)
(ert-results-pop-to-should-forms-for-test-at-point)
(ert-describe-test):
* lisp/emacs-lisp/find-func.el (find-function-search-for-symbol)
(find-function-library):
* lisp/emacs-lisp/generator.el (iter-yield):
* lisp/emacs-lisp/gv.el (gv-define-simple-setter):
* lisp/emacs-lisp/lisp-mnt.el (lm-verify):
* lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning):
* lisp/emacs-lisp/map-ynp.el (map-y-or-n-p):
* lisp/emacs-lisp/nadvice.el (advice--make-docstring)
(advice--make, define-advice):
* lisp/emacs-lisp/package-x.el (package-upload-file):
* lisp/emacs-lisp/package.el (package-version-join)
(package-disabled-p, package-activate-1, package-activate)
(package--download-one-archive)
(package--download-and-read-archives)
(package-compute-transaction, package-install-from-archive)
(package-install, package-install-selected-packages)
(package-delete, package-autoremove, describe-package-1)
(package-install-button-action, package-delete-button-action)
(package-menu-hide-package, package-menu--list-to-prompt)
(package-menu--perform-transaction)
(package-menu--find-and-notify-upgrades):
* lisp/emacs-lisp/pcase.el (pcase-exhaustive, pcase--u1):
* lisp/emacs-lisp/re-builder.el (reb-enter-subexp-mode):
* lisp/emacs-lisp/ring.el (ring-previous, ring-next):
* lisp/emacs-lisp/rx.el (rx-check, rx-anything)
(rx-check-any-string, rx-check-any, rx-check-not, rx-=)
(rx-repeat, rx-check-backref, rx-syntax, rx-check-category)
(rx-form):
* lisp/emacs-lisp/smie.el (smie-config-save):
* lisp/emacs-lisp/subr-x.el (internal--check-binding):
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-put-tag):
* lisp/emacs-lisp/testcover.el (testcover-1value):
* lisp/emacs-lisp/timer.el (timer-event-handler):
* lisp/emulation/viper-cmd.el (viper-toggle-parse-sexp-ignore-comments)
(viper-toggle-search-style, viper-kill-buffer)
(viper-brac-function):
* lisp/emulation/viper-macs.el (viper-record-kbd-macro):
* lisp/env.el (setenv):
* lisp/erc/erc-button.el (erc-nick-popup):
* lisp/erc/erc.el (erc-cmd-LOAD, erc-handle-login, english):
* lisp/eshell/em-dirs.el (eshell/cd):
* lisp/eshell/em-glob.el (eshell-glob-regexp)
(eshell-glob-entries):
* lisp/eshell/em-pred.el (eshell-parse-modifiers):
* lisp/eshell/esh-opt.el (eshell-show-usage):
* lisp/facemenu.el (facemenu-add-new-face)
(facemenu-add-new-color):
* lisp/faces.el (read-face-name, read-face-font, describe-face)
(x-resolve-font-name):
* lisp/files-x.el (modify-file-local-variable):
* lisp/files.el (locate-user-emacs-file, find-alternate-file)
(set-auto-mode, hack-one-local-variable--obsolete)
(dir-locals-set-directory-class, write-file, basic-save-buffer)
(delete-directory, copy-directory, recover-session)
(recover-session-finish, insert-directory)
(file-modes-char-to-who, file-modes-symbolic-to-number)
(move-file-to-trash):
* lisp/filesets.el (filesets-add-buffer, filesets-remove-buffer):
* lisp/find-cmd.el (find-generic, find-to-string):
* lisp/finder.el (finder-commentary):
* lisp/font-lock.el (font-lock-fontify-buffer):
* lisp/format.el (format-write-file, format-find-file)
(format-insert-file):
* lisp/frame.el (get-device-terminal, select-frame-by-name):
* lisp/fringe.el (fringe--check-style):
* lisp/gnus/nnmairix.el (nnmairix-widget-create-query):
* lisp/help-fns.el (help-fns--key-bindings)
(help-fns--compiler-macro, help-fns--parent-mode)
(help-fns--obsolete, help-fns--interactive-only)
(describe-function-1, describe-variable):
* lisp/help.el (describe-mode)
(describe-minor-mode-from-indicator):
* lisp/image.el (image-type):
* lisp/international/ccl.el (ccl-dump):
* lisp/international/fontset.el (x-must-resolve-font-name):
* lisp/international/mule-cmds.el (prefer-coding-system)
(select-safe-coding-system-interactively)
(select-safe-coding-system, activate-input-method)
(toggle-input-method, describe-current-input-method)
(describe-language-environment):
* lisp/international/mule-conf.el (code-offset):
* lisp/international/mule-diag.el (describe-character-set)
(list-input-methods-1):
* lisp/mail/feedmail.el (feedmail-run-the-queue):
* lisp/mouse.el (minor-mode-menu-from-indicator):
* lisp/mpc.el (mpc-playlist-rename):
* lisp/msb.el (msb--choose-menu):
* lisp/net/ange-ftp.el (ange-ftp-shell-command):
* lisp/net/imap.el (imap-interactive-login):
* lisp/net/mairix.el (mairix-widget-create-query):
* lisp/net/newst-backend.el (newsticker--sentinel-work):
* lisp/net/newst-treeview.el (newsticker--treeview-load):
* lisp/net/rlogin.el (rlogin):
* lisp/obsolete/iswitchb.el (iswitchb-possible-new-buffer):
* lisp/obsolete/otodo-mode.el (todo-more-important-p):
* lisp/obsolete/pgg-gpg.el (pgg-gpg-process-region):
* lisp/obsolete/pgg-pgp.el (pgg-pgp-process-region):
* lisp/obsolete/pgg-pgp5.el (pgg-pgp5-process-region):
* lisp/org/ob-core.el (org-babel-goto-named-src-block)
(org-babel-goto-named-result):
* lisp/org/ob-fortran.el (org-babel-fortran-ensure-main-wrap):
* lisp/org/ob-ref.el (org-babel-ref-resolve):
* lisp/org/org-agenda.el (org-agenda-prepare):
* lisp/org/org-clock.el (org-clock-notify-once-if-expired)
(org-clock-resolve):
* lisp/org/org-ctags.el (org-ctags-ask-rebuild-tags-file-then-find-tag):
* lisp/org/org-feed.el (org-feed-parse-atom-entry):
* lisp/org/org-habit.el (org-habit-parse-todo):
* lisp/org/org-mouse.el (org-mouse-popup-global-menu)
(org-mouse-context-menu):
* lisp/org/org-table.el (org-table-edit-formulas):
* lisp/org/ox.el (org-export-async-start):
* lisp/proced.el (proced-log):
* lisp/progmodes/ada-mode.el (ada-get-indent-case)
(ada-check-matching-start, ada-goto-matching-start):
* lisp/progmodes/ada-prj.el (ada-prj-display-page):
* lisp/progmodes/ada-xref.el (ada-find-executable):
* lisp/progmodes/ebrowse.el (ebrowse-tags-apropos):
* lisp/progmodes/etags.el (etags-tags-apropos-additional):
* lisp/progmodes/flymake.el (flymake-parse-err-lines)
(flymake-start-syntax-check-process):
* lisp/progmodes/python.el (python-shell-get-process-or-error)
(python-define-auxiliary-skeleton):
* lisp/progmodes/sql.el (sql-comint):
* lisp/progmodes/verilog-mode.el (verilog-load-file-at-point):
* lisp/progmodes/vhdl-mode.el (vhdl-widget-directory-validate):
* lisp/recentf.el (recentf-open-files):
* lisp/replace.el (query-replace-read-from)
(occur-after-change-function, occur-1):
* lisp/scroll-bar.el (scroll-bar-columns):
* lisp/server.el (server-get-auth-key):
* lisp/simple.el (execute-extended-command)
(undo-outer-limit-truncate, list-processes--refresh)
(compose-mail, set-variable, choose-completion-string)
(define-alternatives):
* lisp/startup.el (site-run-file, tty-handle-args, command-line)
(command-line-1):
* lisp/subr.el (noreturn, define-error, add-to-list)
(read-char-choice, version-to-list):
* lisp/term/common-win.el (x-handle-xrm-switch)
(x-handle-name-switch, x-handle-args):
* lisp/term/x-win.el (x-handle-parent-id, x-handle-smid):
* lisp/textmodes/reftex-ref.el (reftex-label):
* lisp/textmodes/reftex-toc.el (reftex-toc-rename-label):
* lisp/textmodes/two-column.el (2C-split):
* lisp/tutorial.el (tutorial--describe-nonstandard-key)
(tutorial--find-changed-keys):
* lisp/type-break.el (type-break-noninteractive-query):
* lisp/wdired.el (wdired-do-renames, wdired-do-symlink-changes)
(wdired-do-perm-changes):
* lisp/whitespace.el (whitespace-report-region):
Prefer grave quoting in source-code strings used to generate help
and diagnostics.
* lisp/faces.el (face-documentation):
No need to convert quotes, since the result is a docstring.
* lisp/info.el (Info-virtual-index-find-node)
(Info-virtual-index, info-apropos):
Simplify by generating only curved quotes, since info files are
typically that ways nowadays anyway.
* lisp/international/mule-diag.el (list-input-methods):
Don’t assume text quoting style is curved.
* lisp/org/org-bibtex.el (org-bibtex-fields):
Revert my recent changes, going back to the old quoting style.
2015-09-07 15:41:44 +00:00
|
|
|
|
"Package `%s' held at version %s, but version %s required"
|
More-conservative ‘format’ quote restyling
Instead of restyling curved quotes for every call to ‘format’,
create a new function ‘format-message’ that does the restyling,
and using the new function instead of ‘format’ only in contexts
where this seems appropriate.
Problem reported by Dmitry Gutov and Andreas Schwab in:
http://lists.gnu.org/archive/html/emacs-devel/2015-08/msg00826.html
http://lists.gnu.org/archive/html/emacs-devel/2015-08/msg00827.html
* doc/lispref/commands.texi (Using Interactive):
* doc/lispref/control.texi (Signaling Errors, Signaling Errors):
* doc/lispref/display.texi (Displaying Messages, Progress):
* doc/lispref/elisp.texi:
* doc/lispref/help.texi (Keys in Documentation):
* doc/lispref/minibuf.texi (Minibuffer Misc):
* doc/lispref/strings.texi (Formatting Strings):
* etc/NEWS:
Document the changes.
* lisp/abbrev.el (expand-region-abbrevs):
* lisp/apropos.el (apropos-library):
* lisp/calc/calc-ext.el (calc-record-message)
(calc-user-function-list):
* lisp/calc/calc-help.el (calc-describe-key, calc-full-help):
* lisp/calc/calc-lang.el (math-read-big-balance):
* lisp/calc/calc-store.el (calc-edit-variable):
* lisp/calc/calc-units.el (math-build-units-table-buffer):
* lisp/calc/calc-yank.el (calc-edit-mode):
* lisp/calendar/icalendar.el (icalendar-export-region)
(icalendar--add-diary-entry):
* lisp/cedet/mode-local.el (mode-local-print-binding)
(mode-local-describe-bindings-2):
* lisp/cedet/semantic/complete.el (semantic-completion-message):
* lisp/cedet/semantic/edit.el (semantic-parse-changes-failed):
* lisp/cedet/semantic/wisent/comp.el (wisent-log):
* lisp/cedet/srecode/insert.el (srecode-insert-show-error-report):
* lisp/descr-text.el (describe-text-properties-1, describe-char):
* lisp/dframe.el (dframe-message):
* lisp/dired-aux.el (dired-query):
* lisp/emacs-lisp/byte-opt.el (byte-compile-log-lap-1):
* lisp/emacs-lisp/bytecomp.el (byte-compile-log)
(byte-compile-log-file, byte-compile-warn, byte-compile-form):
* lisp/emacs-lisp/cconv.el (cconv-convert, cconv--analyze-use)
(cconv-analyze-form):
* lisp/emacs-lisp/check-declare.el (check-declare-warn):
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine):
* lisp/emacs-lisp/cl-macs.el (cl-symbol-macrolet):
* lisp/emacs-lisp/edebug.el (edebug-format):
* lisp/emacs-lisp/eieio-core.el (eieio-oref):
* lisp/emacs-lisp/eldoc.el (eldoc-minibuffer-message)
(eldoc-message):
* lisp/emacs-lisp/elint.el (elint-file, elint-log):
* lisp/emacs-lisp/find-func.el (find-function-library):
* lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning):
* lisp/emacs-lisp/map-ynp.el (map-y-or-n-p):
* lisp/emacs-lisp/nadvice.el (advice--make-docstring):
* lisp/emacs-lisp/package.el (package-compute-transaction)
(package-install-button-action, package-delete-button-action)
(package-menu--list-to-prompt):
* lisp/emacs-lisp/timer.el (timer-event-handler):
* lisp/emacs-lisp/warnings.el (lwarn, warn):
* lisp/emulation/viper-cmd.el:
(viper-toggle-parse-sexp-ignore-comments)
(viper-kill-buffer, viper-brac-function):
* lisp/emulation/viper-macs.el (viper-record-kbd-macro):
* lisp/facemenu.el (facemenu-add-new-face):
* lisp/faces.el (face-documentation, read-face-name)
(face-read-string, read-face-font, describe-face):
* lisp/files.el (find-alternate-file, hack-local-variables)
(hack-one-local-variable--obsolete, write-file)
(basic-save-buffer, delete-directory):
* lisp/format.el (format-write-file, format-find-file)
(format-insert-file):
* lisp/help-fns.el (help-fns--key-bindings)
(help-fns--compiler-macro, help-fns--obsolete)
(help-fns--interactive-only, describe-function-1)
(describe-variable):
* lisp/help.el (describe-mode):
* lisp/info-xref.el (info-xref-output):
* lisp/info.el (Info-virtual-index-find-node)
(Info-virtual-index, info-apropos):
* lisp/international/kkc.el (kkc-error):
* lisp/international/mule-cmds.el:
(select-safe-coding-system-interactively)
(select-safe-coding-system, describe-input-method):
* lisp/international/mule-conf.el (code-offset):
* lisp/international/mule-diag.el (describe-character-set)
(list-input-methods-1):
* lisp/international/quail.el (quail-error):
* lisp/minibuffer.el (minibuffer-message):
* lisp/mpc.el (mpc--debug):
* lisp/msb.el (msb--choose-menu):
* lisp/net/ange-ftp.el (ange-ftp-message):
* lisp/net/gnutls.el (gnutls-message-maybe):
* lisp/net/newst-backend.el (newsticker--sentinel-work):
* lisp/net/newst-treeview.el (newsticker--treeview-load):
* lisp/net/nsm.el (nsm-query-user):
* lisp/net/rlogin.el (rlogin):
* lisp/net/soap-client.el (soap-warning):
* lisp/net/tramp.el (tramp-debug-message):
* lisp/nxml/nxml-outln.el (nxml-report-outline-error):
* lisp/nxml/nxml-parse.el (nxml-parse-error):
* lisp/nxml/rng-cmpct.el (rng-c-error):
* lisp/nxml/rng-match.el (rng-compile-error):
* lisp/nxml/rng-uri.el (rng-uri-error):
* lisp/obsolete/iswitchb.el (iswitchb-possible-new-buffer):
* lisp/org/org-ctags.el:
(org-ctags-ask-rebuild-tags-file-then-find-tag):
* lisp/proced.el (proced-log):
* lisp/progmodes/ebnf2ps.el (ebnf-log):
* lisp/progmodes/flymake.el (flymake-log):
* lisp/progmodes/vhdl-mode.el (vhdl-warning-when-idle):
* lisp/replace.el (occur-1):
* lisp/simple.el (execute-extended-command)
(undo-outer-limit-truncate, define-alternatives):
* lisp/startup.el (command-line):
* lisp/subr.el (error, user-error, add-to-list):
* lisp/tutorial.el (tutorial--describe-nonstandard-key)
(tutorial--find-changed-keys):
* src/callint.c (Fcall_interactively):
* src/editfns.c (Fmessage, Fmessage_box):
Restyle the quotes of format strings intended for use as a
diagnostic, when restyling seems appropriate.
* lisp/subr.el (format-message): New function.
* src/doc.c (Finternal__text_restyle): New function.
(syms_of_doc): Define it.
2015-08-24 05:38:02 +00:00
|
|
|
|
next-pkg disabled
|
|
|
|
|
|
(package-version-join next-version))
|
Go back to grave quoting in source-code docstrings etc.
This reverts almost all my recent changes to use curved quotes
in docstrings and/or strings used for error diagnostics.
There are a few exceptions, e.g., Bahá’í proper names.
* admin/unidata/unidata-gen.el (unidata-gen-table):
* lisp/abbrev.el (expand-region-abbrevs):
* lisp/align.el (align-region):
* lisp/allout.el (allout-mode, allout-solicit-alternate-bullet)
(outlineify-sticky):
* lisp/apropos.el (apropos-library):
* lisp/bookmark.el (bookmark-default-annotation-text):
* lisp/button.el (button-category-symbol, button-put)
(make-text-button):
* lisp/calc/calc-aent.el (math-read-if, math-read-factor):
* lisp/calc/calc-embed.el (calc-do-embedded):
* lisp/calc/calc-ext.el (calc-user-function-list):
* lisp/calc/calc-graph.el (calc-graph-show-dumb):
* lisp/calc/calc-help.el (calc-describe-key)
(calc-describe-thing, calc-full-help):
* lisp/calc/calc-lang.el (calc-c-language)
(math-parse-fortran-vector-end, math-parse-tex-sum)
(math-parse-eqn-matrix, math-parse-eqn-prime)
(calc-yacas-language, calc-maxima-language, calc-giac-language)
(math-read-giac-subscr, math-read-math-subscr)
(math-read-big-rec, math-read-big-balance):
* lisp/calc/calc-misc.el (calc-help, report-calc-bug):
* lisp/calc/calc-mode.el (calc-auto-why, calc-save-modes)
(calc-auto-recompute):
* lisp/calc/calc-prog.el (calc-fix-token-name)
(calc-read-parse-table-part, calc-user-define-invocation)
(math-do-arg-check):
* lisp/calc/calc-store.el (calc-edit-variable):
* lisp/calc/calc-units.el (math-build-units-table-buffer):
* lisp/calc/calc-vec.el (math-read-brackets):
* lisp/calc/calc-yank.el (calc-edit-mode):
* lisp/calc/calc.el (calc, calc-do, calc-user-invocation):
* lisp/calendar/appt.el (appt-display-message):
* lisp/calendar/diary-lib.el (diary-check-diary-file)
(diary-mail-entries, diary-from-outlook):
* lisp/calendar/icalendar.el (icalendar-export-region)
(icalendar--convert-float-to-ical)
(icalendar--convert-date-to-ical)
(icalendar--convert-ical-to-diary)
(icalendar--convert-recurring-to-diary)
(icalendar--add-diary-entry):
* lisp/calendar/time-date.el (format-seconds):
* lisp/calendar/timeclock.el (timeclock-mode-line-display)
(timeclock-make-hours-explicit, timeclock-log-data):
* lisp/calendar/todo-mode.el (todo-prefix, todo-delete-category)
(todo-item-mark, todo-check-format)
(todo-insert-item--next-param, todo-edit-item--next-key)
(todo-mode):
* lisp/cedet/ede/pmake.el (ede-proj-makefile-insert-dist-rules):
* lisp/cedet/mode-local.el (describe-mode-local-overload)
(mode-local-print-binding, mode-local-describe-bindings-2):
* lisp/cedet/semantic/complete.el (semantic-displayor-show-request):
* lisp/cedet/srecode/srt-mode.el (srecode-macro-help):
* lisp/cus-start.el (standard):
* lisp/cus-theme.el (describe-theme-1):
* lisp/custom.el (custom-add-dependencies, custom-check-theme)
(custom--sort-vars-1, load-theme):
* lisp/descr-text.el (describe-text-properties-1, describe-char):
* lisp/dired-x.el (dired-do-run-mail):
* lisp/dired.el (dired-log):
* lisp/emacs-lisp/advice.el (ad-read-advised-function)
(ad-read-advice-class, ad-read-advice-name, ad-enable-advice)
(ad-disable-advice, ad-remove-advice, ad-set-argument)
(ad-set-arguments, ad--defalias-fset, ad-activate)
(ad-deactivate):
* lisp/emacs-lisp/byte-opt.el (byte-compile-inline-expand)
(byte-compile-unfold-lambda, byte-optimize-form-code-walker)
(byte-optimize-while, byte-optimize-apply):
* lisp/emacs-lisp/byte-run.el (defun, defsubst):
* lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode)
(byte-compile-log-file, byte-compile-format-warn)
(byte-compile-nogroup-warn, byte-compile-arglist-warn)
(byte-compile-cl-warn)
(byte-compile-warn-about-unresolved-functions)
(byte-compile-file, byte-compile--declare-var)
(byte-compile-file-form-defmumble, byte-compile-form)
(byte-compile-normal-call, byte-compile-check-variable)
(byte-compile-variable-ref, byte-compile-variable-set)
(byte-compile-subr-wrong-args, byte-compile-setq-default)
(byte-compile-negation-optimizer)
(byte-compile-condition-case--old)
(byte-compile-condition-case--new, byte-compile-save-excursion)
(byte-compile-defvar, byte-compile-autoload)
(byte-compile-lambda-form)
(byte-compile-make-variable-buffer-local, display-call-tree)
(batch-byte-compile):
* lisp/emacs-lisp/cconv.el (cconv-convert, cconv--analyze-use):
* lisp/emacs-lisp/chart.el (chart-space-usage):
* lisp/emacs-lisp/check-declare.el (check-declare-scan)
(check-declare-warn, check-declare-file)
(check-declare-directory):
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine)
(checkdoc-message-text-engine):
* lisp/emacs-lisp/cl-extra.el (cl-parse-integer)
(cl--describe-class):
* lisp/emacs-lisp/cl-generic.el (cl-defgeneric)
(cl--generic-describe, cl-generic-generalizers):
* lisp/emacs-lisp/cl-macs.el (cl--parse-loop-clause, cl-tagbody)
(cl-symbol-macrolet):
* lisp/emacs-lisp/cl.el (cl-unload-function, flet):
* lisp/emacs-lisp/copyright.el (copyright)
(copyright-update-directory):
* lisp/emacs-lisp/edebug.el (edebug-read-list):
* lisp/emacs-lisp/eieio-base.el (eieio-persistent-read):
* lisp/emacs-lisp/eieio-core.el (eieio--slot-override)
(eieio-oref):
* lisp/emacs-lisp/eieio-opt.el (eieio-help-constructor):
* lisp/emacs-lisp/eieio-speedbar.el:
(eieio-speedbar-child-make-tag-lines)
(eieio-speedbar-child-description):
* lisp/emacs-lisp/eieio.el (defclass, change-class):
* lisp/emacs-lisp/elint.el (elint-file, elint-get-top-forms)
(elint-init-form, elint-check-defalias-form)
(elint-check-let-form):
* lisp/emacs-lisp/ert.el (ert-get-test, ert-results-mode-menu)
(ert-results-pop-to-backtrace-for-test-at-point)
(ert-results-pop-to-messages-for-test-at-point)
(ert-results-pop-to-should-forms-for-test-at-point)
(ert-describe-test):
* lisp/emacs-lisp/find-func.el (find-function-search-for-symbol)
(find-function-library):
* lisp/emacs-lisp/generator.el (iter-yield):
* lisp/emacs-lisp/gv.el (gv-define-simple-setter):
* lisp/emacs-lisp/lisp-mnt.el (lm-verify):
* lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning):
* lisp/emacs-lisp/map-ynp.el (map-y-or-n-p):
* lisp/emacs-lisp/nadvice.el (advice--make-docstring)
(advice--make, define-advice):
* lisp/emacs-lisp/package-x.el (package-upload-file):
* lisp/emacs-lisp/package.el (package-version-join)
(package-disabled-p, package-activate-1, package-activate)
(package--download-one-archive)
(package--download-and-read-archives)
(package-compute-transaction, package-install-from-archive)
(package-install, package-install-selected-packages)
(package-delete, package-autoremove, describe-package-1)
(package-install-button-action, package-delete-button-action)
(package-menu-hide-package, package-menu--list-to-prompt)
(package-menu--perform-transaction)
(package-menu--find-and-notify-upgrades):
* lisp/emacs-lisp/pcase.el (pcase-exhaustive, pcase--u1):
* lisp/emacs-lisp/re-builder.el (reb-enter-subexp-mode):
* lisp/emacs-lisp/ring.el (ring-previous, ring-next):
* lisp/emacs-lisp/rx.el (rx-check, rx-anything)
(rx-check-any-string, rx-check-any, rx-check-not, rx-=)
(rx-repeat, rx-check-backref, rx-syntax, rx-check-category)
(rx-form):
* lisp/emacs-lisp/smie.el (smie-config-save):
* lisp/emacs-lisp/subr-x.el (internal--check-binding):
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-put-tag):
* lisp/emacs-lisp/testcover.el (testcover-1value):
* lisp/emacs-lisp/timer.el (timer-event-handler):
* lisp/emulation/viper-cmd.el (viper-toggle-parse-sexp-ignore-comments)
(viper-toggle-search-style, viper-kill-buffer)
(viper-brac-function):
* lisp/emulation/viper-macs.el (viper-record-kbd-macro):
* lisp/env.el (setenv):
* lisp/erc/erc-button.el (erc-nick-popup):
* lisp/erc/erc.el (erc-cmd-LOAD, erc-handle-login, english):
* lisp/eshell/em-dirs.el (eshell/cd):
* lisp/eshell/em-glob.el (eshell-glob-regexp)
(eshell-glob-entries):
* lisp/eshell/em-pred.el (eshell-parse-modifiers):
* lisp/eshell/esh-opt.el (eshell-show-usage):
* lisp/facemenu.el (facemenu-add-new-face)
(facemenu-add-new-color):
* lisp/faces.el (read-face-name, read-face-font, describe-face)
(x-resolve-font-name):
* lisp/files-x.el (modify-file-local-variable):
* lisp/files.el (locate-user-emacs-file, find-alternate-file)
(set-auto-mode, hack-one-local-variable--obsolete)
(dir-locals-set-directory-class, write-file, basic-save-buffer)
(delete-directory, copy-directory, recover-session)
(recover-session-finish, insert-directory)
(file-modes-char-to-who, file-modes-symbolic-to-number)
(move-file-to-trash):
* lisp/filesets.el (filesets-add-buffer, filesets-remove-buffer):
* lisp/find-cmd.el (find-generic, find-to-string):
* lisp/finder.el (finder-commentary):
* lisp/font-lock.el (font-lock-fontify-buffer):
* lisp/format.el (format-write-file, format-find-file)
(format-insert-file):
* lisp/frame.el (get-device-terminal, select-frame-by-name):
* lisp/fringe.el (fringe--check-style):
* lisp/gnus/nnmairix.el (nnmairix-widget-create-query):
* lisp/help-fns.el (help-fns--key-bindings)
(help-fns--compiler-macro, help-fns--parent-mode)
(help-fns--obsolete, help-fns--interactive-only)
(describe-function-1, describe-variable):
* lisp/help.el (describe-mode)
(describe-minor-mode-from-indicator):
* lisp/image.el (image-type):
* lisp/international/ccl.el (ccl-dump):
* lisp/international/fontset.el (x-must-resolve-font-name):
* lisp/international/mule-cmds.el (prefer-coding-system)
(select-safe-coding-system-interactively)
(select-safe-coding-system, activate-input-method)
(toggle-input-method, describe-current-input-method)
(describe-language-environment):
* lisp/international/mule-conf.el (code-offset):
* lisp/international/mule-diag.el (describe-character-set)
(list-input-methods-1):
* lisp/mail/feedmail.el (feedmail-run-the-queue):
* lisp/mouse.el (minor-mode-menu-from-indicator):
* lisp/mpc.el (mpc-playlist-rename):
* lisp/msb.el (msb--choose-menu):
* lisp/net/ange-ftp.el (ange-ftp-shell-command):
* lisp/net/imap.el (imap-interactive-login):
* lisp/net/mairix.el (mairix-widget-create-query):
* lisp/net/newst-backend.el (newsticker--sentinel-work):
* lisp/net/newst-treeview.el (newsticker--treeview-load):
* lisp/net/rlogin.el (rlogin):
* lisp/obsolete/iswitchb.el (iswitchb-possible-new-buffer):
* lisp/obsolete/otodo-mode.el (todo-more-important-p):
* lisp/obsolete/pgg-gpg.el (pgg-gpg-process-region):
* lisp/obsolete/pgg-pgp.el (pgg-pgp-process-region):
* lisp/obsolete/pgg-pgp5.el (pgg-pgp5-process-region):
* lisp/org/ob-core.el (org-babel-goto-named-src-block)
(org-babel-goto-named-result):
* lisp/org/ob-fortran.el (org-babel-fortran-ensure-main-wrap):
* lisp/org/ob-ref.el (org-babel-ref-resolve):
* lisp/org/org-agenda.el (org-agenda-prepare):
* lisp/org/org-clock.el (org-clock-notify-once-if-expired)
(org-clock-resolve):
* lisp/org/org-ctags.el (org-ctags-ask-rebuild-tags-file-then-find-tag):
* lisp/org/org-feed.el (org-feed-parse-atom-entry):
* lisp/org/org-habit.el (org-habit-parse-todo):
* lisp/org/org-mouse.el (org-mouse-popup-global-menu)
(org-mouse-context-menu):
* lisp/org/org-table.el (org-table-edit-formulas):
* lisp/org/ox.el (org-export-async-start):
* lisp/proced.el (proced-log):
* lisp/progmodes/ada-mode.el (ada-get-indent-case)
(ada-check-matching-start, ada-goto-matching-start):
* lisp/progmodes/ada-prj.el (ada-prj-display-page):
* lisp/progmodes/ada-xref.el (ada-find-executable):
* lisp/progmodes/ebrowse.el (ebrowse-tags-apropos):
* lisp/progmodes/etags.el (etags-tags-apropos-additional):
* lisp/progmodes/flymake.el (flymake-parse-err-lines)
(flymake-start-syntax-check-process):
* lisp/progmodes/python.el (python-shell-get-process-or-error)
(python-define-auxiliary-skeleton):
* lisp/progmodes/sql.el (sql-comint):
* lisp/progmodes/verilog-mode.el (verilog-load-file-at-point):
* lisp/progmodes/vhdl-mode.el (vhdl-widget-directory-validate):
* lisp/recentf.el (recentf-open-files):
* lisp/replace.el (query-replace-read-from)
(occur-after-change-function, occur-1):
* lisp/scroll-bar.el (scroll-bar-columns):
* lisp/server.el (server-get-auth-key):
* lisp/simple.el (execute-extended-command)
(undo-outer-limit-truncate, list-processes--refresh)
(compose-mail, set-variable, choose-completion-string)
(define-alternatives):
* lisp/startup.el (site-run-file, tty-handle-args, command-line)
(command-line-1):
* lisp/subr.el (noreturn, define-error, add-to-list)
(read-char-choice, version-to-list):
* lisp/term/common-win.el (x-handle-xrm-switch)
(x-handle-name-switch, x-handle-args):
* lisp/term/x-win.el (x-handle-parent-id, x-handle-smid):
* lisp/textmodes/reftex-ref.el (reftex-label):
* lisp/textmodes/reftex-toc.el (reftex-toc-rename-label):
* lisp/textmodes/two-column.el (2C-split):
* lisp/tutorial.el (tutorial--describe-nonstandard-key)
(tutorial--find-changed-keys):
* lisp/type-break.el (type-break-noninteractive-query):
* lisp/wdired.el (wdired-do-renames, wdired-do-symlink-changes)
(wdired-do-perm-changes):
* lisp/whitespace.el (whitespace-report-region):
Prefer grave quoting in source-code strings used to generate help
and diagnostics.
* lisp/faces.el (face-documentation):
No need to convert quotes, since the result is a docstring.
* lisp/info.el (Info-virtual-index-find-node)
(Info-virtual-index, info-apropos):
Simplify by generating only curved quotes, since info files are
typically that ways nowadays anyway.
* lisp/international/mule-diag.el (list-input-methods):
Don’t assume text quoting style is curved.
* lisp/org/org-bibtex.el (org-bibtex-fields):
Revert my recent changes, going back to the old quoting style.
2015-09-07 15:41:44 +00:00
|
|
|
|
(format-message "Required package `%s' is disabled"
|
More-conservative ‘format’ quote restyling
Instead of restyling curved quotes for every call to ‘format’,
create a new function ‘format-message’ that does the restyling,
and using the new function instead of ‘format’ only in contexts
where this seems appropriate.
Problem reported by Dmitry Gutov and Andreas Schwab in:
http://lists.gnu.org/archive/html/emacs-devel/2015-08/msg00826.html
http://lists.gnu.org/archive/html/emacs-devel/2015-08/msg00827.html
* doc/lispref/commands.texi (Using Interactive):
* doc/lispref/control.texi (Signaling Errors, Signaling Errors):
* doc/lispref/display.texi (Displaying Messages, Progress):
* doc/lispref/elisp.texi:
* doc/lispref/help.texi (Keys in Documentation):
* doc/lispref/minibuf.texi (Minibuffer Misc):
* doc/lispref/strings.texi (Formatting Strings):
* etc/NEWS:
Document the changes.
* lisp/abbrev.el (expand-region-abbrevs):
* lisp/apropos.el (apropos-library):
* lisp/calc/calc-ext.el (calc-record-message)
(calc-user-function-list):
* lisp/calc/calc-help.el (calc-describe-key, calc-full-help):
* lisp/calc/calc-lang.el (math-read-big-balance):
* lisp/calc/calc-store.el (calc-edit-variable):
* lisp/calc/calc-units.el (math-build-units-table-buffer):
* lisp/calc/calc-yank.el (calc-edit-mode):
* lisp/calendar/icalendar.el (icalendar-export-region)
(icalendar--add-diary-entry):
* lisp/cedet/mode-local.el (mode-local-print-binding)
(mode-local-describe-bindings-2):
* lisp/cedet/semantic/complete.el (semantic-completion-message):
* lisp/cedet/semantic/edit.el (semantic-parse-changes-failed):
* lisp/cedet/semantic/wisent/comp.el (wisent-log):
* lisp/cedet/srecode/insert.el (srecode-insert-show-error-report):
* lisp/descr-text.el (describe-text-properties-1, describe-char):
* lisp/dframe.el (dframe-message):
* lisp/dired-aux.el (dired-query):
* lisp/emacs-lisp/byte-opt.el (byte-compile-log-lap-1):
* lisp/emacs-lisp/bytecomp.el (byte-compile-log)
(byte-compile-log-file, byte-compile-warn, byte-compile-form):
* lisp/emacs-lisp/cconv.el (cconv-convert, cconv--analyze-use)
(cconv-analyze-form):
* lisp/emacs-lisp/check-declare.el (check-declare-warn):
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine):
* lisp/emacs-lisp/cl-macs.el (cl-symbol-macrolet):
* lisp/emacs-lisp/edebug.el (edebug-format):
* lisp/emacs-lisp/eieio-core.el (eieio-oref):
* lisp/emacs-lisp/eldoc.el (eldoc-minibuffer-message)
(eldoc-message):
* lisp/emacs-lisp/elint.el (elint-file, elint-log):
* lisp/emacs-lisp/find-func.el (find-function-library):
* lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning):
* lisp/emacs-lisp/map-ynp.el (map-y-or-n-p):
* lisp/emacs-lisp/nadvice.el (advice--make-docstring):
* lisp/emacs-lisp/package.el (package-compute-transaction)
(package-install-button-action, package-delete-button-action)
(package-menu--list-to-prompt):
* lisp/emacs-lisp/timer.el (timer-event-handler):
* lisp/emacs-lisp/warnings.el (lwarn, warn):
* lisp/emulation/viper-cmd.el:
(viper-toggle-parse-sexp-ignore-comments)
(viper-kill-buffer, viper-brac-function):
* lisp/emulation/viper-macs.el (viper-record-kbd-macro):
* lisp/facemenu.el (facemenu-add-new-face):
* lisp/faces.el (face-documentation, read-face-name)
(face-read-string, read-face-font, describe-face):
* lisp/files.el (find-alternate-file, hack-local-variables)
(hack-one-local-variable--obsolete, write-file)
(basic-save-buffer, delete-directory):
* lisp/format.el (format-write-file, format-find-file)
(format-insert-file):
* lisp/help-fns.el (help-fns--key-bindings)
(help-fns--compiler-macro, help-fns--obsolete)
(help-fns--interactive-only, describe-function-1)
(describe-variable):
* lisp/help.el (describe-mode):
* lisp/info-xref.el (info-xref-output):
* lisp/info.el (Info-virtual-index-find-node)
(Info-virtual-index, info-apropos):
* lisp/international/kkc.el (kkc-error):
* lisp/international/mule-cmds.el:
(select-safe-coding-system-interactively)
(select-safe-coding-system, describe-input-method):
* lisp/international/mule-conf.el (code-offset):
* lisp/international/mule-diag.el (describe-character-set)
(list-input-methods-1):
* lisp/international/quail.el (quail-error):
* lisp/minibuffer.el (minibuffer-message):
* lisp/mpc.el (mpc--debug):
* lisp/msb.el (msb--choose-menu):
* lisp/net/ange-ftp.el (ange-ftp-message):
* lisp/net/gnutls.el (gnutls-message-maybe):
* lisp/net/newst-backend.el (newsticker--sentinel-work):
* lisp/net/newst-treeview.el (newsticker--treeview-load):
* lisp/net/nsm.el (nsm-query-user):
* lisp/net/rlogin.el (rlogin):
* lisp/net/soap-client.el (soap-warning):
* lisp/net/tramp.el (tramp-debug-message):
* lisp/nxml/nxml-outln.el (nxml-report-outline-error):
* lisp/nxml/nxml-parse.el (nxml-parse-error):
* lisp/nxml/rng-cmpct.el (rng-c-error):
* lisp/nxml/rng-match.el (rng-compile-error):
* lisp/nxml/rng-uri.el (rng-uri-error):
* lisp/obsolete/iswitchb.el (iswitchb-possible-new-buffer):
* lisp/org/org-ctags.el:
(org-ctags-ask-rebuild-tags-file-then-find-tag):
* lisp/proced.el (proced-log):
* lisp/progmodes/ebnf2ps.el (ebnf-log):
* lisp/progmodes/flymake.el (flymake-log):
* lisp/progmodes/vhdl-mode.el (vhdl-warning-when-idle):
* lisp/replace.el (occur-1):
* lisp/simple.el (execute-extended-command)
(undo-outer-limit-truncate, define-alternatives):
* lisp/startup.el (command-line):
* lisp/subr.el (error, user-error, add-to-list):
* lisp/tutorial.el (tutorial--describe-nonstandard-key)
(tutorial--find-changed-keys):
* src/callint.c (Fcall_interactively):
* src/editfns.c (Fmessage, Fmessage_box):
Restyle the quotes of format strings intended for use as a
diagnostic, when restyling seems appropriate.
* lisp/subr.el (format-message): New function.
* src/doc.c (Finternal__text_restyle): New function.
(syms_of_doc): Define it.
2015-08-24 05:38:02 +00:00
|
|
|
|
next-pkg)))))
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(t (setq found pkg-desc)))))
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(unless found
|
2015-06-30 09:47:25 +00:00
|
|
|
|
(cond
|
|
|
|
|
|
(problem (error "%s" problem))
|
|
|
|
|
|
(found-something
|
Go back to grave quoting in source-code docstrings etc.
This reverts almost all my recent changes to use curved quotes
in docstrings and/or strings used for error diagnostics.
There are a few exceptions, e.g., Bahá’í proper names.
* admin/unidata/unidata-gen.el (unidata-gen-table):
* lisp/abbrev.el (expand-region-abbrevs):
* lisp/align.el (align-region):
* lisp/allout.el (allout-mode, allout-solicit-alternate-bullet)
(outlineify-sticky):
* lisp/apropos.el (apropos-library):
* lisp/bookmark.el (bookmark-default-annotation-text):
* lisp/button.el (button-category-symbol, button-put)
(make-text-button):
* lisp/calc/calc-aent.el (math-read-if, math-read-factor):
* lisp/calc/calc-embed.el (calc-do-embedded):
* lisp/calc/calc-ext.el (calc-user-function-list):
* lisp/calc/calc-graph.el (calc-graph-show-dumb):
* lisp/calc/calc-help.el (calc-describe-key)
(calc-describe-thing, calc-full-help):
* lisp/calc/calc-lang.el (calc-c-language)
(math-parse-fortran-vector-end, math-parse-tex-sum)
(math-parse-eqn-matrix, math-parse-eqn-prime)
(calc-yacas-language, calc-maxima-language, calc-giac-language)
(math-read-giac-subscr, math-read-math-subscr)
(math-read-big-rec, math-read-big-balance):
* lisp/calc/calc-misc.el (calc-help, report-calc-bug):
* lisp/calc/calc-mode.el (calc-auto-why, calc-save-modes)
(calc-auto-recompute):
* lisp/calc/calc-prog.el (calc-fix-token-name)
(calc-read-parse-table-part, calc-user-define-invocation)
(math-do-arg-check):
* lisp/calc/calc-store.el (calc-edit-variable):
* lisp/calc/calc-units.el (math-build-units-table-buffer):
* lisp/calc/calc-vec.el (math-read-brackets):
* lisp/calc/calc-yank.el (calc-edit-mode):
* lisp/calc/calc.el (calc, calc-do, calc-user-invocation):
* lisp/calendar/appt.el (appt-display-message):
* lisp/calendar/diary-lib.el (diary-check-diary-file)
(diary-mail-entries, diary-from-outlook):
* lisp/calendar/icalendar.el (icalendar-export-region)
(icalendar--convert-float-to-ical)
(icalendar--convert-date-to-ical)
(icalendar--convert-ical-to-diary)
(icalendar--convert-recurring-to-diary)
(icalendar--add-diary-entry):
* lisp/calendar/time-date.el (format-seconds):
* lisp/calendar/timeclock.el (timeclock-mode-line-display)
(timeclock-make-hours-explicit, timeclock-log-data):
* lisp/calendar/todo-mode.el (todo-prefix, todo-delete-category)
(todo-item-mark, todo-check-format)
(todo-insert-item--next-param, todo-edit-item--next-key)
(todo-mode):
* lisp/cedet/ede/pmake.el (ede-proj-makefile-insert-dist-rules):
* lisp/cedet/mode-local.el (describe-mode-local-overload)
(mode-local-print-binding, mode-local-describe-bindings-2):
* lisp/cedet/semantic/complete.el (semantic-displayor-show-request):
* lisp/cedet/srecode/srt-mode.el (srecode-macro-help):
* lisp/cus-start.el (standard):
* lisp/cus-theme.el (describe-theme-1):
* lisp/custom.el (custom-add-dependencies, custom-check-theme)
(custom--sort-vars-1, load-theme):
* lisp/descr-text.el (describe-text-properties-1, describe-char):
* lisp/dired-x.el (dired-do-run-mail):
* lisp/dired.el (dired-log):
* lisp/emacs-lisp/advice.el (ad-read-advised-function)
(ad-read-advice-class, ad-read-advice-name, ad-enable-advice)
(ad-disable-advice, ad-remove-advice, ad-set-argument)
(ad-set-arguments, ad--defalias-fset, ad-activate)
(ad-deactivate):
* lisp/emacs-lisp/byte-opt.el (byte-compile-inline-expand)
(byte-compile-unfold-lambda, byte-optimize-form-code-walker)
(byte-optimize-while, byte-optimize-apply):
* lisp/emacs-lisp/byte-run.el (defun, defsubst):
* lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode)
(byte-compile-log-file, byte-compile-format-warn)
(byte-compile-nogroup-warn, byte-compile-arglist-warn)
(byte-compile-cl-warn)
(byte-compile-warn-about-unresolved-functions)
(byte-compile-file, byte-compile--declare-var)
(byte-compile-file-form-defmumble, byte-compile-form)
(byte-compile-normal-call, byte-compile-check-variable)
(byte-compile-variable-ref, byte-compile-variable-set)
(byte-compile-subr-wrong-args, byte-compile-setq-default)
(byte-compile-negation-optimizer)
(byte-compile-condition-case--old)
(byte-compile-condition-case--new, byte-compile-save-excursion)
(byte-compile-defvar, byte-compile-autoload)
(byte-compile-lambda-form)
(byte-compile-make-variable-buffer-local, display-call-tree)
(batch-byte-compile):
* lisp/emacs-lisp/cconv.el (cconv-convert, cconv--analyze-use):
* lisp/emacs-lisp/chart.el (chart-space-usage):
* lisp/emacs-lisp/check-declare.el (check-declare-scan)
(check-declare-warn, check-declare-file)
(check-declare-directory):
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine)
(checkdoc-message-text-engine):
* lisp/emacs-lisp/cl-extra.el (cl-parse-integer)
(cl--describe-class):
* lisp/emacs-lisp/cl-generic.el (cl-defgeneric)
(cl--generic-describe, cl-generic-generalizers):
* lisp/emacs-lisp/cl-macs.el (cl--parse-loop-clause, cl-tagbody)
(cl-symbol-macrolet):
* lisp/emacs-lisp/cl.el (cl-unload-function, flet):
* lisp/emacs-lisp/copyright.el (copyright)
(copyright-update-directory):
* lisp/emacs-lisp/edebug.el (edebug-read-list):
* lisp/emacs-lisp/eieio-base.el (eieio-persistent-read):
* lisp/emacs-lisp/eieio-core.el (eieio--slot-override)
(eieio-oref):
* lisp/emacs-lisp/eieio-opt.el (eieio-help-constructor):
* lisp/emacs-lisp/eieio-speedbar.el:
(eieio-speedbar-child-make-tag-lines)
(eieio-speedbar-child-description):
* lisp/emacs-lisp/eieio.el (defclass, change-class):
* lisp/emacs-lisp/elint.el (elint-file, elint-get-top-forms)
(elint-init-form, elint-check-defalias-form)
(elint-check-let-form):
* lisp/emacs-lisp/ert.el (ert-get-test, ert-results-mode-menu)
(ert-results-pop-to-backtrace-for-test-at-point)
(ert-results-pop-to-messages-for-test-at-point)
(ert-results-pop-to-should-forms-for-test-at-point)
(ert-describe-test):
* lisp/emacs-lisp/find-func.el (find-function-search-for-symbol)
(find-function-library):
* lisp/emacs-lisp/generator.el (iter-yield):
* lisp/emacs-lisp/gv.el (gv-define-simple-setter):
* lisp/emacs-lisp/lisp-mnt.el (lm-verify):
* lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning):
* lisp/emacs-lisp/map-ynp.el (map-y-or-n-p):
* lisp/emacs-lisp/nadvice.el (advice--make-docstring)
(advice--make, define-advice):
* lisp/emacs-lisp/package-x.el (package-upload-file):
* lisp/emacs-lisp/package.el (package-version-join)
(package-disabled-p, package-activate-1, package-activate)
(package--download-one-archive)
(package--download-and-read-archives)
(package-compute-transaction, package-install-from-archive)
(package-install, package-install-selected-packages)
(package-delete, package-autoremove, describe-package-1)
(package-install-button-action, package-delete-button-action)
(package-menu-hide-package, package-menu--list-to-prompt)
(package-menu--perform-transaction)
(package-menu--find-and-notify-upgrades):
* lisp/emacs-lisp/pcase.el (pcase-exhaustive, pcase--u1):
* lisp/emacs-lisp/re-builder.el (reb-enter-subexp-mode):
* lisp/emacs-lisp/ring.el (ring-previous, ring-next):
* lisp/emacs-lisp/rx.el (rx-check, rx-anything)
(rx-check-any-string, rx-check-any, rx-check-not, rx-=)
(rx-repeat, rx-check-backref, rx-syntax, rx-check-category)
(rx-form):
* lisp/emacs-lisp/smie.el (smie-config-save):
* lisp/emacs-lisp/subr-x.el (internal--check-binding):
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-put-tag):
* lisp/emacs-lisp/testcover.el (testcover-1value):
* lisp/emacs-lisp/timer.el (timer-event-handler):
* lisp/emulation/viper-cmd.el (viper-toggle-parse-sexp-ignore-comments)
(viper-toggle-search-style, viper-kill-buffer)
(viper-brac-function):
* lisp/emulation/viper-macs.el (viper-record-kbd-macro):
* lisp/env.el (setenv):
* lisp/erc/erc-button.el (erc-nick-popup):
* lisp/erc/erc.el (erc-cmd-LOAD, erc-handle-login, english):
* lisp/eshell/em-dirs.el (eshell/cd):
* lisp/eshell/em-glob.el (eshell-glob-regexp)
(eshell-glob-entries):
* lisp/eshell/em-pred.el (eshell-parse-modifiers):
* lisp/eshell/esh-opt.el (eshell-show-usage):
* lisp/facemenu.el (facemenu-add-new-face)
(facemenu-add-new-color):
* lisp/faces.el (read-face-name, read-face-font, describe-face)
(x-resolve-font-name):
* lisp/files-x.el (modify-file-local-variable):
* lisp/files.el (locate-user-emacs-file, find-alternate-file)
(set-auto-mode, hack-one-local-variable--obsolete)
(dir-locals-set-directory-class, write-file, basic-save-buffer)
(delete-directory, copy-directory, recover-session)
(recover-session-finish, insert-directory)
(file-modes-char-to-who, file-modes-symbolic-to-number)
(move-file-to-trash):
* lisp/filesets.el (filesets-add-buffer, filesets-remove-buffer):
* lisp/find-cmd.el (find-generic, find-to-string):
* lisp/finder.el (finder-commentary):
* lisp/font-lock.el (font-lock-fontify-buffer):
* lisp/format.el (format-write-file, format-find-file)
(format-insert-file):
* lisp/frame.el (get-device-terminal, select-frame-by-name):
* lisp/fringe.el (fringe--check-style):
* lisp/gnus/nnmairix.el (nnmairix-widget-create-query):
* lisp/help-fns.el (help-fns--key-bindings)
(help-fns--compiler-macro, help-fns--parent-mode)
(help-fns--obsolete, help-fns--interactive-only)
(describe-function-1, describe-variable):
* lisp/help.el (describe-mode)
(describe-minor-mode-from-indicator):
* lisp/image.el (image-type):
* lisp/international/ccl.el (ccl-dump):
* lisp/international/fontset.el (x-must-resolve-font-name):
* lisp/international/mule-cmds.el (prefer-coding-system)
(select-safe-coding-system-interactively)
(select-safe-coding-system, activate-input-method)
(toggle-input-method, describe-current-input-method)
(describe-language-environment):
* lisp/international/mule-conf.el (code-offset):
* lisp/international/mule-diag.el (describe-character-set)
(list-input-methods-1):
* lisp/mail/feedmail.el (feedmail-run-the-queue):
* lisp/mouse.el (minor-mode-menu-from-indicator):
* lisp/mpc.el (mpc-playlist-rename):
* lisp/msb.el (msb--choose-menu):
* lisp/net/ange-ftp.el (ange-ftp-shell-command):
* lisp/net/imap.el (imap-interactive-login):
* lisp/net/mairix.el (mairix-widget-create-query):
* lisp/net/newst-backend.el (newsticker--sentinel-work):
* lisp/net/newst-treeview.el (newsticker--treeview-load):
* lisp/net/rlogin.el (rlogin):
* lisp/obsolete/iswitchb.el (iswitchb-possible-new-buffer):
* lisp/obsolete/otodo-mode.el (todo-more-important-p):
* lisp/obsolete/pgg-gpg.el (pgg-gpg-process-region):
* lisp/obsolete/pgg-pgp.el (pgg-pgp-process-region):
* lisp/obsolete/pgg-pgp5.el (pgg-pgp5-process-region):
* lisp/org/ob-core.el (org-babel-goto-named-src-block)
(org-babel-goto-named-result):
* lisp/org/ob-fortran.el (org-babel-fortran-ensure-main-wrap):
* lisp/org/ob-ref.el (org-babel-ref-resolve):
* lisp/org/org-agenda.el (org-agenda-prepare):
* lisp/org/org-clock.el (org-clock-notify-once-if-expired)
(org-clock-resolve):
* lisp/org/org-ctags.el (org-ctags-ask-rebuild-tags-file-then-find-tag):
* lisp/org/org-feed.el (org-feed-parse-atom-entry):
* lisp/org/org-habit.el (org-habit-parse-todo):
* lisp/org/org-mouse.el (org-mouse-popup-global-menu)
(org-mouse-context-menu):
* lisp/org/org-table.el (org-table-edit-formulas):
* lisp/org/ox.el (org-export-async-start):
* lisp/proced.el (proced-log):
* lisp/progmodes/ada-mode.el (ada-get-indent-case)
(ada-check-matching-start, ada-goto-matching-start):
* lisp/progmodes/ada-prj.el (ada-prj-display-page):
* lisp/progmodes/ada-xref.el (ada-find-executable):
* lisp/progmodes/ebrowse.el (ebrowse-tags-apropos):
* lisp/progmodes/etags.el (etags-tags-apropos-additional):
* lisp/progmodes/flymake.el (flymake-parse-err-lines)
(flymake-start-syntax-check-process):
* lisp/progmodes/python.el (python-shell-get-process-or-error)
(python-define-auxiliary-skeleton):
* lisp/progmodes/sql.el (sql-comint):
* lisp/progmodes/verilog-mode.el (verilog-load-file-at-point):
* lisp/progmodes/vhdl-mode.el (vhdl-widget-directory-validate):
* lisp/recentf.el (recentf-open-files):
* lisp/replace.el (query-replace-read-from)
(occur-after-change-function, occur-1):
* lisp/scroll-bar.el (scroll-bar-columns):
* lisp/server.el (server-get-auth-key):
* lisp/simple.el (execute-extended-command)
(undo-outer-limit-truncate, list-processes--refresh)
(compose-mail, set-variable, choose-completion-string)
(define-alternatives):
* lisp/startup.el (site-run-file, tty-handle-args, command-line)
(command-line-1):
* lisp/subr.el (noreturn, define-error, add-to-list)
(read-char-choice, version-to-list):
* lisp/term/common-win.el (x-handle-xrm-switch)
(x-handle-name-switch, x-handle-args):
* lisp/term/x-win.el (x-handle-parent-id, x-handle-smid):
* lisp/textmodes/reftex-ref.el (reftex-label):
* lisp/textmodes/reftex-toc.el (reftex-toc-rename-label):
* lisp/textmodes/two-column.el (2C-split):
* lisp/tutorial.el (tutorial--describe-nonstandard-key)
(tutorial--find-changed-keys):
* lisp/type-break.el (type-break-noninteractive-query):
* lisp/wdired.el (wdired-do-renames, wdired-do-symlink-changes)
(wdired-do-perm-changes):
* lisp/whitespace.el (whitespace-report-region):
Prefer grave quoting in source-code strings used to generate help
and diagnostics.
* lisp/faces.el (face-documentation):
No need to convert quotes, since the result is a docstring.
* lisp/info.el (Info-virtual-index-find-node)
(Info-virtual-index, info-apropos):
Simplify by generating only curved quotes, since info files are
typically that ways nowadays anyway.
* lisp/international/mule-diag.el (list-input-methods):
Don’t assume text quoting style is curved.
* lisp/org/org-bibtex.el (org-bibtex-fields):
Revert my recent changes, going back to the old quoting style.
2015-09-07 15:41:44 +00:00
|
|
|
|
(error "Need package `%s-%s', but only %s is available"
|
2015-06-30 09:47:25 +00:00
|
|
|
|
next-pkg (package-version-join next-version)
|
|
|
|
|
|
found-something))
|
Go back to grave quoting in source-code docstrings etc.
This reverts almost all my recent changes to use curved quotes
in docstrings and/or strings used for error diagnostics.
There are a few exceptions, e.g., Bahá’í proper names.
* admin/unidata/unidata-gen.el (unidata-gen-table):
* lisp/abbrev.el (expand-region-abbrevs):
* lisp/align.el (align-region):
* lisp/allout.el (allout-mode, allout-solicit-alternate-bullet)
(outlineify-sticky):
* lisp/apropos.el (apropos-library):
* lisp/bookmark.el (bookmark-default-annotation-text):
* lisp/button.el (button-category-symbol, button-put)
(make-text-button):
* lisp/calc/calc-aent.el (math-read-if, math-read-factor):
* lisp/calc/calc-embed.el (calc-do-embedded):
* lisp/calc/calc-ext.el (calc-user-function-list):
* lisp/calc/calc-graph.el (calc-graph-show-dumb):
* lisp/calc/calc-help.el (calc-describe-key)
(calc-describe-thing, calc-full-help):
* lisp/calc/calc-lang.el (calc-c-language)
(math-parse-fortran-vector-end, math-parse-tex-sum)
(math-parse-eqn-matrix, math-parse-eqn-prime)
(calc-yacas-language, calc-maxima-language, calc-giac-language)
(math-read-giac-subscr, math-read-math-subscr)
(math-read-big-rec, math-read-big-balance):
* lisp/calc/calc-misc.el (calc-help, report-calc-bug):
* lisp/calc/calc-mode.el (calc-auto-why, calc-save-modes)
(calc-auto-recompute):
* lisp/calc/calc-prog.el (calc-fix-token-name)
(calc-read-parse-table-part, calc-user-define-invocation)
(math-do-arg-check):
* lisp/calc/calc-store.el (calc-edit-variable):
* lisp/calc/calc-units.el (math-build-units-table-buffer):
* lisp/calc/calc-vec.el (math-read-brackets):
* lisp/calc/calc-yank.el (calc-edit-mode):
* lisp/calc/calc.el (calc, calc-do, calc-user-invocation):
* lisp/calendar/appt.el (appt-display-message):
* lisp/calendar/diary-lib.el (diary-check-diary-file)
(diary-mail-entries, diary-from-outlook):
* lisp/calendar/icalendar.el (icalendar-export-region)
(icalendar--convert-float-to-ical)
(icalendar--convert-date-to-ical)
(icalendar--convert-ical-to-diary)
(icalendar--convert-recurring-to-diary)
(icalendar--add-diary-entry):
* lisp/calendar/time-date.el (format-seconds):
* lisp/calendar/timeclock.el (timeclock-mode-line-display)
(timeclock-make-hours-explicit, timeclock-log-data):
* lisp/calendar/todo-mode.el (todo-prefix, todo-delete-category)
(todo-item-mark, todo-check-format)
(todo-insert-item--next-param, todo-edit-item--next-key)
(todo-mode):
* lisp/cedet/ede/pmake.el (ede-proj-makefile-insert-dist-rules):
* lisp/cedet/mode-local.el (describe-mode-local-overload)
(mode-local-print-binding, mode-local-describe-bindings-2):
* lisp/cedet/semantic/complete.el (semantic-displayor-show-request):
* lisp/cedet/srecode/srt-mode.el (srecode-macro-help):
* lisp/cus-start.el (standard):
* lisp/cus-theme.el (describe-theme-1):
* lisp/custom.el (custom-add-dependencies, custom-check-theme)
(custom--sort-vars-1, load-theme):
* lisp/descr-text.el (describe-text-properties-1, describe-char):
* lisp/dired-x.el (dired-do-run-mail):
* lisp/dired.el (dired-log):
* lisp/emacs-lisp/advice.el (ad-read-advised-function)
(ad-read-advice-class, ad-read-advice-name, ad-enable-advice)
(ad-disable-advice, ad-remove-advice, ad-set-argument)
(ad-set-arguments, ad--defalias-fset, ad-activate)
(ad-deactivate):
* lisp/emacs-lisp/byte-opt.el (byte-compile-inline-expand)
(byte-compile-unfold-lambda, byte-optimize-form-code-walker)
(byte-optimize-while, byte-optimize-apply):
* lisp/emacs-lisp/byte-run.el (defun, defsubst):
* lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode)
(byte-compile-log-file, byte-compile-format-warn)
(byte-compile-nogroup-warn, byte-compile-arglist-warn)
(byte-compile-cl-warn)
(byte-compile-warn-about-unresolved-functions)
(byte-compile-file, byte-compile--declare-var)
(byte-compile-file-form-defmumble, byte-compile-form)
(byte-compile-normal-call, byte-compile-check-variable)
(byte-compile-variable-ref, byte-compile-variable-set)
(byte-compile-subr-wrong-args, byte-compile-setq-default)
(byte-compile-negation-optimizer)
(byte-compile-condition-case--old)
(byte-compile-condition-case--new, byte-compile-save-excursion)
(byte-compile-defvar, byte-compile-autoload)
(byte-compile-lambda-form)
(byte-compile-make-variable-buffer-local, display-call-tree)
(batch-byte-compile):
* lisp/emacs-lisp/cconv.el (cconv-convert, cconv--analyze-use):
* lisp/emacs-lisp/chart.el (chart-space-usage):
* lisp/emacs-lisp/check-declare.el (check-declare-scan)
(check-declare-warn, check-declare-file)
(check-declare-directory):
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine)
(checkdoc-message-text-engine):
* lisp/emacs-lisp/cl-extra.el (cl-parse-integer)
(cl--describe-class):
* lisp/emacs-lisp/cl-generic.el (cl-defgeneric)
(cl--generic-describe, cl-generic-generalizers):
* lisp/emacs-lisp/cl-macs.el (cl--parse-loop-clause, cl-tagbody)
(cl-symbol-macrolet):
* lisp/emacs-lisp/cl.el (cl-unload-function, flet):
* lisp/emacs-lisp/copyright.el (copyright)
(copyright-update-directory):
* lisp/emacs-lisp/edebug.el (edebug-read-list):
* lisp/emacs-lisp/eieio-base.el (eieio-persistent-read):
* lisp/emacs-lisp/eieio-core.el (eieio--slot-override)
(eieio-oref):
* lisp/emacs-lisp/eieio-opt.el (eieio-help-constructor):
* lisp/emacs-lisp/eieio-speedbar.el:
(eieio-speedbar-child-make-tag-lines)
(eieio-speedbar-child-description):
* lisp/emacs-lisp/eieio.el (defclass, change-class):
* lisp/emacs-lisp/elint.el (elint-file, elint-get-top-forms)
(elint-init-form, elint-check-defalias-form)
(elint-check-let-form):
* lisp/emacs-lisp/ert.el (ert-get-test, ert-results-mode-menu)
(ert-results-pop-to-backtrace-for-test-at-point)
(ert-results-pop-to-messages-for-test-at-point)
(ert-results-pop-to-should-forms-for-test-at-point)
(ert-describe-test):
* lisp/emacs-lisp/find-func.el (find-function-search-for-symbol)
(find-function-library):
* lisp/emacs-lisp/generator.el (iter-yield):
* lisp/emacs-lisp/gv.el (gv-define-simple-setter):
* lisp/emacs-lisp/lisp-mnt.el (lm-verify):
* lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning):
* lisp/emacs-lisp/map-ynp.el (map-y-or-n-p):
* lisp/emacs-lisp/nadvice.el (advice--make-docstring)
(advice--make, define-advice):
* lisp/emacs-lisp/package-x.el (package-upload-file):
* lisp/emacs-lisp/package.el (package-version-join)
(package-disabled-p, package-activate-1, package-activate)
(package--download-one-archive)
(package--download-and-read-archives)
(package-compute-transaction, package-install-from-archive)
(package-install, package-install-selected-packages)
(package-delete, package-autoremove, describe-package-1)
(package-install-button-action, package-delete-button-action)
(package-menu-hide-package, package-menu--list-to-prompt)
(package-menu--perform-transaction)
(package-menu--find-and-notify-upgrades):
* lisp/emacs-lisp/pcase.el (pcase-exhaustive, pcase--u1):
* lisp/emacs-lisp/re-builder.el (reb-enter-subexp-mode):
* lisp/emacs-lisp/ring.el (ring-previous, ring-next):
* lisp/emacs-lisp/rx.el (rx-check, rx-anything)
(rx-check-any-string, rx-check-any, rx-check-not, rx-=)
(rx-repeat, rx-check-backref, rx-syntax, rx-check-category)
(rx-form):
* lisp/emacs-lisp/smie.el (smie-config-save):
* lisp/emacs-lisp/subr-x.el (internal--check-binding):
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-put-tag):
* lisp/emacs-lisp/testcover.el (testcover-1value):
* lisp/emacs-lisp/timer.el (timer-event-handler):
* lisp/emulation/viper-cmd.el (viper-toggle-parse-sexp-ignore-comments)
(viper-toggle-search-style, viper-kill-buffer)
(viper-brac-function):
* lisp/emulation/viper-macs.el (viper-record-kbd-macro):
* lisp/env.el (setenv):
* lisp/erc/erc-button.el (erc-nick-popup):
* lisp/erc/erc.el (erc-cmd-LOAD, erc-handle-login, english):
* lisp/eshell/em-dirs.el (eshell/cd):
* lisp/eshell/em-glob.el (eshell-glob-regexp)
(eshell-glob-entries):
* lisp/eshell/em-pred.el (eshell-parse-modifiers):
* lisp/eshell/esh-opt.el (eshell-show-usage):
* lisp/facemenu.el (facemenu-add-new-face)
(facemenu-add-new-color):
* lisp/faces.el (read-face-name, read-face-font, describe-face)
(x-resolve-font-name):
* lisp/files-x.el (modify-file-local-variable):
* lisp/files.el (locate-user-emacs-file, find-alternate-file)
(set-auto-mode, hack-one-local-variable--obsolete)
(dir-locals-set-directory-class, write-file, basic-save-buffer)
(delete-directory, copy-directory, recover-session)
(recover-session-finish, insert-directory)
(file-modes-char-to-who, file-modes-symbolic-to-number)
(move-file-to-trash):
* lisp/filesets.el (filesets-add-buffer, filesets-remove-buffer):
* lisp/find-cmd.el (find-generic, find-to-string):
* lisp/finder.el (finder-commentary):
* lisp/font-lock.el (font-lock-fontify-buffer):
* lisp/format.el (format-write-file, format-find-file)
(format-insert-file):
* lisp/frame.el (get-device-terminal, select-frame-by-name):
* lisp/fringe.el (fringe--check-style):
* lisp/gnus/nnmairix.el (nnmairix-widget-create-query):
* lisp/help-fns.el (help-fns--key-bindings)
(help-fns--compiler-macro, help-fns--parent-mode)
(help-fns--obsolete, help-fns--interactive-only)
(describe-function-1, describe-variable):
* lisp/help.el (describe-mode)
(describe-minor-mode-from-indicator):
* lisp/image.el (image-type):
* lisp/international/ccl.el (ccl-dump):
* lisp/international/fontset.el (x-must-resolve-font-name):
* lisp/international/mule-cmds.el (prefer-coding-system)
(select-safe-coding-system-interactively)
(select-safe-coding-system, activate-input-method)
(toggle-input-method, describe-current-input-method)
(describe-language-environment):
* lisp/international/mule-conf.el (code-offset):
* lisp/international/mule-diag.el (describe-character-set)
(list-input-methods-1):
* lisp/mail/feedmail.el (feedmail-run-the-queue):
* lisp/mouse.el (minor-mode-menu-from-indicator):
* lisp/mpc.el (mpc-playlist-rename):
* lisp/msb.el (msb--choose-menu):
* lisp/net/ange-ftp.el (ange-ftp-shell-command):
* lisp/net/imap.el (imap-interactive-login):
* lisp/net/mairix.el (mairix-widget-create-query):
* lisp/net/newst-backend.el (newsticker--sentinel-work):
* lisp/net/newst-treeview.el (newsticker--treeview-load):
* lisp/net/rlogin.el (rlogin):
* lisp/obsolete/iswitchb.el (iswitchb-possible-new-buffer):
* lisp/obsolete/otodo-mode.el (todo-more-important-p):
* lisp/obsolete/pgg-gpg.el (pgg-gpg-process-region):
* lisp/obsolete/pgg-pgp.el (pgg-pgp-process-region):
* lisp/obsolete/pgg-pgp5.el (pgg-pgp5-process-region):
* lisp/org/ob-core.el (org-babel-goto-named-src-block)
(org-babel-goto-named-result):
* lisp/org/ob-fortran.el (org-babel-fortran-ensure-main-wrap):
* lisp/org/ob-ref.el (org-babel-ref-resolve):
* lisp/org/org-agenda.el (org-agenda-prepare):
* lisp/org/org-clock.el (org-clock-notify-once-if-expired)
(org-clock-resolve):
* lisp/org/org-ctags.el (org-ctags-ask-rebuild-tags-file-then-find-tag):
* lisp/org/org-feed.el (org-feed-parse-atom-entry):
* lisp/org/org-habit.el (org-habit-parse-todo):
* lisp/org/org-mouse.el (org-mouse-popup-global-menu)
(org-mouse-context-menu):
* lisp/org/org-table.el (org-table-edit-formulas):
* lisp/org/ox.el (org-export-async-start):
* lisp/proced.el (proced-log):
* lisp/progmodes/ada-mode.el (ada-get-indent-case)
(ada-check-matching-start, ada-goto-matching-start):
* lisp/progmodes/ada-prj.el (ada-prj-display-page):
* lisp/progmodes/ada-xref.el (ada-find-executable):
* lisp/progmodes/ebrowse.el (ebrowse-tags-apropos):
* lisp/progmodes/etags.el (etags-tags-apropos-additional):
* lisp/progmodes/flymake.el (flymake-parse-err-lines)
(flymake-start-syntax-check-process):
* lisp/progmodes/python.el (python-shell-get-process-or-error)
(python-define-auxiliary-skeleton):
* lisp/progmodes/sql.el (sql-comint):
* lisp/progmodes/verilog-mode.el (verilog-load-file-at-point):
* lisp/progmodes/vhdl-mode.el (vhdl-widget-directory-validate):
* lisp/recentf.el (recentf-open-files):
* lisp/replace.el (query-replace-read-from)
(occur-after-change-function, occur-1):
* lisp/scroll-bar.el (scroll-bar-columns):
* lisp/server.el (server-get-auth-key):
* lisp/simple.el (execute-extended-command)
(undo-outer-limit-truncate, list-processes--refresh)
(compose-mail, set-variable, choose-completion-string)
(define-alternatives):
* lisp/startup.el (site-run-file, tty-handle-args, command-line)
(command-line-1):
* lisp/subr.el (noreturn, define-error, add-to-list)
(read-char-choice, version-to-list):
* lisp/term/common-win.el (x-handle-xrm-switch)
(x-handle-name-switch, x-handle-args):
* lisp/term/x-win.el (x-handle-parent-id, x-handle-smid):
* lisp/textmodes/reftex-ref.el (reftex-label):
* lisp/textmodes/reftex-toc.el (reftex-toc-rename-label):
* lisp/textmodes/two-column.el (2C-split):
* lisp/tutorial.el (tutorial--describe-nonstandard-key)
(tutorial--find-changed-keys):
* lisp/type-break.el (type-break-noninteractive-query):
* lisp/wdired.el (wdired-do-renames, wdired-do-symlink-changes)
(wdired-do-perm-changes):
* lisp/whitespace.el (whitespace-report-region):
Prefer grave quoting in source-code strings used to generate help
and diagnostics.
* lisp/faces.el (face-documentation):
No need to convert quotes, since the result is a docstring.
* lisp/info.el (Info-virtual-index-find-node)
(Info-virtual-index, info-apropos):
Simplify by generating only curved quotes, since info files are
typically that ways nowadays anyway.
* lisp/international/mule-diag.el (list-input-methods):
Don’t assume text quoting style is curved.
* lisp/org/org-bibtex.el (org-bibtex-fields):
Revert my recent changes, going back to the old quoting style.
2015-09-07 15:41:44 +00:00
|
|
|
|
(t (error "Package `%s-%s' is unavailable"
|
2015-06-30 09:47:25 +00:00
|
|
|
|
next-pkg (package-version-join next-version)))))
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(setq packages
|
|
|
|
|
|
(package-compute-transaction (cons found packages)
|
|
|
|
|
|
(package-desc-reqs found)
|
2014-05-06 18:11:16 +00:00
|
|
|
|
(cons found seen))))))))
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
packages)
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(defun package--find-non-dependencies ()
|
|
|
|
|
|
"Return a list of installed packages which are not dependencies.
|
|
|
|
|
|
Finds all packages in `package-alist' which are not dependencies
|
|
|
|
|
|
of any other packages.
|
|
|
|
|
|
Used to populate `package-selected-packages'."
|
|
|
|
|
|
(let ((dep-list
|
|
|
|
|
|
(delete-dups
|
|
|
|
|
|
(apply #'append
|
|
|
|
|
|
(mapcar (lambda (p) (mapcar #'car (package-desc-reqs (cadr p))))
|
|
|
|
|
|
package-alist)))))
|
|
|
|
|
|
(cl-loop for p in package-alist
|
|
|
|
|
|
for name = (car p)
|
|
|
|
|
|
unless (memq name dep-list)
|
|
|
|
|
|
collect name)))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2015-06-30 09:17:55 +00:00
|
|
|
|
(defun package--save-selected-packages (&optional value)
|
2015-04-12 14:03:45 +00:00
|
|
|
|
"Set and save `package-selected-packages' to VALUE."
|
2015-06-30 09:17:55 +00:00
|
|
|
|
(when value
|
|
|
|
|
|
(setq package-selected-packages value))
|
|
|
|
|
|
(if after-init-time
|
|
|
|
|
|
(let ((save-silently inhibit-message))
|
|
|
|
|
|
(customize-save-variable 'package-selected-packages package-selected-packages))
|
|
|
|
|
|
(add-hook 'after-init-hook #'package--save-selected-packages)))
|
2015-04-12 14:03:45 +00:00
|
|
|
|
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(defun package--user-selected-p (pkg)
|
|
|
|
|
|
"Return non-nil if PKG is a package was installed by the user.
|
|
|
|
|
|
PKG is a package name.
|
|
|
|
|
|
This looks into `package-selected-packages', populating it first
|
|
|
|
|
|
if it is still empty."
|
|
|
|
|
|
(unless (consp package-selected-packages)
|
2015-04-12 14:03:45 +00:00
|
|
|
|
(package--save-selected-packages (package--find-non-dependencies)))
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(memq pkg package-selected-packages))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(defun package--get-deps (pkg &optional only)
|
|
|
|
|
|
(let* ((pkg-desc (cadr (assq pkg package-alist)))
|
|
|
|
|
|
(direct-deps (cl-loop for p in (package-desc-reqs pkg-desc)
|
|
|
|
|
|
for name = (car p)
|
|
|
|
|
|
when (assq name package-alist)
|
|
|
|
|
|
collect name))
|
|
|
|
|
|
(indirect-deps (unless (eq only 'direct)
|
|
|
|
|
|
(delete-dups
|
|
|
|
|
|
(cl-loop for p in direct-deps
|
|
|
|
|
|
append (package--get-deps p))))))
|
|
|
|
|
|
(cl-case only
|
|
|
|
|
|
(direct direct-deps)
|
|
|
|
|
|
(separate (list direct-deps indirect-deps))
|
|
|
|
|
|
(indirect indirect-deps)
|
|
|
|
|
|
(t (delete-dups (append direct-deps indirect-deps))))))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2018-07-17 10:59:35 +00:00
|
|
|
|
(defun package--user-installed-p (package)
|
|
|
|
|
|
"Return non-nil if PACKAGE is a user-installed package.
|
|
|
|
|
|
PACKAGE is the package name, a symbol. Check whether the package
|
|
|
|
|
|
was installed into `package-user-dir' where we assume to have
|
|
|
|
|
|
control over."
|
|
|
|
|
|
(let* ((pkg-desc (cadr (assq package package-alist)))
|
|
|
|
|
|
(dir (package-desc-dir pkg-desc)))
|
|
|
|
|
|
(file-in-directory-p dir package-user-dir)))
|
|
|
|
|
|
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(defun package--removable-packages ()
|
|
|
|
|
|
"Return a list of names of packages no longer needed.
|
|
|
|
|
|
These are packages which are neither contained in
|
|
|
|
|
|
`package-selected-packages' nor a dependency of one that is."
|
|
|
|
|
|
(let ((needed (cl-loop for p in package-selected-packages
|
|
|
|
|
|
if (assq p package-alist)
|
|
|
|
|
|
;; `p' and its dependencies are needed.
|
|
|
|
|
|
append (cons p (package--get-deps p)))))
|
|
|
|
|
|
(cl-loop for p in (mapcar #'car package-alist)
|
2018-07-17 10:59:35 +00:00
|
|
|
|
unless (or (memq p needed)
|
|
|
|
|
|
;; Do not auto-remove external packages.
|
|
|
|
|
|
(not (package--user-installed-p p)))
|
2015-03-28 20:36:14 +00:00
|
|
|
|
collect p)))
|
2010-07-28 18:54:42 +00:00
|
|
|
|
|
2015-05-20 13:03:03 +00:00
|
|
|
|
(defun package--used-elsewhere-p (pkg-desc &optional pkg-list all)
|
2015-03-28 20:36:14 +00:00
|
|
|
|
"Non-nil if PKG-DESC is a dependency of a package in PKG-LIST.
|
|
|
|
|
|
Return the first package found in PKG-LIST of which PKG is a
|
2015-05-20 13:03:03 +00:00
|
|
|
|
dependency. If ALL is non-nil, return all such packages instead.
|
2013-06-12 00:49:33 +00:00
|
|
|
|
|
2015-03-28 20:36:14 +00:00
|
|
|
|
When not specified, PKG-LIST defaults to `package-alist'
|
|
|
|
|
|
with PKG-DESC entry removed."
|
|
|
|
|
|
(unless (string= (package-desc-status pkg-desc) "obsolete")
|
2015-05-20 13:03:03 +00:00
|
|
|
|
(let* ((pkg (package-desc-name pkg-desc))
|
|
|
|
|
|
(alist (or pkg-list
|
|
|
|
|
|
(remove (assq pkg package-alist)
|
|
|
|
|
|
package-alist))))
|
|
|
|
|
|
(if all
|
|
|
|
|
|
(cl-loop for p in alist
|
|
|
|
|
|
if (assq pkg (package-desc-reqs (cadr p)))
|
|
|
|
|
|
collect (cadr p))
|
|
|
|
|
|
(cl-loop for p in alist thereis
|
|
|
|
|
|
(and (assq pkg (package-desc-reqs (cadr p)))
|
|
|
|
|
|
(cadr p)))))))
|
2015-03-28 20:36:14 +00:00
|
|
|
|
|
|
|
|
|
|
(defun package--sort-deps-in-alist (package only)
|
|
|
|
|
|
"Return a list of dependencies for PACKAGE sorted by dependency.
|
|
|
|
|
|
PACKAGE is included as the first element of the returned list.
|
|
|
|
|
|
ONLY is an alist associating package names to package objects.
|
2018-02-16 22:33:57 +00:00
|
|
|
|
Only these packages will be in the return value and their cdrs are
|
2015-03-28 20:36:14 +00:00
|
|
|
|
destructively set to nil in ONLY."
|
|
|
|
|
|
(let ((out))
|
|
|
|
|
|
(dolist (dep (package-desc-reqs package))
|
2017-09-12 17:08:47 +00:00
|
|
|
|
(when-let* ((cell (assq (car dep) only))
|
|
|
|
|
|
(dep-package (cdr-safe cell)))
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(setcdr cell nil)
|
|
|
|
|
|
(setq out (append (package--sort-deps-in-alist dep-package only)
|
|
|
|
|
|
out))))
|
|
|
|
|
|
(cons package out)))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package--sort-by-dependence (package-list)
|
|
|
|
|
|
"Return PACKAGE-LIST sorted by dependence.
|
|
|
|
|
|
That is, any element of the returned list is guaranteed to not
|
|
|
|
|
|
directly depend on any elements that come before it.
|
|
|
|
|
|
|
2017-05-19 13:42:57 +00:00
|
|
|
|
PACKAGE-LIST is a list of `package-desc' objects.
|
2015-03-28 20:36:14 +00:00
|
|
|
|
Indirect dependencies are guaranteed to be returned in order only
|
|
|
|
|
|
if all the in-between dependencies are also in PACKAGE-LIST."
|
|
|
|
|
|
(let ((alist (mapcar (lambda (p) (cons (package-desc-name p) p)) package-list))
|
|
|
|
|
|
out-list)
|
|
|
|
|
|
(dolist (cell alist out-list)
|
|
|
|
|
|
;; `package--sort-deps-in-alist' destructively changes alist, so
|
|
|
|
|
|
;; some cells might already be empty. We check this here.
|
2017-09-12 17:08:47 +00:00
|
|
|
|
(when-let* ((pkg-desc (cdr cell)))
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(setcdr cell nil)
|
|
|
|
|
|
(setq out-list
|
|
|
|
|
|
(append (package--sort-deps-in-alist pkg-desc alist)
|
|
|
|
|
|
out-list))))))
|
2014-12-07 21:28:38 +00:00
|
|
|
|
|
2015-03-28 20:36:14 +00:00
|
|
|
|
|
|
|
|
|
|
;;; Installation Functions
|
|
|
|
|
|
;; As opposed to the previous section (which listed some underlying
|
|
|
|
|
|
;; functions necessary for installation), this one contains the actual
|
|
|
|
|
|
;; functions that install packages. The package itself can be
|
|
|
|
|
|
;; installed in a variety of ways (archives, buffer, file), but
|
|
|
|
|
|
;; requirements (dependencies) are always satisfied by looking in
|
|
|
|
|
|
;; `package-archive-contents'.
|
|
|
|
|
|
(defun package-archive-base (desc)
|
|
|
|
|
|
"Return the archive containing the package NAME."
|
|
|
|
|
|
(cdr (assoc (package-desc-archive desc) package-archives)))
|
2014-12-07 21:28:38 +00:00
|
|
|
|
|
2015-05-20 19:54:20 +00:00
|
|
|
|
(defun package-install-from-archive (pkg-desc)
|
|
|
|
|
|
"Download and install a tar package."
|
2015-03-28 20:36:14 +00:00
|
|
|
|
;; This won't happen, unless the archive is doing something wrong.
|
|
|
|
|
|
(when (eq (package-desc-kind pkg-desc) 'dir)
|
|
|
|
|
|
(error "Can't install directory package from archive"))
|
|
|
|
|
|
(let* ((location (package-archive-base pkg-desc))
|
|
|
|
|
|
(file (concat (package-desc-full-name pkg-desc)
|
2015-04-05 14:43:59 +00:00
|
|
|
|
(package-desc-suffix pkg-desc))))
|
2015-11-14 15:44:44 +00:00
|
|
|
|
(package--with-response-buffer location :file file
|
2019-07-26 06:30:24 +00:00
|
|
|
|
(if (or (not (package-check-signature))
|
2015-04-05 14:43:59 +00:00
|
|
|
|
(member (package-desc-archive pkg-desc)
|
|
|
|
|
|
package-unsigned-archives))
|
|
|
|
|
|
;; If we don't care about the signature, unpack and we're
|
|
|
|
|
|
;; done.
|
2015-05-20 19:54:20 +00:00
|
|
|
|
(let ((save-silently t))
|
|
|
|
|
|
(package-unpack pkg-desc))
|
2015-04-05 14:43:59 +00:00
|
|
|
|
;; If we care, check it and *then* write the file.
|
|
|
|
|
|
(let ((content (buffer-string)))
|
|
|
|
|
|
(package--check-signature
|
2015-05-20 19:54:20 +00:00
|
|
|
|
location file content nil
|
2015-04-05 14:43:59 +00:00
|
|
|
|
;; This function will be called after signature checking.
|
|
|
|
|
|
(lambda (&optional good-sigs)
|
|
|
|
|
|
;; Signature checked, unpack now.
|
2019-05-24 16:26:14 +00:00
|
|
|
|
(with-temp-buffer ;FIXME: Just use the previous current-buffer.
|
|
|
|
|
|
(set-buffer-multibyte nil)
|
|
|
|
|
|
(cl-assert (not (multibyte-string-p content)))
|
|
|
|
|
|
(insert content)
|
|
|
|
|
|
(let ((save-silently t))
|
|
|
|
|
|
(package-unpack pkg-desc)))
|
2015-04-05 14:43:59 +00:00
|
|
|
|
;; Here the package has been installed successfully, mark it as
|
|
|
|
|
|
;; signed if appropriate.
|
|
|
|
|
|
(when good-sigs
|
|
|
|
|
|
;; Write out good signatures into NAME-VERSION.signed file.
|
|
|
|
|
|
(write-region (mapconcat #'epg-signature-to-string good-sigs "\n")
|
|
|
|
|
|
nil
|
|
|
|
|
|
(expand-file-name
|
|
|
|
|
|
(concat (package-desc-full-name pkg-desc) ".signed")
|
|
|
|
|
|
package-user-dir)
|
|
|
|
|
|
nil 'silent)
|
|
|
|
|
|
;; Update the old pkg-desc which will be shown on the description buffer.
|
|
|
|
|
|
(setf (package-desc-signed pkg-desc) t)
|
|
|
|
|
|
;; Update the new (activated) pkg-desc as well.
|
2019-05-18 22:32:47 +00:00
|
|
|
|
(when-let* ((pkg-descs (cdr (assq (package-desc-name pkg-desc)
|
|
|
|
|
|
package-alist))))
|
2015-05-20 19:54:20 +00:00
|
|
|
|
(setf (package-desc-signed (car pkg-descs)) t))))))))))
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(defun package-installed-p (package &optional min-version)
|
2017-05-19 13:42:57 +00:00
|
|
|
|
"Return non-nil if PACKAGE, of MIN-VERSION or newer, is installed.
|
2015-03-28 20:36:14 +00:00
|
|
|
|
If PACKAGE is a symbol, it is the package name and MIN-VERSION
|
|
|
|
|
|
should be a version list.
|
|
|
|
|
|
|
2017-05-19 13:42:57 +00:00
|
|
|
|
If PACKAGE is a `package-desc' object, MIN-VERSION is ignored."
|
2018-03-26 13:41:30 +00:00
|
|
|
|
(cond
|
|
|
|
|
|
((package-desc-p package)
|
|
|
|
|
|
(let ((dir (package-desc-dir package)))
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(and (stringp dir)
|
2018-03-26 13:41:30 +00:00
|
|
|
|
(file-exists-p dir))))
|
|
|
|
|
|
((and (not package--initialized)
|
|
|
|
|
|
(null min-version)
|
|
|
|
|
|
package-activated-list)
|
|
|
|
|
|
;; We used the quickstart: make it possible to use package-installed-p
|
|
|
|
|
|
;; even before package is fully initialized.
|
|
|
|
|
|
(memq package package-activated-list))
|
|
|
|
|
|
(t
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(or
|
2019-01-22 22:54:29 +00:00
|
|
|
|
(let ((pkg-descs (cdr (assq package (package--alist)))))
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(and pkg-descs
|
|
|
|
|
|
(version-list-<= min-version
|
|
|
|
|
|
(package-desc-version (car pkg-descs)))))
|
|
|
|
|
|
;; Also check built-in packages.
|
2018-03-26 13:41:30 +00:00
|
|
|
|
(package-built-in-p package min-version)))))
|
2015-02-03 13:43:10 +00:00
|
|
|
|
|
2015-05-20 19:54:20 +00:00
|
|
|
|
(defun package-download-transaction (packages)
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
"Download and install all the packages in PACKAGES.
|
2017-05-19 13:42:57 +00:00
|
|
|
|
PACKAGES should be a list of `package-desc'.
|
2010-08-29 22:15:09 +00:00
|
|
|
|
This function assumes that all package requirements in
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
PACKAGES are satisfied, i.e. that PACKAGES is computed
|
2010-08-29 22:15:09 +00:00
|
|
|
|
using `package-compute-transaction'."
|
2015-05-20 19:54:20 +00:00
|
|
|
|
(mapc #'package-install-from-archive packages))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
2015-05-20 19:54:20 +00:00
|
|
|
|
(defun package-install (pkg &optional dont-select)
|
2013-06-22 20:09:19 +00:00
|
|
|
|
"Install the package PKG.
|
2017-05-19 13:42:57 +00:00
|
|
|
|
PKG can be a `package-desc' or a symbol naming one of the available packages
|
2015-02-01 22:34:16 +00:00
|
|
|
|
in an archive in `package-archives'. Interactively, prompt for its name.
|
|
|
|
|
|
|
2015-02-11 14:53:43 +00:00
|
|
|
|
If called interactively or if DONT-SELECT nil, add PKG to
|
|
|
|
|
|
`package-selected-packages'.
|
2015-02-04 14:51:39 +00:00
|
|
|
|
|
2017-05-19 13:42:57 +00:00
|
|
|
|
If PKG is a `package-desc' and it is already installed, don't try
|
2015-02-04 14:51:39 +00:00
|
|
|
|
to install it but still mark it as selected."
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(interactive
|
2011-08-26 15:53:50 +00:00
|
|
|
|
(progn
|
|
|
|
|
|
;; Initialize the package system to get the list of package
|
|
|
|
|
|
;; symbols for completion.
|
|
|
|
|
|
(unless package--initialized
|
|
|
|
|
|
(package-initialize t))
|
2012-01-28 09:49:29 +00:00
|
|
|
|
(unless package-archive-contents
|
|
|
|
|
|
(package-refresh-contents))
|
2013-06-22 20:09:19 +00:00
|
|
|
|
(list (intern (completing-read
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
"Install package: "
|
2014-03-24 22:38:06 +00:00
|
|
|
|
(delq nil
|
|
|
|
|
|
(mapcar (lambda (elt)
|
|
|
|
|
|
(unless (package-installed-p (car elt))
|
|
|
|
|
|
(symbol-name (car elt))))
|
|
|
|
|
|
package-archive-contents))
|
2015-02-01 21:45:47 +00:00
|
|
|
|
nil t))
|
2015-02-11 14:53:43 +00:00
|
|
|
|
nil)))
|
2015-06-17 14:37:51 +00:00
|
|
|
|
(add-hook 'post-command-hook #'package-menu--post-refresh)
|
2015-02-03 13:43:10 +00:00
|
|
|
|
(let ((name (if (package-desc-p pkg)
|
|
|
|
|
|
(package-desc-name pkg)
|
|
|
|
|
|
pkg)))
|
2015-02-11 14:53:43 +00:00
|
|
|
|
(unless (or dont-select (package--user-selected-p name))
|
2015-04-12 14:03:45 +00:00
|
|
|
|
(package--save-selected-packages
|
2015-10-05 19:55:58 +00:00
|
|
|
|
(cons name package-selected-packages)))
|
2017-09-12 17:08:47 +00:00
|
|
|
|
(if-let* ((transaction
|
|
|
|
|
|
(if (package-desc-p pkg)
|
|
|
|
|
|
(unless (package-installed-p pkg)
|
|
|
|
|
|
(package-compute-transaction (list pkg)
|
|
|
|
|
|
(package-desc-reqs pkg)))
|
|
|
|
|
|
(package-compute-transaction () (list (list pkg))))))
|
2018-03-26 13:41:30 +00:00
|
|
|
|
(progn
|
|
|
|
|
|
(package-download-transaction transaction)
|
|
|
|
|
|
(package--quickstart-maybe-refresh))
|
2015-10-05 19:55:58 +00:00
|
|
|
|
(message "`%s' is already installed" name))))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2011-03-10 21:51:26 +00:00
|
|
|
|
(defun package-strip-rcs-id (str)
|
|
|
|
|
|
"Strip RCS version ID from the version string STR.
|
2010-06-17 02:08:10 +00:00
|
|
|
|
If the result looks like a dotted numeric version, return it.
|
|
|
|
|
|
Otherwise return nil."
|
2011-03-10 21:51:26 +00:00
|
|
|
|
(when str
|
|
|
|
|
|
(when (string-match "\\`[ \t]*[$]Revision:[ \t]+" str)
|
|
|
|
|
|
(setq str (substring str (match-end 0))))
|
2015-06-17 19:33:08 +00:00
|
|
|
|
(ignore-errors
|
|
|
|
|
|
(if (version-to-list str) str))))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2013-10-30 06:29:51 +00:00
|
|
|
|
(declare-function lm-homepage "lisp-mnt" (&optional file))
|
|
|
|
|
|
|
2010-08-31 01:53:46 +00:00
|
|
|
|
;;;###autoload
|
2013-06-21 03:08:47 +00:00
|
|
|
|
(defun package-install-from-buffer ()
|
2010-08-31 01:53:46 +00:00
|
|
|
|
"Install a package from the current buffer.
|
2015-01-13 01:35:46 +00:00
|
|
|
|
The current buffer is assumed to be a single .el or .tar file or
|
|
|
|
|
|
a directory. These must follow the packaging guidelines (see
|
|
|
|
|
|
info node `(elisp)Packaging').
|
|
|
|
|
|
|
|
|
|
|
|
Specially, if current buffer is a directory, the -pkg.el
|
|
|
|
|
|
description file is not mandatory, in which case the information
|
|
|
|
|
|
is derived from the main .el file in the directory.
|
|
|
|
|
|
|
2013-06-21 03:08:47 +00:00
|
|
|
|
Downloads and installs required packages as needed."
|
|
|
|
|
|
(interactive)
|
2015-02-01 21:45:47 +00:00
|
|
|
|
(let* ((pkg-desc
|
|
|
|
|
|
(cond
|
|
|
|
|
|
((derived-mode-p 'dired-mode)
|
|
|
|
|
|
;; This is the only way a package-desc object with a `dir'
|
|
|
|
|
|
;; desc-kind can be created. Such packages can't be
|
|
|
|
|
|
;; uploaded or installed from archives, they can only be
|
|
|
|
|
|
;; installed from local buffers or directories.
|
|
|
|
|
|
(package-dir-info))
|
|
|
|
|
|
((derived-mode-p 'tar-mode)
|
|
|
|
|
|
(package-tar-file-info))
|
|
|
|
|
|
(t
|
2016-05-11 22:29:03 +00:00
|
|
|
|
(save-excursion
|
|
|
|
|
|
(package-buffer-info)))))
|
2015-02-01 21:45:47 +00:00
|
|
|
|
(name (package-desc-name pkg-desc)))
|
2013-06-21 03:08:47 +00:00
|
|
|
|
;; Download and install the dependencies.
|
|
|
|
|
|
(let* ((requires (package-desc-reqs pkg-desc))
|
|
|
|
|
|
(transaction (package-compute-transaction nil requires)))
|
|
|
|
|
|
(package-download-transaction transaction))
|
|
|
|
|
|
;; Install the package itself.
|
|
|
|
|
|
(package-unpack pkg-desc)
|
2015-02-03 13:43:10 +00:00
|
|
|
|
(unless (package--user-selected-p name)
|
2015-04-12 14:03:45 +00:00
|
|
|
|
(package--save-selected-packages
|
|
|
|
|
|
(cons name package-selected-packages)))
|
2013-06-21 03:08:47 +00:00
|
|
|
|
pkg-desc))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2015-03-28 20:36:14 +00:00
|
|
|
|
;;;###autoload
|
|
|
|
|
|
(defun package-install-file (file)
|
|
|
|
|
|
"Install a package from a file.
|
2015-07-17 18:25:39 +00:00
|
|
|
|
The file can either be a tar file, an Emacs Lisp file, or a
|
|
|
|
|
|
directory."
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(interactive "fPackage file name: ")
|
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
|
(if (file-directory-p file)
|
|
|
|
|
|
(progn
|
|
|
|
|
|
(setq default-directory file)
|
|
|
|
|
|
(dired-mode))
|
|
|
|
|
|
(insert-file-contents-literally file)
|
|
|
|
|
|
(when (string-match "\\.tar\\'" file) (tar-mode)))
|
|
|
|
|
|
(package-install-from-buffer)))
|
2015-02-01 21:45:47 +00:00
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
2015-04-27 21:04:38 +00:00
|
|
|
|
(defun package-install-selected-packages ()
|
2015-02-01 21:45:47 +00:00
|
|
|
|
"Ensure packages in `package-selected-packages' are installed.
|
|
|
|
|
|
If some packages are not installed propose to install them."
|
|
|
|
|
|
(interactive)
|
2015-02-03 13:43:10 +00:00
|
|
|
|
;; We don't need to populate `package-selected-packages' before
|
|
|
|
|
|
;; using here, because the outcome is the same either way (nothing
|
|
|
|
|
|
;; gets installed).
|
|
|
|
|
|
(if (not package-selected-packages)
|
Go back to grave quoting in source-code docstrings etc.
This reverts almost all my recent changes to use curved quotes
in docstrings and/or strings used for error diagnostics.
There are a few exceptions, e.g., Bahá’í proper names.
* admin/unidata/unidata-gen.el (unidata-gen-table):
* lisp/abbrev.el (expand-region-abbrevs):
* lisp/align.el (align-region):
* lisp/allout.el (allout-mode, allout-solicit-alternate-bullet)
(outlineify-sticky):
* lisp/apropos.el (apropos-library):
* lisp/bookmark.el (bookmark-default-annotation-text):
* lisp/button.el (button-category-symbol, button-put)
(make-text-button):
* lisp/calc/calc-aent.el (math-read-if, math-read-factor):
* lisp/calc/calc-embed.el (calc-do-embedded):
* lisp/calc/calc-ext.el (calc-user-function-list):
* lisp/calc/calc-graph.el (calc-graph-show-dumb):
* lisp/calc/calc-help.el (calc-describe-key)
(calc-describe-thing, calc-full-help):
* lisp/calc/calc-lang.el (calc-c-language)
(math-parse-fortran-vector-end, math-parse-tex-sum)
(math-parse-eqn-matrix, math-parse-eqn-prime)
(calc-yacas-language, calc-maxima-language, calc-giac-language)
(math-read-giac-subscr, math-read-math-subscr)
(math-read-big-rec, math-read-big-balance):
* lisp/calc/calc-misc.el (calc-help, report-calc-bug):
* lisp/calc/calc-mode.el (calc-auto-why, calc-save-modes)
(calc-auto-recompute):
* lisp/calc/calc-prog.el (calc-fix-token-name)
(calc-read-parse-table-part, calc-user-define-invocation)
(math-do-arg-check):
* lisp/calc/calc-store.el (calc-edit-variable):
* lisp/calc/calc-units.el (math-build-units-table-buffer):
* lisp/calc/calc-vec.el (math-read-brackets):
* lisp/calc/calc-yank.el (calc-edit-mode):
* lisp/calc/calc.el (calc, calc-do, calc-user-invocation):
* lisp/calendar/appt.el (appt-display-message):
* lisp/calendar/diary-lib.el (diary-check-diary-file)
(diary-mail-entries, diary-from-outlook):
* lisp/calendar/icalendar.el (icalendar-export-region)
(icalendar--convert-float-to-ical)
(icalendar--convert-date-to-ical)
(icalendar--convert-ical-to-diary)
(icalendar--convert-recurring-to-diary)
(icalendar--add-diary-entry):
* lisp/calendar/time-date.el (format-seconds):
* lisp/calendar/timeclock.el (timeclock-mode-line-display)
(timeclock-make-hours-explicit, timeclock-log-data):
* lisp/calendar/todo-mode.el (todo-prefix, todo-delete-category)
(todo-item-mark, todo-check-format)
(todo-insert-item--next-param, todo-edit-item--next-key)
(todo-mode):
* lisp/cedet/ede/pmake.el (ede-proj-makefile-insert-dist-rules):
* lisp/cedet/mode-local.el (describe-mode-local-overload)
(mode-local-print-binding, mode-local-describe-bindings-2):
* lisp/cedet/semantic/complete.el (semantic-displayor-show-request):
* lisp/cedet/srecode/srt-mode.el (srecode-macro-help):
* lisp/cus-start.el (standard):
* lisp/cus-theme.el (describe-theme-1):
* lisp/custom.el (custom-add-dependencies, custom-check-theme)
(custom--sort-vars-1, load-theme):
* lisp/descr-text.el (describe-text-properties-1, describe-char):
* lisp/dired-x.el (dired-do-run-mail):
* lisp/dired.el (dired-log):
* lisp/emacs-lisp/advice.el (ad-read-advised-function)
(ad-read-advice-class, ad-read-advice-name, ad-enable-advice)
(ad-disable-advice, ad-remove-advice, ad-set-argument)
(ad-set-arguments, ad--defalias-fset, ad-activate)
(ad-deactivate):
* lisp/emacs-lisp/byte-opt.el (byte-compile-inline-expand)
(byte-compile-unfold-lambda, byte-optimize-form-code-walker)
(byte-optimize-while, byte-optimize-apply):
* lisp/emacs-lisp/byte-run.el (defun, defsubst):
* lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode)
(byte-compile-log-file, byte-compile-format-warn)
(byte-compile-nogroup-warn, byte-compile-arglist-warn)
(byte-compile-cl-warn)
(byte-compile-warn-about-unresolved-functions)
(byte-compile-file, byte-compile--declare-var)
(byte-compile-file-form-defmumble, byte-compile-form)
(byte-compile-normal-call, byte-compile-check-variable)
(byte-compile-variable-ref, byte-compile-variable-set)
(byte-compile-subr-wrong-args, byte-compile-setq-default)
(byte-compile-negation-optimizer)
(byte-compile-condition-case--old)
(byte-compile-condition-case--new, byte-compile-save-excursion)
(byte-compile-defvar, byte-compile-autoload)
(byte-compile-lambda-form)
(byte-compile-make-variable-buffer-local, display-call-tree)
(batch-byte-compile):
* lisp/emacs-lisp/cconv.el (cconv-convert, cconv--analyze-use):
* lisp/emacs-lisp/chart.el (chart-space-usage):
* lisp/emacs-lisp/check-declare.el (check-declare-scan)
(check-declare-warn, check-declare-file)
(check-declare-directory):
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine)
(checkdoc-message-text-engine):
* lisp/emacs-lisp/cl-extra.el (cl-parse-integer)
(cl--describe-class):
* lisp/emacs-lisp/cl-generic.el (cl-defgeneric)
(cl--generic-describe, cl-generic-generalizers):
* lisp/emacs-lisp/cl-macs.el (cl--parse-loop-clause, cl-tagbody)
(cl-symbol-macrolet):
* lisp/emacs-lisp/cl.el (cl-unload-function, flet):
* lisp/emacs-lisp/copyright.el (copyright)
(copyright-update-directory):
* lisp/emacs-lisp/edebug.el (edebug-read-list):
* lisp/emacs-lisp/eieio-base.el (eieio-persistent-read):
* lisp/emacs-lisp/eieio-core.el (eieio--slot-override)
(eieio-oref):
* lisp/emacs-lisp/eieio-opt.el (eieio-help-constructor):
* lisp/emacs-lisp/eieio-speedbar.el:
(eieio-speedbar-child-make-tag-lines)
(eieio-speedbar-child-description):
* lisp/emacs-lisp/eieio.el (defclass, change-class):
* lisp/emacs-lisp/elint.el (elint-file, elint-get-top-forms)
(elint-init-form, elint-check-defalias-form)
(elint-check-let-form):
* lisp/emacs-lisp/ert.el (ert-get-test, ert-results-mode-menu)
(ert-results-pop-to-backtrace-for-test-at-point)
(ert-results-pop-to-messages-for-test-at-point)
(ert-results-pop-to-should-forms-for-test-at-point)
(ert-describe-test):
* lisp/emacs-lisp/find-func.el (find-function-search-for-symbol)
(find-function-library):
* lisp/emacs-lisp/generator.el (iter-yield):
* lisp/emacs-lisp/gv.el (gv-define-simple-setter):
* lisp/emacs-lisp/lisp-mnt.el (lm-verify):
* lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning):
* lisp/emacs-lisp/map-ynp.el (map-y-or-n-p):
* lisp/emacs-lisp/nadvice.el (advice--make-docstring)
(advice--make, define-advice):
* lisp/emacs-lisp/package-x.el (package-upload-file):
* lisp/emacs-lisp/package.el (package-version-join)
(package-disabled-p, package-activate-1, package-activate)
(package--download-one-archive)
(package--download-and-read-archives)
(package-compute-transaction, package-install-from-archive)
(package-install, package-install-selected-packages)
(package-delete, package-autoremove, describe-package-1)
(package-install-button-action, package-delete-button-action)
(package-menu-hide-package, package-menu--list-to-prompt)
(package-menu--perform-transaction)
(package-menu--find-and-notify-upgrades):
* lisp/emacs-lisp/pcase.el (pcase-exhaustive, pcase--u1):
* lisp/emacs-lisp/re-builder.el (reb-enter-subexp-mode):
* lisp/emacs-lisp/ring.el (ring-previous, ring-next):
* lisp/emacs-lisp/rx.el (rx-check, rx-anything)
(rx-check-any-string, rx-check-any, rx-check-not, rx-=)
(rx-repeat, rx-check-backref, rx-syntax, rx-check-category)
(rx-form):
* lisp/emacs-lisp/smie.el (smie-config-save):
* lisp/emacs-lisp/subr-x.el (internal--check-binding):
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-put-tag):
* lisp/emacs-lisp/testcover.el (testcover-1value):
* lisp/emacs-lisp/timer.el (timer-event-handler):
* lisp/emulation/viper-cmd.el (viper-toggle-parse-sexp-ignore-comments)
(viper-toggle-search-style, viper-kill-buffer)
(viper-brac-function):
* lisp/emulation/viper-macs.el (viper-record-kbd-macro):
* lisp/env.el (setenv):
* lisp/erc/erc-button.el (erc-nick-popup):
* lisp/erc/erc.el (erc-cmd-LOAD, erc-handle-login, english):
* lisp/eshell/em-dirs.el (eshell/cd):
* lisp/eshell/em-glob.el (eshell-glob-regexp)
(eshell-glob-entries):
* lisp/eshell/em-pred.el (eshell-parse-modifiers):
* lisp/eshell/esh-opt.el (eshell-show-usage):
* lisp/facemenu.el (facemenu-add-new-face)
(facemenu-add-new-color):
* lisp/faces.el (read-face-name, read-face-font, describe-face)
(x-resolve-font-name):
* lisp/files-x.el (modify-file-local-variable):
* lisp/files.el (locate-user-emacs-file, find-alternate-file)
(set-auto-mode, hack-one-local-variable--obsolete)
(dir-locals-set-directory-class, write-file, basic-save-buffer)
(delete-directory, copy-directory, recover-session)
(recover-session-finish, insert-directory)
(file-modes-char-to-who, file-modes-symbolic-to-number)
(move-file-to-trash):
* lisp/filesets.el (filesets-add-buffer, filesets-remove-buffer):
* lisp/find-cmd.el (find-generic, find-to-string):
* lisp/finder.el (finder-commentary):
* lisp/font-lock.el (font-lock-fontify-buffer):
* lisp/format.el (format-write-file, format-find-file)
(format-insert-file):
* lisp/frame.el (get-device-terminal, select-frame-by-name):
* lisp/fringe.el (fringe--check-style):
* lisp/gnus/nnmairix.el (nnmairix-widget-create-query):
* lisp/help-fns.el (help-fns--key-bindings)
(help-fns--compiler-macro, help-fns--parent-mode)
(help-fns--obsolete, help-fns--interactive-only)
(describe-function-1, describe-variable):
* lisp/help.el (describe-mode)
(describe-minor-mode-from-indicator):
* lisp/image.el (image-type):
* lisp/international/ccl.el (ccl-dump):
* lisp/international/fontset.el (x-must-resolve-font-name):
* lisp/international/mule-cmds.el (prefer-coding-system)
(select-safe-coding-system-interactively)
(select-safe-coding-system, activate-input-method)
(toggle-input-method, describe-current-input-method)
(describe-language-environment):
* lisp/international/mule-conf.el (code-offset):
* lisp/international/mule-diag.el (describe-character-set)
(list-input-methods-1):
* lisp/mail/feedmail.el (feedmail-run-the-queue):
* lisp/mouse.el (minor-mode-menu-from-indicator):
* lisp/mpc.el (mpc-playlist-rename):
* lisp/msb.el (msb--choose-menu):
* lisp/net/ange-ftp.el (ange-ftp-shell-command):
* lisp/net/imap.el (imap-interactive-login):
* lisp/net/mairix.el (mairix-widget-create-query):
* lisp/net/newst-backend.el (newsticker--sentinel-work):
* lisp/net/newst-treeview.el (newsticker--treeview-load):
* lisp/net/rlogin.el (rlogin):
* lisp/obsolete/iswitchb.el (iswitchb-possible-new-buffer):
* lisp/obsolete/otodo-mode.el (todo-more-important-p):
* lisp/obsolete/pgg-gpg.el (pgg-gpg-process-region):
* lisp/obsolete/pgg-pgp.el (pgg-pgp-process-region):
* lisp/obsolete/pgg-pgp5.el (pgg-pgp5-process-region):
* lisp/org/ob-core.el (org-babel-goto-named-src-block)
(org-babel-goto-named-result):
* lisp/org/ob-fortran.el (org-babel-fortran-ensure-main-wrap):
* lisp/org/ob-ref.el (org-babel-ref-resolve):
* lisp/org/org-agenda.el (org-agenda-prepare):
* lisp/org/org-clock.el (org-clock-notify-once-if-expired)
(org-clock-resolve):
* lisp/org/org-ctags.el (org-ctags-ask-rebuild-tags-file-then-find-tag):
* lisp/org/org-feed.el (org-feed-parse-atom-entry):
* lisp/org/org-habit.el (org-habit-parse-todo):
* lisp/org/org-mouse.el (org-mouse-popup-global-menu)
(org-mouse-context-menu):
* lisp/org/org-table.el (org-table-edit-formulas):
* lisp/org/ox.el (org-export-async-start):
* lisp/proced.el (proced-log):
* lisp/progmodes/ada-mode.el (ada-get-indent-case)
(ada-check-matching-start, ada-goto-matching-start):
* lisp/progmodes/ada-prj.el (ada-prj-display-page):
* lisp/progmodes/ada-xref.el (ada-find-executable):
* lisp/progmodes/ebrowse.el (ebrowse-tags-apropos):
* lisp/progmodes/etags.el (etags-tags-apropos-additional):
* lisp/progmodes/flymake.el (flymake-parse-err-lines)
(flymake-start-syntax-check-process):
* lisp/progmodes/python.el (python-shell-get-process-or-error)
(python-define-auxiliary-skeleton):
* lisp/progmodes/sql.el (sql-comint):
* lisp/progmodes/verilog-mode.el (verilog-load-file-at-point):
* lisp/progmodes/vhdl-mode.el (vhdl-widget-directory-validate):
* lisp/recentf.el (recentf-open-files):
* lisp/replace.el (query-replace-read-from)
(occur-after-change-function, occur-1):
* lisp/scroll-bar.el (scroll-bar-columns):
* lisp/server.el (server-get-auth-key):
* lisp/simple.el (execute-extended-command)
(undo-outer-limit-truncate, list-processes--refresh)
(compose-mail, set-variable, choose-completion-string)
(define-alternatives):
* lisp/startup.el (site-run-file, tty-handle-args, command-line)
(command-line-1):
* lisp/subr.el (noreturn, define-error, add-to-list)
(read-char-choice, version-to-list):
* lisp/term/common-win.el (x-handle-xrm-switch)
(x-handle-name-switch, x-handle-args):
* lisp/term/x-win.el (x-handle-parent-id, x-handle-smid):
* lisp/textmodes/reftex-ref.el (reftex-label):
* lisp/textmodes/reftex-toc.el (reftex-toc-rename-label):
* lisp/textmodes/two-column.el (2C-split):
* lisp/tutorial.el (tutorial--describe-nonstandard-key)
(tutorial--find-changed-keys):
* lisp/type-break.el (type-break-noninteractive-query):
* lisp/wdired.el (wdired-do-renames, wdired-do-symlink-changes)
(wdired-do-perm-changes):
* lisp/whitespace.el (whitespace-report-region):
Prefer grave quoting in source-code strings used to generate help
and diagnostics.
* lisp/faces.el (face-documentation):
No need to convert quotes, since the result is a docstring.
* lisp/info.el (Info-virtual-index-find-node)
(Info-virtual-index, info-apropos):
Simplify by generating only curved quotes, since info files are
typically that ways nowadays anyway.
* lisp/international/mule-diag.el (list-input-methods):
Don’t assume text quoting style is curved.
* lisp/org/org-bibtex.el (org-bibtex-fields):
Revert my recent changes, going back to the old quoting style.
2015-09-07 15:41:44 +00:00
|
|
|
|
(message "`package-selected-packages' is empty, nothing to install")
|
2016-04-04 14:58:49 +00:00
|
|
|
|
(let* ((not-installed (seq-remove #'package-installed-p package-selected-packages))
|
|
|
|
|
|
(available (seq-filter (lambda (p) (assq p package-archive-contents)) not-installed))
|
|
|
|
|
|
(difference (- (length not-installed) (length available))))
|
|
|
|
|
|
(cond
|
|
|
|
|
|
(available
|
|
|
|
|
|
(when (y-or-n-p
|
2018-06-20 16:19:00 +00:00
|
|
|
|
(format "Packages to install: %d (%s), proceed? "
|
2016-04-04 14:58:49 +00:00
|
|
|
|
(length available)
|
2018-06-20 16:19:00 +00:00
|
|
|
|
(mapconcat #'symbol-name available " ")))
|
2016-04-04 14:58:49 +00:00
|
|
|
|
(mapc (lambda (p) (package-install p 'dont-select)) available)))
|
|
|
|
|
|
((> difference 0)
|
2018-06-20 16:19:00 +00:00
|
|
|
|
(message "Packages that are not available: %d (the rest is already installed), maybe you need to `M-x package-refresh-contents'"
|
2016-04-04 14:58:49 +00:00
|
|
|
|
difference))
|
|
|
|
|
|
(t
|
|
|
|
|
|
(message "All your packages are already installed"))))))
|
2015-02-01 21:45:47 +00:00
|
|
|
|
|
2015-03-28 20:36:14 +00:00
|
|
|
|
|
|
|
|
|
|
;;; Package Deletion
|
2015-02-05 22:47:28 +00:00
|
|
|
|
(defun package--newest-p (pkg)
|
2017-05-19 13:42:57 +00:00
|
|
|
|
"Return non-nil if PKG is the newest package with its name."
|
2015-02-05 22:47:28 +00:00
|
|
|
|
(equal (cadr (assq (package-desc-name pkg) package-alist))
|
|
|
|
|
|
pkg))
|
|
|
|
|
|
|
2015-02-02 20:35:29 +00:00
|
|
|
|
(defun package-delete (pkg-desc &optional force nosave)
|
2015-02-01 21:45:47 +00:00
|
|
|
|
"Delete package PKG-DESC.
|
|
|
|
|
|
|
|
|
|
|
|
Argument PKG-DESC is a full description of package as vector.
|
2015-06-08 09:50:22 +00:00
|
|
|
|
Interactively, prompt the user for the package name and version.
|
|
|
|
|
|
|
2015-02-01 21:45:47 +00:00
|
|
|
|
When package is used elsewhere as dependency of another package,
|
|
|
|
|
|
refuse deleting it and return an error.
|
2015-06-08 09:50:22 +00:00
|
|
|
|
If prefix argument FORCE is non-nil, package will be deleted even
|
|
|
|
|
|
if it is used elsewhere.
|
2015-02-03 11:19:56 +00:00
|
|
|
|
If NOSAVE is non-nil, the package is not removed from
|
|
|
|
|
|
`package-selected-packages'."
|
2015-06-08 09:50:22 +00:00
|
|
|
|
(interactive
|
|
|
|
|
|
(progn
|
|
|
|
|
|
(let* ((package-table
|
|
|
|
|
|
(mapcar
|
|
|
|
|
|
(lambda (p) (cons (package-desc-full-name p) p))
|
|
|
|
|
|
(delq nil
|
|
|
|
|
|
(mapcar (lambda (p) (unless (package-built-in-p p) p))
|
2019-01-22 22:54:29 +00:00
|
|
|
|
(apply #'append (mapcar #'cdr (package--alist)))))))
|
2015-06-08 09:50:22 +00:00
|
|
|
|
(package-name (completing-read "Delete package: "
|
|
|
|
|
|
(mapcar #'car package-table)
|
|
|
|
|
|
nil t)))
|
|
|
|
|
|
(list (cdr (assoc package-name package-table))
|
|
|
|
|
|
current-prefix-arg nil))))
|
2015-02-01 21:45:47 +00:00
|
|
|
|
(let ((dir (package-desc-dir pkg-desc))
|
|
|
|
|
|
(name (package-desc-name pkg-desc))
|
|
|
|
|
|
pkg-used-elsewhere-by)
|
2015-02-04 13:01:02 +00:00
|
|
|
|
;; If the user is trying to delete this package, they definitely
|
|
|
|
|
|
;; don't want it marked as selected, so we remove it from
|
|
|
|
|
|
;; `package-selected-packages' even if it can't be deleted.
|
|
|
|
|
|
(when (and (null nosave)
|
2015-02-05 22:47:28 +00:00
|
|
|
|
(package--user-selected-p name)
|
2015-02-22 04:00:16 +00:00
|
|
|
|
;; Don't deselect if this is an older version of an
|
2015-02-05 22:47:28 +00:00
|
|
|
|
;; upgraded package.
|
|
|
|
|
|
(package--newest-p pkg-desc))
|
2015-04-12 14:03:45 +00:00
|
|
|
|
(package--save-selected-packages (remove name package-selected-packages)))
|
2015-02-01 21:45:47 +00:00
|
|
|
|
(cond ((not (string-prefix-p (file-name-as-directory
|
|
|
|
|
|
(expand-file-name package-user-dir))
|
|
|
|
|
|
(expand-file-name dir)))
|
|
|
|
|
|
;; Don't delete "system" packages.
|
Go back to grave quoting in source-code docstrings etc.
This reverts almost all my recent changes to use curved quotes
in docstrings and/or strings used for error diagnostics.
There are a few exceptions, e.g., Bahá’í proper names.
* admin/unidata/unidata-gen.el (unidata-gen-table):
* lisp/abbrev.el (expand-region-abbrevs):
* lisp/align.el (align-region):
* lisp/allout.el (allout-mode, allout-solicit-alternate-bullet)
(outlineify-sticky):
* lisp/apropos.el (apropos-library):
* lisp/bookmark.el (bookmark-default-annotation-text):
* lisp/button.el (button-category-symbol, button-put)
(make-text-button):
* lisp/calc/calc-aent.el (math-read-if, math-read-factor):
* lisp/calc/calc-embed.el (calc-do-embedded):
* lisp/calc/calc-ext.el (calc-user-function-list):
* lisp/calc/calc-graph.el (calc-graph-show-dumb):
* lisp/calc/calc-help.el (calc-describe-key)
(calc-describe-thing, calc-full-help):
* lisp/calc/calc-lang.el (calc-c-language)
(math-parse-fortran-vector-end, math-parse-tex-sum)
(math-parse-eqn-matrix, math-parse-eqn-prime)
(calc-yacas-language, calc-maxima-language, calc-giac-language)
(math-read-giac-subscr, math-read-math-subscr)
(math-read-big-rec, math-read-big-balance):
* lisp/calc/calc-misc.el (calc-help, report-calc-bug):
* lisp/calc/calc-mode.el (calc-auto-why, calc-save-modes)
(calc-auto-recompute):
* lisp/calc/calc-prog.el (calc-fix-token-name)
(calc-read-parse-table-part, calc-user-define-invocation)
(math-do-arg-check):
* lisp/calc/calc-store.el (calc-edit-variable):
* lisp/calc/calc-units.el (math-build-units-table-buffer):
* lisp/calc/calc-vec.el (math-read-brackets):
* lisp/calc/calc-yank.el (calc-edit-mode):
* lisp/calc/calc.el (calc, calc-do, calc-user-invocation):
* lisp/calendar/appt.el (appt-display-message):
* lisp/calendar/diary-lib.el (diary-check-diary-file)
(diary-mail-entries, diary-from-outlook):
* lisp/calendar/icalendar.el (icalendar-export-region)
(icalendar--convert-float-to-ical)
(icalendar--convert-date-to-ical)
(icalendar--convert-ical-to-diary)
(icalendar--convert-recurring-to-diary)
(icalendar--add-diary-entry):
* lisp/calendar/time-date.el (format-seconds):
* lisp/calendar/timeclock.el (timeclock-mode-line-display)
(timeclock-make-hours-explicit, timeclock-log-data):
* lisp/calendar/todo-mode.el (todo-prefix, todo-delete-category)
(todo-item-mark, todo-check-format)
(todo-insert-item--next-param, todo-edit-item--next-key)
(todo-mode):
* lisp/cedet/ede/pmake.el (ede-proj-makefile-insert-dist-rules):
* lisp/cedet/mode-local.el (describe-mode-local-overload)
(mode-local-print-binding, mode-local-describe-bindings-2):
* lisp/cedet/semantic/complete.el (semantic-displayor-show-request):
* lisp/cedet/srecode/srt-mode.el (srecode-macro-help):
* lisp/cus-start.el (standard):
* lisp/cus-theme.el (describe-theme-1):
* lisp/custom.el (custom-add-dependencies, custom-check-theme)
(custom--sort-vars-1, load-theme):
* lisp/descr-text.el (describe-text-properties-1, describe-char):
* lisp/dired-x.el (dired-do-run-mail):
* lisp/dired.el (dired-log):
* lisp/emacs-lisp/advice.el (ad-read-advised-function)
(ad-read-advice-class, ad-read-advice-name, ad-enable-advice)
(ad-disable-advice, ad-remove-advice, ad-set-argument)
(ad-set-arguments, ad--defalias-fset, ad-activate)
(ad-deactivate):
* lisp/emacs-lisp/byte-opt.el (byte-compile-inline-expand)
(byte-compile-unfold-lambda, byte-optimize-form-code-walker)
(byte-optimize-while, byte-optimize-apply):
* lisp/emacs-lisp/byte-run.el (defun, defsubst):
* lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode)
(byte-compile-log-file, byte-compile-format-warn)
(byte-compile-nogroup-warn, byte-compile-arglist-warn)
(byte-compile-cl-warn)
(byte-compile-warn-about-unresolved-functions)
(byte-compile-file, byte-compile--declare-var)
(byte-compile-file-form-defmumble, byte-compile-form)
(byte-compile-normal-call, byte-compile-check-variable)
(byte-compile-variable-ref, byte-compile-variable-set)
(byte-compile-subr-wrong-args, byte-compile-setq-default)
(byte-compile-negation-optimizer)
(byte-compile-condition-case--old)
(byte-compile-condition-case--new, byte-compile-save-excursion)
(byte-compile-defvar, byte-compile-autoload)
(byte-compile-lambda-form)
(byte-compile-make-variable-buffer-local, display-call-tree)
(batch-byte-compile):
* lisp/emacs-lisp/cconv.el (cconv-convert, cconv--analyze-use):
* lisp/emacs-lisp/chart.el (chart-space-usage):
* lisp/emacs-lisp/check-declare.el (check-declare-scan)
(check-declare-warn, check-declare-file)
(check-declare-directory):
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine)
(checkdoc-message-text-engine):
* lisp/emacs-lisp/cl-extra.el (cl-parse-integer)
(cl--describe-class):
* lisp/emacs-lisp/cl-generic.el (cl-defgeneric)
(cl--generic-describe, cl-generic-generalizers):
* lisp/emacs-lisp/cl-macs.el (cl--parse-loop-clause, cl-tagbody)
(cl-symbol-macrolet):
* lisp/emacs-lisp/cl.el (cl-unload-function, flet):
* lisp/emacs-lisp/copyright.el (copyright)
(copyright-update-directory):
* lisp/emacs-lisp/edebug.el (edebug-read-list):
* lisp/emacs-lisp/eieio-base.el (eieio-persistent-read):
* lisp/emacs-lisp/eieio-core.el (eieio--slot-override)
(eieio-oref):
* lisp/emacs-lisp/eieio-opt.el (eieio-help-constructor):
* lisp/emacs-lisp/eieio-speedbar.el:
(eieio-speedbar-child-make-tag-lines)
(eieio-speedbar-child-description):
* lisp/emacs-lisp/eieio.el (defclass, change-class):
* lisp/emacs-lisp/elint.el (elint-file, elint-get-top-forms)
(elint-init-form, elint-check-defalias-form)
(elint-check-let-form):
* lisp/emacs-lisp/ert.el (ert-get-test, ert-results-mode-menu)
(ert-results-pop-to-backtrace-for-test-at-point)
(ert-results-pop-to-messages-for-test-at-point)
(ert-results-pop-to-should-forms-for-test-at-point)
(ert-describe-test):
* lisp/emacs-lisp/find-func.el (find-function-search-for-symbol)
(find-function-library):
* lisp/emacs-lisp/generator.el (iter-yield):
* lisp/emacs-lisp/gv.el (gv-define-simple-setter):
* lisp/emacs-lisp/lisp-mnt.el (lm-verify):
* lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning):
* lisp/emacs-lisp/map-ynp.el (map-y-or-n-p):
* lisp/emacs-lisp/nadvice.el (advice--make-docstring)
(advice--make, define-advice):
* lisp/emacs-lisp/package-x.el (package-upload-file):
* lisp/emacs-lisp/package.el (package-version-join)
(package-disabled-p, package-activate-1, package-activate)
(package--download-one-archive)
(package--download-and-read-archives)
(package-compute-transaction, package-install-from-archive)
(package-install, package-install-selected-packages)
(package-delete, package-autoremove, describe-package-1)
(package-install-button-action, package-delete-button-action)
(package-menu-hide-package, package-menu--list-to-prompt)
(package-menu--perform-transaction)
(package-menu--find-and-notify-upgrades):
* lisp/emacs-lisp/pcase.el (pcase-exhaustive, pcase--u1):
* lisp/emacs-lisp/re-builder.el (reb-enter-subexp-mode):
* lisp/emacs-lisp/ring.el (ring-previous, ring-next):
* lisp/emacs-lisp/rx.el (rx-check, rx-anything)
(rx-check-any-string, rx-check-any, rx-check-not, rx-=)
(rx-repeat, rx-check-backref, rx-syntax, rx-check-category)
(rx-form):
* lisp/emacs-lisp/smie.el (smie-config-save):
* lisp/emacs-lisp/subr-x.el (internal--check-binding):
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-put-tag):
* lisp/emacs-lisp/testcover.el (testcover-1value):
* lisp/emacs-lisp/timer.el (timer-event-handler):
* lisp/emulation/viper-cmd.el (viper-toggle-parse-sexp-ignore-comments)
(viper-toggle-search-style, viper-kill-buffer)
(viper-brac-function):
* lisp/emulation/viper-macs.el (viper-record-kbd-macro):
* lisp/env.el (setenv):
* lisp/erc/erc-button.el (erc-nick-popup):
* lisp/erc/erc.el (erc-cmd-LOAD, erc-handle-login, english):
* lisp/eshell/em-dirs.el (eshell/cd):
* lisp/eshell/em-glob.el (eshell-glob-regexp)
(eshell-glob-entries):
* lisp/eshell/em-pred.el (eshell-parse-modifiers):
* lisp/eshell/esh-opt.el (eshell-show-usage):
* lisp/facemenu.el (facemenu-add-new-face)
(facemenu-add-new-color):
* lisp/faces.el (read-face-name, read-face-font, describe-face)
(x-resolve-font-name):
* lisp/files-x.el (modify-file-local-variable):
* lisp/files.el (locate-user-emacs-file, find-alternate-file)
(set-auto-mode, hack-one-local-variable--obsolete)
(dir-locals-set-directory-class, write-file, basic-save-buffer)
(delete-directory, copy-directory, recover-session)
(recover-session-finish, insert-directory)
(file-modes-char-to-who, file-modes-symbolic-to-number)
(move-file-to-trash):
* lisp/filesets.el (filesets-add-buffer, filesets-remove-buffer):
* lisp/find-cmd.el (find-generic, find-to-string):
* lisp/finder.el (finder-commentary):
* lisp/font-lock.el (font-lock-fontify-buffer):
* lisp/format.el (format-write-file, format-find-file)
(format-insert-file):
* lisp/frame.el (get-device-terminal, select-frame-by-name):
* lisp/fringe.el (fringe--check-style):
* lisp/gnus/nnmairix.el (nnmairix-widget-create-query):
* lisp/help-fns.el (help-fns--key-bindings)
(help-fns--compiler-macro, help-fns--parent-mode)
(help-fns--obsolete, help-fns--interactive-only)
(describe-function-1, describe-variable):
* lisp/help.el (describe-mode)
(describe-minor-mode-from-indicator):
* lisp/image.el (image-type):
* lisp/international/ccl.el (ccl-dump):
* lisp/international/fontset.el (x-must-resolve-font-name):
* lisp/international/mule-cmds.el (prefer-coding-system)
(select-safe-coding-system-interactively)
(select-safe-coding-system, activate-input-method)
(toggle-input-method, describe-current-input-method)
(describe-language-environment):
* lisp/international/mule-conf.el (code-offset):
* lisp/international/mule-diag.el (describe-character-set)
(list-input-methods-1):
* lisp/mail/feedmail.el (feedmail-run-the-queue):
* lisp/mouse.el (minor-mode-menu-from-indicator):
* lisp/mpc.el (mpc-playlist-rename):
* lisp/msb.el (msb--choose-menu):
* lisp/net/ange-ftp.el (ange-ftp-shell-command):
* lisp/net/imap.el (imap-interactive-login):
* lisp/net/mairix.el (mairix-widget-create-query):
* lisp/net/newst-backend.el (newsticker--sentinel-work):
* lisp/net/newst-treeview.el (newsticker--treeview-load):
* lisp/net/rlogin.el (rlogin):
* lisp/obsolete/iswitchb.el (iswitchb-possible-new-buffer):
* lisp/obsolete/otodo-mode.el (todo-more-important-p):
* lisp/obsolete/pgg-gpg.el (pgg-gpg-process-region):
* lisp/obsolete/pgg-pgp.el (pgg-pgp-process-region):
* lisp/obsolete/pgg-pgp5.el (pgg-pgp5-process-region):
* lisp/org/ob-core.el (org-babel-goto-named-src-block)
(org-babel-goto-named-result):
* lisp/org/ob-fortran.el (org-babel-fortran-ensure-main-wrap):
* lisp/org/ob-ref.el (org-babel-ref-resolve):
* lisp/org/org-agenda.el (org-agenda-prepare):
* lisp/org/org-clock.el (org-clock-notify-once-if-expired)
(org-clock-resolve):
* lisp/org/org-ctags.el (org-ctags-ask-rebuild-tags-file-then-find-tag):
* lisp/org/org-feed.el (org-feed-parse-atom-entry):
* lisp/org/org-habit.el (org-habit-parse-todo):
* lisp/org/org-mouse.el (org-mouse-popup-global-menu)
(org-mouse-context-menu):
* lisp/org/org-table.el (org-table-edit-formulas):
* lisp/org/ox.el (org-export-async-start):
* lisp/proced.el (proced-log):
* lisp/progmodes/ada-mode.el (ada-get-indent-case)
(ada-check-matching-start, ada-goto-matching-start):
* lisp/progmodes/ada-prj.el (ada-prj-display-page):
* lisp/progmodes/ada-xref.el (ada-find-executable):
* lisp/progmodes/ebrowse.el (ebrowse-tags-apropos):
* lisp/progmodes/etags.el (etags-tags-apropos-additional):
* lisp/progmodes/flymake.el (flymake-parse-err-lines)
(flymake-start-syntax-check-process):
* lisp/progmodes/python.el (python-shell-get-process-or-error)
(python-define-auxiliary-skeleton):
* lisp/progmodes/sql.el (sql-comint):
* lisp/progmodes/verilog-mode.el (verilog-load-file-at-point):
* lisp/progmodes/vhdl-mode.el (vhdl-widget-directory-validate):
* lisp/recentf.el (recentf-open-files):
* lisp/replace.el (query-replace-read-from)
(occur-after-change-function, occur-1):
* lisp/scroll-bar.el (scroll-bar-columns):
* lisp/server.el (server-get-auth-key):
* lisp/simple.el (execute-extended-command)
(undo-outer-limit-truncate, list-processes--refresh)
(compose-mail, set-variable, choose-completion-string)
(define-alternatives):
* lisp/startup.el (site-run-file, tty-handle-args, command-line)
(command-line-1):
* lisp/subr.el (noreturn, define-error, add-to-list)
(read-char-choice, version-to-list):
* lisp/term/common-win.el (x-handle-xrm-switch)
(x-handle-name-switch, x-handle-args):
* lisp/term/x-win.el (x-handle-parent-id, x-handle-smid):
* lisp/textmodes/reftex-ref.el (reftex-label):
* lisp/textmodes/reftex-toc.el (reftex-toc-rename-label):
* lisp/textmodes/two-column.el (2C-split):
* lisp/tutorial.el (tutorial--describe-nonstandard-key)
(tutorial--find-changed-keys):
* lisp/type-break.el (type-break-noninteractive-query):
* lisp/wdired.el (wdired-do-renames, wdired-do-symlink-changes)
(wdired-do-perm-changes):
* lisp/whitespace.el (whitespace-report-region):
Prefer grave quoting in source-code strings used to generate help
and diagnostics.
* lisp/faces.el (face-documentation):
No need to convert quotes, since the result is a docstring.
* lisp/info.el (Info-virtual-index-find-node)
(Info-virtual-index, info-apropos):
Simplify by generating only curved quotes, since info files are
typically that ways nowadays anyway.
* lisp/international/mule-diag.el (list-input-methods):
Don’t assume text quoting style is curved.
* lisp/org/org-bibtex.el (org-bibtex-fields):
Revert my recent changes, going back to the old quoting style.
2015-09-07 15:41:44 +00:00
|
|
|
|
(error "Package `%s' is a system package, not deleting"
|
2015-02-01 21:45:47 +00:00
|
|
|
|
(package-desc-full-name pkg-desc)))
|
|
|
|
|
|
((and (null force)
|
|
|
|
|
|
(setq pkg-used-elsewhere-by
|
2015-02-01 23:01:37 +00:00
|
|
|
|
(package--used-elsewhere-p pkg-desc)))
|
2015-02-01 21:45:47 +00:00
|
|
|
|
;; Don't delete packages used as dependency elsewhere.
|
Go back to grave quoting in source-code docstrings etc.
This reverts almost all my recent changes to use curved quotes
in docstrings and/or strings used for error diagnostics.
There are a few exceptions, e.g., Bahá’í proper names.
* admin/unidata/unidata-gen.el (unidata-gen-table):
* lisp/abbrev.el (expand-region-abbrevs):
* lisp/align.el (align-region):
* lisp/allout.el (allout-mode, allout-solicit-alternate-bullet)
(outlineify-sticky):
* lisp/apropos.el (apropos-library):
* lisp/bookmark.el (bookmark-default-annotation-text):
* lisp/button.el (button-category-symbol, button-put)
(make-text-button):
* lisp/calc/calc-aent.el (math-read-if, math-read-factor):
* lisp/calc/calc-embed.el (calc-do-embedded):
* lisp/calc/calc-ext.el (calc-user-function-list):
* lisp/calc/calc-graph.el (calc-graph-show-dumb):
* lisp/calc/calc-help.el (calc-describe-key)
(calc-describe-thing, calc-full-help):
* lisp/calc/calc-lang.el (calc-c-language)
(math-parse-fortran-vector-end, math-parse-tex-sum)
(math-parse-eqn-matrix, math-parse-eqn-prime)
(calc-yacas-language, calc-maxima-language, calc-giac-language)
(math-read-giac-subscr, math-read-math-subscr)
(math-read-big-rec, math-read-big-balance):
* lisp/calc/calc-misc.el (calc-help, report-calc-bug):
* lisp/calc/calc-mode.el (calc-auto-why, calc-save-modes)
(calc-auto-recompute):
* lisp/calc/calc-prog.el (calc-fix-token-name)
(calc-read-parse-table-part, calc-user-define-invocation)
(math-do-arg-check):
* lisp/calc/calc-store.el (calc-edit-variable):
* lisp/calc/calc-units.el (math-build-units-table-buffer):
* lisp/calc/calc-vec.el (math-read-brackets):
* lisp/calc/calc-yank.el (calc-edit-mode):
* lisp/calc/calc.el (calc, calc-do, calc-user-invocation):
* lisp/calendar/appt.el (appt-display-message):
* lisp/calendar/diary-lib.el (diary-check-diary-file)
(diary-mail-entries, diary-from-outlook):
* lisp/calendar/icalendar.el (icalendar-export-region)
(icalendar--convert-float-to-ical)
(icalendar--convert-date-to-ical)
(icalendar--convert-ical-to-diary)
(icalendar--convert-recurring-to-diary)
(icalendar--add-diary-entry):
* lisp/calendar/time-date.el (format-seconds):
* lisp/calendar/timeclock.el (timeclock-mode-line-display)
(timeclock-make-hours-explicit, timeclock-log-data):
* lisp/calendar/todo-mode.el (todo-prefix, todo-delete-category)
(todo-item-mark, todo-check-format)
(todo-insert-item--next-param, todo-edit-item--next-key)
(todo-mode):
* lisp/cedet/ede/pmake.el (ede-proj-makefile-insert-dist-rules):
* lisp/cedet/mode-local.el (describe-mode-local-overload)
(mode-local-print-binding, mode-local-describe-bindings-2):
* lisp/cedet/semantic/complete.el (semantic-displayor-show-request):
* lisp/cedet/srecode/srt-mode.el (srecode-macro-help):
* lisp/cus-start.el (standard):
* lisp/cus-theme.el (describe-theme-1):
* lisp/custom.el (custom-add-dependencies, custom-check-theme)
(custom--sort-vars-1, load-theme):
* lisp/descr-text.el (describe-text-properties-1, describe-char):
* lisp/dired-x.el (dired-do-run-mail):
* lisp/dired.el (dired-log):
* lisp/emacs-lisp/advice.el (ad-read-advised-function)
(ad-read-advice-class, ad-read-advice-name, ad-enable-advice)
(ad-disable-advice, ad-remove-advice, ad-set-argument)
(ad-set-arguments, ad--defalias-fset, ad-activate)
(ad-deactivate):
* lisp/emacs-lisp/byte-opt.el (byte-compile-inline-expand)
(byte-compile-unfold-lambda, byte-optimize-form-code-walker)
(byte-optimize-while, byte-optimize-apply):
* lisp/emacs-lisp/byte-run.el (defun, defsubst):
* lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode)
(byte-compile-log-file, byte-compile-format-warn)
(byte-compile-nogroup-warn, byte-compile-arglist-warn)
(byte-compile-cl-warn)
(byte-compile-warn-about-unresolved-functions)
(byte-compile-file, byte-compile--declare-var)
(byte-compile-file-form-defmumble, byte-compile-form)
(byte-compile-normal-call, byte-compile-check-variable)
(byte-compile-variable-ref, byte-compile-variable-set)
(byte-compile-subr-wrong-args, byte-compile-setq-default)
(byte-compile-negation-optimizer)
(byte-compile-condition-case--old)
(byte-compile-condition-case--new, byte-compile-save-excursion)
(byte-compile-defvar, byte-compile-autoload)
(byte-compile-lambda-form)
(byte-compile-make-variable-buffer-local, display-call-tree)
(batch-byte-compile):
* lisp/emacs-lisp/cconv.el (cconv-convert, cconv--analyze-use):
* lisp/emacs-lisp/chart.el (chart-space-usage):
* lisp/emacs-lisp/check-declare.el (check-declare-scan)
(check-declare-warn, check-declare-file)
(check-declare-directory):
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine)
(checkdoc-message-text-engine):
* lisp/emacs-lisp/cl-extra.el (cl-parse-integer)
(cl--describe-class):
* lisp/emacs-lisp/cl-generic.el (cl-defgeneric)
(cl--generic-describe, cl-generic-generalizers):
* lisp/emacs-lisp/cl-macs.el (cl--parse-loop-clause, cl-tagbody)
(cl-symbol-macrolet):
* lisp/emacs-lisp/cl.el (cl-unload-function, flet):
* lisp/emacs-lisp/copyright.el (copyright)
(copyright-update-directory):
* lisp/emacs-lisp/edebug.el (edebug-read-list):
* lisp/emacs-lisp/eieio-base.el (eieio-persistent-read):
* lisp/emacs-lisp/eieio-core.el (eieio--slot-override)
(eieio-oref):
* lisp/emacs-lisp/eieio-opt.el (eieio-help-constructor):
* lisp/emacs-lisp/eieio-speedbar.el:
(eieio-speedbar-child-make-tag-lines)
(eieio-speedbar-child-description):
* lisp/emacs-lisp/eieio.el (defclass, change-class):
* lisp/emacs-lisp/elint.el (elint-file, elint-get-top-forms)
(elint-init-form, elint-check-defalias-form)
(elint-check-let-form):
* lisp/emacs-lisp/ert.el (ert-get-test, ert-results-mode-menu)
(ert-results-pop-to-backtrace-for-test-at-point)
(ert-results-pop-to-messages-for-test-at-point)
(ert-results-pop-to-should-forms-for-test-at-point)
(ert-describe-test):
* lisp/emacs-lisp/find-func.el (find-function-search-for-symbol)
(find-function-library):
* lisp/emacs-lisp/generator.el (iter-yield):
* lisp/emacs-lisp/gv.el (gv-define-simple-setter):
* lisp/emacs-lisp/lisp-mnt.el (lm-verify):
* lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning):
* lisp/emacs-lisp/map-ynp.el (map-y-or-n-p):
* lisp/emacs-lisp/nadvice.el (advice--make-docstring)
(advice--make, define-advice):
* lisp/emacs-lisp/package-x.el (package-upload-file):
* lisp/emacs-lisp/package.el (package-version-join)
(package-disabled-p, package-activate-1, package-activate)
(package--download-one-archive)
(package--download-and-read-archives)
(package-compute-transaction, package-install-from-archive)
(package-install, package-install-selected-packages)
(package-delete, package-autoremove, describe-package-1)
(package-install-button-action, package-delete-button-action)
(package-menu-hide-package, package-menu--list-to-prompt)
(package-menu--perform-transaction)
(package-menu--find-and-notify-upgrades):
* lisp/emacs-lisp/pcase.el (pcase-exhaustive, pcase--u1):
* lisp/emacs-lisp/re-builder.el (reb-enter-subexp-mode):
* lisp/emacs-lisp/ring.el (ring-previous, ring-next):
* lisp/emacs-lisp/rx.el (rx-check, rx-anything)
(rx-check-any-string, rx-check-any, rx-check-not, rx-=)
(rx-repeat, rx-check-backref, rx-syntax, rx-check-category)
(rx-form):
* lisp/emacs-lisp/smie.el (smie-config-save):
* lisp/emacs-lisp/subr-x.el (internal--check-binding):
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-put-tag):
* lisp/emacs-lisp/testcover.el (testcover-1value):
* lisp/emacs-lisp/timer.el (timer-event-handler):
* lisp/emulation/viper-cmd.el (viper-toggle-parse-sexp-ignore-comments)
(viper-toggle-search-style, viper-kill-buffer)
(viper-brac-function):
* lisp/emulation/viper-macs.el (viper-record-kbd-macro):
* lisp/env.el (setenv):
* lisp/erc/erc-button.el (erc-nick-popup):
* lisp/erc/erc.el (erc-cmd-LOAD, erc-handle-login, english):
* lisp/eshell/em-dirs.el (eshell/cd):
* lisp/eshell/em-glob.el (eshell-glob-regexp)
(eshell-glob-entries):
* lisp/eshell/em-pred.el (eshell-parse-modifiers):
* lisp/eshell/esh-opt.el (eshell-show-usage):
* lisp/facemenu.el (facemenu-add-new-face)
(facemenu-add-new-color):
* lisp/faces.el (read-face-name, read-face-font, describe-face)
(x-resolve-font-name):
* lisp/files-x.el (modify-file-local-variable):
* lisp/files.el (locate-user-emacs-file, find-alternate-file)
(set-auto-mode, hack-one-local-variable--obsolete)
(dir-locals-set-directory-class, write-file, basic-save-buffer)
(delete-directory, copy-directory, recover-session)
(recover-session-finish, insert-directory)
(file-modes-char-to-who, file-modes-symbolic-to-number)
(move-file-to-trash):
* lisp/filesets.el (filesets-add-buffer, filesets-remove-buffer):
* lisp/find-cmd.el (find-generic, find-to-string):
* lisp/finder.el (finder-commentary):
* lisp/font-lock.el (font-lock-fontify-buffer):
* lisp/format.el (format-write-file, format-find-file)
(format-insert-file):
* lisp/frame.el (get-device-terminal, select-frame-by-name):
* lisp/fringe.el (fringe--check-style):
* lisp/gnus/nnmairix.el (nnmairix-widget-create-query):
* lisp/help-fns.el (help-fns--key-bindings)
(help-fns--compiler-macro, help-fns--parent-mode)
(help-fns--obsolete, help-fns--interactive-only)
(describe-function-1, describe-variable):
* lisp/help.el (describe-mode)
(describe-minor-mode-from-indicator):
* lisp/image.el (image-type):
* lisp/international/ccl.el (ccl-dump):
* lisp/international/fontset.el (x-must-resolve-font-name):
* lisp/international/mule-cmds.el (prefer-coding-system)
(select-safe-coding-system-interactively)
(select-safe-coding-system, activate-input-method)
(toggle-input-method, describe-current-input-method)
(describe-language-environment):
* lisp/international/mule-conf.el (code-offset):
* lisp/international/mule-diag.el (describe-character-set)
(list-input-methods-1):
* lisp/mail/feedmail.el (feedmail-run-the-queue):
* lisp/mouse.el (minor-mode-menu-from-indicator):
* lisp/mpc.el (mpc-playlist-rename):
* lisp/msb.el (msb--choose-menu):
* lisp/net/ange-ftp.el (ange-ftp-shell-command):
* lisp/net/imap.el (imap-interactive-login):
* lisp/net/mairix.el (mairix-widget-create-query):
* lisp/net/newst-backend.el (newsticker--sentinel-work):
* lisp/net/newst-treeview.el (newsticker--treeview-load):
* lisp/net/rlogin.el (rlogin):
* lisp/obsolete/iswitchb.el (iswitchb-possible-new-buffer):
* lisp/obsolete/otodo-mode.el (todo-more-important-p):
* lisp/obsolete/pgg-gpg.el (pgg-gpg-process-region):
* lisp/obsolete/pgg-pgp.el (pgg-pgp-process-region):
* lisp/obsolete/pgg-pgp5.el (pgg-pgp5-process-region):
* lisp/org/ob-core.el (org-babel-goto-named-src-block)
(org-babel-goto-named-result):
* lisp/org/ob-fortran.el (org-babel-fortran-ensure-main-wrap):
* lisp/org/ob-ref.el (org-babel-ref-resolve):
* lisp/org/org-agenda.el (org-agenda-prepare):
* lisp/org/org-clock.el (org-clock-notify-once-if-expired)
(org-clock-resolve):
* lisp/org/org-ctags.el (org-ctags-ask-rebuild-tags-file-then-find-tag):
* lisp/org/org-feed.el (org-feed-parse-atom-entry):
* lisp/org/org-habit.el (org-habit-parse-todo):
* lisp/org/org-mouse.el (org-mouse-popup-global-menu)
(org-mouse-context-menu):
* lisp/org/org-table.el (org-table-edit-formulas):
* lisp/org/ox.el (org-export-async-start):
* lisp/proced.el (proced-log):
* lisp/progmodes/ada-mode.el (ada-get-indent-case)
(ada-check-matching-start, ada-goto-matching-start):
* lisp/progmodes/ada-prj.el (ada-prj-display-page):
* lisp/progmodes/ada-xref.el (ada-find-executable):
* lisp/progmodes/ebrowse.el (ebrowse-tags-apropos):
* lisp/progmodes/etags.el (etags-tags-apropos-additional):
* lisp/progmodes/flymake.el (flymake-parse-err-lines)
(flymake-start-syntax-check-process):
* lisp/progmodes/python.el (python-shell-get-process-or-error)
(python-define-auxiliary-skeleton):
* lisp/progmodes/sql.el (sql-comint):
* lisp/progmodes/verilog-mode.el (verilog-load-file-at-point):
* lisp/progmodes/vhdl-mode.el (vhdl-widget-directory-validate):
* lisp/recentf.el (recentf-open-files):
* lisp/replace.el (query-replace-read-from)
(occur-after-change-function, occur-1):
* lisp/scroll-bar.el (scroll-bar-columns):
* lisp/server.el (server-get-auth-key):
* lisp/simple.el (execute-extended-command)
(undo-outer-limit-truncate, list-processes--refresh)
(compose-mail, set-variable, choose-completion-string)
(define-alternatives):
* lisp/startup.el (site-run-file, tty-handle-args, command-line)
(command-line-1):
* lisp/subr.el (noreturn, define-error, add-to-list)
(read-char-choice, version-to-list):
* lisp/term/common-win.el (x-handle-xrm-switch)
(x-handle-name-switch, x-handle-args):
* lisp/term/x-win.el (x-handle-parent-id, x-handle-smid):
* lisp/textmodes/reftex-ref.el (reftex-label):
* lisp/textmodes/reftex-toc.el (reftex-toc-rename-label):
* lisp/textmodes/two-column.el (2C-split):
* lisp/tutorial.el (tutorial--describe-nonstandard-key)
(tutorial--find-changed-keys):
* lisp/type-break.el (type-break-noninteractive-query):
* lisp/wdired.el (wdired-do-renames, wdired-do-symlink-changes)
(wdired-do-perm-changes):
* lisp/whitespace.el (whitespace-report-region):
Prefer grave quoting in source-code strings used to generate help
and diagnostics.
* lisp/faces.el (face-documentation):
No need to convert quotes, since the result is a docstring.
* lisp/info.el (Info-virtual-index-find-node)
(Info-virtual-index, info-apropos):
Simplify by generating only curved quotes, since info files are
typically that ways nowadays anyway.
* lisp/international/mule-diag.el (list-input-methods):
Don’t assume text quoting style is curved.
* lisp/org/org-bibtex.el (org-bibtex-fields):
Revert my recent changes, going back to the old quoting style.
2015-09-07 15:41:44 +00:00
|
|
|
|
(error "Package `%s' is used by `%s' as dependency, not deleting"
|
2015-02-01 21:45:47 +00:00
|
|
|
|
(package-desc-full-name pkg-desc)
|
2015-05-20 13:03:03 +00:00
|
|
|
|
(package-desc-name pkg-used-elsewhere-by)))
|
2015-02-01 21:45:47 +00:00
|
|
|
|
(t
|
2015-06-17 14:37:51 +00:00
|
|
|
|
(add-hook 'post-command-hook #'package-menu--post-refresh)
|
2017-06-19 18:39:25 +00:00
|
|
|
|
(delete-directory dir t)
|
2017-05-21 13:20:19 +00:00
|
|
|
|
;; Remove NAME-VERSION.signed and NAME-readme.txt files.
|
2018-12-13 22:45:05 +00:00
|
|
|
|
;;
|
|
|
|
|
|
;; NAME-readme.txt files are no longer created, but they
|
|
|
|
|
|
;; may be left around from an earlier install.
|
2017-05-21 13:20:19 +00:00
|
|
|
|
(dolist (suffix '(".signed" "readme.txt"))
|
|
|
|
|
|
(let* ((version (package-version-join (package-desc-version pkg-desc)))
|
|
|
|
|
|
(file (concat (if (string= suffix ".signed")
|
|
|
|
|
|
dir
|
|
|
|
|
|
(substring dir 0 (- (length version))))
|
|
|
|
|
|
suffix)))
|
|
|
|
|
|
(when (file-exists-p file)
|
|
|
|
|
|
(delete-file file))))
|
2015-02-01 21:45:47 +00:00
|
|
|
|
;; Update package-alist.
|
|
|
|
|
|
(let ((pkgs (assq name package-alist)))
|
|
|
|
|
|
(delete pkg-desc pkgs)
|
|
|
|
|
|
(unless (cdr pkgs)
|
|
|
|
|
|
(setq package-alist (delq pkgs package-alist))))
|
2018-03-26 13:41:30 +00:00
|
|
|
|
(package--quickstart-maybe-refresh)
|
|
|
|
|
|
(message "Package `%s' deleted."
|
|
|
|
|
|
(package-desc-full-name pkg-desc))))))
|
2015-02-01 21:45:47 +00:00
|
|
|
|
|
2015-03-28 20:36:14 +00:00
|
|
|
|
;;;###autoload
|
|
|
|
|
|
(defun package-reinstall (pkg)
|
|
|
|
|
|
"Reinstall package PKG.
|
2017-05-19 13:42:57 +00:00
|
|
|
|
PKG should be either a symbol, the package name, or a `package-desc'
|
2015-03-28 20:36:14 +00:00
|
|
|
|
object."
|
|
|
|
|
|
(interactive (list (intern (completing-read
|
|
|
|
|
|
"Reinstall package: "
|
|
|
|
|
|
(mapcar #'symbol-name
|
|
|
|
|
|
(mapcar #'car package-alist))))))
|
|
|
|
|
|
(package-delete
|
|
|
|
|
|
(if (package-desc-p pkg) pkg (cadr (assq pkg package-alist)))
|
|
|
|
|
|
'force 'nosave)
|
|
|
|
|
|
(package-install pkg 'dont-select))
|
2015-02-03 19:51:39 +00:00
|
|
|
|
|
2015-02-01 21:45:47 +00:00
|
|
|
|
;;;###autoload
|
|
|
|
|
|
(defun package-autoremove ()
|
|
|
|
|
|
"Remove packages that are no more needed.
|
|
|
|
|
|
|
|
|
|
|
|
Packages that are no more needed by other packages in
|
|
|
|
|
|
`package-selected-packages' and their dependencies
|
|
|
|
|
|
will be deleted."
|
|
|
|
|
|
(interactive)
|
2015-02-03 13:43:10 +00:00
|
|
|
|
;; If `package-selected-packages' is nil, it would make no sense to
|
|
|
|
|
|
;; try to populate it here, because then `package-autoremove' will
|
|
|
|
|
|
;; do absolutely nothing.
|
|
|
|
|
|
(when (or package-selected-packages
|
|
|
|
|
|
(yes-or-no-p
|
Go back to grave quoting in source-code docstrings etc.
This reverts almost all my recent changes to use curved quotes
in docstrings and/or strings used for error diagnostics.
There are a few exceptions, e.g., Bahá’í proper names.
* admin/unidata/unidata-gen.el (unidata-gen-table):
* lisp/abbrev.el (expand-region-abbrevs):
* lisp/align.el (align-region):
* lisp/allout.el (allout-mode, allout-solicit-alternate-bullet)
(outlineify-sticky):
* lisp/apropos.el (apropos-library):
* lisp/bookmark.el (bookmark-default-annotation-text):
* lisp/button.el (button-category-symbol, button-put)
(make-text-button):
* lisp/calc/calc-aent.el (math-read-if, math-read-factor):
* lisp/calc/calc-embed.el (calc-do-embedded):
* lisp/calc/calc-ext.el (calc-user-function-list):
* lisp/calc/calc-graph.el (calc-graph-show-dumb):
* lisp/calc/calc-help.el (calc-describe-key)
(calc-describe-thing, calc-full-help):
* lisp/calc/calc-lang.el (calc-c-language)
(math-parse-fortran-vector-end, math-parse-tex-sum)
(math-parse-eqn-matrix, math-parse-eqn-prime)
(calc-yacas-language, calc-maxima-language, calc-giac-language)
(math-read-giac-subscr, math-read-math-subscr)
(math-read-big-rec, math-read-big-balance):
* lisp/calc/calc-misc.el (calc-help, report-calc-bug):
* lisp/calc/calc-mode.el (calc-auto-why, calc-save-modes)
(calc-auto-recompute):
* lisp/calc/calc-prog.el (calc-fix-token-name)
(calc-read-parse-table-part, calc-user-define-invocation)
(math-do-arg-check):
* lisp/calc/calc-store.el (calc-edit-variable):
* lisp/calc/calc-units.el (math-build-units-table-buffer):
* lisp/calc/calc-vec.el (math-read-brackets):
* lisp/calc/calc-yank.el (calc-edit-mode):
* lisp/calc/calc.el (calc, calc-do, calc-user-invocation):
* lisp/calendar/appt.el (appt-display-message):
* lisp/calendar/diary-lib.el (diary-check-diary-file)
(diary-mail-entries, diary-from-outlook):
* lisp/calendar/icalendar.el (icalendar-export-region)
(icalendar--convert-float-to-ical)
(icalendar--convert-date-to-ical)
(icalendar--convert-ical-to-diary)
(icalendar--convert-recurring-to-diary)
(icalendar--add-diary-entry):
* lisp/calendar/time-date.el (format-seconds):
* lisp/calendar/timeclock.el (timeclock-mode-line-display)
(timeclock-make-hours-explicit, timeclock-log-data):
* lisp/calendar/todo-mode.el (todo-prefix, todo-delete-category)
(todo-item-mark, todo-check-format)
(todo-insert-item--next-param, todo-edit-item--next-key)
(todo-mode):
* lisp/cedet/ede/pmake.el (ede-proj-makefile-insert-dist-rules):
* lisp/cedet/mode-local.el (describe-mode-local-overload)
(mode-local-print-binding, mode-local-describe-bindings-2):
* lisp/cedet/semantic/complete.el (semantic-displayor-show-request):
* lisp/cedet/srecode/srt-mode.el (srecode-macro-help):
* lisp/cus-start.el (standard):
* lisp/cus-theme.el (describe-theme-1):
* lisp/custom.el (custom-add-dependencies, custom-check-theme)
(custom--sort-vars-1, load-theme):
* lisp/descr-text.el (describe-text-properties-1, describe-char):
* lisp/dired-x.el (dired-do-run-mail):
* lisp/dired.el (dired-log):
* lisp/emacs-lisp/advice.el (ad-read-advised-function)
(ad-read-advice-class, ad-read-advice-name, ad-enable-advice)
(ad-disable-advice, ad-remove-advice, ad-set-argument)
(ad-set-arguments, ad--defalias-fset, ad-activate)
(ad-deactivate):
* lisp/emacs-lisp/byte-opt.el (byte-compile-inline-expand)
(byte-compile-unfold-lambda, byte-optimize-form-code-walker)
(byte-optimize-while, byte-optimize-apply):
* lisp/emacs-lisp/byte-run.el (defun, defsubst):
* lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode)
(byte-compile-log-file, byte-compile-format-warn)
(byte-compile-nogroup-warn, byte-compile-arglist-warn)
(byte-compile-cl-warn)
(byte-compile-warn-about-unresolved-functions)
(byte-compile-file, byte-compile--declare-var)
(byte-compile-file-form-defmumble, byte-compile-form)
(byte-compile-normal-call, byte-compile-check-variable)
(byte-compile-variable-ref, byte-compile-variable-set)
(byte-compile-subr-wrong-args, byte-compile-setq-default)
(byte-compile-negation-optimizer)
(byte-compile-condition-case--old)
(byte-compile-condition-case--new, byte-compile-save-excursion)
(byte-compile-defvar, byte-compile-autoload)
(byte-compile-lambda-form)
(byte-compile-make-variable-buffer-local, display-call-tree)
(batch-byte-compile):
* lisp/emacs-lisp/cconv.el (cconv-convert, cconv--analyze-use):
* lisp/emacs-lisp/chart.el (chart-space-usage):
* lisp/emacs-lisp/check-declare.el (check-declare-scan)
(check-declare-warn, check-declare-file)
(check-declare-directory):
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine)
(checkdoc-message-text-engine):
* lisp/emacs-lisp/cl-extra.el (cl-parse-integer)
(cl--describe-class):
* lisp/emacs-lisp/cl-generic.el (cl-defgeneric)
(cl--generic-describe, cl-generic-generalizers):
* lisp/emacs-lisp/cl-macs.el (cl--parse-loop-clause, cl-tagbody)
(cl-symbol-macrolet):
* lisp/emacs-lisp/cl.el (cl-unload-function, flet):
* lisp/emacs-lisp/copyright.el (copyright)
(copyright-update-directory):
* lisp/emacs-lisp/edebug.el (edebug-read-list):
* lisp/emacs-lisp/eieio-base.el (eieio-persistent-read):
* lisp/emacs-lisp/eieio-core.el (eieio--slot-override)
(eieio-oref):
* lisp/emacs-lisp/eieio-opt.el (eieio-help-constructor):
* lisp/emacs-lisp/eieio-speedbar.el:
(eieio-speedbar-child-make-tag-lines)
(eieio-speedbar-child-description):
* lisp/emacs-lisp/eieio.el (defclass, change-class):
* lisp/emacs-lisp/elint.el (elint-file, elint-get-top-forms)
(elint-init-form, elint-check-defalias-form)
(elint-check-let-form):
* lisp/emacs-lisp/ert.el (ert-get-test, ert-results-mode-menu)
(ert-results-pop-to-backtrace-for-test-at-point)
(ert-results-pop-to-messages-for-test-at-point)
(ert-results-pop-to-should-forms-for-test-at-point)
(ert-describe-test):
* lisp/emacs-lisp/find-func.el (find-function-search-for-symbol)
(find-function-library):
* lisp/emacs-lisp/generator.el (iter-yield):
* lisp/emacs-lisp/gv.el (gv-define-simple-setter):
* lisp/emacs-lisp/lisp-mnt.el (lm-verify):
* lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning):
* lisp/emacs-lisp/map-ynp.el (map-y-or-n-p):
* lisp/emacs-lisp/nadvice.el (advice--make-docstring)
(advice--make, define-advice):
* lisp/emacs-lisp/package-x.el (package-upload-file):
* lisp/emacs-lisp/package.el (package-version-join)
(package-disabled-p, package-activate-1, package-activate)
(package--download-one-archive)
(package--download-and-read-archives)
(package-compute-transaction, package-install-from-archive)
(package-install, package-install-selected-packages)
(package-delete, package-autoremove, describe-package-1)
(package-install-button-action, package-delete-button-action)
(package-menu-hide-package, package-menu--list-to-prompt)
(package-menu--perform-transaction)
(package-menu--find-and-notify-upgrades):
* lisp/emacs-lisp/pcase.el (pcase-exhaustive, pcase--u1):
* lisp/emacs-lisp/re-builder.el (reb-enter-subexp-mode):
* lisp/emacs-lisp/ring.el (ring-previous, ring-next):
* lisp/emacs-lisp/rx.el (rx-check, rx-anything)
(rx-check-any-string, rx-check-any, rx-check-not, rx-=)
(rx-repeat, rx-check-backref, rx-syntax, rx-check-category)
(rx-form):
* lisp/emacs-lisp/smie.el (smie-config-save):
* lisp/emacs-lisp/subr-x.el (internal--check-binding):
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-put-tag):
* lisp/emacs-lisp/testcover.el (testcover-1value):
* lisp/emacs-lisp/timer.el (timer-event-handler):
* lisp/emulation/viper-cmd.el (viper-toggle-parse-sexp-ignore-comments)
(viper-toggle-search-style, viper-kill-buffer)
(viper-brac-function):
* lisp/emulation/viper-macs.el (viper-record-kbd-macro):
* lisp/env.el (setenv):
* lisp/erc/erc-button.el (erc-nick-popup):
* lisp/erc/erc.el (erc-cmd-LOAD, erc-handle-login, english):
* lisp/eshell/em-dirs.el (eshell/cd):
* lisp/eshell/em-glob.el (eshell-glob-regexp)
(eshell-glob-entries):
* lisp/eshell/em-pred.el (eshell-parse-modifiers):
* lisp/eshell/esh-opt.el (eshell-show-usage):
* lisp/facemenu.el (facemenu-add-new-face)
(facemenu-add-new-color):
* lisp/faces.el (read-face-name, read-face-font, describe-face)
(x-resolve-font-name):
* lisp/files-x.el (modify-file-local-variable):
* lisp/files.el (locate-user-emacs-file, find-alternate-file)
(set-auto-mode, hack-one-local-variable--obsolete)
(dir-locals-set-directory-class, write-file, basic-save-buffer)
(delete-directory, copy-directory, recover-session)
(recover-session-finish, insert-directory)
(file-modes-char-to-who, file-modes-symbolic-to-number)
(move-file-to-trash):
* lisp/filesets.el (filesets-add-buffer, filesets-remove-buffer):
* lisp/find-cmd.el (find-generic, find-to-string):
* lisp/finder.el (finder-commentary):
* lisp/font-lock.el (font-lock-fontify-buffer):
* lisp/format.el (format-write-file, format-find-file)
(format-insert-file):
* lisp/frame.el (get-device-terminal, select-frame-by-name):
* lisp/fringe.el (fringe--check-style):
* lisp/gnus/nnmairix.el (nnmairix-widget-create-query):
* lisp/help-fns.el (help-fns--key-bindings)
(help-fns--compiler-macro, help-fns--parent-mode)
(help-fns--obsolete, help-fns--interactive-only)
(describe-function-1, describe-variable):
* lisp/help.el (describe-mode)
(describe-minor-mode-from-indicator):
* lisp/image.el (image-type):
* lisp/international/ccl.el (ccl-dump):
* lisp/international/fontset.el (x-must-resolve-font-name):
* lisp/international/mule-cmds.el (prefer-coding-system)
(select-safe-coding-system-interactively)
(select-safe-coding-system, activate-input-method)
(toggle-input-method, describe-current-input-method)
(describe-language-environment):
* lisp/international/mule-conf.el (code-offset):
* lisp/international/mule-diag.el (describe-character-set)
(list-input-methods-1):
* lisp/mail/feedmail.el (feedmail-run-the-queue):
* lisp/mouse.el (minor-mode-menu-from-indicator):
* lisp/mpc.el (mpc-playlist-rename):
* lisp/msb.el (msb--choose-menu):
* lisp/net/ange-ftp.el (ange-ftp-shell-command):
* lisp/net/imap.el (imap-interactive-login):
* lisp/net/mairix.el (mairix-widget-create-query):
* lisp/net/newst-backend.el (newsticker--sentinel-work):
* lisp/net/newst-treeview.el (newsticker--treeview-load):
* lisp/net/rlogin.el (rlogin):
* lisp/obsolete/iswitchb.el (iswitchb-possible-new-buffer):
* lisp/obsolete/otodo-mode.el (todo-more-important-p):
* lisp/obsolete/pgg-gpg.el (pgg-gpg-process-region):
* lisp/obsolete/pgg-pgp.el (pgg-pgp-process-region):
* lisp/obsolete/pgg-pgp5.el (pgg-pgp5-process-region):
* lisp/org/ob-core.el (org-babel-goto-named-src-block)
(org-babel-goto-named-result):
* lisp/org/ob-fortran.el (org-babel-fortran-ensure-main-wrap):
* lisp/org/ob-ref.el (org-babel-ref-resolve):
* lisp/org/org-agenda.el (org-agenda-prepare):
* lisp/org/org-clock.el (org-clock-notify-once-if-expired)
(org-clock-resolve):
* lisp/org/org-ctags.el (org-ctags-ask-rebuild-tags-file-then-find-tag):
* lisp/org/org-feed.el (org-feed-parse-atom-entry):
* lisp/org/org-habit.el (org-habit-parse-todo):
* lisp/org/org-mouse.el (org-mouse-popup-global-menu)
(org-mouse-context-menu):
* lisp/org/org-table.el (org-table-edit-formulas):
* lisp/org/ox.el (org-export-async-start):
* lisp/proced.el (proced-log):
* lisp/progmodes/ada-mode.el (ada-get-indent-case)
(ada-check-matching-start, ada-goto-matching-start):
* lisp/progmodes/ada-prj.el (ada-prj-display-page):
* lisp/progmodes/ada-xref.el (ada-find-executable):
* lisp/progmodes/ebrowse.el (ebrowse-tags-apropos):
* lisp/progmodes/etags.el (etags-tags-apropos-additional):
* lisp/progmodes/flymake.el (flymake-parse-err-lines)
(flymake-start-syntax-check-process):
* lisp/progmodes/python.el (python-shell-get-process-or-error)
(python-define-auxiliary-skeleton):
* lisp/progmodes/sql.el (sql-comint):
* lisp/progmodes/verilog-mode.el (verilog-load-file-at-point):
* lisp/progmodes/vhdl-mode.el (vhdl-widget-directory-validate):
* lisp/recentf.el (recentf-open-files):
* lisp/replace.el (query-replace-read-from)
(occur-after-change-function, occur-1):
* lisp/scroll-bar.el (scroll-bar-columns):
* lisp/server.el (server-get-auth-key):
* lisp/simple.el (execute-extended-command)
(undo-outer-limit-truncate, list-processes--refresh)
(compose-mail, set-variable, choose-completion-string)
(define-alternatives):
* lisp/startup.el (site-run-file, tty-handle-args, command-line)
(command-line-1):
* lisp/subr.el (noreturn, define-error, add-to-list)
(read-char-choice, version-to-list):
* lisp/term/common-win.el (x-handle-xrm-switch)
(x-handle-name-switch, x-handle-args):
* lisp/term/x-win.el (x-handle-parent-id, x-handle-smid):
* lisp/textmodes/reftex-ref.el (reftex-label):
* lisp/textmodes/reftex-toc.el (reftex-toc-rename-label):
* lisp/textmodes/two-column.el (2C-split):
* lisp/tutorial.el (tutorial--describe-nonstandard-key)
(tutorial--find-changed-keys):
* lisp/type-break.el (type-break-noninteractive-query):
* lisp/wdired.el (wdired-do-renames, wdired-do-symlink-changes)
(wdired-do-perm-changes):
* lisp/whitespace.el (whitespace-report-region):
Prefer grave quoting in source-code strings used to generate help
and diagnostics.
* lisp/faces.el (face-documentation):
No need to convert quotes, since the result is a docstring.
* lisp/info.el (Info-virtual-index-find-node)
(Info-virtual-index, info-apropos):
Simplify by generating only curved quotes, since info files are
typically that ways nowadays anyway.
* lisp/international/mule-diag.el (list-input-methods):
Don’t assume text quoting style is curved.
* lisp/org/org-bibtex.el (org-bibtex-fields):
Revert my recent changes, going back to the old quoting style.
2015-09-07 15:41:44 +00:00
|
|
|
|
(format-message
|
|
|
|
|
|
"`package-selected-packages' is empty! Really remove ALL packages? ")))
|
2015-02-03 19:51:39 +00:00
|
|
|
|
(let ((removable (package--removable-packages)))
|
|
|
|
|
|
(if removable
|
|
|
|
|
|
(when (y-or-n-p
|
2018-06-20 16:19:00 +00:00
|
|
|
|
(format "Packages to delete: %d (%s), proceed? "
|
2015-02-03 19:51:39 +00:00
|
|
|
|
(length removable)
|
2018-06-20 16:19:00 +00:00
|
|
|
|
(mapconcat #'symbol-name removable " ")))
|
2015-02-03 19:51:39 +00:00
|
|
|
|
(mapc (lambda (p)
|
|
|
|
|
|
(package-delete (cadr (assq p package-alist)) t))
|
2015-03-03 15:15:26 +00:00
|
|
|
|
removable))
|
|
|
|
|
|
(message "Nothing to autoremove")))))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
|
|
|
|
|
|
2010-06-19 22:36:51 +00:00
|
|
|
|
;;;; Package description buffer.
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2010-06-19 22:36:51 +00:00
|
|
|
|
;;;###autoload
|
|
|
|
|
|
(defun describe-package (package)
|
|
|
|
|
|
"Display the full documentation of PACKAGE (a symbol)."
|
|
|
|
|
|
(interactive
|
2015-06-29 07:08:47 +00:00
|
|
|
|
(let* ((guess (or (function-called-at-point)
|
|
|
|
|
|
(symbol-at-point))))
|
2010-11-03 03:25:36 +00:00
|
|
|
|
(require 'finder-inf nil t)
|
|
|
|
|
|
;; Load the package list if necessary (but don't activate them).
|
|
|
|
|
|
(unless package--initialized
|
|
|
|
|
|
(package-initialize t))
|
2019-01-22 22:54:29 +00:00
|
|
|
|
(let ((packages (append (mapcar #'car package-alist)
|
|
|
|
|
|
(mapcar #'car package-archive-contents)
|
|
|
|
|
|
(mapcar #'car package--builtins))))
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(unless (memq guess packages)
|
|
|
|
|
|
(setq guess nil))
|
2019-01-22 22:54:29 +00:00
|
|
|
|
(setq packages (mapcar #'symbol-name packages))
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(let ((val
|
|
|
|
|
|
(completing-read (if guess
|
|
|
|
|
|
(format "Describe package (default %s): "
|
|
|
|
|
|
guess)
|
|
|
|
|
|
"Describe package: ")
|
2015-06-29 07:07:04 +00:00
|
|
|
|
packages nil t nil nil (when guess
|
|
|
|
|
|
(symbol-name guess)))))
|
2019-07-01 15:56:49 +00:00
|
|
|
|
(list (and (> (length val) 0) (intern val)))))))
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(if (not (or (package-desc-p package) (and package (symbolp package))))
|
2010-11-03 03:25:36 +00:00
|
|
|
|
(message "No package specified")
|
2010-06-19 22:36:51 +00:00
|
|
|
|
(help-setup-xref (list #'describe-package package)
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(called-interactively-p 'interactive))
|
2010-06-19 22:36:51 +00:00
|
|
|
|
(with-help-window (help-buffer)
|
|
|
|
|
|
(with-current-buffer standard-output
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(describe-package-1 package)))))
|
2010-06-19 22:36:51 +00:00
|
|
|
|
|
2015-09-06 13:14:43 +00:00
|
|
|
|
(defface package-help-section-name
|
2015-08-06 10:24:16 +00:00
|
|
|
|
'((t :inherit (bold font-lock-function-name-face)))
|
|
|
|
|
|
"Face used on section names in package description buffers."
|
|
|
|
|
|
:version "25.1")
|
|
|
|
|
|
|
|
|
|
|
|
(defun package--print-help-section (name &rest strings)
|
|
|
|
|
|
"Print \"NAME: \", right aligned to the 13th column.
|
|
|
|
|
|
If more STRINGS are provided, insert them followed by a newline.
|
|
|
|
|
|
Otherwise no newline is inserted."
|
|
|
|
|
|
(declare (indent 1))
|
|
|
|
|
|
(insert (make-string (max 0 (- 11 (string-width name))) ?\s)
|
2015-09-06 13:14:43 +00:00
|
|
|
|
(propertize (concat name ": ") 'font-lock-face 'package-help-section-name))
|
2015-08-06 10:24:16 +00:00
|
|
|
|
(when strings
|
|
|
|
|
|
(apply #'insert strings)
|
|
|
|
|
|
(insert "\n")))
|
|
|
|
|
|
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(declare-function lm-commentary "lisp-mnt" (&optional file))
|
|
|
|
|
|
|
2018-12-13 22:45:05 +00:00
|
|
|
|
(defun package--get-description (desc)
|
|
|
|
|
|
"Return a string containing the long description of the package DESC.
|
|
|
|
|
|
The description is read from the installed package files."
|
|
|
|
|
|
;; Installed packages have nil for kind, so we look for README
|
|
|
|
|
|
;; first, then fall back to the Commentary header.
|
|
|
|
|
|
|
|
|
|
|
|
;; We don’t include README.md here, because that is often the home
|
|
|
|
|
|
;; page on a site like github, and not suitable as the package long
|
|
|
|
|
|
;; description.
|
|
|
|
|
|
(let ((files '("README-elpa" "README-elpa.md" "README" "README.rst" "README.org"))
|
|
|
|
|
|
file
|
|
|
|
|
|
(srcdir (package-desc-dir desc))
|
|
|
|
|
|
result)
|
|
|
|
|
|
(while (and files
|
|
|
|
|
|
(not result))
|
|
|
|
|
|
(setq file (pop files))
|
|
|
|
|
|
(when (file-readable-p (expand-file-name file srcdir))
|
|
|
|
|
|
;; Found a README.
|
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
|
(insert-file-contents (expand-file-name file srcdir))
|
|
|
|
|
|
(setq result (buffer-string)))))
|
|
|
|
|
|
|
|
|
|
|
|
(or
|
|
|
|
|
|
result
|
|
|
|
|
|
|
|
|
|
|
|
;; Look for Commentary header.
|
|
|
|
|
|
(let ((mainsrcfile (expand-file-name (format "%s.el" (package-desc-name desc))
|
|
|
|
|
|
srcdir)))
|
|
|
|
|
|
(when (file-readable-p mainsrcfile)
|
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
|
(insert (or (lm-commentary mainsrcfile) ""))
|
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(when (re-search-forward "^;;; Commentary:\n" nil t)
|
|
|
|
|
|
(replace-match ""))
|
|
|
|
|
|
(while (re-search-forward "^\\(;+ ?\\)" nil t)
|
|
|
|
|
|
(replace-match ""))
|
|
|
|
|
|
(buffer-string))))
|
|
|
|
|
|
)))
|
|
|
|
|
|
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(defun describe-package-1 (pkg)
|
2010-08-29 22:15:09 +00:00
|
|
|
|
(require 'lisp-mnt)
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(let* ((desc (or
|
|
|
|
|
|
(if (package-desc-p pkg) pkg)
|
|
|
|
|
|
(cadr (assq pkg package-alist))
|
|
|
|
|
|
(let ((built-in (assq pkg package--builtins)))
|
|
|
|
|
|
(if built-in
|
|
|
|
|
|
(package--from-builtin built-in)
|
|
|
|
|
|
(cadr (assq pkg package-archive-contents))))))
|
|
|
|
|
|
(name (if desc (package-desc-name desc) pkg))
|
|
|
|
|
|
(pkg-dir (if desc (package-desc-dir desc)))
|
|
|
|
|
|
(reqs (if desc (package-desc-reqs desc)))
|
2015-05-20 13:03:03 +00:00
|
|
|
|
(required-by (if desc (package--used-elsewhere-p desc nil 'all)))
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(version (if desc (package-desc-version desc)))
|
|
|
|
|
|
(archive (if desc (package-desc-archive desc)))
|
2013-12-09 21:35:26 +00:00
|
|
|
|
(extras (and desc (package-desc-extras desc)))
|
|
|
|
|
|
(homepage (cdr (assoc :url extras)))
|
2017-10-10 22:46:53 +00:00
|
|
|
|
(commit (cdr (assoc :commit extras)))
|
2014-01-16 12:23:14 +00:00
|
|
|
|
(keywords (if desc (package-desc--keywords desc)))
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(built-in (eq pkg-dir 'builtin))
|
|
|
|
|
|
(installable (and archive (not built-in)))
|
2013-10-03 07:11:27 +00:00
|
|
|
|
(status (if desc (package-desc-status desc) "orphan"))
|
2015-02-14 17:06:27 +00:00
|
|
|
|
(incompatible-reason (package--incompatible-p desc))
|
2019-08-14 23:35:16 +00:00
|
|
|
|
(signed (if desc (package-desc-signed desc)))
|
|
|
|
|
|
(maintainer (cdr (assoc :maintainer extras)))
|
|
|
|
|
|
(authors (cdr (assoc :authors extras))))
|
2015-07-17 18:25:39 +00:00
|
|
|
|
(when (string= status "avail-obso")
|
|
|
|
|
|
(setq status "available obsolete"))
|
2015-02-14 17:06:27 +00:00
|
|
|
|
(when incompatible-reason
|
2015-02-13 13:08:38 +00:00
|
|
|
|
(setq status "incompatible"))
|
2018-06-20 16:19:00 +00:00
|
|
|
|
(princ (format "Package %S is %s.\n\n" name status))
|
2010-08-26 03:31:34 +00:00
|
|
|
|
|
2018-06-20 16:19:00 +00:00
|
|
|
|
;; TODO: Remove the string decorations and reformat the strings
|
|
|
|
|
|
;; for future l10n.
|
2015-08-06 10:24:16 +00:00
|
|
|
|
(package--print-help-section "Status")
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(cond (built-in
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(insert (propertize (capitalize status)
|
2016-07-13 15:54:57 +00:00
|
|
|
|
'font-lock-face 'package-status-built-in)
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
"."))
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(pkg-dir
|
2015-02-03 13:56:13 +00:00
|
|
|
|
(insert (propertize (if (member status '("unsigned" "dependency"))
|
2015-02-02 11:55:24 +00:00
|
|
|
|
"Installed"
|
2015-07-17 18:25:39 +00:00
|
|
|
|
(capitalize status))
|
2016-07-13 15:54:57 +00:00
|
|
|
|
'font-lock-face 'package-status-built-in))
|
Go back to grave quoting in source-code docstrings etc.
This reverts almost all my recent changes to use curved quotes
in docstrings and/or strings used for error diagnostics.
There are a few exceptions, e.g., Bahá’í proper names.
* admin/unidata/unidata-gen.el (unidata-gen-table):
* lisp/abbrev.el (expand-region-abbrevs):
* lisp/align.el (align-region):
* lisp/allout.el (allout-mode, allout-solicit-alternate-bullet)
(outlineify-sticky):
* lisp/apropos.el (apropos-library):
* lisp/bookmark.el (bookmark-default-annotation-text):
* lisp/button.el (button-category-symbol, button-put)
(make-text-button):
* lisp/calc/calc-aent.el (math-read-if, math-read-factor):
* lisp/calc/calc-embed.el (calc-do-embedded):
* lisp/calc/calc-ext.el (calc-user-function-list):
* lisp/calc/calc-graph.el (calc-graph-show-dumb):
* lisp/calc/calc-help.el (calc-describe-key)
(calc-describe-thing, calc-full-help):
* lisp/calc/calc-lang.el (calc-c-language)
(math-parse-fortran-vector-end, math-parse-tex-sum)
(math-parse-eqn-matrix, math-parse-eqn-prime)
(calc-yacas-language, calc-maxima-language, calc-giac-language)
(math-read-giac-subscr, math-read-math-subscr)
(math-read-big-rec, math-read-big-balance):
* lisp/calc/calc-misc.el (calc-help, report-calc-bug):
* lisp/calc/calc-mode.el (calc-auto-why, calc-save-modes)
(calc-auto-recompute):
* lisp/calc/calc-prog.el (calc-fix-token-name)
(calc-read-parse-table-part, calc-user-define-invocation)
(math-do-arg-check):
* lisp/calc/calc-store.el (calc-edit-variable):
* lisp/calc/calc-units.el (math-build-units-table-buffer):
* lisp/calc/calc-vec.el (math-read-brackets):
* lisp/calc/calc-yank.el (calc-edit-mode):
* lisp/calc/calc.el (calc, calc-do, calc-user-invocation):
* lisp/calendar/appt.el (appt-display-message):
* lisp/calendar/diary-lib.el (diary-check-diary-file)
(diary-mail-entries, diary-from-outlook):
* lisp/calendar/icalendar.el (icalendar-export-region)
(icalendar--convert-float-to-ical)
(icalendar--convert-date-to-ical)
(icalendar--convert-ical-to-diary)
(icalendar--convert-recurring-to-diary)
(icalendar--add-diary-entry):
* lisp/calendar/time-date.el (format-seconds):
* lisp/calendar/timeclock.el (timeclock-mode-line-display)
(timeclock-make-hours-explicit, timeclock-log-data):
* lisp/calendar/todo-mode.el (todo-prefix, todo-delete-category)
(todo-item-mark, todo-check-format)
(todo-insert-item--next-param, todo-edit-item--next-key)
(todo-mode):
* lisp/cedet/ede/pmake.el (ede-proj-makefile-insert-dist-rules):
* lisp/cedet/mode-local.el (describe-mode-local-overload)
(mode-local-print-binding, mode-local-describe-bindings-2):
* lisp/cedet/semantic/complete.el (semantic-displayor-show-request):
* lisp/cedet/srecode/srt-mode.el (srecode-macro-help):
* lisp/cus-start.el (standard):
* lisp/cus-theme.el (describe-theme-1):
* lisp/custom.el (custom-add-dependencies, custom-check-theme)
(custom--sort-vars-1, load-theme):
* lisp/descr-text.el (describe-text-properties-1, describe-char):
* lisp/dired-x.el (dired-do-run-mail):
* lisp/dired.el (dired-log):
* lisp/emacs-lisp/advice.el (ad-read-advised-function)
(ad-read-advice-class, ad-read-advice-name, ad-enable-advice)
(ad-disable-advice, ad-remove-advice, ad-set-argument)
(ad-set-arguments, ad--defalias-fset, ad-activate)
(ad-deactivate):
* lisp/emacs-lisp/byte-opt.el (byte-compile-inline-expand)
(byte-compile-unfold-lambda, byte-optimize-form-code-walker)
(byte-optimize-while, byte-optimize-apply):
* lisp/emacs-lisp/byte-run.el (defun, defsubst):
* lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode)
(byte-compile-log-file, byte-compile-format-warn)
(byte-compile-nogroup-warn, byte-compile-arglist-warn)
(byte-compile-cl-warn)
(byte-compile-warn-about-unresolved-functions)
(byte-compile-file, byte-compile--declare-var)
(byte-compile-file-form-defmumble, byte-compile-form)
(byte-compile-normal-call, byte-compile-check-variable)
(byte-compile-variable-ref, byte-compile-variable-set)
(byte-compile-subr-wrong-args, byte-compile-setq-default)
(byte-compile-negation-optimizer)
(byte-compile-condition-case--old)
(byte-compile-condition-case--new, byte-compile-save-excursion)
(byte-compile-defvar, byte-compile-autoload)
(byte-compile-lambda-form)
(byte-compile-make-variable-buffer-local, display-call-tree)
(batch-byte-compile):
* lisp/emacs-lisp/cconv.el (cconv-convert, cconv--analyze-use):
* lisp/emacs-lisp/chart.el (chart-space-usage):
* lisp/emacs-lisp/check-declare.el (check-declare-scan)
(check-declare-warn, check-declare-file)
(check-declare-directory):
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine)
(checkdoc-message-text-engine):
* lisp/emacs-lisp/cl-extra.el (cl-parse-integer)
(cl--describe-class):
* lisp/emacs-lisp/cl-generic.el (cl-defgeneric)
(cl--generic-describe, cl-generic-generalizers):
* lisp/emacs-lisp/cl-macs.el (cl--parse-loop-clause, cl-tagbody)
(cl-symbol-macrolet):
* lisp/emacs-lisp/cl.el (cl-unload-function, flet):
* lisp/emacs-lisp/copyright.el (copyright)
(copyright-update-directory):
* lisp/emacs-lisp/edebug.el (edebug-read-list):
* lisp/emacs-lisp/eieio-base.el (eieio-persistent-read):
* lisp/emacs-lisp/eieio-core.el (eieio--slot-override)
(eieio-oref):
* lisp/emacs-lisp/eieio-opt.el (eieio-help-constructor):
* lisp/emacs-lisp/eieio-speedbar.el:
(eieio-speedbar-child-make-tag-lines)
(eieio-speedbar-child-description):
* lisp/emacs-lisp/eieio.el (defclass, change-class):
* lisp/emacs-lisp/elint.el (elint-file, elint-get-top-forms)
(elint-init-form, elint-check-defalias-form)
(elint-check-let-form):
* lisp/emacs-lisp/ert.el (ert-get-test, ert-results-mode-menu)
(ert-results-pop-to-backtrace-for-test-at-point)
(ert-results-pop-to-messages-for-test-at-point)
(ert-results-pop-to-should-forms-for-test-at-point)
(ert-describe-test):
* lisp/emacs-lisp/find-func.el (find-function-search-for-symbol)
(find-function-library):
* lisp/emacs-lisp/generator.el (iter-yield):
* lisp/emacs-lisp/gv.el (gv-define-simple-setter):
* lisp/emacs-lisp/lisp-mnt.el (lm-verify):
* lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning):
* lisp/emacs-lisp/map-ynp.el (map-y-or-n-p):
* lisp/emacs-lisp/nadvice.el (advice--make-docstring)
(advice--make, define-advice):
* lisp/emacs-lisp/package-x.el (package-upload-file):
* lisp/emacs-lisp/package.el (package-version-join)
(package-disabled-p, package-activate-1, package-activate)
(package--download-one-archive)
(package--download-and-read-archives)
(package-compute-transaction, package-install-from-archive)
(package-install, package-install-selected-packages)
(package-delete, package-autoremove, describe-package-1)
(package-install-button-action, package-delete-button-action)
(package-menu-hide-package, package-menu--list-to-prompt)
(package-menu--perform-transaction)
(package-menu--find-and-notify-upgrades):
* lisp/emacs-lisp/pcase.el (pcase-exhaustive, pcase--u1):
* lisp/emacs-lisp/re-builder.el (reb-enter-subexp-mode):
* lisp/emacs-lisp/ring.el (ring-previous, ring-next):
* lisp/emacs-lisp/rx.el (rx-check, rx-anything)
(rx-check-any-string, rx-check-any, rx-check-not, rx-=)
(rx-repeat, rx-check-backref, rx-syntax, rx-check-category)
(rx-form):
* lisp/emacs-lisp/smie.el (smie-config-save):
* lisp/emacs-lisp/subr-x.el (internal--check-binding):
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-put-tag):
* lisp/emacs-lisp/testcover.el (testcover-1value):
* lisp/emacs-lisp/timer.el (timer-event-handler):
* lisp/emulation/viper-cmd.el (viper-toggle-parse-sexp-ignore-comments)
(viper-toggle-search-style, viper-kill-buffer)
(viper-brac-function):
* lisp/emulation/viper-macs.el (viper-record-kbd-macro):
* lisp/env.el (setenv):
* lisp/erc/erc-button.el (erc-nick-popup):
* lisp/erc/erc.el (erc-cmd-LOAD, erc-handle-login, english):
* lisp/eshell/em-dirs.el (eshell/cd):
* lisp/eshell/em-glob.el (eshell-glob-regexp)
(eshell-glob-entries):
* lisp/eshell/em-pred.el (eshell-parse-modifiers):
* lisp/eshell/esh-opt.el (eshell-show-usage):
* lisp/facemenu.el (facemenu-add-new-face)
(facemenu-add-new-color):
* lisp/faces.el (read-face-name, read-face-font, describe-face)
(x-resolve-font-name):
* lisp/files-x.el (modify-file-local-variable):
* lisp/files.el (locate-user-emacs-file, find-alternate-file)
(set-auto-mode, hack-one-local-variable--obsolete)
(dir-locals-set-directory-class, write-file, basic-save-buffer)
(delete-directory, copy-directory, recover-session)
(recover-session-finish, insert-directory)
(file-modes-char-to-who, file-modes-symbolic-to-number)
(move-file-to-trash):
* lisp/filesets.el (filesets-add-buffer, filesets-remove-buffer):
* lisp/find-cmd.el (find-generic, find-to-string):
* lisp/finder.el (finder-commentary):
* lisp/font-lock.el (font-lock-fontify-buffer):
* lisp/format.el (format-write-file, format-find-file)
(format-insert-file):
* lisp/frame.el (get-device-terminal, select-frame-by-name):
* lisp/fringe.el (fringe--check-style):
* lisp/gnus/nnmairix.el (nnmairix-widget-create-query):
* lisp/help-fns.el (help-fns--key-bindings)
(help-fns--compiler-macro, help-fns--parent-mode)
(help-fns--obsolete, help-fns--interactive-only)
(describe-function-1, describe-variable):
* lisp/help.el (describe-mode)
(describe-minor-mode-from-indicator):
* lisp/image.el (image-type):
* lisp/international/ccl.el (ccl-dump):
* lisp/international/fontset.el (x-must-resolve-font-name):
* lisp/international/mule-cmds.el (prefer-coding-system)
(select-safe-coding-system-interactively)
(select-safe-coding-system, activate-input-method)
(toggle-input-method, describe-current-input-method)
(describe-language-environment):
* lisp/international/mule-conf.el (code-offset):
* lisp/international/mule-diag.el (describe-character-set)
(list-input-methods-1):
* lisp/mail/feedmail.el (feedmail-run-the-queue):
* lisp/mouse.el (minor-mode-menu-from-indicator):
* lisp/mpc.el (mpc-playlist-rename):
* lisp/msb.el (msb--choose-menu):
* lisp/net/ange-ftp.el (ange-ftp-shell-command):
* lisp/net/imap.el (imap-interactive-login):
* lisp/net/mairix.el (mairix-widget-create-query):
* lisp/net/newst-backend.el (newsticker--sentinel-work):
* lisp/net/newst-treeview.el (newsticker--treeview-load):
* lisp/net/rlogin.el (rlogin):
* lisp/obsolete/iswitchb.el (iswitchb-possible-new-buffer):
* lisp/obsolete/otodo-mode.el (todo-more-important-p):
* lisp/obsolete/pgg-gpg.el (pgg-gpg-process-region):
* lisp/obsolete/pgg-pgp.el (pgg-pgp-process-region):
* lisp/obsolete/pgg-pgp5.el (pgg-pgp5-process-region):
* lisp/org/ob-core.el (org-babel-goto-named-src-block)
(org-babel-goto-named-result):
* lisp/org/ob-fortran.el (org-babel-fortran-ensure-main-wrap):
* lisp/org/ob-ref.el (org-babel-ref-resolve):
* lisp/org/org-agenda.el (org-agenda-prepare):
* lisp/org/org-clock.el (org-clock-notify-once-if-expired)
(org-clock-resolve):
* lisp/org/org-ctags.el (org-ctags-ask-rebuild-tags-file-then-find-tag):
* lisp/org/org-feed.el (org-feed-parse-atom-entry):
* lisp/org/org-habit.el (org-habit-parse-todo):
* lisp/org/org-mouse.el (org-mouse-popup-global-menu)
(org-mouse-context-menu):
* lisp/org/org-table.el (org-table-edit-formulas):
* lisp/org/ox.el (org-export-async-start):
* lisp/proced.el (proced-log):
* lisp/progmodes/ada-mode.el (ada-get-indent-case)
(ada-check-matching-start, ada-goto-matching-start):
* lisp/progmodes/ada-prj.el (ada-prj-display-page):
* lisp/progmodes/ada-xref.el (ada-find-executable):
* lisp/progmodes/ebrowse.el (ebrowse-tags-apropos):
* lisp/progmodes/etags.el (etags-tags-apropos-additional):
* lisp/progmodes/flymake.el (flymake-parse-err-lines)
(flymake-start-syntax-check-process):
* lisp/progmodes/python.el (python-shell-get-process-or-error)
(python-define-auxiliary-skeleton):
* lisp/progmodes/sql.el (sql-comint):
* lisp/progmodes/verilog-mode.el (verilog-load-file-at-point):
* lisp/progmodes/vhdl-mode.el (vhdl-widget-directory-validate):
* lisp/recentf.el (recentf-open-files):
* lisp/replace.el (query-replace-read-from)
(occur-after-change-function, occur-1):
* lisp/scroll-bar.el (scroll-bar-columns):
* lisp/server.el (server-get-auth-key):
* lisp/simple.el (execute-extended-command)
(undo-outer-limit-truncate, list-processes--refresh)
(compose-mail, set-variable, choose-completion-string)
(define-alternatives):
* lisp/startup.el (site-run-file, tty-handle-args, command-line)
(command-line-1):
* lisp/subr.el (noreturn, define-error, add-to-list)
(read-char-choice, version-to-list):
* lisp/term/common-win.el (x-handle-xrm-switch)
(x-handle-name-switch, x-handle-args):
* lisp/term/x-win.el (x-handle-parent-id, x-handle-smid):
* lisp/textmodes/reftex-ref.el (reftex-label):
* lisp/textmodes/reftex-toc.el (reftex-toc-rename-label):
* lisp/textmodes/two-column.el (2C-split):
* lisp/tutorial.el (tutorial--describe-nonstandard-key)
(tutorial--find-changed-keys):
* lisp/type-break.el (type-break-noninteractive-query):
* lisp/wdired.el (wdired-do-renames, wdired-do-symlink-changes)
(wdired-do-perm-changes):
* lisp/whitespace.el (whitespace-report-region):
Prefer grave quoting in source-code strings used to generate help
and diagnostics.
* lisp/faces.el (face-documentation):
No need to convert quotes, since the result is a docstring.
* lisp/info.el (Info-virtual-index-find-node)
(Info-virtual-index, info-apropos):
Simplify by generating only curved quotes, since info files are
typically that ways nowadays anyway.
* lisp/international/mule-diag.el (list-input-methods):
Don’t assume text quoting style is curved.
* lisp/org/org-bibtex.el (org-bibtex-fields):
Revert my recent changes, going back to the old quoting style.
2015-09-07 15:41:44 +00:00
|
|
|
|
(insert (substitute-command-keys " in `"))
|
2015-07-17 18:25:39 +00:00
|
|
|
|
(let ((dir (abbreviate-file-name
|
|
|
|
|
|
(file-name-as-directory
|
|
|
|
|
|
(if (file-in-directory-p pkg-dir package-user-dir)
|
|
|
|
|
|
(file-relative-name pkg-dir package-user-dir)
|
|
|
|
|
|
pkg-dir)))))
|
|
|
|
|
|
(help-insert-xref-button dir 'help-package-def pkg-dir))
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(if (and (package-built-in-p name)
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(not (package-built-in-p name version)))
|
2015-08-23 11:42:04 +00:00
|
|
|
|
(insert (substitute-command-keys
|
Go back to grave quoting in source-code docstrings etc.
This reverts almost all my recent changes to use curved quotes
in docstrings and/or strings used for error diagnostics.
There are a few exceptions, e.g., Bahá’í proper names.
* admin/unidata/unidata-gen.el (unidata-gen-table):
* lisp/abbrev.el (expand-region-abbrevs):
* lisp/align.el (align-region):
* lisp/allout.el (allout-mode, allout-solicit-alternate-bullet)
(outlineify-sticky):
* lisp/apropos.el (apropos-library):
* lisp/bookmark.el (bookmark-default-annotation-text):
* lisp/button.el (button-category-symbol, button-put)
(make-text-button):
* lisp/calc/calc-aent.el (math-read-if, math-read-factor):
* lisp/calc/calc-embed.el (calc-do-embedded):
* lisp/calc/calc-ext.el (calc-user-function-list):
* lisp/calc/calc-graph.el (calc-graph-show-dumb):
* lisp/calc/calc-help.el (calc-describe-key)
(calc-describe-thing, calc-full-help):
* lisp/calc/calc-lang.el (calc-c-language)
(math-parse-fortran-vector-end, math-parse-tex-sum)
(math-parse-eqn-matrix, math-parse-eqn-prime)
(calc-yacas-language, calc-maxima-language, calc-giac-language)
(math-read-giac-subscr, math-read-math-subscr)
(math-read-big-rec, math-read-big-balance):
* lisp/calc/calc-misc.el (calc-help, report-calc-bug):
* lisp/calc/calc-mode.el (calc-auto-why, calc-save-modes)
(calc-auto-recompute):
* lisp/calc/calc-prog.el (calc-fix-token-name)
(calc-read-parse-table-part, calc-user-define-invocation)
(math-do-arg-check):
* lisp/calc/calc-store.el (calc-edit-variable):
* lisp/calc/calc-units.el (math-build-units-table-buffer):
* lisp/calc/calc-vec.el (math-read-brackets):
* lisp/calc/calc-yank.el (calc-edit-mode):
* lisp/calc/calc.el (calc, calc-do, calc-user-invocation):
* lisp/calendar/appt.el (appt-display-message):
* lisp/calendar/diary-lib.el (diary-check-diary-file)
(diary-mail-entries, diary-from-outlook):
* lisp/calendar/icalendar.el (icalendar-export-region)
(icalendar--convert-float-to-ical)
(icalendar--convert-date-to-ical)
(icalendar--convert-ical-to-diary)
(icalendar--convert-recurring-to-diary)
(icalendar--add-diary-entry):
* lisp/calendar/time-date.el (format-seconds):
* lisp/calendar/timeclock.el (timeclock-mode-line-display)
(timeclock-make-hours-explicit, timeclock-log-data):
* lisp/calendar/todo-mode.el (todo-prefix, todo-delete-category)
(todo-item-mark, todo-check-format)
(todo-insert-item--next-param, todo-edit-item--next-key)
(todo-mode):
* lisp/cedet/ede/pmake.el (ede-proj-makefile-insert-dist-rules):
* lisp/cedet/mode-local.el (describe-mode-local-overload)
(mode-local-print-binding, mode-local-describe-bindings-2):
* lisp/cedet/semantic/complete.el (semantic-displayor-show-request):
* lisp/cedet/srecode/srt-mode.el (srecode-macro-help):
* lisp/cus-start.el (standard):
* lisp/cus-theme.el (describe-theme-1):
* lisp/custom.el (custom-add-dependencies, custom-check-theme)
(custom--sort-vars-1, load-theme):
* lisp/descr-text.el (describe-text-properties-1, describe-char):
* lisp/dired-x.el (dired-do-run-mail):
* lisp/dired.el (dired-log):
* lisp/emacs-lisp/advice.el (ad-read-advised-function)
(ad-read-advice-class, ad-read-advice-name, ad-enable-advice)
(ad-disable-advice, ad-remove-advice, ad-set-argument)
(ad-set-arguments, ad--defalias-fset, ad-activate)
(ad-deactivate):
* lisp/emacs-lisp/byte-opt.el (byte-compile-inline-expand)
(byte-compile-unfold-lambda, byte-optimize-form-code-walker)
(byte-optimize-while, byte-optimize-apply):
* lisp/emacs-lisp/byte-run.el (defun, defsubst):
* lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode)
(byte-compile-log-file, byte-compile-format-warn)
(byte-compile-nogroup-warn, byte-compile-arglist-warn)
(byte-compile-cl-warn)
(byte-compile-warn-about-unresolved-functions)
(byte-compile-file, byte-compile--declare-var)
(byte-compile-file-form-defmumble, byte-compile-form)
(byte-compile-normal-call, byte-compile-check-variable)
(byte-compile-variable-ref, byte-compile-variable-set)
(byte-compile-subr-wrong-args, byte-compile-setq-default)
(byte-compile-negation-optimizer)
(byte-compile-condition-case--old)
(byte-compile-condition-case--new, byte-compile-save-excursion)
(byte-compile-defvar, byte-compile-autoload)
(byte-compile-lambda-form)
(byte-compile-make-variable-buffer-local, display-call-tree)
(batch-byte-compile):
* lisp/emacs-lisp/cconv.el (cconv-convert, cconv--analyze-use):
* lisp/emacs-lisp/chart.el (chart-space-usage):
* lisp/emacs-lisp/check-declare.el (check-declare-scan)
(check-declare-warn, check-declare-file)
(check-declare-directory):
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine)
(checkdoc-message-text-engine):
* lisp/emacs-lisp/cl-extra.el (cl-parse-integer)
(cl--describe-class):
* lisp/emacs-lisp/cl-generic.el (cl-defgeneric)
(cl--generic-describe, cl-generic-generalizers):
* lisp/emacs-lisp/cl-macs.el (cl--parse-loop-clause, cl-tagbody)
(cl-symbol-macrolet):
* lisp/emacs-lisp/cl.el (cl-unload-function, flet):
* lisp/emacs-lisp/copyright.el (copyright)
(copyright-update-directory):
* lisp/emacs-lisp/edebug.el (edebug-read-list):
* lisp/emacs-lisp/eieio-base.el (eieio-persistent-read):
* lisp/emacs-lisp/eieio-core.el (eieio--slot-override)
(eieio-oref):
* lisp/emacs-lisp/eieio-opt.el (eieio-help-constructor):
* lisp/emacs-lisp/eieio-speedbar.el:
(eieio-speedbar-child-make-tag-lines)
(eieio-speedbar-child-description):
* lisp/emacs-lisp/eieio.el (defclass, change-class):
* lisp/emacs-lisp/elint.el (elint-file, elint-get-top-forms)
(elint-init-form, elint-check-defalias-form)
(elint-check-let-form):
* lisp/emacs-lisp/ert.el (ert-get-test, ert-results-mode-menu)
(ert-results-pop-to-backtrace-for-test-at-point)
(ert-results-pop-to-messages-for-test-at-point)
(ert-results-pop-to-should-forms-for-test-at-point)
(ert-describe-test):
* lisp/emacs-lisp/find-func.el (find-function-search-for-symbol)
(find-function-library):
* lisp/emacs-lisp/generator.el (iter-yield):
* lisp/emacs-lisp/gv.el (gv-define-simple-setter):
* lisp/emacs-lisp/lisp-mnt.el (lm-verify):
* lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning):
* lisp/emacs-lisp/map-ynp.el (map-y-or-n-p):
* lisp/emacs-lisp/nadvice.el (advice--make-docstring)
(advice--make, define-advice):
* lisp/emacs-lisp/package-x.el (package-upload-file):
* lisp/emacs-lisp/package.el (package-version-join)
(package-disabled-p, package-activate-1, package-activate)
(package--download-one-archive)
(package--download-and-read-archives)
(package-compute-transaction, package-install-from-archive)
(package-install, package-install-selected-packages)
(package-delete, package-autoremove, describe-package-1)
(package-install-button-action, package-delete-button-action)
(package-menu-hide-package, package-menu--list-to-prompt)
(package-menu--perform-transaction)
(package-menu--find-and-notify-upgrades):
* lisp/emacs-lisp/pcase.el (pcase-exhaustive, pcase--u1):
* lisp/emacs-lisp/re-builder.el (reb-enter-subexp-mode):
* lisp/emacs-lisp/ring.el (ring-previous, ring-next):
* lisp/emacs-lisp/rx.el (rx-check, rx-anything)
(rx-check-any-string, rx-check-any, rx-check-not, rx-=)
(rx-repeat, rx-check-backref, rx-syntax, rx-check-category)
(rx-form):
* lisp/emacs-lisp/smie.el (smie-config-save):
* lisp/emacs-lisp/subr-x.el (internal--check-binding):
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-put-tag):
* lisp/emacs-lisp/testcover.el (testcover-1value):
* lisp/emacs-lisp/timer.el (timer-event-handler):
* lisp/emulation/viper-cmd.el (viper-toggle-parse-sexp-ignore-comments)
(viper-toggle-search-style, viper-kill-buffer)
(viper-brac-function):
* lisp/emulation/viper-macs.el (viper-record-kbd-macro):
* lisp/env.el (setenv):
* lisp/erc/erc-button.el (erc-nick-popup):
* lisp/erc/erc.el (erc-cmd-LOAD, erc-handle-login, english):
* lisp/eshell/em-dirs.el (eshell/cd):
* lisp/eshell/em-glob.el (eshell-glob-regexp)
(eshell-glob-entries):
* lisp/eshell/em-pred.el (eshell-parse-modifiers):
* lisp/eshell/esh-opt.el (eshell-show-usage):
* lisp/facemenu.el (facemenu-add-new-face)
(facemenu-add-new-color):
* lisp/faces.el (read-face-name, read-face-font, describe-face)
(x-resolve-font-name):
* lisp/files-x.el (modify-file-local-variable):
* lisp/files.el (locate-user-emacs-file, find-alternate-file)
(set-auto-mode, hack-one-local-variable--obsolete)
(dir-locals-set-directory-class, write-file, basic-save-buffer)
(delete-directory, copy-directory, recover-session)
(recover-session-finish, insert-directory)
(file-modes-char-to-who, file-modes-symbolic-to-number)
(move-file-to-trash):
* lisp/filesets.el (filesets-add-buffer, filesets-remove-buffer):
* lisp/find-cmd.el (find-generic, find-to-string):
* lisp/finder.el (finder-commentary):
* lisp/font-lock.el (font-lock-fontify-buffer):
* lisp/format.el (format-write-file, format-find-file)
(format-insert-file):
* lisp/frame.el (get-device-terminal, select-frame-by-name):
* lisp/fringe.el (fringe--check-style):
* lisp/gnus/nnmairix.el (nnmairix-widget-create-query):
* lisp/help-fns.el (help-fns--key-bindings)
(help-fns--compiler-macro, help-fns--parent-mode)
(help-fns--obsolete, help-fns--interactive-only)
(describe-function-1, describe-variable):
* lisp/help.el (describe-mode)
(describe-minor-mode-from-indicator):
* lisp/image.el (image-type):
* lisp/international/ccl.el (ccl-dump):
* lisp/international/fontset.el (x-must-resolve-font-name):
* lisp/international/mule-cmds.el (prefer-coding-system)
(select-safe-coding-system-interactively)
(select-safe-coding-system, activate-input-method)
(toggle-input-method, describe-current-input-method)
(describe-language-environment):
* lisp/international/mule-conf.el (code-offset):
* lisp/international/mule-diag.el (describe-character-set)
(list-input-methods-1):
* lisp/mail/feedmail.el (feedmail-run-the-queue):
* lisp/mouse.el (minor-mode-menu-from-indicator):
* lisp/mpc.el (mpc-playlist-rename):
* lisp/msb.el (msb--choose-menu):
* lisp/net/ange-ftp.el (ange-ftp-shell-command):
* lisp/net/imap.el (imap-interactive-login):
* lisp/net/mairix.el (mairix-widget-create-query):
* lisp/net/newst-backend.el (newsticker--sentinel-work):
* lisp/net/newst-treeview.el (newsticker--treeview-load):
* lisp/net/rlogin.el (rlogin):
* lisp/obsolete/iswitchb.el (iswitchb-possible-new-buffer):
* lisp/obsolete/otodo-mode.el (todo-more-important-p):
* lisp/obsolete/pgg-gpg.el (pgg-gpg-process-region):
* lisp/obsolete/pgg-pgp.el (pgg-pgp-process-region):
* lisp/obsolete/pgg-pgp5.el (pgg-pgp5-process-region):
* lisp/org/ob-core.el (org-babel-goto-named-src-block)
(org-babel-goto-named-result):
* lisp/org/ob-fortran.el (org-babel-fortran-ensure-main-wrap):
* lisp/org/ob-ref.el (org-babel-ref-resolve):
* lisp/org/org-agenda.el (org-agenda-prepare):
* lisp/org/org-clock.el (org-clock-notify-once-if-expired)
(org-clock-resolve):
* lisp/org/org-ctags.el (org-ctags-ask-rebuild-tags-file-then-find-tag):
* lisp/org/org-feed.el (org-feed-parse-atom-entry):
* lisp/org/org-habit.el (org-habit-parse-todo):
* lisp/org/org-mouse.el (org-mouse-popup-global-menu)
(org-mouse-context-menu):
* lisp/org/org-table.el (org-table-edit-formulas):
* lisp/org/ox.el (org-export-async-start):
* lisp/proced.el (proced-log):
* lisp/progmodes/ada-mode.el (ada-get-indent-case)
(ada-check-matching-start, ada-goto-matching-start):
* lisp/progmodes/ada-prj.el (ada-prj-display-page):
* lisp/progmodes/ada-xref.el (ada-find-executable):
* lisp/progmodes/ebrowse.el (ebrowse-tags-apropos):
* lisp/progmodes/etags.el (etags-tags-apropos-additional):
* lisp/progmodes/flymake.el (flymake-parse-err-lines)
(flymake-start-syntax-check-process):
* lisp/progmodes/python.el (python-shell-get-process-or-error)
(python-define-auxiliary-skeleton):
* lisp/progmodes/sql.el (sql-comint):
* lisp/progmodes/verilog-mode.el (verilog-load-file-at-point):
* lisp/progmodes/vhdl-mode.el (vhdl-widget-directory-validate):
* lisp/recentf.el (recentf-open-files):
* lisp/replace.el (query-replace-read-from)
(occur-after-change-function, occur-1):
* lisp/scroll-bar.el (scroll-bar-columns):
* lisp/server.el (server-get-auth-key):
* lisp/simple.el (execute-extended-command)
(undo-outer-limit-truncate, list-processes--refresh)
(compose-mail, set-variable, choose-completion-string)
(define-alternatives):
* lisp/startup.el (site-run-file, tty-handle-args, command-line)
(command-line-1):
* lisp/subr.el (noreturn, define-error, add-to-list)
(read-char-choice, version-to-list):
* lisp/term/common-win.el (x-handle-xrm-switch)
(x-handle-name-switch, x-handle-args):
* lisp/term/x-win.el (x-handle-parent-id, x-handle-smid):
* lisp/textmodes/reftex-ref.el (reftex-label):
* lisp/textmodes/reftex-toc.el (reftex-toc-rename-label):
* lisp/textmodes/two-column.el (2C-split):
* lisp/tutorial.el (tutorial--describe-nonstandard-key)
(tutorial--find-changed-keys):
* lisp/type-break.el (type-break-noninteractive-query):
* lisp/wdired.el (wdired-do-renames, wdired-do-symlink-changes)
(wdired-do-perm-changes):
* lisp/whitespace.el (whitespace-report-region):
Prefer grave quoting in source-code strings used to generate help
and diagnostics.
* lisp/faces.el (face-documentation):
No need to convert quotes, since the result is a docstring.
* lisp/info.el (Info-virtual-index-find-node)
(Info-virtual-index, info-apropos):
Simplify by generating only curved quotes, since info files are
typically that ways nowadays anyway.
* lisp/international/mule-diag.el (list-input-methods):
Don’t assume text quoting style is curved.
* lisp/org/org-bibtex.el (org-bibtex-fields):
Revert my recent changes, going back to the old quoting style.
2015-09-07 15:41:44 +00:00
|
|
|
|
"',\n shadowing a ")
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(propertize "built-in package"
|
2016-07-13 15:54:57 +00:00
|
|
|
|
'font-lock-face 'package-status-built-in))
|
Go back to grave quoting in source-code docstrings etc.
This reverts almost all my recent changes to use curved quotes
in docstrings and/or strings used for error diagnostics.
There are a few exceptions, e.g., Bahá’í proper names.
* admin/unidata/unidata-gen.el (unidata-gen-table):
* lisp/abbrev.el (expand-region-abbrevs):
* lisp/align.el (align-region):
* lisp/allout.el (allout-mode, allout-solicit-alternate-bullet)
(outlineify-sticky):
* lisp/apropos.el (apropos-library):
* lisp/bookmark.el (bookmark-default-annotation-text):
* lisp/button.el (button-category-symbol, button-put)
(make-text-button):
* lisp/calc/calc-aent.el (math-read-if, math-read-factor):
* lisp/calc/calc-embed.el (calc-do-embedded):
* lisp/calc/calc-ext.el (calc-user-function-list):
* lisp/calc/calc-graph.el (calc-graph-show-dumb):
* lisp/calc/calc-help.el (calc-describe-key)
(calc-describe-thing, calc-full-help):
* lisp/calc/calc-lang.el (calc-c-language)
(math-parse-fortran-vector-end, math-parse-tex-sum)
(math-parse-eqn-matrix, math-parse-eqn-prime)
(calc-yacas-language, calc-maxima-language, calc-giac-language)
(math-read-giac-subscr, math-read-math-subscr)
(math-read-big-rec, math-read-big-balance):
* lisp/calc/calc-misc.el (calc-help, report-calc-bug):
* lisp/calc/calc-mode.el (calc-auto-why, calc-save-modes)
(calc-auto-recompute):
* lisp/calc/calc-prog.el (calc-fix-token-name)
(calc-read-parse-table-part, calc-user-define-invocation)
(math-do-arg-check):
* lisp/calc/calc-store.el (calc-edit-variable):
* lisp/calc/calc-units.el (math-build-units-table-buffer):
* lisp/calc/calc-vec.el (math-read-brackets):
* lisp/calc/calc-yank.el (calc-edit-mode):
* lisp/calc/calc.el (calc, calc-do, calc-user-invocation):
* lisp/calendar/appt.el (appt-display-message):
* lisp/calendar/diary-lib.el (diary-check-diary-file)
(diary-mail-entries, diary-from-outlook):
* lisp/calendar/icalendar.el (icalendar-export-region)
(icalendar--convert-float-to-ical)
(icalendar--convert-date-to-ical)
(icalendar--convert-ical-to-diary)
(icalendar--convert-recurring-to-diary)
(icalendar--add-diary-entry):
* lisp/calendar/time-date.el (format-seconds):
* lisp/calendar/timeclock.el (timeclock-mode-line-display)
(timeclock-make-hours-explicit, timeclock-log-data):
* lisp/calendar/todo-mode.el (todo-prefix, todo-delete-category)
(todo-item-mark, todo-check-format)
(todo-insert-item--next-param, todo-edit-item--next-key)
(todo-mode):
* lisp/cedet/ede/pmake.el (ede-proj-makefile-insert-dist-rules):
* lisp/cedet/mode-local.el (describe-mode-local-overload)
(mode-local-print-binding, mode-local-describe-bindings-2):
* lisp/cedet/semantic/complete.el (semantic-displayor-show-request):
* lisp/cedet/srecode/srt-mode.el (srecode-macro-help):
* lisp/cus-start.el (standard):
* lisp/cus-theme.el (describe-theme-1):
* lisp/custom.el (custom-add-dependencies, custom-check-theme)
(custom--sort-vars-1, load-theme):
* lisp/descr-text.el (describe-text-properties-1, describe-char):
* lisp/dired-x.el (dired-do-run-mail):
* lisp/dired.el (dired-log):
* lisp/emacs-lisp/advice.el (ad-read-advised-function)
(ad-read-advice-class, ad-read-advice-name, ad-enable-advice)
(ad-disable-advice, ad-remove-advice, ad-set-argument)
(ad-set-arguments, ad--defalias-fset, ad-activate)
(ad-deactivate):
* lisp/emacs-lisp/byte-opt.el (byte-compile-inline-expand)
(byte-compile-unfold-lambda, byte-optimize-form-code-walker)
(byte-optimize-while, byte-optimize-apply):
* lisp/emacs-lisp/byte-run.el (defun, defsubst):
* lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode)
(byte-compile-log-file, byte-compile-format-warn)
(byte-compile-nogroup-warn, byte-compile-arglist-warn)
(byte-compile-cl-warn)
(byte-compile-warn-about-unresolved-functions)
(byte-compile-file, byte-compile--declare-var)
(byte-compile-file-form-defmumble, byte-compile-form)
(byte-compile-normal-call, byte-compile-check-variable)
(byte-compile-variable-ref, byte-compile-variable-set)
(byte-compile-subr-wrong-args, byte-compile-setq-default)
(byte-compile-negation-optimizer)
(byte-compile-condition-case--old)
(byte-compile-condition-case--new, byte-compile-save-excursion)
(byte-compile-defvar, byte-compile-autoload)
(byte-compile-lambda-form)
(byte-compile-make-variable-buffer-local, display-call-tree)
(batch-byte-compile):
* lisp/emacs-lisp/cconv.el (cconv-convert, cconv--analyze-use):
* lisp/emacs-lisp/chart.el (chart-space-usage):
* lisp/emacs-lisp/check-declare.el (check-declare-scan)
(check-declare-warn, check-declare-file)
(check-declare-directory):
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine)
(checkdoc-message-text-engine):
* lisp/emacs-lisp/cl-extra.el (cl-parse-integer)
(cl--describe-class):
* lisp/emacs-lisp/cl-generic.el (cl-defgeneric)
(cl--generic-describe, cl-generic-generalizers):
* lisp/emacs-lisp/cl-macs.el (cl--parse-loop-clause, cl-tagbody)
(cl-symbol-macrolet):
* lisp/emacs-lisp/cl.el (cl-unload-function, flet):
* lisp/emacs-lisp/copyright.el (copyright)
(copyright-update-directory):
* lisp/emacs-lisp/edebug.el (edebug-read-list):
* lisp/emacs-lisp/eieio-base.el (eieio-persistent-read):
* lisp/emacs-lisp/eieio-core.el (eieio--slot-override)
(eieio-oref):
* lisp/emacs-lisp/eieio-opt.el (eieio-help-constructor):
* lisp/emacs-lisp/eieio-speedbar.el:
(eieio-speedbar-child-make-tag-lines)
(eieio-speedbar-child-description):
* lisp/emacs-lisp/eieio.el (defclass, change-class):
* lisp/emacs-lisp/elint.el (elint-file, elint-get-top-forms)
(elint-init-form, elint-check-defalias-form)
(elint-check-let-form):
* lisp/emacs-lisp/ert.el (ert-get-test, ert-results-mode-menu)
(ert-results-pop-to-backtrace-for-test-at-point)
(ert-results-pop-to-messages-for-test-at-point)
(ert-results-pop-to-should-forms-for-test-at-point)
(ert-describe-test):
* lisp/emacs-lisp/find-func.el (find-function-search-for-symbol)
(find-function-library):
* lisp/emacs-lisp/generator.el (iter-yield):
* lisp/emacs-lisp/gv.el (gv-define-simple-setter):
* lisp/emacs-lisp/lisp-mnt.el (lm-verify):
* lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning):
* lisp/emacs-lisp/map-ynp.el (map-y-or-n-p):
* lisp/emacs-lisp/nadvice.el (advice--make-docstring)
(advice--make, define-advice):
* lisp/emacs-lisp/package-x.el (package-upload-file):
* lisp/emacs-lisp/package.el (package-version-join)
(package-disabled-p, package-activate-1, package-activate)
(package--download-one-archive)
(package--download-and-read-archives)
(package-compute-transaction, package-install-from-archive)
(package-install, package-install-selected-packages)
(package-delete, package-autoremove, describe-package-1)
(package-install-button-action, package-delete-button-action)
(package-menu-hide-package, package-menu--list-to-prompt)
(package-menu--perform-transaction)
(package-menu--find-and-notify-upgrades):
* lisp/emacs-lisp/pcase.el (pcase-exhaustive, pcase--u1):
* lisp/emacs-lisp/re-builder.el (reb-enter-subexp-mode):
* lisp/emacs-lisp/ring.el (ring-previous, ring-next):
* lisp/emacs-lisp/rx.el (rx-check, rx-anything)
(rx-check-any-string, rx-check-any, rx-check-not, rx-=)
(rx-repeat, rx-check-backref, rx-syntax, rx-check-category)
(rx-form):
* lisp/emacs-lisp/smie.el (smie-config-save):
* lisp/emacs-lisp/subr-x.el (internal--check-binding):
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-put-tag):
* lisp/emacs-lisp/testcover.el (testcover-1value):
* lisp/emacs-lisp/timer.el (timer-event-handler):
* lisp/emulation/viper-cmd.el (viper-toggle-parse-sexp-ignore-comments)
(viper-toggle-search-style, viper-kill-buffer)
(viper-brac-function):
* lisp/emulation/viper-macs.el (viper-record-kbd-macro):
* lisp/env.el (setenv):
* lisp/erc/erc-button.el (erc-nick-popup):
* lisp/erc/erc.el (erc-cmd-LOAD, erc-handle-login, english):
* lisp/eshell/em-dirs.el (eshell/cd):
* lisp/eshell/em-glob.el (eshell-glob-regexp)
(eshell-glob-entries):
* lisp/eshell/em-pred.el (eshell-parse-modifiers):
* lisp/eshell/esh-opt.el (eshell-show-usage):
* lisp/facemenu.el (facemenu-add-new-face)
(facemenu-add-new-color):
* lisp/faces.el (read-face-name, read-face-font, describe-face)
(x-resolve-font-name):
* lisp/files-x.el (modify-file-local-variable):
* lisp/files.el (locate-user-emacs-file, find-alternate-file)
(set-auto-mode, hack-one-local-variable--obsolete)
(dir-locals-set-directory-class, write-file, basic-save-buffer)
(delete-directory, copy-directory, recover-session)
(recover-session-finish, insert-directory)
(file-modes-char-to-who, file-modes-symbolic-to-number)
(move-file-to-trash):
* lisp/filesets.el (filesets-add-buffer, filesets-remove-buffer):
* lisp/find-cmd.el (find-generic, find-to-string):
* lisp/finder.el (finder-commentary):
* lisp/font-lock.el (font-lock-fontify-buffer):
* lisp/format.el (format-write-file, format-find-file)
(format-insert-file):
* lisp/frame.el (get-device-terminal, select-frame-by-name):
* lisp/fringe.el (fringe--check-style):
* lisp/gnus/nnmairix.el (nnmairix-widget-create-query):
* lisp/help-fns.el (help-fns--key-bindings)
(help-fns--compiler-macro, help-fns--parent-mode)
(help-fns--obsolete, help-fns--interactive-only)
(describe-function-1, describe-variable):
* lisp/help.el (describe-mode)
(describe-minor-mode-from-indicator):
* lisp/image.el (image-type):
* lisp/international/ccl.el (ccl-dump):
* lisp/international/fontset.el (x-must-resolve-font-name):
* lisp/international/mule-cmds.el (prefer-coding-system)
(select-safe-coding-system-interactively)
(select-safe-coding-system, activate-input-method)
(toggle-input-method, describe-current-input-method)
(describe-language-environment):
* lisp/international/mule-conf.el (code-offset):
* lisp/international/mule-diag.el (describe-character-set)
(list-input-methods-1):
* lisp/mail/feedmail.el (feedmail-run-the-queue):
* lisp/mouse.el (minor-mode-menu-from-indicator):
* lisp/mpc.el (mpc-playlist-rename):
* lisp/msb.el (msb--choose-menu):
* lisp/net/ange-ftp.el (ange-ftp-shell-command):
* lisp/net/imap.el (imap-interactive-login):
* lisp/net/mairix.el (mairix-widget-create-query):
* lisp/net/newst-backend.el (newsticker--sentinel-work):
* lisp/net/newst-treeview.el (newsticker--treeview-load):
* lisp/net/rlogin.el (rlogin):
* lisp/obsolete/iswitchb.el (iswitchb-possible-new-buffer):
* lisp/obsolete/otodo-mode.el (todo-more-important-p):
* lisp/obsolete/pgg-gpg.el (pgg-gpg-process-region):
* lisp/obsolete/pgg-pgp.el (pgg-pgp-process-region):
* lisp/obsolete/pgg-pgp5.el (pgg-pgp5-process-region):
* lisp/org/ob-core.el (org-babel-goto-named-src-block)
(org-babel-goto-named-result):
* lisp/org/ob-fortran.el (org-babel-fortran-ensure-main-wrap):
* lisp/org/ob-ref.el (org-babel-ref-resolve):
* lisp/org/org-agenda.el (org-agenda-prepare):
* lisp/org/org-clock.el (org-clock-notify-once-if-expired)
(org-clock-resolve):
* lisp/org/org-ctags.el (org-ctags-ask-rebuild-tags-file-then-find-tag):
* lisp/org/org-feed.el (org-feed-parse-atom-entry):
* lisp/org/org-habit.el (org-habit-parse-todo):
* lisp/org/org-mouse.el (org-mouse-popup-global-menu)
(org-mouse-context-menu):
* lisp/org/org-table.el (org-table-edit-formulas):
* lisp/org/ox.el (org-export-async-start):
* lisp/proced.el (proced-log):
* lisp/progmodes/ada-mode.el (ada-get-indent-case)
(ada-check-matching-start, ada-goto-matching-start):
* lisp/progmodes/ada-prj.el (ada-prj-display-page):
* lisp/progmodes/ada-xref.el (ada-find-executable):
* lisp/progmodes/ebrowse.el (ebrowse-tags-apropos):
* lisp/progmodes/etags.el (etags-tags-apropos-additional):
* lisp/progmodes/flymake.el (flymake-parse-err-lines)
(flymake-start-syntax-check-process):
* lisp/progmodes/python.el (python-shell-get-process-or-error)
(python-define-auxiliary-skeleton):
* lisp/progmodes/sql.el (sql-comint):
* lisp/progmodes/verilog-mode.el (verilog-load-file-at-point):
* lisp/progmodes/vhdl-mode.el (vhdl-widget-directory-validate):
* lisp/recentf.el (recentf-open-files):
* lisp/replace.el (query-replace-read-from)
(occur-after-change-function, occur-1):
* lisp/scroll-bar.el (scroll-bar-columns):
* lisp/server.el (server-get-auth-key):
* lisp/simple.el (execute-extended-command)
(undo-outer-limit-truncate, list-processes--refresh)
(compose-mail, set-variable, choose-completion-string)
(define-alternatives):
* lisp/startup.el (site-run-file, tty-handle-args, command-line)
(command-line-1):
* lisp/subr.el (noreturn, define-error, add-to-list)
(read-char-choice, version-to-list):
* lisp/term/common-win.el (x-handle-xrm-switch)
(x-handle-name-switch, x-handle-args):
* lisp/term/x-win.el (x-handle-parent-id, x-handle-smid):
* lisp/textmodes/reftex-ref.el (reftex-label):
* lisp/textmodes/reftex-toc.el (reftex-toc-rename-label):
* lisp/textmodes/two-column.el (2C-split):
* lisp/tutorial.el (tutorial--describe-nonstandard-key)
(tutorial--find-changed-keys):
* lisp/type-break.el (type-break-noninteractive-query):
* lisp/wdired.el (wdired-do-renames, wdired-do-symlink-changes)
(wdired-do-perm-changes):
* lisp/whitespace.el (whitespace-report-region):
Prefer grave quoting in source-code strings used to generate help
and diagnostics.
* lisp/faces.el (face-documentation):
No need to convert quotes, since the result is a docstring.
* lisp/info.el (Info-virtual-index-find-node)
(Info-virtual-index, info-apropos):
Simplify by generating only curved quotes, since info files are
typically that ways nowadays anyway.
* lisp/international/mule-diag.el (list-input-methods):
Don’t assume text quoting style is curved.
* lisp/org/org-bibtex.el (org-bibtex-fields):
Revert my recent changes, going back to the old quoting style.
2015-09-07 15:41:44 +00:00
|
|
|
|
(insert (substitute-command-keys "'")))
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(if signed
|
|
|
|
|
|
(insert ".")
|
2015-05-20 13:13:22 +00:00
|
|
|
|
(insert " (unsigned)."))
|
|
|
|
|
|
(when (and (package-desc-p desc)
|
|
|
|
|
|
(not required-by)
|
2015-07-17 18:25:39 +00:00
|
|
|
|
(member status '("unsigned" "installed")))
|
2015-05-20 13:13:22 +00:00
|
|
|
|
(insert " ")
|
|
|
|
|
|
(package-make-button "Delete"
|
|
|
|
|
|
'action #'package-delete-button-action
|
|
|
|
|
|
'package-desc desc)))
|
2015-02-14 17:06:27 +00:00
|
|
|
|
(incompatible-reason
|
2015-07-17 18:25:39 +00:00
|
|
|
|
(insert (propertize "Incompatible" 'font-lock-face font-lock-warning-face)
|
2015-02-14 17:06:27 +00:00
|
|
|
|
" because it depends on ")
|
|
|
|
|
|
(if (stringp incompatible-reason)
|
|
|
|
|
|
(insert "Emacs " incompatible-reason ".")
|
|
|
|
|
|
(insert "uninstallable packages.")))
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(installable
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(insert (capitalize status))
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(insert " from " (format "%s" archive))
|
|
|
|
|
|
(insert " -- ")
|
2013-12-09 21:35:26 +00:00
|
|
|
|
(package-make-button
|
|
|
|
|
|
"Install"
|
|
|
|
|
|
'action 'package-install-button-action
|
|
|
|
|
|
'package-desc desc))
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(t (insert (capitalize status) ".")))
|
2010-08-26 03:31:34 +00:00
|
|
|
|
(insert "\n")
|
2015-07-17 18:25:39 +00:00
|
|
|
|
(unless (and pkg-dir (not archive)) ; Installed pkgs don't have archive.
|
2015-08-06 10:24:16 +00:00
|
|
|
|
(package--print-help-section "Archive"
|
2016-02-23 08:36:23 +00:00
|
|
|
|
(or archive "n/a")))
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(and version
|
2015-08-06 10:24:16 +00:00
|
|
|
|
(package--print-help-section "Version"
|
|
|
|
|
|
(package-version-join version)))
|
2017-10-10 22:46:53 +00:00
|
|
|
|
(when commit
|
|
|
|
|
|
(package--print-help-section "Commit" commit))
|
2015-08-06 10:24:16 +00:00
|
|
|
|
(when desc
|
|
|
|
|
|
(package--print-help-section "Summary"
|
|
|
|
|
|
(package-desc-summary desc)))
|
2010-11-03 03:25:36 +00:00
|
|
|
|
|
|
|
|
|
|
(setq reqs (if desc (package-desc-reqs desc)))
|
2010-06-20 04:55:14 +00:00
|
|
|
|
(when reqs
|
2015-08-06 10:24:16 +00:00
|
|
|
|
(package--print-help-section "Requires")
|
2015-02-14 17:06:27 +00:00
|
|
|
|
(let ((first t))
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(dolist (req reqs)
|
2015-02-14 17:06:27 +00:00
|
|
|
|
(let* ((name (car req))
|
|
|
|
|
|
(vers (cadr req))
|
|
|
|
|
|
(text (format "%s-%s" (symbol-name name)
|
|
|
|
|
|
(package-version-join vers)))
|
|
|
|
|
|
(reason (if (and (listp incompatible-reason)
|
|
|
|
|
|
(assq name incompatible-reason))
|
|
|
|
|
|
" (not available)" "")))
|
|
|
|
|
|
(cond (first (setq first nil))
|
|
|
|
|
|
((>= (+ 2 (current-column) (length text) (length reason))
|
|
|
|
|
|
(window-width))
|
|
|
|
|
|
(insert ",\n "))
|
|
|
|
|
|
(t (insert ", ")))
|
|
|
|
|
|
(help-insert-xref-button text 'help-package name)
|
|
|
|
|
|
(insert reason)))
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(insert "\n")))
|
2015-05-20 13:03:03 +00:00
|
|
|
|
(when required-by
|
2015-08-06 10:24:16 +00:00
|
|
|
|
(package--print-help-section "Required by")
|
2015-05-20 13:03:03 +00:00
|
|
|
|
(let ((first t))
|
|
|
|
|
|
(dolist (pkg required-by)
|
|
|
|
|
|
(let ((text (package-desc-full-name pkg)))
|
|
|
|
|
|
(cond (first (setq first nil))
|
|
|
|
|
|
((>= (+ 2 (current-column) (length text))
|
|
|
|
|
|
(window-width))
|
|
|
|
|
|
(insert ",\n "))
|
|
|
|
|
|
(t (insert ", ")))
|
|
|
|
|
|
(help-insert-xref-button text 'help-package
|
|
|
|
|
|
(package-desc-name pkg))))
|
|
|
|
|
|
(insert "\n")))
|
2013-09-29 19:41:00 +00:00
|
|
|
|
(when homepage
|
2017-04-04 23:39:57 +00:00
|
|
|
|
;; Prefer https for the homepage of packages on gnu.org.
|
2017-04-05 00:19:24 +00:00
|
|
|
|
(if (string-match-p "^http://\\(elpa\\|www\\)\\.gnu\\.org/" homepage)
|
|
|
|
|
|
(let ((gnu (cdr (assoc "gnu" package-archives))))
|
|
|
|
|
|
(and gnu (string-match-p "^https" gnu)
|
|
|
|
|
|
(setq homepage
|
|
|
|
|
|
(replace-regexp-in-string "^http" "https" homepage)))))
|
2015-08-06 10:24:16 +00:00
|
|
|
|
(package--print-help-section "Homepage")
|
2013-09-29 19:41:00 +00:00
|
|
|
|
(help-insert-xref-button homepage 'help-url homepage)
|
|
|
|
|
|
(insert "\n"))
|
2013-12-09 21:35:26 +00:00
|
|
|
|
(when keywords
|
2015-08-06 10:24:16 +00:00
|
|
|
|
(package--print-help-section "Keywords")
|
2013-12-09 21:35:26 +00:00
|
|
|
|
(dolist (k keywords)
|
|
|
|
|
|
(package-make-button
|
|
|
|
|
|
k
|
|
|
|
|
|
'package-keyword k
|
|
|
|
|
|
'action 'package-keyword-button-action)
|
|
|
|
|
|
(insert " "))
|
|
|
|
|
|
(insert "\n"))
|
2019-08-14 23:35:16 +00:00
|
|
|
|
(when maintainer
|
|
|
|
|
|
(package--print-help-section "Maintainer")
|
|
|
|
|
|
(package--print-email-button maintainer))
|
|
|
|
|
|
(when authors
|
|
|
|
|
|
(package--print-help-section
|
|
|
|
|
|
(if (= (length authors) 1)
|
|
|
|
|
|
"Author"
|
|
|
|
|
|
"Authors"))
|
|
|
|
|
|
(package--print-email-button (pop authors))
|
|
|
|
|
|
;; If there's more than one author, indent the rest correctly.
|
|
|
|
|
|
(dolist (name authors)
|
|
|
|
|
|
(insert (make-string 13 ?\s))
|
|
|
|
|
|
(package--print-email-button name)))
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(let* ((all-pkgs (append (cdr (assq name package-alist))
|
|
|
|
|
|
(cdr (assq name package-archive-contents))
|
|
|
|
|
|
(let ((bi (assq name package--builtins)))
|
|
|
|
|
|
(if bi (list (package--from-builtin bi))))))
|
|
|
|
|
|
(other-pkgs (delete desc all-pkgs)))
|
|
|
|
|
|
(when other-pkgs
|
2015-08-06 10:24:16 +00:00
|
|
|
|
(package--print-help-section "Other versions"
|
|
|
|
|
|
(mapconcat (lambda (opkg)
|
|
|
|
|
|
(let* ((ov (package-desc-version opkg))
|
|
|
|
|
|
(dir (package-desc-dir opkg))
|
|
|
|
|
|
(from (or (package-desc-archive opkg)
|
|
|
|
|
|
(if (stringp dir) "installed" dir))))
|
|
|
|
|
|
(if (not ov) (format "%s" from)
|
|
|
|
|
|
(format "%s (%s)"
|
|
|
|
|
|
(make-text-button (package-version-join ov) nil
|
|
|
|
|
|
'font-lock-face 'link
|
|
|
|
|
|
'follow-link t
|
|
|
|
|
|
'action
|
|
|
|
|
|
(lambda (_button)
|
|
|
|
|
|
(describe-package opkg)))
|
|
|
|
|
|
from))))
|
|
|
|
|
|
other-pkgs ", ")
|
|
|
|
|
|
".")))
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
|
|
|
|
|
|
(insert "\n")
|
2010-08-26 03:31:34 +00:00
|
|
|
|
|
2019-07-28 14:01:45 +00:00
|
|
|
|
(let ((start-of-description (point)))
|
|
|
|
|
|
(if built-in
|
|
|
|
|
|
;; For built-in packages, get the description from the
|
|
|
|
|
|
;; Commentary header.
|
|
|
|
|
|
(let ((fn (locate-file (format "%s.el" name) load-path
|
|
|
|
|
|
load-file-rep-suffixes))
|
|
|
|
|
|
(opoint (point)))
|
|
|
|
|
|
(insert (or (lm-commentary fn) ""))
|
2018-12-13 22:45:05 +00:00
|
|
|
|
(save-excursion
|
2019-07-28 14:01:45 +00:00
|
|
|
|
(goto-char opoint)
|
|
|
|
|
|
(when (re-search-forward "^;;; Commentary:\n" nil t)
|
|
|
|
|
|
(replace-match ""))
|
|
|
|
|
|
(while (re-search-forward "^\\(;+ ?\\)" nil t)
|
|
|
|
|
|
(replace-match ""))))
|
|
|
|
|
|
|
|
|
|
|
|
(if (package-installed-p desc)
|
|
|
|
|
|
;; For installed packages, get the description from the
|
|
|
|
|
|
;; installed files.
|
|
|
|
|
|
(insert (package--get-description desc))
|
|
|
|
|
|
|
|
|
|
|
|
;; For non-built-in, non-installed packages, get description from
|
|
|
|
|
|
;; the archive.
|
|
|
|
|
|
(let* ((basename (format "%s-readme.txt" name))
|
|
|
|
|
|
readme-string)
|
|
|
|
|
|
|
|
|
|
|
|
(package--with-response-buffer (package-archive-base desc)
|
|
|
|
|
|
:file basename :noerror t
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(goto-char (point-max))
|
|
|
|
|
|
(unless (bolp)
|
|
|
|
|
|
(insert ?\n)))
|
|
|
|
|
|
(cl-assert (not enable-multibyte-characters))
|
|
|
|
|
|
(setq readme-string
|
|
|
|
|
|
;; The readme.txt files are defined to contain utf-8 text.
|
|
|
|
|
|
(decode-coding-region (point-min) (point-max) 'utf-8 t))
|
|
|
|
|
|
t)
|
|
|
|
|
|
(insert (or readme-string
|
|
|
|
|
|
"This package does not provide a description.")))))
|
|
|
|
|
|
;; Make URLs in the description into links.
|
|
|
|
|
|
(goto-char start-of-description)
|
|
|
|
|
|
(browse-url-add-buttons))))
|
2010-08-26 03:31:34 +00:00
|
|
|
|
|
|
|
|
|
|
(defun package-install-button-action (button)
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(let ((pkg-desc (button-get button 'package-desc)))
|
Go back to grave quoting in source-code docstrings etc.
This reverts almost all my recent changes to use curved quotes
in docstrings and/or strings used for error diagnostics.
There are a few exceptions, e.g., Bahá’í proper names.
* admin/unidata/unidata-gen.el (unidata-gen-table):
* lisp/abbrev.el (expand-region-abbrevs):
* lisp/align.el (align-region):
* lisp/allout.el (allout-mode, allout-solicit-alternate-bullet)
(outlineify-sticky):
* lisp/apropos.el (apropos-library):
* lisp/bookmark.el (bookmark-default-annotation-text):
* lisp/button.el (button-category-symbol, button-put)
(make-text-button):
* lisp/calc/calc-aent.el (math-read-if, math-read-factor):
* lisp/calc/calc-embed.el (calc-do-embedded):
* lisp/calc/calc-ext.el (calc-user-function-list):
* lisp/calc/calc-graph.el (calc-graph-show-dumb):
* lisp/calc/calc-help.el (calc-describe-key)
(calc-describe-thing, calc-full-help):
* lisp/calc/calc-lang.el (calc-c-language)
(math-parse-fortran-vector-end, math-parse-tex-sum)
(math-parse-eqn-matrix, math-parse-eqn-prime)
(calc-yacas-language, calc-maxima-language, calc-giac-language)
(math-read-giac-subscr, math-read-math-subscr)
(math-read-big-rec, math-read-big-balance):
* lisp/calc/calc-misc.el (calc-help, report-calc-bug):
* lisp/calc/calc-mode.el (calc-auto-why, calc-save-modes)
(calc-auto-recompute):
* lisp/calc/calc-prog.el (calc-fix-token-name)
(calc-read-parse-table-part, calc-user-define-invocation)
(math-do-arg-check):
* lisp/calc/calc-store.el (calc-edit-variable):
* lisp/calc/calc-units.el (math-build-units-table-buffer):
* lisp/calc/calc-vec.el (math-read-brackets):
* lisp/calc/calc-yank.el (calc-edit-mode):
* lisp/calc/calc.el (calc, calc-do, calc-user-invocation):
* lisp/calendar/appt.el (appt-display-message):
* lisp/calendar/diary-lib.el (diary-check-diary-file)
(diary-mail-entries, diary-from-outlook):
* lisp/calendar/icalendar.el (icalendar-export-region)
(icalendar--convert-float-to-ical)
(icalendar--convert-date-to-ical)
(icalendar--convert-ical-to-diary)
(icalendar--convert-recurring-to-diary)
(icalendar--add-diary-entry):
* lisp/calendar/time-date.el (format-seconds):
* lisp/calendar/timeclock.el (timeclock-mode-line-display)
(timeclock-make-hours-explicit, timeclock-log-data):
* lisp/calendar/todo-mode.el (todo-prefix, todo-delete-category)
(todo-item-mark, todo-check-format)
(todo-insert-item--next-param, todo-edit-item--next-key)
(todo-mode):
* lisp/cedet/ede/pmake.el (ede-proj-makefile-insert-dist-rules):
* lisp/cedet/mode-local.el (describe-mode-local-overload)
(mode-local-print-binding, mode-local-describe-bindings-2):
* lisp/cedet/semantic/complete.el (semantic-displayor-show-request):
* lisp/cedet/srecode/srt-mode.el (srecode-macro-help):
* lisp/cus-start.el (standard):
* lisp/cus-theme.el (describe-theme-1):
* lisp/custom.el (custom-add-dependencies, custom-check-theme)
(custom--sort-vars-1, load-theme):
* lisp/descr-text.el (describe-text-properties-1, describe-char):
* lisp/dired-x.el (dired-do-run-mail):
* lisp/dired.el (dired-log):
* lisp/emacs-lisp/advice.el (ad-read-advised-function)
(ad-read-advice-class, ad-read-advice-name, ad-enable-advice)
(ad-disable-advice, ad-remove-advice, ad-set-argument)
(ad-set-arguments, ad--defalias-fset, ad-activate)
(ad-deactivate):
* lisp/emacs-lisp/byte-opt.el (byte-compile-inline-expand)
(byte-compile-unfold-lambda, byte-optimize-form-code-walker)
(byte-optimize-while, byte-optimize-apply):
* lisp/emacs-lisp/byte-run.el (defun, defsubst):
* lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode)
(byte-compile-log-file, byte-compile-format-warn)
(byte-compile-nogroup-warn, byte-compile-arglist-warn)
(byte-compile-cl-warn)
(byte-compile-warn-about-unresolved-functions)
(byte-compile-file, byte-compile--declare-var)
(byte-compile-file-form-defmumble, byte-compile-form)
(byte-compile-normal-call, byte-compile-check-variable)
(byte-compile-variable-ref, byte-compile-variable-set)
(byte-compile-subr-wrong-args, byte-compile-setq-default)
(byte-compile-negation-optimizer)
(byte-compile-condition-case--old)
(byte-compile-condition-case--new, byte-compile-save-excursion)
(byte-compile-defvar, byte-compile-autoload)
(byte-compile-lambda-form)
(byte-compile-make-variable-buffer-local, display-call-tree)
(batch-byte-compile):
* lisp/emacs-lisp/cconv.el (cconv-convert, cconv--analyze-use):
* lisp/emacs-lisp/chart.el (chart-space-usage):
* lisp/emacs-lisp/check-declare.el (check-declare-scan)
(check-declare-warn, check-declare-file)
(check-declare-directory):
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine)
(checkdoc-message-text-engine):
* lisp/emacs-lisp/cl-extra.el (cl-parse-integer)
(cl--describe-class):
* lisp/emacs-lisp/cl-generic.el (cl-defgeneric)
(cl--generic-describe, cl-generic-generalizers):
* lisp/emacs-lisp/cl-macs.el (cl--parse-loop-clause, cl-tagbody)
(cl-symbol-macrolet):
* lisp/emacs-lisp/cl.el (cl-unload-function, flet):
* lisp/emacs-lisp/copyright.el (copyright)
(copyright-update-directory):
* lisp/emacs-lisp/edebug.el (edebug-read-list):
* lisp/emacs-lisp/eieio-base.el (eieio-persistent-read):
* lisp/emacs-lisp/eieio-core.el (eieio--slot-override)
(eieio-oref):
* lisp/emacs-lisp/eieio-opt.el (eieio-help-constructor):
* lisp/emacs-lisp/eieio-speedbar.el:
(eieio-speedbar-child-make-tag-lines)
(eieio-speedbar-child-description):
* lisp/emacs-lisp/eieio.el (defclass, change-class):
* lisp/emacs-lisp/elint.el (elint-file, elint-get-top-forms)
(elint-init-form, elint-check-defalias-form)
(elint-check-let-form):
* lisp/emacs-lisp/ert.el (ert-get-test, ert-results-mode-menu)
(ert-results-pop-to-backtrace-for-test-at-point)
(ert-results-pop-to-messages-for-test-at-point)
(ert-results-pop-to-should-forms-for-test-at-point)
(ert-describe-test):
* lisp/emacs-lisp/find-func.el (find-function-search-for-symbol)
(find-function-library):
* lisp/emacs-lisp/generator.el (iter-yield):
* lisp/emacs-lisp/gv.el (gv-define-simple-setter):
* lisp/emacs-lisp/lisp-mnt.el (lm-verify):
* lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning):
* lisp/emacs-lisp/map-ynp.el (map-y-or-n-p):
* lisp/emacs-lisp/nadvice.el (advice--make-docstring)
(advice--make, define-advice):
* lisp/emacs-lisp/package-x.el (package-upload-file):
* lisp/emacs-lisp/package.el (package-version-join)
(package-disabled-p, package-activate-1, package-activate)
(package--download-one-archive)
(package--download-and-read-archives)
(package-compute-transaction, package-install-from-archive)
(package-install, package-install-selected-packages)
(package-delete, package-autoremove, describe-package-1)
(package-install-button-action, package-delete-button-action)
(package-menu-hide-package, package-menu--list-to-prompt)
(package-menu--perform-transaction)
(package-menu--find-and-notify-upgrades):
* lisp/emacs-lisp/pcase.el (pcase-exhaustive, pcase--u1):
* lisp/emacs-lisp/re-builder.el (reb-enter-subexp-mode):
* lisp/emacs-lisp/ring.el (ring-previous, ring-next):
* lisp/emacs-lisp/rx.el (rx-check, rx-anything)
(rx-check-any-string, rx-check-any, rx-check-not, rx-=)
(rx-repeat, rx-check-backref, rx-syntax, rx-check-category)
(rx-form):
* lisp/emacs-lisp/smie.el (smie-config-save):
* lisp/emacs-lisp/subr-x.el (internal--check-binding):
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-put-tag):
* lisp/emacs-lisp/testcover.el (testcover-1value):
* lisp/emacs-lisp/timer.el (timer-event-handler):
* lisp/emulation/viper-cmd.el (viper-toggle-parse-sexp-ignore-comments)
(viper-toggle-search-style, viper-kill-buffer)
(viper-brac-function):
* lisp/emulation/viper-macs.el (viper-record-kbd-macro):
* lisp/env.el (setenv):
* lisp/erc/erc-button.el (erc-nick-popup):
* lisp/erc/erc.el (erc-cmd-LOAD, erc-handle-login, english):
* lisp/eshell/em-dirs.el (eshell/cd):
* lisp/eshell/em-glob.el (eshell-glob-regexp)
(eshell-glob-entries):
* lisp/eshell/em-pred.el (eshell-parse-modifiers):
* lisp/eshell/esh-opt.el (eshell-show-usage):
* lisp/facemenu.el (facemenu-add-new-face)
(facemenu-add-new-color):
* lisp/faces.el (read-face-name, read-face-font, describe-face)
(x-resolve-font-name):
* lisp/files-x.el (modify-file-local-variable):
* lisp/files.el (locate-user-emacs-file, find-alternate-file)
(set-auto-mode, hack-one-local-variable--obsolete)
(dir-locals-set-directory-class, write-file, basic-save-buffer)
(delete-directory, copy-directory, recover-session)
(recover-session-finish, insert-directory)
(file-modes-char-to-who, file-modes-symbolic-to-number)
(move-file-to-trash):
* lisp/filesets.el (filesets-add-buffer, filesets-remove-buffer):
* lisp/find-cmd.el (find-generic, find-to-string):
* lisp/finder.el (finder-commentary):
* lisp/font-lock.el (font-lock-fontify-buffer):
* lisp/format.el (format-write-file, format-find-file)
(format-insert-file):
* lisp/frame.el (get-device-terminal, select-frame-by-name):
* lisp/fringe.el (fringe--check-style):
* lisp/gnus/nnmairix.el (nnmairix-widget-create-query):
* lisp/help-fns.el (help-fns--key-bindings)
(help-fns--compiler-macro, help-fns--parent-mode)
(help-fns--obsolete, help-fns--interactive-only)
(describe-function-1, describe-variable):
* lisp/help.el (describe-mode)
(describe-minor-mode-from-indicator):
* lisp/image.el (image-type):
* lisp/international/ccl.el (ccl-dump):
* lisp/international/fontset.el (x-must-resolve-font-name):
* lisp/international/mule-cmds.el (prefer-coding-system)
(select-safe-coding-system-interactively)
(select-safe-coding-system, activate-input-method)
(toggle-input-method, describe-current-input-method)
(describe-language-environment):
* lisp/international/mule-conf.el (code-offset):
* lisp/international/mule-diag.el (describe-character-set)
(list-input-methods-1):
* lisp/mail/feedmail.el (feedmail-run-the-queue):
* lisp/mouse.el (minor-mode-menu-from-indicator):
* lisp/mpc.el (mpc-playlist-rename):
* lisp/msb.el (msb--choose-menu):
* lisp/net/ange-ftp.el (ange-ftp-shell-command):
* lisp/net/imap.el (imap-interactive-login):
* lisp/net/mairix.el (mairix-widget-create-query):
* lisp/net/newst-backend.el (newsticker--sentinel-work):
* lisp/net/newst-treeview.el (newsticker--treeview-load):
* lisp/net/rlogin.el (rlogin):
* lisp/obsolete/iswitchb.el (iswitchb-possible-new-buffer):
* lisp/obsolete/otodo-mode.el (todo-more-important-p):
* lisp/obsolete/pgg-gpg.el (pgg-gpg-process-region):
* lisp/obsolete/pgg-pgp.el (pgg-pgp-process-region):
* lisp/obsolete/pgg-pgp5.el (pgg-pgp5-process-region):
* lisp/org/ob-core.el (org-babel-goto-named-src-block)
(org-babel-goto-named-result):
* lisp/org/ob-fortran.el (org-babel-fortran-ensure-main-wrap):
* lisp/org/ob-ref.el (org-babel-ref-resolve):
* lisp/org/org-agenda.el (org-agenda-prepare):
* lisp/org/org-clock.el (org-clock-notify-once-if-expired)
(org-clock-resolve):
* lisp/org/org-ctags.el (org-ctags-ask-rebuild-tags-file-then-find-tag):
* lisp/org/org-feed.el (org-feed-parse-atom-entry):
* lisp/org/org-habit.el (org-habit-parse-todo):
* lisp/org/org-mouse.el (org-mouse-popup-global-menu)
(org-mouse-context-menu):
* lisp/org/org-table.el (org-table-edit-formulas):
* lisp/org/ox.el (org-export-async-start):
* lisp/proced.el (proced-log):
* lisp/progmodes/ada-mode.el (ada-get-indent-case)
(ada-check-matching-start, ada-goto-matching-start):
* lisp/progmodes/ada-prj.el (ada-prj-display-page):
* lisp/progmodes/ada-xref.el (ada-find-executable):
* lisp/progmodes/ebrowse.el (ebrowse-tags-apropos):
* lisp/progmodes/etags.el (etags-tags-apropos-additional):
* lisp/progmodes/flymake.el (flymake-parse-err-lines)
(flymake-start-syntax-check-process):
* lisp/progmodes/python.el (python-shell-get-process-or-error)
(python-define-auxiliary-skeleton):
* lisp/progmodes/sql.el (sql-comint):
* lisp/progmodes/verilog-mode.el (verilog-load-file-at-point):
* lisp/progmodes/vhdl-mode.el (vhdl-widget-directory-validate):
* lisp/recentf.el (recentf-open-files):
* lisp/replace.el (query-replace-read-from)
(occur-after-change-function, occur-1):
* lisp/scroll-bar.el (scroll-bar-columns):
* lisp/server.el (server-get-auth-key):
* lisp/simple.el (execute-extended-command)
(undo-outer-limit-truncate, list-processes--refresh)
(compose-mail, set-variable, choose-completion-string)
(define-alternatives):
* lisp/startup.el (site-run-file, tty-handle-args, command-line)
(command-line-1):
* lisp/subr.el (noreturn, define-error, add-to-list)
(read-char-choice, version-to-list):
* lisp/term/common-win.el (x-handle-xrm-switch)
(x-handle-name-switch, x-handle-args):
* lisp/term/x-win.el (x-handle-parent-id, x-handle-smid):
* lisp/textmodes/reftex-ref.el (reftex-label):
* lisp/textmodes/reftex-toc.el (reftex-toc-rename-label):
* lisp/textmodes/two-column.el (2C-split):
* lisp/tutorial.el (tutorial--describe-nonstandard-key)
(tutorial--find-changed-keys):
* lisp/type-break.el (type-break-noninteractive-query):
* lisp/wdired.el (wdired-do-renames, wdired-do-symlink-changes)
(wdired-do-perm-changes):
* lisp/whitespace.el (whitespace-report-region):
Prefer grave quoting in source-code strings used to generate help
and diagnostics.
* lisp/faces.el (face-documentation):
No need to convert quotes, since the result is a docstring.
* lisp/info.el (Info-virtual-index-find-node)
(Info-virtual-index, info-apropos):
Simplify by generating only curved quotes, since info files are
typically that ways nowadays anyway.
* lisp/international/mule-diag.el (list-input-methods):
Don’t assume text quoting style is curved.
* lisp/org/org-bibtex.el (org-bibtex-fields):
Revert my recent changes, going back to the old quoting style.
2015-09-07 15:41:44 +00:00
|
|
|
|
(when (y-or-n-p (format-message "Install package `%s'? "
|
More-conservative ‘format’ quote restyling
Instead of restyling curved quotes for every call to ‘format’,
create a new function ‘format-message’ that does the restyling,
and using the new function instead of ‘format’ only in contexts
where this seems appropriate.
Problem reported by Dmitry Gutov and Andreas Schwab in:
http://lists.gnu.org/archive/html/emacs-devel/2015-08/msg00826.html
http://lists.gnu.org/archive/html/emacs-devel/2015-08/msg00827.html
* doc/lispref/commands.texi (Using Interactive):
* doc/lispref/control.texi (Signaling Errors, Signaling Errors):
* doc/lispref/display.texi (Displaying Messages, Progress):
* doc/lispref/elisp.texi:
* doc/lispref/help.texi (Keys in Documentation):
* doc/lispref/minibuf.texi (Minibuffer Misc):
* doc/lispref/strings.texi (Formatting Strings):
* etc/NEWS:
Document the changes.
* lisp/abbrev.el (expand-region-abbrevs):
* lisp/apropos.el (apropos-library):
* lisp/calc/calc-ext.el (calc-record-message)
(calc-user-function-list):
* lisp/calc/calc-help.el (calc-describe-key, calc-full-help):
* lisp/calc/calc-lang.el (math-read-big-balance):
* lisp/calc/calc-store.el (calc-edit-variable):
* lisp/calc/calc-units.el (math-build-units-table-buffer):
* lisp/calc/calc-yank.el (calc-edit-mode):
* lisp/calendar/icalendar.el (icalendar-export-region)
(icalendar--add-diary-entry):
* lisp/cedet/mode-local.el (mode-local-print-binding)
(mode-local-describe-bindings-2):
* lisp/cedet/semantic/complete.el (semantic-completion-message):
* lisp/cedet/semantic/edit.el (semantic-parse-changes-failed):
* lisp/cedet/semantic/wisent/comp.el (wisent-log):
* lisp/cedet/srecode/insert.el (srecode-insert-show-error-report):
* lisp/descr-text.el (describe-text-properties-1, describe-char):
* lisp/dframe.el (dframe-message):
* lisp/dired-aux.el (dired-query):
* lisp/emacs-lisp/byte-opt.el (byte-compile-log-lap-1):
* lisp/emacs-lisp/bytecomp.el (byte-compile-log)
(byte-compile-log-file, byte-compile-warn, byte-compile-form):
* lisp/emacs-lisp/cconv.el (cconv-convert, cconv--analyze-use)
(cconv-analyze-form):
* lisp/emacs-lisp/check-declare.el (check-declare-warn):
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine):
* lisp/emacs-lisp/cl-macs.el (cl-symbol-macrolet):
* lisp/emacs-lisp/edebug.el (edebug-format):
* lisp/emacs-lisp/eieio-core.el (eieio-oref):
* lisp/emacs-lisp/eldoc.el (eldoc-minibuffer-message)
(eldoc-message):
* lisp/emacs-lisp/elint.el (elint-file, elint-log):
* lisp/emacs-lisp/find-func.el (find-function-library):
* lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning):
* lisp/emacs-lisp/map-ynp.el (map-y-or-n-p):
* lisp/emacs-lisp/nadvice.el (advice--make-docstring):
* lisp/emacs-lisp/package.el (package-compute-transaction)
(package-install-button-action, package-delete-button-action)
(package-menu--list-to-prompt):
* lisp/emacs-lisp/timer.el (timer-event-handler):
* lisp/emacs-lisp/warnings.el (lwarn, warn):
* lisp/emulation/viper-cmd.el:
(viper-toggle-parse-sexp-ignore-comments)
(viper-kill-buffer, viper-brac-function):
* lisp/emulation/viper-macs.el (viper-record-kbd-macro):
* lisp/facemenu.el (facemenu-add-new-face):
* lisp/faces.el (face-documentation, read-face-name)
(face-read-string, read-face-font, describe-face):
* lisp/files.el (find-alternate-file, hack-local-variables)
(hack-one-local-variable--obsolete, write-file)
(basic-save-buffer, delete-directory):
* lisp/format.el (format-write-file, format-find-file)
(format-insert-file):
* lisp/help-fns.el (help-fns--key-bindings)
(help-fns--compiler-macro, help-fns--obsolete)
(help-fns--interactive-only, describe-function-1)
(describe-variable):
* lisp/help.el (describe-mode):
* lisp/info-xref.el (info-xref-output):
* lisp/info.el (Info-virtual-index-find-node)
(Info-virtual-index, info-apropos):
* lisp/international/kkc.el (kkc-error):
* lisp/international/mule-cmds.el:
(select-safe-coding-system-interactively)
(select-safe-coding-system, describe-input-method):
* lisp/international/mule-conf.el (code-offset):
* lisp/international/mule-diag.el (describe-character-set)
(list-input-methods-1):
* lisp/international/quail.el (quail-error):
* lisp/minibuffer.el (minibuffer-message):
* lisp/mpc.el (mpc--debug):
* lisp/msb.el (msb--choose-menu):
* lisp/net/ange-ftp.el (ange-ftp-message):
* lisp/net/gnutls.el (gnutls-message-maybe):
* lisp/net/newst-backend.el (newsticker--sentinel-work):
* lisp/net/newst-treeview.el (newsticker--treeview-load):
* lisp/net/nsm.el (nsm-query-user):
* lisp/net/rlogin.el (rlogin):
* lisp/net/soap-client.el (soap-warning):
* lisp/net/tramp.el (tramp-debug-message):
* lisp/nxml/nxml-outln.el (nxml-report-outline-error):
* lisp/nxml/nxml-parse.el (nxml-parse-error):
* lisp/nxml/rng-cmpct.el (rng-c-error):
* lisp/nxml/rng-match.el (rng-compile-error):
* lisp/nxml/rng-uri.el (rng-uri-error):
* lisp/obsolete/iswitchb.el (iswitchb-possible-new-buffer):
* lisp/org/org-ctags.el:
(org-ctags-ask-rebuild-tags-file-then-find-tag):
* lisp/proced.el (proced-log):
* lisp/progmodes/ebnf2ps.el (ebnf-log):
* lisp/progmodes/flymake.el (flymake-log):
* lisp/progmodes/vhdl-mode.el (vhdl-warning-when-idle):
* lisp/replace.el (occur-1):
* lisp/simple.el (execute-extended-command)
(undo-outer-limit-truncate, define-alternatives):
* lisp/startup.el (command-line):
* lisp/subr.el (error, user-error, add-to-list):
* lisp/tutorial.el (tutorial--describe-nonstandard-key)
(tutorial--find-changed-keys):
* src/callint.c (Fcall_interactively):
* src/editfns.c (Fmessage, Fmessage_box):
Restyle the quotes of format strings intended for use as a
diagnostic, when restyling seems appropriate.
* lisp/subr.el (format-message): New function.
* src/doc.c (Finternal__text_restyle): New function.
(syms_of_doc): Define it.
2015-08-24 05:38:02 +00:00
|
|
|
|
(package-desc-full-name pkg-desc)))
|
2015-02-11 14:53:43 +00:00
|
|
|
|
(package-install pkg-desc nil)
|
2010-08-26 03:31:34 +00:00
|
|
|
|
(revert-buffer nil t)
|
|
|
|
|
|
(goto-char (point-min)))))
|
2010-06-19 22:36:51 +00:00
|
|
|
|
|
2015-05-20 13:13:22 +00:00
|
|
|
|
(defun package-delete-button-action (button)
|
|
|
|
|
|
(let ((pkg-desc (button-get button 'package-desc)))
|
Go back to grave quoting in source-code docstrings etc.
This reverts almost all my recent changes to use curved quotes
in docstrings and/or strings used for error diagnostics.
There are a few exceptions, e.g., Bahá’í proper names.
* admin/unidata/unidata-gen.el (unidata-gen-table):
* lisp/abbrev.el (expand-region-abbrevs):
* lisp/align.el (align-region):
* lisp/allout.el (allout-mode, allout-solicit-alternate-bullet)
(outlineify-sticky):
* lisp/apropos.el (apropos-library):
* lisp/bookmark.el (bookmark-default-annotation-text):
* lisp/button.el (button-category-symbol, button-put)
(make-text-button):
* lisp/calc/calc-aent.el (math-read-if, math-read-factor):
* lisp/calc/calc-embed.el (calc-do-embedded):
* lisp/calc/calc-ext.el (calc-user-function-list):
* lisp/calc/calc-graph.el (calc-graph-show-dumb):
* lisp/calc/calc-help.el (calc-describe-key)
(calc-describe-thing, calc-full-help):
* lisp/calc/calc-lang.el (calc-c-language)
(math-parse-fortran-vector-end, math-parse-tex-sum)
(math-parse-eqn-matrix, math-parse-eqn-prime)
(calc-yacas-language, calc-maxima-language, calc-giac-language)
(math-read-giac-subscr, math-read-math-subscr)
(math-read-big-rec, math-read-big-balance):
* lisp/calc/calc-misc.el (calc-help, report-calc-bug):
* lisp/calc/calc-mode.el (calc-auto-why, calc-save-modes)
(calc-auto-recompute):
* lisp/calc/calc-prog.el (calc-fix-token-name)
(calc-read-parse-table-part, calc-user-define-invocation)
(math-do-arg-check):
* lisp/calc/calc-store.el (calc-edit-variable):
* lisp/calc/calc-units.el (math-build-units-table-buffer):
* lisp/calc/calc-vec.el (math-read-brackets):
* lisp/calc/calc-yank.el (calc-edit-mode):
* lisp/calc/calc.el (calc, calc-do, calc-user-invocation):
* lisp/calendar/appt.el (appt-display-message):
* lisp/calendar/diary-lib.el (diary-check-diary-file)
(diary-mail-entries, diary-from-outlook):
* lisp/calendar/icalendar.el (icalendar-export-region)
(icalendar--convert-float-to-ical)
(icalendar--convert-date-to-ical)
(icalendar--convert-ical-to-diary)
(icalendar--convert-recurring-to-diary)
(icalendar--add-diary-entry):
* lisp/calendar/time-date.el (format-seconds):
* lisp/calendar/timeclock.el (timeclock-mode-line-display)
(timeclock-make-hours-explicit, timeclock-log-data):
* lisp/calendar/todo-mode.el (todo-prefix, todo-delete-category)
(todo-item-mark, todo-check-format)
(todo-insert-item--next-param, todo-edit-item--next-key)
(todo-mode):
* lisp/cedet/ede/pmake.el (ede-proj-makefile-insert-dist-rules):
* lisp/cedet/mode-local.el (describe-mode-local-overload)
(mode-local-print-binding, mode-local-describe-bindings-2):
* lisp/cedet/semantic/complete.el (semantic-displayor-show-request):
* lisp/cedet/srecode/srt-mode.el (srecode-macro-help):
* lisp/cus-start.el (standard):
* lisp/cus-theme.el (describe-theme-1):
* lisp/custom.el (custom-add-dependencies, custom-check-theme)
(custom--sort-vars-1, load-theme):
* lisp/descr-text.el (describe-text-properties-1, describe-char):
* lisp/dired-x.el (dired-do-run-mail):
* lisp/dired.el (dired-log):
* lisp/emacs-lisp/advice.el (ad-read-advised-function)
(ad-read-advice-class, ad-read-advice-name, ad-enable-advice)
(ad-disable-advice, ad-remove-advice, ad-set-argument)
(ad-set-arguments, ad--defalias-fset, ad-activate)
(ad-deactivate):
* lisp/emacs-lisp/byte-opt.el (byte-compile-inline-expand)
(byte-compile-unfold-lambda, byte-optimize-form-code-walker)
(byte-optimize-while, byte-optimize-apply):
* lisp/emacs-lisp/byte-run.el (defun, defsubst):
* lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode)
(byte-compile-log-file, byte-compile-format-warn)
(byte-compile-nogroup-warn, byte-compile-arglist-warn)
(byte-compile-cl-warn)
(byte-compile-warn-about-unresolved-functions)
(byte-compile-file, byte-compile--declare-var)
(byte-compile-file-form-defmumble, byte-compile-form)
(byte-compile-normal-call, byte-compile-check-variable)
(byte-compile-variable-ref, byte-compile-variable-set)
(byte-compile-subr-wrong-args, byte-compile-setq-default)
(byte-compile-negation-optimizer)
(byte-compile-condition-case--old)
(byte-compile-condition-case--new, byte-compile-save-excursion)
(byte-compile-defvar, byte-compile-autoload)
(byte-compile-lambda-form)
(byte-compile-make-variable-buffer-local, display-call-tree)
(batch-byte-compile):
* lisp/emacs-lisp/cconv.el (cconv-convert, cconv--analyze-use):
* lisp/emacs-lisp/chart.el (chart-space-usage):
* lisp/emacs-lisp/check-declare.el (check-declare-scan)
(check-declare-warn, check-declare-file)
(check-declare-directory):
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine)
(checkdoc-message-text-engine):
* lisp/emacs-lisp/cl-extra.el (cl-parse-integer)
(cl--describe-class):
* lisp/emacs-lisp/cl-generic.el (cl-defgeneric)
(cl--generic-describe, cl-generic-generalizers):
* lisp/emacs-lisp/cl-macs.el (cl--parse-loop-clause, cl-tagbody)
(cl-symbol-macrolet):
* lisp/emacs-lisp/cl.el (cl-unload-function, flet):
* lisp/emacs-lisp/copyright.el (copyright)
(copyright-update-directory):
* lisp/emacs-lisp/edebug.el (edebug-read-list):
* lisp/emacs-lisp/eieio-base.el (eieio-persistent-read):
* lisp/emacs-lisp/eieio-core.el (eieio--slot-override)
(eieio-oref):
* lisp/emacs-lisp/eieio-opt.el (eieio-help-constructor):
* lisp/emacs-lisp/eieio-speedbar.el:
(eieio-speedbar-child-make-tag-lines)
(eieio-speedbar-child-description):
* lisp/emacs-lisp/eieio.el (defclass, change-class):
* lisp/emacs-lisp/elint.el (elint-file, elint-get-top-forms)
(elint-init-form, elint-check-defalias-form)
(elint-check-let-form):
* lisp/emacs-lisp/ert.el (ert-get-test, ert-results-mode-menu)
(ert-results-pop-to-backtrace-for-test-at-point)
(ert-results-pop-to-messages-for-test-at-point)
(ert-results-pop-to-should-forms-for-test-at-point)
(ert-describe-test):
* lisp/emacs-lisp/find-func.el (find-function-search-for-symbol)
(find-function-library):
* lisp/emacs-lisp/generator.el (iter-yield):
* lisp/emacs-lisp/gv.el (gv-define-simple-setter):
* lisp/emacs-lisp/lisp-mnt.el (lm-verify):
* lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning):
* lisp/emacs-lisp/map-ynp.el (map-y-or-n-p):
* lisp/emacs-lisp/nadvice.el (advice--make-docstring)
(advice--make, define-advice):
* lisp/emacs-lisp/package-x.el (package-upload-file):
* lisp/emacs-lisp/package.el (package-version-join)
(package-disabled-p, package-activate-1, package-activate)
(package--download-one-archive)
(package--download-and-read-archives)
(package-compute-transaction, package-install-from-archive)
(package-install, package-install-selected-packages)
(package-delete, package-autoremove, describe-package-1)
(package-install-button-action, package-delete-button-action)
(package-menu-hide-package, package-menu--list-to-prompt)
(package-menu--perform-transaction)
(package-menu--find-and-notify-upgrades):
* lisp/emacs-lisp/pcase.el (pcase-exhaustive, pcase--u1):
* lisp/emacs-lisp/re-builder.el (reb-enter-subexp-mode):
* lisp/emacs-lisp/ring.el (ring-previous, ring-next):
* lisp/emacs-lisp/rx.el (rx-check, rx-anything)
(rx-check-any-string, rx-check-any, rx-check-not, rx-=)
(rx-repeat, rx-check-backref, rx-syntax, rx-check-category)
(rx-form):
* lisp/emacs-lisp/smie.el (smie-config-save):
* lisp/emacs-lisp/subr-x.el (internal--check-binding):
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-put-tag):
* lisp/emacs-lisp/testcover.el (testcover-1value):
* lisp/emacs-lisp/timer.el (timer-event-handler):
* lisp/emulation/viper-cmd.el (viper-toggle-parse-sexp-ignore-comments)
(viper-toggle-search-style, viper-kill-buffer)
(viper-brac-function):
* lisp/emulation/viper-macs.el (viper-record-kbd-macro):
* lisp/env.el (setenv):
* lisp/erc/erc-button.el (erc-nick-popup):
* lisp/erc/erc.el (erc-cmd-LOAD, erc-handle-login, english):
* lisp/eshell/em-dirs.el (eshell/cd):
* lisp/eshell/em-glob.el (eshell-glob-regexp)
(eshell-glob-entries):
* lisp/eshell/em-pred.el (eshell-parse-modifiers):
* lisp/eshell/esh-opt.el (eshell-show-usage):
* lisp/facemenu.el (facemenu-add-new-face)
(facemenu-add-new-color):
* lisp/faces.el (read-face-name, read-face-font, describe-face)
(x-resolve-font-name):
* lisp/files-x.el (modify-file-local-variable):
* lisp/files.el (locate-user-emacs-file, find-alternate-file)
(set-auto-mode, hack-one-local-variable--obsolete)
(dir-locals-set-directory-class, write-file, basic-save-buffer)
(delete-directory, copy-directory, recover-session)
(recover-session-finish, insert-directory)
(file-modes-char-to-who, file-modes-symbolic-to-number)
(move-file-to-trash):
* lisp/filesets.el (filesets-add-buffer, filesets-remove-buffer):
* lisp/find-cmd.el (find-generic, find-to-string):
* lisp/finder.el (finder-commentary):
* lisp/font-lock.el (font-lock-fontify-buffer):
* lisp/format.el (format-write-file, format-find-file)
(format-insert-file):
* lisp/frame.el (get-device-terminal, select-frame-by-name):
* lisp/fringe.el (fringe--check-style):
* lisp/gnus/nnmairix.el (nnmairix-widget-create-query):
* lisp/help-fns.el (help-fns--key-bindings)
(help-fns--compiler-macro, help-fns--parent-mode)
(help-fns--obsolete, help-fns--interactive-only)
(describe-function-1, describe-variable):
* lisp/help.el (describe-mode)
(describe-minor-mode-from-indicator):
* lisp/image.el (image-type):
* lisp/international/ccl.el (ccl-dump):
* lisp/international/fontset.el (x-must-resolve-font-name):
* lisp/international/mule-cmds.el (prefer-coding-system)
(select-safe-coding-system-interactively)
(select-safe-coding-system, activate-input-method)
(toggle-input-method, describe-current-input-method)
(describe-language-environment):
* lisp/international/mule-conf.el (code-offset):
* lisp/international/mule-diag.el (describe-character-set)
(list-input-methods-1):
* lisp/mail/feedmail.el (feedmail-run-the-queue):
* lisp/mouse.el (minor-mode-menu-from-indicator):
* lisp/mpc.el (mpc-playlist-rename):
* lisp/msb.el (msb--choose-menu):
* lisp/net/ange-ftp.el (ange-ftp-shell-command):
* lisp/net/imap.el (imap-interactive-login):
* lisp/net/mairix.el (mairix-widget-create-query):
* lisp/net/newst-backend.el (newsticker--sentinel-work):
* lisp/net/newst-treeview.el (newsticker--treeview-load):
* lisp/net/rlogin.el (rlogin):
* lisp/obsolete/iswitchb.el (iswitchb-possible-new-buffer):
* lisp/obsolete/otodo-mode.el (todo-more-important-p):
* lisp/obsolete/pgg-gpg.el (pgg-gpg-process-region):
* lisp/obsolete/pgg-pgp.el (pgg-pgp-process-region):
* lisp/obsolete/pgg-pgp5.el (pgg-pgp5-process-region):
* lisp/org/ob-core.el (org-babel-goto-named-src-block)
(org-babel-goto-named-result):
* lisp/org/ob-fortran.el (org-babel-fortran-ensure-main-wrap):
* lisp/org/ob-ref.el (org-babel-ref-resolve):
* lisp/org/org-agenda.el (org-agenda-prepare):
* lisp/org/org-clock.el (org-clock-notify-once-if-expired)
(org-clock-resolve):
* lisp/org/org-ctags.el (org-ctags-ask-rebuild-tags-file-then-find-tag):
* lisp/org/org-feed.el (org-feed-parse-atom-entry):
* lisp/org/org-habit.el (org-habit-parse-todo):
* lisp/org/org-mouse.el (org-mouse-popup-global-menu)
(org-mouse-context-menu):
* lisp/org/org-table.el (org-table-edit-formulas):
* lisp/org/ox.el (org-export-async-start):
* lisp/proced.el (proced-log):
* lisp/progmodes/ada-mode.el (ada-get-indent-case)
(ada-check-matching-start, ada-goto-matching-start):
* lisp/progmodes/ada-prj.el (ada-prj-display-page):
* lisp/progmodes/ada-xref.el (ada-find-executable):
* lisp/progmodes/ebrowse.el (ebrowse-tags-apropos):
* lisp/progmodes/etags.el (etags-tags-apropos-additional):
* lisp/progmodes/flymake.el (flymake-parse-err-lines)
(flymake-start-syntax-check-process):
* lisp/progmodes/python.el (python-shell-get-process-or-error)
(python-define-auxiliary-skeleton):
* lisp/progmodes/sql.el (sql-comint):
* lisp/progmodes/verilog-mode.el (verilog-load-file-at-point):
* lisp/progmodes/vhdl-mode.el (vhdl-widget-directory-validate):
* lisp/recentf.el (recentf-open-files):
* lisp/replace.el (query-replace-read-from)
(occur-after-change-function, occur-1):
* lisp/scroll-bar.el (scroll-bar-columns):
* lisp/server.el (server-get-auth-key):
* lisp/simple.el (execute-extended-command)
(undo-outer-limit-truncate, list-processes--refresh)
(compose-mail, set-variable, choose-completion-string)
(define-alternatives):
* lisp/startup.el (site-run-file, tty-handle-args, command-line)
(command-line-1):
* lisp/subr.el (noreturn, define-error, add-to-list)
(read-char-choice, version-to-list):
* lisp/term/common-win.el (x-handle-xrm-switch)
(x-handle-name-switch, x-handle-args):
* lisp/term/x-win.el (x-handle-parent-id, x-handle-smid):
* lisp/textmodes/reftex-ref.el (reftex-label):
* lisp/textmodes/reftex-toc.el (reftex-toc-rename-label):
* lisp/textmodes/two-column.el (2C-split):
* lisp/tutorial.el (tutorial--describe-nonstandard-key)
(tutorial--find-changed-keys):
* lisp/type-break.el (type-break-noninteractive-query):
* lisp/wdired.el (wdired-do-renames, wdired-do-symlink-changes)
(wdired-do-perm-changes):
* lisp/whitespace.el (whitespace-report-region):
Prefer grave quoting in source-code strings used to generate help
and diagnostics.
* lisp/faces.el (face-documentation):
No need to convert quotes, since the result is a docstring.
* lisp/info.el (Info-virtual-index-find-node)
(Info-virtual-index, info-apropos):
Simplify by generating only curved quotes, since info files are
typically that ways nowadays anyway.
* lisp/international/mule-diag.el (list-input-methods):
Don’t assume text quoting style is curved.
* lisp/org/org-bibtex.el (org-bibtex-fields):
Revert my recent changes, going back to the old quoting style.
2015-09-07 15:41:44 +00:00
|
|
|
|
(when (y-or-n-p (format-message "Delete package `%s'? "
|
More-conservative ‘format’ quote restyling
Instead of restyling curved quotes for every call to ‘format’,
create a new function ‘format-message’ that does the restyling,
and using the new function instead of ‘format’ only in contexts
where this seems appropriate.
Problem reported by Dmitry Gutov and Andreas Schwab in:
http://lists.gnu.org/archive/html/emacs-devel/2015-08/msg00826.html
http://lists.gnu.org/archive/html/emacs-devel/2015-08/msg00827.html
* doc/lispref/commands.texi (Using Interactive):
* doc/lispref/control.texi (Signaling Errors, Signaling Errors):
* doc/lispref/display.texi (Displaying Messages, Progress):
* doc/lispref/elisp.texi:
* doc/lispref/help.texi (Keys in Documentation):
* doc/lispref/minibuf.texi (Minibuffer Misc):
* doc/lispref/strings.texi (Formatting Strings):
* etc/NEWS:
Document the changes.
* lisp/abbrev.el (expand-region-abbrevs):
* lisp/apropos.el (apropos-library):
* lisp/calc/calc-ext.el (calc-record-message)
(calc-user-function-list):
* lisp/calc/calc-help.el (calc-describe-key, calc-full-help):
* lisp/calc/calc-lang.el (math-read-big-balance):
* lisp/calc/calc-store.el (calc-edit-variable):
* lisp/calc/calc-units.el (math-build-units-table-buffer):
* lisp/calc/calc-yank.el (calc-edit-mode):
* lisp/calendar/icalendar.el (icalendar-export-region)
(icalendar--add-diary-entry):
* lisp/cedet/mode-local.el (mode-local-print-binding)
(mode-local-describe-bindings-2):
* lisp/cedet/semantic/complete.el (semantic-completion-message):
* lisp/cedet/semantic/edit.el (semantic-parse-changes-failed):
* lisp/cedet/semantic/wisent/comp.el (wisent-log):
* lisp/cedet/srecode/insert.el (srecode-insert-show-error-report):
* lisp/descr-text.el (describe-text-properties-1, describe-char):
* lisp/dframe.el (dframe-message):
* lisp/dired-aux.el (dired-query):
* lisp/emacs-lisp/byte-opt.el (byte-compile-log-lap-1):
* lisp/emacs-lisp/bytecomp.el (byte-compile-log)
(byte-compile-log-file, byte-compile-warn, byte-compile-form):
* lisp/emacs-lisp/cconv.el (cconv-convert, cconv--analyze-use)
(cconv-analyze-form):
* lisp/emacs-lisp/check-declare.el (check-declare-warn):
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine):
* lisp/emacs-lisp/cl-macs.el (cl-symbol-macrolet):
* lisp/emacs-lisp/edebug.el (edebug-format):
* lisp/emacs-lisp/eieio-core.el (eieio-oref):
* lisp/emacs-lisp/eldoc.el (eldoc-minibuffer-message)
(eldoc-message):
* lisp/emacs-lisp/elint.el (elint-file, elint-log):
* lisp/emacs-lisp/find-func.el (find-function-library):
* lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning):
* lisp/emacs-lisp/map-ynp.el (map-y-or-n-p):
* lisp/emacs-lisp/nadvice.el (advice--make-docstring):
* lisp/emacs-lisp/package.el (package-compute-transaction)
(package-install-button-action, package-delete-button-action)
(package-menu--list-to-prompt):
* lisp/emacs-lisp/timer.el (timer-event-handler):
* lisp/emacs-lisp/warnings.el (lwarn, warn):
* lisp/emulation/viper-cmd.el:
(viper-toggle-parse-sexp-ignore-comments)
(viper-kill-buffer, viper-brac-function):
* lisp/emulation/viper-macs.el (viper-record-kbd-macro):
* lisp/facemenu.el (facemenu-add-new-face):
* lisp/faces.el (face-documentation, read-face-name)
(face-read-string, read-face-font, describe-face):
* lisp/files.el (find-alternate-file, hack-local-variables)
(hack-one-local-variable--obsolete, write-file)
(basic-save-buffer, delete-directory):
* lisp/format.el (format-write-file, format-find-file)
(format-insert-file):
* lisp/help-fns.el (help-fns--key-bindings)
(help-fns--compiler-macro, help-fns--obsolete)
(help-fns--interactive-only, describe-function-1)
(describe-variable):
* lisp/help.el (describe-mode):
* lisp/info-xref.el (info-xref-output):
* lisp/info.el (Info-virtual-index-find-node)
(Info-virtual-index, info-apropos):
* lisp/international/kkc.el (kkc-error):
* lisp/international/mule-cmds.el:
(select-safe-coding-system-interactively)
(select-safe-coding-system, describe-input-method):
* lisp/international/mule-conf.el (code-offset):
* lisp/international/mule-diag.el (describe-character-set)
(list-input-methods-1):
* lisp/international/quail.el (quail-error):
* lisp/minibuffer.el (minibuffer-message):
* lisp/mpc.el (mpc--debug):
* lisp/msb.el (msb--choose-menu):
* lisp/net/ange-ftp.el (ange-ftp-message):
* lisp/net/gnutls.el (gnutls-message-maybe):
* lisp/net/newst-backend.el (newsticker--sentinel-work):
* lisp/net/newst-treeview.el (newsticker--treeview-load):
* lisp/net/nsm.el (nsm-query-user):
* lisp/net/rlogin.el (rlogin):
* lisp/net/soap-client.el (soap-warning):
* lisp/net/tramp.el (tramp-debug-message):
* lisp/nxml/nxml-outln.el (nxml-report-outline-error):
* lisp/nxml/nxml-parse.el (nxml-parse-error):
* lisp/nxml/rng-cmpct.el (rng-c-error):
* lisp/nxml/rng-match.el (rng-compile-error):
* lisp/nxml/rng-uri.el (rng-uri-error):
* lisp/obsolete/iswitchb.el (iswitchb-possible-new-buffer):
* lisp/org/org-ctags.el:
(org-ctags-ask-rebuild-tags-file-then-find-tag):
* lisp/proced.el (proced-log):
* lisp/progmodes/ebnf2ps.el (ebnf-log):
* lisp/progmodes/flymake.el (flymake-log):
* lisp/progmodes/vhdl-mode.el (vhdl-warning-when-idle):
* lisp/replace.el (occur-1):
* lisp/simple.el (execute-extended-command)
(undo-outer-limit-truncate, define-alternatives):
* lisp/startup.el (command-line):
* lisp/subr.el (error, user-error, add-to-list):
* lisp/tutorial.el (tutorial--describe-nonstandard-key)
(tutorial--find-changed-keys):
* src/callint.c (Fcall_interactively):
* src/editfns.c (Fmessage, Fmessage_box):
Restyle the quotes of format strings intended for use as a
diagnostic, when restyling seems appropriate.
* lisp/subr.el (format-message): New function.
* src/doc.c (Finternal__text_restyle): New function.
(syms_of_doc): Define it.
2015-08-24 05:38:02 +00:00
|
|
|
|
(package-desc-full-name pkg-desc)))
|
2015-05-20 13:13:22 +00:00
|
|
|
|
(package-delete pkg-desc)
|
|
|
|
|
|
(revert-buffer nil t)
|
|
|
|
|
|
(goto-char (point-min)))))
|
|
|
|
|
|
|
2013-12-09 21:35:26 +00:00
|
|
|
|
(defun package-keyword-button-action (button)
|
|
|
|
|
|
(let ((pkg-keyword (button-get button 'package-keyword)))
|
2013-12-14 19:55:19 +00:00
|
|
|
|
(package-show-package-list t (list pkg-keyword))))
|
2013-12-09 21:35:26 +00:00
|
|
|
|
|
|
|
|
|
|
(defun package-make-button (text &rest props)
|
|
|
|
|
|
(let ((button-text (if (display-graphic-p) text (concat "[" text "]")))
|
|
|
|
|
|
(button-face (if (display-graphic-p)
|
|
|
|
|
|
'(:box (:line-width 2 :color "dark grey")
|
|
|
|
|
|
:background "light grey"
|
|
|
|
|
|
:foreground "black")
|
|
|
|
|
|
'link)))
|
2019-01-22 22:54:29 +00:00
|
|
|
|
(apply #'insert-text-button button-text 'face button-face 'follow-link t
|
2013-12-09 21:35:26 +00:00
|
|
|
|
props)))
|
|
|
|
|
|
|
2019-08-14 23:35:16 +00:00
|
|
|
|
(defun package--print-email-button (name)
|
|
|
|
|
|
(when (car name)
|
|
|
|
|
|
(insert (car name)))
|
|
|
|
|
|
(when (and (car name) (cdr name))
|
|
|
|
|
|
(insert " "))
|
|
|
|
|
|
(when (cdr name)
|
|
|
|
|
|
(insert "<")
|
|
|
|
|
|
(insert-text-button (cdr name)
|
|
|
|
|
|
'follow-link t
|
|
|
|
|
|
'action (lambda (_)
|
|
|
|
|
|
(compose-mail
|
|
|
|
|
|
(format "%s <%s>" (car name) (cdr name)))))
|
|
|
|
|
|
(insert ">"))
|
|
|
|
|
|
(insert "\n"))
|
|
|
|
|
|
|
2010-06-19 22:36:51 +00:00
|
|
|
|
|
2010-06-17 02:08:10 +00:00
|
|
|
|
;;;; Package menu mode.
|
|
|
|
|
|
|
2010-06-17 11:02:42 +00:00
|
|
|
|
(defvar package-menu-mode-map
|
2015-08-03 23:39:04 +00:00
|
|
|
|
(let ((map (make-sparse-keymap)))
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(set-keymap-parent map tabulated-list-mode-map)
|
2010-06-20 04:55:14 +00:00
|
|
|
|
(define-key map "\C-m" 'package-menu-describe-package)
|
2010-06-17 11:02:42 +00:00
|
|
|
|
(define-key map "u" 'package-menu-mark-unmark)
|
|
|
|
|
|
(define-key map "\177" 'package-menu-backup-unmark)
|
|
|
|
|
|
(define-key map "d" 'package-menu-mark-delete)
|
|
|
|
|
|
(define-key map "i" 'package-menu-mark-install)
|
2011-09-15 01:57:54 +00:00
|
|
|
|
(define-key map "U" 'package-menu-mark-upgrades)
|
2010-06-17 11:02:42 +00:00
|
|
|
|
(define-key map "r" 'package-menu-refresh)
|
2014-02-12 01:20:34 +00:00
|
|
|
|
(define-key map "f" 'package-menu-filter)
|
2010-06-17 11:02:42 +00:00
|
|
|
|
(define-key map "~" 'package-menu-mark-obsolete-for-deletion)
|
|
|
|
|
|
(define-key map "x" 'package-menu-execute)
|
|
|
|
|
|
(define-key map "h" 'package-menu-quick-help)
|
2015-07-17 18:25:39 +00:00
|
|
|
|
(define-key map "H" #'package-menu-hide-package)
|
2010-08-26 03:31:34 +00:00
|
|
|
|
(define-key map "?" 'package-menu-describe-package)
|
2015-06-22 15:20:46 +00:00
|
|
|
|
(define-key map "(" #'package-menu-toggle-hiding)
|
2010-06-17 11:02:42 +00:00
|
|
|
|
map)
|
2010-06-17 02:08:10 +00:00
|
|
|
|
"Local keymap for `package-menu-mode' buffers.")
|
|
|
|
|
|
|
2015-08-03 23:39:04 +00:00
|
|
|
|
(easy-menu-define package-menu-mode-menu package-menu-mode-map
|
|
|
|
|
|
"Menu for `package-menu-mode'."
|
2018-11-05 00:22:15 +00:00
|
|
|
|
'("Package"
|
2015-08-03 23:39:04 +00:00
|
|
|
|
["Describe Package" package-menu-describe-package :help "Display information about this package"]
|
|
|
|
|
|
["Help" package-menu-quick-help :help "Show short key binding help for package-menu-mode"]
|
|
|
|
|
|
"--"
|
|
|
|
|
|
["Refresh Package List" package-menu-refresh
|
|
|
|
|
|
:help "Redownload the ELPA archive"
|
|
|
|
|
|
:active (not package--downloads-in-progress)]
|
|
|
|
|
|
["Redisplay buffer" revert-buffer :help "Update the buffer with current list of packages"]
|
|
|
|
|
|
["Execute Marked Actions" package-menu-execute :help "Perform all the marked actions"]
|
|
|
|
|
|
|
|
|
|
|
|
"--"
|
|
|
|
|
|
["Mark All Available Upgrades" package-menu-mark-upgrades
|
|
|
|
|
|
:help "Mark packages that have a newer version for upgrading"
|
|
|
|
|
|
:active (not package--downloads-in-progress)]
|
|
|
|
|
|
["Mark All Obsolete for Deletion" package-menu-mark-obsolete-for-deletion :help "Mark all obsolete packages for deletion"]
|
|
|
|
|
|
["Mark for Install" package-menu-mark-install :help "Mark a package for installation and move to the next line"]
|
|
|
|
|
|
["Mark for Deletion" package-menu-mark-delete :help "Mark a package for deletion and move to the next line"]
|
|
|
|
|
|
["Unmark" package-menu-mark-unmark :help "Clear any marks on a package and move to the next line"]
|
|
|
|
|
|
|
|
|
|
|
|
"--"
|
|
|
|
|
|
["Filter Package List" package-menu-filter :help "Filter package selection (q to go back)"]
|
|
|
|
|
|
["Hide by Regexp" package-menu-hide-package :help "Permanently hide all packages matching a regexp"]
|
|
|
|
|
|
["Display Older Versions" package-menu-toggle-hiding
|
|
|
|
|
|
:style toggle :selected (not package-menu--hide-packages)
|
|
|
|
|
|
:help "Display package even if a newer version is already installed"]
|
|
|
|
|
|
|
|
|
|
|
|
"--"
|
|
|
|
|
|
["Quit" quit-window :help "Quit package selection"]
|
|
|
|
|
|
["Customize" (customize-group 'package)]))
|
|
|
|
|
|
|
2015-04-06 15:22:07 +00:00
|
|
|
|
(defvar package-menu--new-package-list nil
|
2012-06-13 07:33:38 +00:00
|
|
|
|
"List of newly-available packages since `list-packages' was last called.")
|
|
|
|
|
|
|
2015-05-21 08:58:45 +00:00
|
|
|
|
(defvar package-menu--transaction-status nil
|
|
|
|
|
|
"Mode-line status of ongoing package transaction.")
|
|
|
|
|
|
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(define-derived-mode package-menu-mode tabulated-list-mode "Package Menu"
|
2010-06-17 02:08:10 +00:00
|
|
|
|
"Major mode for browsing a list of packages.
|
|
|
|
|
|
Letters do not insert themselves; instead, they are commands.
|
|
|
|
|
|
\\<package-menu-mode-map>
|
|
|
|
|
|
\\{package-menu-mode-map}"
|
2015-05-21 08:58:45 +00:00
|
|
|
|
(setq mode-line-process '((package--downloads-in-progress ":Loading")
|
|
|
|
|
|
(package-menu--transaction-status
|
|
|
|
|
|
package-menu--transaction-status)))
|
2014-01-22 19:22:45 +00:00
|
|
|
|
(setq tabulated-list-format
|
|
|
|
|
|
`[("Package" 18 package-menu--name-predicate)
|
2014-12-14 13:56:22 +00:00
|
|
|
|
("Version" 13 nil)
|
2014-01-22 19:22:45 +00:00
|
|
|
|
("Status" 10 package-menu--status-predicate)
|
|
|
|
|
|
,@(if (cdr package-archives)
|
|
|
|
|
|
'(("Archive" 10 package-menu--archive-predicate)))
|
|
|
|
|
|
("Description" 0 nil)])
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(setq tabulated-list-padding 2)
|
|
|
|
|
|
(setq tabulated-list-sort-key (cons "Status" nil))
|
2019-01-22 22:54:29 +00:00
|
|
|
|
(add-hook 'tabulated-list-revert-hook #'package-menu--refresh nil t)
|
2019-06-24 22:55:45 +00:00
|
|
|
|
(tabulated-list-init-header)
|
|
|
|
|
|
(setf imenu-prev-index-position-function
|
|
|
|
|
|
#'package--imenu-prev-index-position-function)
|
|
|
|
|
|
(setf imenu-extract-index-name-function
|
|
|
|
|
|
#'package--imenu-extract-index-name-function))
|
2011-04-06 20:33:30 +00:00
|
|
|
|
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(defmacro package--push (pkg-desc status listname)
|
2011-04-06 20:33:30 +00:00
|
|
|
|
"Convenience macro for `package-menu--generate'.
|
|
|
|
|
|
If the alist stored in the symbol LISTNAME lacks an entry for a
|
2013-06-14 03:20:18 +00:00
|
|
|
|
package PKG-DESC, add one. The alist is keyed with PKG-DESC."
|
|
|
|
|
|
`(unless (assoc ,pkg-desc ,listname)
|
|
|
|
|
|
;; FIXME: Should we move status into pkg-desc?
|
|
|
|
|
|
(push (cons ,pkg-desc ,status) ,listname)))
|
2011-04-06 20:33:30 +00:00
|
|
|
|
|
2013-06-15 15:36:11 +00:00
|
|
|
|
(defvar package-list-unversioned nil
|
|
|
|
|
|
"If non-nil include packages that don't have a version in `list-package'.")
|
|
|
|
|
|
|
2014-06-25 17:20:08 +00:00
|
|
|
|
(defvar package-list-unsigned nil
|
|
|
|
|
|
"If non-nil, mention in the list which packages were installed w/o signature.")
|
|
|
|
|
|
|
2015-02-11 14:53:21 +00:00
|
|
|
|
(defvar package--emacs-version-list (version-to-list emacs-version)
|
|
|
|
|
|
"`emacs-version', as a list.")
|
|
|
|
|
|
|
2015-02-13 12:10:42 +00:00
|
|
|
|
(defun package--incompatible-p (pkg &optional shallow)
|
2015-02-11 14:53:21 +00:00
|
|
|
|
"Return non-nil if PKG has no chance of being installable.
|
2017-05-19 13:42:57 +00:00
|
|
|
|
PKG is a `package-desc' object.
|
2015-02-11 14:53:21 +00:00
|
|
|
|
|
2015-02-13 12:10:42 +00:00
|
|
|
|
If SHALLOW is non-nil, this only checks if PKG depends on a
|
|
|
|
|
|
higher `emacs-version' than the one being used. Otherwise, also
|
|
|
|
|
|
checks the viability of dependencies, according to
|
|
|
|
|
|
`package--compatibility-table'.
|
|
|
|
|
|
|
|
|
|
|
|
If PKG requires an incompatible Emacs version, the return value
|
|
|
|
|
|
is this version (as a string).
|
|
|
|
|
|
If PKG requires incompatible packages, the return value is a list
|
|
|
|
|
|
of these dependencies, similar to the list returned by
|
|
|
|
|
|
`package-desc-reqs'."
|
2015-02-11 14:53:21 +00:00
|
|
|
|
(let* ((reqs (package-desc-reqs pkg))
|
|
|
|
|
|
(version (cadr (assq 'emacs reqs))))
|
|
|
|
|
|
(if (and version (version-list-< package--emacs-version-list version))
|
2015-02-13 12:10:42 +00:00
|
|
|
|
(package-version-join version)
|
|
|
|
|
|
(unless shallow
|
|
|
|
|
|
(let (out)
|
|
|
|
|
|
(dolist (dep (package-desc-reqs pkg) out)
|
|
|
|
|
|
(let ((dep-name (car dep)))
|
|
|
|
|
|
(unless (eq 'emacs dep-name)
|
|
|
|
|
|
(let ((cv (gethash dep-name package--compatibility-table)))
|
|
|
|
|
|
(when (version-list-< (or cv '(0)) (or (cadr dep) '(0)))
|
|
|
|
|
|
(push dep out)))))))))))
|
2015-02-11 14:53:21 +00:00
|
|
|
|
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(defun package-desc-status (pkg-desc)
|
|
|
|
|
|
(let* ((name (package-desc-name pkg-desc))
|
|
|
|
|
|
(dir (package-desc-dir pkg-desc))
|
|
|
|
|
|
(lle (assq name package-load-list))
|
|
|
|
|
|
(held (cadr lle))
|
2013-10-03 07:11:27 +00:00
|
|
|
|
(version (package-desc-version pkg-desc))
|
2015-02-03 13:56:13 +00:00
|
|
|
|
(signed (or (not package-list-unsigned)
|
|
|
|
|
|
(package-desc-signed pkg-desc))))
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(cond
|
|
|
|
|
|
((eq dir 'builtin) "built-in")
|
|
|
|
|
|
((and lle (null held)) "disabled")
|
|
|
|
|
|
((stringp held)
|
|
|
|
|
|
(let ((hv (if (stringp held) (version-to-list held))))
|
|
|
|
|
|
(cond
|
|
|
|
|
|
((version-list-= version hv) "held")
|
|
|
|
|
|
((version-list-< version hv) "obsolete")
|
|
|
|
|
|
(t "disabled"))))
|
|
|
|
|
|
(dir ;One of the installed packages.
|
|
|
|
|
|
(cond
|
2015-05-07 15:11:50 +00:00
|
|
|
|
((not (file-exists-p dir)) "deleted")
|
|
|
|
|
|
;; Not inside `package-user-dir'.
|
|
|
|
|
|
((not (file-in-directory-p dir package-user-dir)) "external")
|
2014-06-25 17:20:08 +00:00
|
|
|
|
((eq pkg-desc (cadr (assq name package-alist)))
|
2015-02-03 13:56:13 +00:00
|
|
|
|
(if (not signed) "unsigned"
|
|
|
|
|
|
(if (package--user-selected-p name)
|
|
|
|
|
|
"installed" "dependency")))
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(t "obsolete")))
|
2015-04-30 01:27:10 +00:00
|
|
|
|
((package--incompatible-p pkg-desc) "incompat")
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(t
|
|
|
|
|
|
(let* ((ins (cadr (assq name package-alist)))
|
|
|
|
|
|
(ins-v (if ins (package-desc-version ins))))
|
|
|
|
|
|
(cond
|
2015-04-21 10:35:40 +00:00
|
|
|
|
;; Installed obsolete packages are handled in the `dir'
|
|
|
|
|
|
;; clause above. Here we handle available obsolete, which
|
2015-06-22 15:20:46 +00:00
|
|
|
|
;; are displayed depending on `package-menu--hide-packages'.
|
2015-04-21 10:35:40 +00:00
|
|
|
|
((and ins (version-list-<= version ins-v)) "avail-obso")
|
|
|
|
|
|
(t
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(if (memq name package-menu--new-package-list)
|
2015-04-21 10:35:40 +00:00
|
|
|
|
"new" "available"))))))))
|
|
|
|
|
|
|
2015-06-22 15:20:46 +00:00
|
|
|
|
(defvar package-menu--hide-packages t
|
2015-04-25 06:19:36 +00:00
|
|
|
|
"Whether available obsolete packages should be hidden.
|
2015-06-22 15:20:46 +00:00
|
|
|
|
Can be toggled with \\<package-menu-mode-map> \\[package-menu-toggle-hiding].
|
2015-04-21 10:35:40 +00:00
|
|
|
|
Installed obsolete packages are always displayed.")
|
|
|
|
|
|
|
2015-06-22 15:20:46 +00:00
|
|
|
|
(defun package-menu-toggle-hiding ()
|
2015-04-21 10:35:40 +00:00
|
|
|
|
"Toggle visibility of obsolete available packages."
|
|
|
|
|
|
(interactive)
|
|
|
|
|
|
(unless (derived-mode-p 'package-menu-mode)
|
|
|
|
|
|
(user-error "The current buffer is not a Package Menu"))
|
2015-06-22 15:20:46 +00:00
|
|
|
|
(setq package-menu--hide-packages
|
|
|
|
|
|
(not package-menu--hide-packages))
|
2018-06-20 16:19:00 +00:00
|
|
|
|
(if package-menu--hide-packages
|
|
|
|
|
|
(message "Hiding obsolete or unwanted packages")
|
|
|
|
|
|
(message "Displaying all packages"))
|
2015-04-21 10:35:40 +00:00
|
|
|
|
(revert-buffer nil 'no-confirm))
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
|
2015-04-22 08:31:16 +00:00
|
|
|
|
(defun package--remove-hidden (pkg-list)
|
|
|
|
|
|
"Filter PKG-LIST according to `package-archive-priorities'.
|
2017-05-19 13:42:57 +00:00
|
|
|
|
PKG-LIST must be a list of `package-desc' objects, all with the
|
2015-04-28 21:29:26 +00:00
|
|
|
|
same name, sorted by decreasing `package-desc-priority-version'.
|
2015-04-22 08:31:16 +00:00
|
|
|
|
Return a list of packages tied for the highest priority according
|
|
|
|
|
|
to their archives."
|
|
|
|
|
|
(when pkg-list
|
2015-06-22 15:20:46 +00:00
|
|
|
|
;; Variable toggled with `package-menu-toggle-hiding'.
|
|
|
|
|
|
(if (not package-menu--hide-packages)
|
2015-04-28 21:29:26 +00:00
|
|
|
|
pkg-list
|
|
|
|
|
|
(let ((installed (cadr (assq (package-desc-name (car pkg-list))
|
|
|
|
|
|
package-alist))))
|
|
|
|
|
|
(when installed
|
|
|
|
|
|
(setq pkg-list
|
|
|
|
|
|
(let ((ins-version (package-desc-version installed)))
|
|
|
|
|
|
(cl-remove-if (lambda (p) (version-list-< (package-desc-version p)
|
|
|
|
|
|
ins-version))
|
|
|
|
|
|
pkg-list))))
|
|
|
|
|
|
(let ((filtered-by-priority
|
|
|
|
|
|
(cond
|
|
|
|
|
|
((not package-menu-hide-low-priority)
|
|
|
|
|
|
pkg-list)
|
|
|
|
|
|
((eq package-menu-hide-low-priority 'archive)
|
2018-08-23 03:45:47 +00:00
|
|
|
|
(let (max-priority out)
|
2015-04-28 21:29:26 +00:00
|
|
|
|
(while pkg-list
|
|
|
|
|
|
(let ((p (pop pkg-list)))
|
2015-06-30 18:19:30 +00:00
|
|
|
|
(let ((priority (package-desc-priority p)))
|
2018-08-23 03:45:47 +00:00
|
|
|
|
(if (and max-priority (< priority max-priority))
|
2015-06-30 18:19:30 +00:00
|
|
|
|
(setq pkg-list nil)
|
2015-04-28 21:29:26 +00:00
|
|
|
|
(push p out)
|
2015-06-30 18:19:30 +00:00
|
|
|
|
(setq max-priority priority)))))
|
2015-04-28 21:29:26 +00:00
|
|
|
|
(nreverse out)))
|
|
|
|
|
|
(pkg-list
|
|
|
|
|
|
(list (car pkg-list))))))
|
|
|
|
|
|
(if (not installed)
|
|
|
|
|
|
filtered-by-priority
|
|
|
|
|
|
(let ((ins-version (package-desc-version installed)))
|
|
|
|
|
|
(cl-remove-if (lambda (p) (version-list-= (package-desc-version p)
|
|
|
|
|
|
ins-version))
|
|
|
|
|
|
filtered-by-priority))))))))
|
2015-04-22 08:31:16 +00:00
|
|
|
|
|
2015-06-22 18:00:55 +00:00
|
|
|
|
(defcustom package-hidden-regexps nil
|
|
|
|
|
|
"List of regexps matching the name of packages to hide.
|
|
|
|
|
|
If the name of a package matches any of these regexps it is
|
2015-07-01 02:45:56 +00:00
|
|
|
|
omitted from the package menu. To toggle this, type \\[package-menu-toggle-hiding].
|
2015-06-22 18:00:55 +00:00
|
|
|
|
|
|
|
|
|
|
Values can be interactively added to this list by typing
|
|
|
|
|
|
\\[package-menu-hide-package] on a package"
|
2016-01-13 01:06:49 +00:00
|
|
|
|
:version "25.1"
|
2015-06-22 18:00:55 +00:00
|
|
|
|
:type '(repeat (regexp :tag "Hide packages with name matching")))
|
|
|
|
|
|
|
2013-12-14 19:55:19 +00:00
|
|
|
|
(defun package-menu--refresh (&optional packages keywords)
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
"Re-populate the `tabulated-list-entries'.
|
2013-12-14 19:55:19 +00:00
|
|
|
|
PACKAGES should be nil or t, which means to display all known packages.
|
|
|
|
|
|
KEYWORDS should be nil or a list of keywords."
|
2013-06-14 03:20:18 +00:00
|
|
|
|
;; Construct list of (PKG-DESC . STATUS).
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(unless packages (setq packages t))
|
2015-06-22 18:00:55 +00:00
|
|
|
|
(let ((hidden-names (mapconcat #'identity package-hidden-regexps "\\|"))
|
|
|
|
|
|
info-list)
|
2011-04-06 20:33:30 +00:00
|
|
|
|
;; Installed packages:
|
|
|
|
|
|
(dolist (elt package-alist)
|
2015-04-30 01:27:10 +00:00
|
|
|
|
(let ((name (car elt)))
|
|
|
|
|
|
(when (or (eq packages t) (memq name packages))
|
|
|
|
|
|
(dolist (pkg (cdr elt))
|
|
|
|
|
|
(when (package--has-keyword-p pkg keywords)
|
|
|
|
|
|
(push pkg info-list))))))
|
2011-04-06 20:33:30 +00:00
|
|
|
|
|
|
|
|
|
|
;; Built-in packages:
|
|
|
|
|
|
(dolist (elt package--builtins)
|
2015-04-30 01:27:10 +00:00
|
|
|
|
(let ((pkg (package--from-builtin elt))
|
|
|
|
|
|
(name (car elt)))
|
|
|
|
|
|
(when (not (eq name 'emacs)) ; Hide the `emacs' package.
|
|
|
|
|
|
(when (and (package--has-keyword-p pkg keywords)
|
|
|
|
|
|
(or package-list-unversioned
|
|
|
|
|
|
(package--bi-desc-version (cdr elt)))
|
|
|
|
|
|
(or (eq packages t) (memq name packages)))
|
|
|
|
|
|
(push pkg info-list)))))
|
2011-04-06 20:33:30 +00:00
|
|
|
|
|
|
|
|
|
|
;; Available and disabled packages:
|
2015-10-16 22:54:38 +00:00
|
|
|
|
(unless (equal package--old-archive-priorities package-archive-priorities)
|
|
|
|
|
|
(package-read-all-archive-contents))
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(dolist (elt package-archive-contents)
|
2015-04-28 21:29:26 +00:00
|
|
|
|
(let ((name (car elt)))
|
2015-06-22 18:00:55 +00:00
|
|
|
|
;; To be displayed it must be in PACKAGES;
|
|
|
|
|
|
(when (and (or (eq packages t) (memq name packages))
|
|
|
|
|
|
;; and we must either not be hiding anything,
|
|
|
|
|
|
(or (not package-menu--hide-packages)
|
|
|
|
|
|
(not package-hidden-regexps)
|
|
|
|
|
|
;; or just not hiding this specific package.
|
|
|
|
|
|
(not (string-match hidden-names (symbol-name name)))))
|
2015-04-28 21:29:26 +00:00
|
|
|
|
;; Hide available-obsolete or low-priority packages.
|
|
|
|
|
|
(dolist (pkg (package--remove-hidden (cdr elt)))
|
|
|
|
|
|
(when (package--has-keyword-p pkg keywords)
|
2015-04-30 01:27:10 +00:00
|
|
|
|
(push pkg info-list))))))
|
2011-04-06 20:33:30 +00:00
|
|
|
|
|
|
|
|
|
|
;; Print the result.
|
2017-08-19 11:05:51 +00:00
|
|
|
|
(tabulated-list-init-header)
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(setq tabulated-list-entries
|
2015-04-30 01:27:10 +00:00
|
|
|
|
(mapcar #'package-menu--print-info-simple info-list))))
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
|
2013-12-14 19:55:19 +00:00
|
|
|
|
(defun package-all-keywords ()
|
2019-08-22 17:15:30 +00:00
|
|
|
|
"Collect all package keywords."
|
2015-04-25 16:03:32 +00:00
|
|
|
|
(let ((key-list))
|
2013-12-14 19:55:19 +00:00
|
|
|
|
(package--mapc (lambda (desc)
|
2015-04-25 16:03:32 +00:00
|
|
|
|
(setq key-list (append (package-desc--keywords desc)
|
|
|
|
|
|
key-list))))
|
|
|
|
|
|
key-list))
|
2013-12-14 19:55:19 +00:00
|
|
|
|
|
|
|
|
|
|
(defun package--mapc (function &optional packages)
|
|
|
|
|
|
"Call FUNCTION for all known PACKAGES.
|
|
|
|
|
|
PACKAGES can be nil or t, which means to display all known
|
|
|
|
|
|
packages, or a list of packages.
|
|
|
|
|
|
|
|
|
|
|
|
Built-in packages are converted with `package--from-builtin'."
|
|
|
|
|
|
(unless packages (setq packages t))
|
|
|
|
|
|
(let (name)
|
|
|
|
|
|
;; Installed packages:
|
|
|
|
|
|
(dolist (elt package-alist)
|
|
|
|
|
|
(setq name (car elt))
|
|
|
|
|
|
(when (or (eq packages t) (memq name packages))
|
|
|
|
|
|
(mapc function (cdr elt))))
|
|
|
|
|
|
|
|
|
|
|
|
;; Built-in packages:
|
|
|
|
|
|
(dolist (elt package--builtins)
|
|
|
|
|
|
(setq name (car elt))
|
|
|
|
|
|
(when (and (not (eq name 'emacs)) ; Hide the `emacs' package.
|
|
|
|
|
|
(or package-list-unversioned
|
|
|
|
|
|
(package--bi-desc-version (cdr elt)))
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(or (eq packages t) (memq name packages)))
|
2013-12-14 19:55:19 +00:00
|
|
|
|
(funcall function (package--from-builtin elt))))
|
|
|
|
|
|
|
|
|
|
|
|
;; Available and disabled packages:
|
|
|
|
|
|
(dolist (elt package-archive-contents)
|
|
|
|
|
|
(setq name (car elt))
|
|
|
|
|
|
(when (or (eq packages t) (memq name packages))
|
|
|
|
|
|
(dolist (pkg (cdr elt))
|
|
|
|
|
|
;; Hide obsolete packages.
|
|
|
|
|
|
(unless (package-installed-p (package-desc-name pkg)
|
|
|
|
|
|
(package-desc-version pkg))
|
|
|
|
|
|
(funcall function pkg)))))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package--has-keyword-p (desc &optional keywords)
|
|
|
|
|
|
"Test if package DESC has any of the given KEYWORDS.
|
|
|
|
|
|
When none are given, the package matches."
|
|
|
|
|
|
(if keywords
|
2015-04-20 06:20:54 +00:00
|
|
|
|
(let ((desc-keywords (and desc (package-desc--keywords desc)))
|
|
|
|
|
|
found)
|
|
|
|
|
|
(while (and (not found) keywords)
|
|
|
|
|
|
(let ((k (pop keywords)))
|
|
|
|
|
|
(setq found
|
|
|
|
|
|
(or (string= k (concat "arc:" (package-desc-archive desc)))
|
|
|
|
|
|
(string= k (concat "status:" (package-desc-status desc)))
|
|
|
|
|
|
(member k desc-keywords)))))
|
2013-12-14 19:55:19 +00:00
|
|
|
|
found)
|
|
|
|
|
|
t))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package-menu--generate (remember-pos packages &optional keywords)
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
"Populate the Package Menu.
|
2019-08-22 17:15:30 +00:00
|
|
|
|
If REMEMBER-POS is non-nil, keep point on the same entry.
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
PACKAGES should be t, which means to display all known packages,
|
2013-12-14 19:55:19 +00:00
|
|
|
|
or a list of package names (symbols) to display.
|
|
|
|
|
|
|
|
|
|
|
|
With KEYWORDS given, only packages with those keywords are
|
|
|
|
|
|
shown."
|
|
|
|
|
|
(package-menu--refresh packages keywords)
|
|
|
|
|
|
(setf (car (aref tabulated-list-format 0))
|
|
|
|
|
|
(if keywords
|
2019-01-22 22:54:29 +00:00
|
|
|
|
(let ((filters (mapconcat #'identity keywords ",")))
|
2013-12-14 19:55:19 +00:00
|
|
|
|
(concat "Package[" filters "]"))
|
|
|
|
|
|
"Package"))
|
|
|
|
|
|
(if keywords
|
|
|
|
|
|
(define-key package-menu-mode-map "q" 'package-show-package-list)
|
|
|
|
|
|
(define-key package-menu-mode-map "q" 'quit-window))
|
|
|
|
|
|
(tabulated-list-init-header)
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(tabulated-list-print remember-pos))
|
2011-04-06 20:33:30 +00:00
|
|
|
|
|
|
|
|
|
|
(defun package-menu--print-info (pkg)
|
|
|
|
|
|
"Return a package entry suitable for `tabulated-list-entries'.
|
2013-06-14 03:20:18 +00:00
|
|
|
|
PKG has the form (PKG-DESC . STATUS).
|
|
|
|
|
|
Return (PKG-DESC [NAME VERSION STATUS DOC])."
|
2015-04-30 01:27:10 +00:00
|
|
|
|
(package-menu--print-info-simple (car pkg)))
|
|
|
|
|
|
(make-obsolete 'package-menu--print-info
|
|
|
|
|
|
'package-menu--print-info-simple "25.1")
|
|
|
|
|
|
|
2015-08-06 08:37:27 +00:00
|
|
|
|
|
|
|
|
|
|
;;; Package menu faces
|
2015-09-06 13:14:43 +00:00
|
|
|
|
(defface package-name
|
2015-08-06 08:37:27 +00:00
|
|
|
|
'((t :inherit link))
|
|
|
|
|
|
"Face used on package names in the package menu."
|
|
|
|
|
|
:version "25.1")
|
|
|
|
|
|
|
2015-09-06 13:14:43 +00:00
|
|
|
|
(defface package-description
|
2015-08-06 08:37:27 +00:00
|
|
|
|
'((t :inherit default))
|
|
|
|
|
|
"Face used on package description summaries in the package menu."
|
|
|
|
|
|
:version "25.1")
|
|
|
|
|
|
|
2016-07-13 15:54:57 +00:00
|
|
|
|
;; Shame this hyphenates "built-in", when "font-lock-builtin-face" doesn't.
|
2015-09-06 13:14:43 +00:00
|
|
|
|
(defface package-status-built-in
|
2015-08-06 08:37:27 +00:00
|
|
|
|
'((t :inherit font-lock-builtin-face))
|
|
|
|
|
|
"Face used on the status and version of built-in packages."
|
|
|
|
|
|
:version "25.1")
|
|
|
|
|
|
|
2015-09-06 13:14:43 +00:00
|
|
|
|
(defface package-status-external
|
2016-07-13 15:54:57 +00:00
|
|
|
|
'((t :inherit package-status-built-in))
|
2015-08-06 08:37:27 +00:00
|
|
|
|
"Face used on the status and version of external packages."
|
|
|
|
|
|
:version "25.1")
|
|
|
|
|
|
|
2015-09-06 13:14:43 +00:00
|
|
|
|
(defface package-status-available
|
2015-08-06 08:37:27 +00:00
|
|
|
|
'((t :inherit default))
|
|
|
|
|
|
"Face used on the status and version of available packages."
|
|
|
|
|
|
:version "25.1")
|
|
|
|
|
|
|
2015-09-06 13:14:43 +00:00
|
|
|
|
(defface package-status-new
|
|
|
|
|
|
'((t :inherit (bold package-status-available)))
|
2015-08-06 08:37:27 +00:00
|
|
|
|
"Face used on the status and version of new packages."
|
|
|
|
|
|
:version "25.1")
|
|
|
|
|
|
|
2015-09-06 13:14:43 +00:00
|
|
|
|
(defface package-status-held
|
2015-08-06 08:37:27 +00:00
|
|
|
|
'((t :inherit font-lock-constant-face))
|
|
|
|
|
|
"Face used on the status and version of held packages."
|
|
|
|
|
|
:version "25.1")
|
|
|
|
|
|
|
2015-09-06 13:14:43 +00:00
|
|
|
|
(defface package-status-disabled
|
2015-08-06 08:37:27 +00:00
|
|
|
|
'((t :inherit font-lock-warning-face))
|
|
|
|
|
|
"Face used on the status and version of disabled packages."
|
|
|
|
|
|
:version "25.1")
|
|
|
|
|
|
|
2015-09-06 13:14:43 +00:00
|
|
|
|
(defface package-status-installed
|
2015-08-06 08:37:27 +00:00
|
|
|
|
'((t :inherit font-lock-comment-face))
|
|
|
|
|
|
"Face used on the status and version of installed packages."
|
|
|
|
|
|
:version "25.1")
|
|
|
|
|
|
|
2015-09-06 13:14:43 +00:00
|
|
|
|
(defface package-status-dependency
|
|
|
|
|
|
'((t :inherit package-status-installed))
|
2015-08-06 08:37:27 +00:00
|
|
|
|
"Face used on the status and version of dependency packages."
|
|
|
|
|
|
:version "25.1")
|
|
|
|
|
|
|
2015-09-06 13:14:43 +00:00
|
|
|
|
(defface package-status-unsigned
|
2015-08-06 08:37:27 +00:00
|
|
|
|
'((t :inherit font-lock-warning-face))
|
|
|
|
|
|
"Face used on the status and version of unsigned packages."
|
|
|
|
|
|
:version "25.1")
|
|
|
|
|
|
|
2015-09-06 13:14:43 +00:00
|
|
|
|
(defface package-status-incompat
|
2017-05-04 10:47:45 +00:00
|
|
|
|
'((t :inherit error))
|
2015-08-06 08:37:27 +00:00
|
|
|
|
"Face used on the status and version of incompat packages."
|
|
|
|
|
|
:version "25.1")
|
|
|
|
|
|
|
2015-09-06 13:14:43 +00:00
|
|
|
|
(defface package-status-avail-obso
|
|
|
|
|
|
'((t :inherit package-status-incompat))
|
2015-08-06 08:37:27 +00:00
|
|
|
|
"Face used on the status and version of avail-obso packages."
|
|
|
|
|
|
:version "25.1")
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;; Package menu printing
|
2015-04-30 01:27:10 +00:00
|
|
|
|
(defun package-menu--print-info-simple (pkg)
|
|
|
|
|
|
"Return a package entry suitable for `tabulated-list-entries'.
|
2017-05-19 13:42:57 +00:00
|
|
|
|
PKG is a `package-desc' object.
|
2015-04-30 01:27:10 +00:00
|
|
|
|
Return (PKG-DESC [NAME VERSION STATUS DOC])."
|
|
|
|
|
|
(let* ((status (package-desc-status pkg))
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(face (pcase status
|
2018-10-26 23:48:35 +00:00
|
|
|
|
("built-in" 'package-status-built-in)
|
|
|
|
|
|
("external" 'package-status-external)
|
|
|
|
|
|
("available" 'package-status-available)
|
|
|
|
|
|
("avail-obso" 'package-status-avail-obso)
|
|
|
|
|
|
("new" 'package-status-new)
|
|
|
|
|
|
("held" 'package-status-held)
|
|
|
|
|
|
("disabled" 'package-status-disabled)
|
|
|
|
|
|
("installed" 'package-status-installed)
|
|
|
|
|
|
("dependency" 'package-status-dependency)
|
|
|
|
|
|
("unsigned" 'package-status-unsigned)
|
|
|
|
|
|
("incompat" 'package-status-incompat)
|
2014-01-22 19:22:45 +00:00
|
|
|
|
(_ 'font-lock-warning-face)))) ; obsolete.
|
2015-04-30 01:27:10 +00:00
|
|
|
|
(list pkg
|
|
|
|
|
|
`[(,(symbol-name (package-desc-name pkg))
|
2015-09-06 13:14:43 +00:00
|
|
|
|
face package-name
|
|
|
|
|
|
font-lock-face package-name
|
2015-04-30 01:27:10 +00:00
|
|
|
|
follow-link t
|
|
|
|
|
|
package-desc ,pkg
|
|
|
|
|
|
action package-menu-describe-package)
|
2014-01-22 19:22:45 +00:00
|
|
|
|
,(propertize (package-version-join
|
2015-04-30 01:27:10 +00:00
|
|
|
|
(package-desc-version pkg))
|
2014-01-22 19:22:45 +00:00
|
|
|
|
'font-lock-face face)
|
|
|
|
|
|
,(propertize status 'font-lock-face face)
|
|
|
|
|
|
,@(if (cdr package-archives)
|
2015-04-30 01:27:10 +00:00
|
|
|
|
(list (propertize (or (package-desc-archive pkg) "")
|
2014-01-22 19:22:45 +00:00
|
|
|
|
'font-lock-face face)))
|
2015-08-06 08:37:27 +00:00
|
|
|
|
,(propertize (package-desc-summary pkg)
|
2015-09-06 13:14:43 +00:00
|
|
|
|
'font-lock-face 'package-description)])))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2015-04-26 21:03:21 +00:00
|
|
|
|
(defvar package-menu--old-archive-contents nil
|
|
|
|
|
|
"`package-archive-contents' before the latest refresh.")
|
|
|
|
|
|
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(defun package-menu-refresh ()
|
2019-07-17 17:55:08 +00:00
|
|
|
|
"In Package Menu, download the Emacs Lisp package archive.
|
|
|
|
|
|
Fetch the contents of each archive specified in
|
|
|
|
|
|
`package-archives', and then refresh the package menu. Signal a
|
|
|
|
|
|
user-error if there is already a refresh running asynchronously."
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(interactive)
|
2011-09-15 01:57:54 +00:00
|
|
|
|
(unless (derived-mode-p 'package-menu-mode)
|
2013-09-17 15:52:31 +00:00
|
|
|
|
(user-error "The current buffer is not a Package Menu"))
|
2019-07-17 17:55:08 +00:00
|
|
|
|
(when (and package-menu-async package--downloads-in-progress)
|
|
|
|
|
|
(user-error "Package refresh is already in progress, please wait..."))
|
2015-04-12 02:55:21 +00:00
|
|
|
|
(setq package-menu--old-archive-contents package-archive-contents)
|
|
|
|
|
|
(setq package-menu--new-package-list nil)
|
|
|
|
|
|
(package-refresh-contents package-menu-async))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2015-06-22 18:00:55 +00:00
|
|
|
|
(defun package-menu-hide-package ()
|
|
|
|
|
|
"Hide a package under point.
|
|
|
|
|
|
If optional arg BUTTON is non-nil, describe its associated package."
|
|
|
|
|
|
(interactive)
|
|
|
|
|
|
(declare (interactive-only "change `package-hidden-regexps' instead."))
|
|
|
|
|
|
(let* ((name (when (derived-mode-p 'package-menu-mode)
|
|
|
|
|
|
(concat "\\`" (regexp-quote (symbol-name (package-desc-name
|
|
|
|
|
|
(tabulated-list-get-id)))))))
|
|
|
|
|
|
(re (read-string "Hide packages matching regexp: " name)))
|
|
|
|
|
|
;; Test if it is valid.
|
|
|
|
|
|
(string-match re "")
|
|
|
|
|
|
(push re package-hidden-regexps)
|
|
|
|
|
|
(customize-save-variable 'package-hidden-regexps package-hidden-regexps)
|
|
|
|
|
|
(package-menu--post-refresh)
|
|
|
|
|
|
(let ((hidden
|
|
|
|
|
|
(cl-remove-if-not (lambda (e) (string-match re (symbol-name (car e))))
|
|
|
|
|
|
package-archive-contents)))
|
2018-06-20 16:19:00 +00:00
|
|
|
|
(message "Packages to hide: %d. Type `%s' to toggle or `%s' to customize"
|
|
|
|
|
|
(length hidden)
|
|
|
|
|
|
(substitute-command-keys "\\[package-menu-toggle-hidding]")
|
|
|
|
|
|
(substitute-command-keys "\\[customize-variable] RET package-hidden-regexps")))))
|
|
|
|
|
|
|
2015-06-22 18:00:55 +00:00
|
|
|
|
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(defun package-menu-describe-package (&optional button)
|
|
|
|
|
|
"Describe the current package.
|
|
|
|
|
|
If optional arg BUTTON is non-nil, describe its associated package."
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(interactive)
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(let ((pkg-desc (if button (button-get button 'package-desc)
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(tabulated-list-get-id))))
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(if pkg-desc
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(describe-package pkg-desc)
|
2013-09-17 15:52:31 +00:00
|
|
|
|
(user-error "No package here"))))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
|
|
|
|
|
;; fixme numeric argument
|
lisp/*: Add declarations, remove unused bindings, mark unused args.
* lisp/avoid.el (mouse-avoidance-mode): Mark unused arg.
(mouse-avoidance-nudge-mouse): Remove unused binding.
* lisp/imenu.el (imenu-default-goto-function): Mark unused args.
(imenu-progress-message): Remove obsolete macro; all callers changed.
* lisp/mouse.el (mouse-menu-major-mode-map):
* lisp/emacs-lisp/authors.el (authors-scan-change-log)
(authors-add-to-author-list):
* lisp/emacs-lisp/avl-tree.el (avl-tree--enter-balance):
* lisp/emacs-lisp/smie.el (smie-auto-fill):
* lisp/mail/sendmail.el (mail-bury):
* lisp/mail/unrmail.el (unrmail):
* lisp/net/tls.el (open-tls-stream):
* lisp/textmodes/picture.el (picture-mouse-set-point):
Remove unused bindings.
* lisp/subr.el (keymap-canonicalize): Remove unused binding.
(read-passwd): Mark unused arg.
* lisp/tutorial.el (tutorial--display-changes): Remove unused binding.
(tutorial--save-tutorial-to): Remove unused variable.
* lisp/emacs-lisp/package.el (define-package, package-menu-mark-delete)
(package-menu-mark-install, package-menu-mark-unmark): Mark unused args.
(package-generate-autoloads, package-menu--generate)
(package-menu--find-upgrades): Remove unused bindings.
* lisp/emulation/cua-rect.el (cua-restrict-regexp-rectangle)
(cua-restrict-prefix-rectangle): Doc fixes. Remove unused bindings.
(cua--mouse-ignore, cua--delete-rectangle, cua--extract-rectangle)
(cua--indent-rectangle, cua-open-rectangle, cua-close-rectangle)
(cua-blank-rectangle, cua-string-rectangle, cua-replace-in-rectangle)
(cua-incr-rectangle, cua-sequence-rectangle, cua--convert-rectangle-as)
(cua--rectangle-aux-replace, cua--left-fill-rectangle)
(cua-scroll-rectangle-up, cua-scroll-rectangle-down)
(cua-delete-char-rectangle): Mark unused args.
(cua-align-rectangle): Remove unused binding.
* lisp/mail/rmail.el (compilation--message->loc)
(epa--find-coding-system-for-mime-charset): Declare.
* lisp/net/dbus.el (dbus-register-service): Declare.
(dbus-name-owner-changed-handler): Remove unused binding.
* lisp/nxml/nxml-mode.el (nxml-electric-slash, nxml-in-mixed-content-p)
(nxml-compute-indent-from-matching-start-tag): Remove unused variables.
(nxml-scan-backward-within): Mark unused arg.
(nxml-dynamic-markup-word): Remove unused binding.
2012-04-19 17:20:26 +00:00
|
|
|
|
(defun package-menu-mark-delete (&optional _num)
|
2010-06-17 02:08:10 +00:00
|
|
|
|
"Mark a package for deletion and move to the next line."
|
|
|
|
|
|
(interactive "p")
|
2015-02-03 13:56:13 +00:00
|
|
|
|
(if (member (package-menu-get-status)
|
|
|
|
|
|
'("installed" "dependency" "obsolete" "unsigned"))
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(tabulated-list-put-tag "D" t)
|
2010-11-03 23:21:51 +00:00
|
|
|
|
(forward-line)))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
lisp/*: Add declarations, remove unused bindings, mark unused args.
* lisp/avoid.el (mouse-avoidance-mode): Mark unused arg.
(mouse-avoidance-nudge-mouse): Remove unused binding.
* lisp/imenu.el (imenu-default-goto-function): Mark unused args.
(imenu-progress-message): Remove obsolete macro; all callers changed.
* lisp/mouse.el (mouse-menu-major-mode-map):
* lisp/emacs-lisp/authors.el (authors-scan-change-log)
(authors-add-to-author-list):
* lisp/emacs-lisp/avl-tree.el (avl-tree--enter-balance):
* lisp/emacs-lisp/smie.el (smie-auto-fill):
* lisp/mail/sendmail.el (mail-bury):
* lisp/mail/unrmail.el (unrmail):
* lisp/net/tls.el (open-tls-stream):
* lisp/textmodes/picture.el (picture-mouse-set-point):
Remove unused bindings.
* lisp/subr.el (keymap-canonicalize): Remove unused binding.
(read-passwd): Mark unused arg.
* lisp/tutorial.el (tutorial--display-changes): Remove unused binding.
(tutorial--save-tutorial-to): Remove unused variable.
* lisp/emacs-lisp/package.el (define-package, package-menu-mark-delete)
(package-menu-mark-install, package-menu-mark-unmark): Mark unused args.
(package-generate-autoloads, package-menu--generate)
(package-menu--find-upgrades): Remove unused bindings.
* lisp/emulation/cua-rect.el (cua-restrict-regexp-rectangle)
(cua-restrict-prefix-rectangle): Doc fixes. Remove unused bindings.
(cua--mouse-ignore, cua--delete-rectangle, cua--extract-rectangle)
(cua--indent-rectangle, cua-open-rectangle, cua-close-rectangle)
(cua-blank-rectangle, cua-string-rectangle, cua-replace-in-rectangle)
(cua-incr-rectangle, cua-sequence-rectangle, cua--convert-rectangle-as)
(cua--rectangle-aux-replace, cua--left-fill-rectangle)
(cua-scroll-rectangle-up, cua-scroll-rectangle-down)
(cua-delete-char-rectangle): Mark unused args.
(cua-align-rectangle): Remove unused binding.
* lisp/mail/rmail.el (compilation--message->loc)
(epa--find-coding-system-for-mime-charset): Declare.
* lisp/net/dbus.el (dbus-register-service): Declare.
(dbus-name-owner-changed-handler): Remove unused binding.
* lisp/nxml/nxml-mode.el (nxml-electric-slash, nxml-in-mixed-content-p)
(nxml-compute-indent-from-matching-start-tag): Remove unused variables.
(nxml-scan-backward-within): Mark unused arg.
(nxml-dynamic-markup-word): Remove unused binding.
2012-04-19 17:20:26 +00:00
|
|
|
|
(defun package-menu-mark-install (&optional _num)
|
2010-06-17 02:08:10 +00:00
|
|
|
|
"Mark a package for installation and move to the next line."
|
|
|
|
|
|
(interactive "p")
|
2015-04-21 10:35:40 +00:00
|
|
|
|
(if (member (package-menu-get-status) '("available" "avail-obso" "new" "dependency"))
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(tabulated-list-put-tag "I" t)
|
2010-11-03 23:21:51 +00:00
|
|
|
|
(forward-line)))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
lisp/*: Add declarations, remove unused bindings, mark unused args.
* lisp/avoid.el (mouse-avoidance-mode): Mark unused arg.
(mouse-avoidance-nudge-mouse): Remove unused binding.
* lisp/imenu.el (imenu-default-goto-function): Mark unused args.
(imenu-progress-message): Remove obsolete macro; all callers changed.
* lisp/mouse.el (mouse-menu-major-mode-map):
* lisp/emacs-lisp/authors.el (authors-scan-change-log)
(authors-add-to-author-list):
* lisp/emacs-lisp/avl-tree.el (avl-tree--enter-balance):
* lisp/emacs-lisp/smie.el (smie-auto-fill):
* lisp/mail/sendmail.el (mail-bury):
* lisp/mail/unrmail.el (unrmail):
* lisp/net/tls.el (open-tls-stream):
* lisp/textmodes/picture.el (picture-mouse-set-point):
Remove unused bindings.
* lisp/subr.el (keymap-canonicalize): Remove unused binding.
(read-passwd): Mark unused arg.
* lisp/tutorial.el (tutorial--display-changes): Remove unused binding.
(tutorial--save-tutorial-to): Remove unused variable.
* lisp/emacs-lisp/package.el (define-package, package-menu-mark-delete)
(package-menu-mark-install, package-menu-mark-unmark): Mark unused args.
(package-generate-autoloads, package-menu--generate)
(package-menu--find-upgrades): Remove unused bindings.
* lisp/emulation/cua-rect.el (cua-restrict-regexp-rectangle)
(cua-restrict-prefix-rectangle): Doc fixes. Remove unused bindings.
(cua--mouse-ignore, cua--delete-rectangle, cua--extract-rectangle)
(cua--indent-rectangle, cua-open-rectangle, cua-close-rectangle)
(cua-blank-rectangle, cua-string-rectangle, cua-replace-in-rectangle)
(cua-incr-rectangle, cua-sequence-rectangle, cua--convert-rectangle-as)
(cua--rectangle-aux-replace, cua--left-fill-rectangle)
(cua-scroll-rectangle-up, cua-scroll-rectangle-down)
(cua-delete-char-rectangle): Mark unused args.
(cua-align-rectangle): Remove unused binding.
* lisp/mail/rmail.el (compilation--message->loc)
(epa--find-coding-system-for-mime-charset): Declare.
* lisp/net/dbus.el (dbus-register-service): Declare.
(dbus-name-owner-changed-handler): Remove unused binding.
* lisp/nxml/nxml-mode.el (nxml-electric-slash, nxml-in-mixed-content-p)
(nxml-compute-indent-from-matching-start-tag): Remove unused variables.
(nxml-scan-backward-within): Mark unused arg.
(nxml-dynamic-markup-word): Remove unused binding.
2012-04-19 17:20:26 +00:00
|
|
|
|
(defun package-menu-mark-unmark (&optional _num)
|
2010-06-17 02:08:10 +00:00
|
|
|
|
"Clear any marks on a package and move to the next line."
|
|
|
|
|
|
(interactive "p")
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(tabulated-list-put-tag " " t))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
|
|
|
|
|
(defun package-menu-backup-unmark ()
|
|
|
|
|
|
"Back up one line and clear any marks on that package."
|
|
|
|
|
|
(interactive)
|
|
|
|
|
|
(forward-line -1)
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(tabulated-list-put-tag " "))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
|
|
|
|
|
(defun package-menu-mark-obsolete-for-deletion ()
|
|
|
|
|
|
"Mark all obsolete packages for deletion."
|
|
|
|
|
|
(interactive)
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(while (not (eobp))
|
2011-09-15 01:57:54 +00:00
|
|
|
|
(if (equal (package-menu-get-status) "obsolete")
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(tabulated-list-put-tag "D" t)
|
|
|
|
|
|
(forward-line 1)))))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2015-04-12 02:08:21 +00:00
|
|
|
|
(defvar package--quick-help-keys
|
|
|
|
|
|
'(("install," "delete," "unmark," ("execute" . 1))
|
|
|
|
|
|
("next," "previous")
|
2015-07-17 18:25:39 +00:00
|
|
|
|
("Hide-package," "(-toggle-hidden")
|
|
|
|
|
|
("refresh-contents," "g-redisplay," "filter," "help")))
|
2015-04-12 02:08:21 +00:00
|
|
|
|
|
|
|
|
|
|
(defun package--prettify-quick-help-key (desc)
|
|
|
|
|
|
"Prettify DESC to be displayed as a help menu."
|
|
|
|
|
|
(if (listp desc)
|
|
|
|
|
|
(if (listp (cdr desc))
|
|
|
|
|
|
(mapconcat #'package--prettify-quick-help-key desc " ")
|
|
|
|
|
|
(let ((place (cdr desc))
|
|
|
|
|
|
(out (car desc)))
|
|
|
|
|
|
(add-text-properties place (1+ place)
|
2015-07-17 18:25:39 +00:00
|
|
|
|
'(face (bold font-lock-warning-face))
|
2015-04-12 02:08:21 +00:00
|
|
|
|
out)
|
|
|
|
|
|
out))
|
|
|
|
|
|
(package--prettify-quick-help-key (cons desc 0))))
|
|
|
|
|
|
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(defun package-menu-quick-help ()
|
2015-04-12 02:08:21 +00:00
|
|
|
|
"Show short key binding help for `package-menu-mode'.
|
|
|
|
|
|
The full list of keys can be viewed with \\[describe-mode]."
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(interactive)
|
2015-04-12 02:08:21 +00:00
|
|
|
|
(message (mapconcat #'package--prettify-quick-help-key
|
|
|
|
|
|
package--quick-help-keys "\n")))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2010-08-26 03:31:34 +00:00
|
|
|
|
(define-obsolete-function-alias
|
|
|
|
|
|
'package-menu-view-commentary 'package-menu-describe-package "24.1")
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
|
|
|
|
|
(defun package-menu-get-status ()
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(let* ((id (tabulated-list-get-id))
|
2015-05-26 08:57:17 +00:00
|
|
|
|
(entry (and id (assoc id tabulated-list-entries))))
|
2011-09-15 01:57:54 +00:00
|
|
|
|
(if entry
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(aref (cadr entry) 2)
|
2010-06-17 02:08:10 +00:00
|
|
|
|
"")))
|
|
|
|
|
|
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(defun package-archive-priority (archive)
|
|
|
|
|
|
"Return the priority of ARCHIVE.
|
|
|
|
|
|
|
|
|
|
|
|
The archive priorities are specified in
|
2019-08-22 17:15:30 +00:00
|
|
|
|
`package-archive-priorities'. If not given there, the priority
|
2015-03-28 20:36:14 +00:00
|
|
|
|
defaults to 0."
|
|
|
|
|
|
(or (cdr (assoc archive package-archive-priorities))
|
|
|
|
|
|
0))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package-desc-priority-version (pkg-desc)
|
|
|
|
|
|
"Return the version PKG-DESC with the archive priority prepended.
|
|
|
|
|
|
|
|
|
|
|
|
This allows for easy comparison of package versions from
|
|
|
|
|
|
different archives if archive priorities are meant to be taken in
|
|
|
|
|
|
consideration."
|
2015-04-22 08:31:16 +00:00
|
|
|
|
(cons (package-desc-priority pkg-desc)
|
2015-03-28 20:36:14 +00:00
|
|
|
|
(package-desc-version pkg-desc)))
|
|
|
|
|
|
|
2011-09-15 01:57:54 +00:00
|
|
|
|
(defun package-menu--find-upgrades ()
|
|
|
|
|
|
(let (installed available upgrades)
|
|
|
|
|
|
;; Build list of installed/available packages in this buffer.
|
|
|
|
|
|
(dolist (entry tabulated-list-entries)
|
2013-06-14 03:20:18 +00:00
|
|
|
|
;; ENTRY is (PKG-DESC [NAME VERSION STATUS DOC])
|
|
|
|
|
|
(let ((pkg-desc (car entry))
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(status (aref (cadr entry) 2)))
|
2015-02-03 13:56:13 +00:00
|
|
|
|
(cond ((member status '("installed" "dependency" "unsigned"))
|
2014-12-07 21:28:38 +00:00
|
|
|
|
(push pkg-desc installed))
|
|
|
|
|
|
((member status '("available" "new"))
|
2015-01-18 12:13:07 +00:00
|
|
|
|
(setq available (package--append-to-alist pkg-desc available))))))
|
2013-06-14 03:20:18 +00:00
|
|
|
|
;; Loop through list of installed packages, finding upgrades.
|
|
|
|
|
|
(dolist (pkg-desc installed)
|
2014-12-07 21:28:38 +00:00
|
|
|
|
(let* ((name (package-desc-name pkg-desc))
|
|
|
|
|
|
(avail-pkg (cadr (assq name available))))
|
|
|
|
|
|
(and avail-pkg
|
|
|
|
|
|
(version-list-< (package-desc-priority-version pkg-desc)
|
|
|
|
|
|
(package-desc-priority-version avail-pkg))
|
|
|
|
|
|
(push (cons name avail-pkg) upgrades))))
|
2011-09-15 01:57:54 +00:00
|
|
|
|
upgrades))
|
|
|
|
|
|
|
2015-05-26 08:57:17 +00:00
|
|
|
|
(defvar package-menu--mark-upgrades-pending nil
|
|
|
|
|
|
"Whether mark-upgrades is waiting for a refresh to finish.")
|
|
|
|
|
|
|
|
|
|
|
|
(defun package-menu--mark-upgrades-1 ()
|
2011-09-15 01:57:54 +00:00
|
|
|
|
"Mark all upgradable packages in the Package Menu.
|
2015-05-26 08:57:17 +00:00
|
|
|
|
Implementation of `package-menu-mark-upgrades'."
|
2011-09-15 01:57:54 +00:00
|
|
|
|
(unless (derived-mode-p 'package-menu-mode)
|
|
|
|
|
|
(error "The current buffer is not a Package Menu"))
|
2015-05-26 08:57:17 +00:00
|
|
|
|
(setq package-menu--mark-upgrades-pending nil)
|
2011-09-15 01:57:54 +00:00
|
|
|
|
(let ((upgrades (package-menu--find-upgrades)))
|
|
|
|
|
|
(if (null upgrades)
|
2018-06-20 16:19:00 +00:00
|
|
|
|
(message "No packages to upgrade")
|
2011-09-15 01:57:54 +00:00
|
|
|
|
(widen)
|
|
|
|
|
|
(save-excursion
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(while (not (eobp))
|
|
|
|
|
|
(let* ((pkg-desc (tabulated-list-get-id))
|
|
|
|
|
|
(upgrade (cdr (assq (package-desc-name pkg-desc) upgrades))))
|
|
|
|
|
|
(cond ((null upgrade)
|
|
|
|
|
|
(forward-line 1))
|
|
|
|
|
|
((equal pkg-desc upgrade)
|
|
|
|
|
|
(package-menu-mark-install))
|
|
|
|
|
|
(t
|
|
|
|
|
|
(package-menu-mark-delete))))))
|
2018-06-20 16:19:00 +00:00
|
|
|
|
(message "Packages marked for upgrading: %d"
|
|
|
|
|
|
(length upgrades)))))
|
|
|
|
|
|
|
2015-05-26 08:57:17 +00:00
|
|
|
|
|
|
|
|
|
|
(defun package-menu-mark-upgrades ()
|
|
|
|
|
|
"Mark all upgradable packages in the Package Menu.
|
|
|
|
|
|
For each installed package with a newer version available, place
|
|
|
|
|
|
an (I)nstall flag on the available version and a (D)elete flag on
|
|
|
|
|
|
the installed version. A subsequent \\[package-menu-execute]
|
|
|
|
|
|
call will upgrade the package.
|
|
|
|
|
|
|
|
|
|
|
|
If there's an async refresh operation in progress, the flags will
|
|
|
|
|
|
be placed as part of `package-menu--post-refresh' instead of
|
|
|
|
|
|
immediately."
|
|
|
|
|
|
(interactive)
|
|
|
|
|
|
(if (not package--downloads-in-progress)
|
|
|
|
|
|
(package-menu--mark-upgrades-1)
|
|
|
|
|
|
(setq package-menu--mark-upgrades-pending t)
|
|
|
|
|
|
(message "Waiting for refresh to finish...")))
|
2011-09-15 01:57:54 +00:00
|
|
|
|
|
2015-04-06 16:05:53 +00:00
|
|
|
|
(defun package-menu--list-to-prompt (packages)
|
|
|
|
|
|
"Return a string listing PACKAGES that's usable in a prompt.
|
|
|
|
|
|
PACKAGES is a list of `package-desc' objects.
|
|
|
|
|
|
Formats the returned string to be usable in a minibuffer
|
|
|
|
|
|
prompt (see `package-menu--prompt-transaction-p')."
|
2018-06-20 16:19:00 +00:00
|
|
|
|
;; The case where `package' is empty is handled in
|
|
|
|
|
|
;; `package-menu--prompt-transaction-p' below.
|
|
|
|
|
|
(format "%d (%s)"
|
|
|
|
|
|
(length packages)
|
|
|
|
|
|
(mapconcat #'package-desc-full-name packages " ")))
|
|
|
|
|
|
|
2015-04-06 16:05:53 +00:00
|
|
|
|
|
2015-05-21 07:57:31 +00:00
|
|
|
|
(defun package-menu--prompt-transaction-p (delete install upgrade)
|
|
|
|
|
|
"Prompt the user about DELETE, INSTALL, and UPGRADE.
|
|
|
|
|
|
DELETE, INSTALL, and UPGRADE are lists of `package-desc' objects.
|
|
|
|
|
|
Either may be nil, but not all."
|
|
|
|
|
|
(y-or-n-p
|
|
|
|
|
|
(concat
|
2018-06-20 16:19:00 +00:00
|
|
|
|
(when delete
|
|
|
|
|
|
(format "Packages to delete: %s. " (package-menu--list-to-prompt delete)))
|
|
|
|
|
|
(when install
|
|
|
|
|
|
(format "Packages to install: %s. " (package-menu--list-to-prompt install)))
|
|
|
|
|
|
(when upgrade
|
|
|
|
|
|
(format "Packages to upgrade: %s. " (package-menu--list-to-prompt upgrade)))
|
|
|
|
|
|
"Proceed? ")))
|
|
|
|
|
|
|
2015-05-21 07:57:31 +00:00
|
|
|
|
|
|
|
|
|
|
(defun package-menu--partition-transaction (install delete)
|
|
|
|
|
|
"Return an alist describing an INSTALL DELETE transaction.
|
|
|
|
|
|
Alist contains three entries, upgrade, delete, and install, each
|
|
|
|
|
|
with a list of package names.
|
|
|
|
|
|
|
|
|
|
|
|
The upgrade entry contains any `package-desc' objects in INSTALL
|
|
|
|
|
|
whose name coincides with an object in DELETE. The delete and
|
|
|
|
|
|
the install entries are the same as DELETE and INSTALL with such
|
|
|
|
|
|
objects removed."
|
2015-04-06 16:05:53 +00:00
|
|
|
|
(let* ((upg (cl-intersection install delete :key #'package-desc-name))
|
|
|
|
|
|
(ins (cl-set-difference install upg :key #'package-desc-name))
|
|
|
|
|
|
(del (cl-set-difference delete upg :key #'package-desc-name)))
|
2015-05-21 07:57:31 +00:00
|
|
|
|
`((delete . ,del) (install . ,ins) (upgrade . ,upg))))
|
2015-04-05 21:44:17 +00:00
|
|
|
|
|
2015-05-20 19:54:20 +00:00
|
|
|
|
(defun package-menu--perform-transaction (install-list delete-list)
|
|
|
|
|
|
"Install packages in INSTALL-LIST and delete DELETE-LIST."
|
2015-04-05 22:39:43 +00:00
|
|
|
|
(if install-list
|
2015-05-21 08:58:45 +00:00
|
|
|
|
(let ((status-format (format ":Installing %%d/%d"
|
|
|
|
|
|
(length install-list)))
|
|
|
|
|
|
(i 0)
|
|
|
|
|
|
(package-menu--transaction-status))
|
|
|
|
|
|
(dolist (pkg install-list)
|
|
|
|
|
|
(setq package-menu--transaction-status
|
|
|
|
|
|
(format status-format (cl-incf i)))
|
|
|
|
|
|
(force-mode-line-update)
|
|
|
|
|
|
(redisplay 'force)
|
2015-05-21 16:10:40 +00:00
|
|
|
|
;; Don't mark as selected, `package-menu-execute' already
|
|
|
|
|
|
;; does that.
|
2015-06-18 08:23:54 +00:00
|
|
|
|
(package-install pkg 'dont-select))))
|
|
|
|
|
|
(let ((package-menu--transaction-status ":Deleting"))
|
|
|
|
|
|
(force-mode-line-update)
|
|
|
|
|
|
(redisplay 'force)
|
|
|
|
|
|
(dolist (elt (package--sort-by-dependence delete-list))
|
|
|
|
|
|
(condition-case-unless-debug err
|
2019-01-10 19:39:54 +00:00
|
|
|
|
(let ((inhibit-message (or inhibit-message package-menu-async)))
|
2015-06-18 08:23:54 +00:00
|
|
|
|
(package-delete elt nil 'nosave))
|
Go back to grave quoting in source-code docstrings etc.
This reverts almost all my recent changes to use curved quotes
in docstrings and/or strings used for error diagnostics.
There are a few exceptions, e.g., Bahá’í proper names.
* admin/unidata/unidata-gen.el (unidata-gen-table):
* lisp/abbrev.el (expand-region-abbrevs):
* lisp/align.el (align-region):
* lisp/allout.el (allout-mode, allout-solicit-alternate-bullet)
(outlineify-sticky):
* lisp/apropos.el (apropos-library):
* lisp/bookmark.el (bookmark-default-annotation-text):
* lisp/button.el (button-category-symbol, button-put)
(make-text-button):
* lisp/calc/calc-aent.el (math-read-if, math-read-factor):
* lisp/calc/calc-embed.el (calc-do-embedded):
* lisp/calc/calc-ext.el (calc-user-function-list):
* lisp/calc/calc-graph.el (calc-graph-show-dumb):
* lisp/calc/calc-help.el (calc-describe-key)
(calc-describe-thing, calc-full-help):
* lisp/calc/calc-lang.el (calc-c-language)
(math-parse-fortran-vector-end, math-parse-tex-sum)
(math-parse-eqn-matrix, math-parse-eqn-prime)
(calc-yacas-language, calc-maxima-language, calc-giac-language)
(math-read-giac-subscr, math-read-math-subscr)
(math-read-big-rec, math-read-big-balance):
* lisp/calc/calc-misc.el (calc-help, report-calc-bug):
* lisp/calc/calc-mode.el (calc-auto-why, calc-save-modes)
(calc-auto-recompute):
* lisp/calc/calc-prog.el (calc-fix-token-name)
(calc-read-parse-table-part, calc-user-define-invocation)
(math-do-arg-check):
* lisp/calc/calc-store.el (calc-edit-variable):
* lisp/calc/calc-units.el (math-build-units-table-buffer):
* lisp/calc/calc-vec.el (math-read-brackets):
* lisp/calc/calc-yank.el (calc-edit-mode):
* lisp/calc/calc.el (calc, calc-do, calc-user-invocation):
* lisp/calendar/appt.el (appt-display-message):
* lisp/calendar/diary-lib.el (diary-check-diary-file)
(diary-mail-entries, diary-from-outlook):
* lisp/calendar/icalendar.el (icalendar-export-region)
(icalendar--convert-float-to-ical)
(icalendar--convert-date-to-ical)
(icalendar--convert-ical-to-diary)
(icalendar--convert-recurring-to-diary)
(icalendar--add-diary-entry):
* lisp/calendar/time-date.el (format-seconds):
* lisp/calendar/timeclock.el (timeclock-mode-line-display)
(timeclock-make-hours-explicit, timeclock-log-data):
* lisp/calendar/todo-mode.el (todo-prefix, todo-delete-category)
(todo-item-mark, todo-check-format)
(todo-insert-item--next-param, todo-edit-item--next-key)
(todo-mode):
* lisp/cedet/ede/pmake.el (ede-proj-makefile-insert-dist-rules):
* lisp/cedet/mode-local.el (describe-mode-local-overload)
(mode-local-print-binding, mode-local-describe-bindings-2):
* lisp/cedet/semantic/complete.el (semantic-displayor-show-request):
* lisp/cedet/srecode/srt-mode.el (srecode-macro-help):
* lisp/cus-start.el (standard):
* lisp/cus-theme.el (describe-theme-1):
* lisp/custom.el (custom-add-dependencies, custom-check-theme)
(custom--sort-vars-1, load-theme):
* lisp/descr-text.el (describe-text-properties-1, describe-char):
* lisp/dired-x.el (dired-do-run-mail):
* lisp/dired.el (dired-log):
* lisp/emacs-lisp/advice.el (ad-read-advised-function)
(ad-read-advice-class, ad-read-advice-name, ad-enable-advice)
(ad-disable-advice, ad-remove-advice, ad-set-argument)
(ad-set-arguments, ad--defalias-fset, ad-activate)
(ad-deactivate):
* lisp/emacs-lisp/byte-opt.el (byte-compile-inline-expand)
(byte-compile-unfold-lambda, byte-optimize-form-code-walker)
(byte-optimize-while, byte-optimize-apply):
* lisp/emacs-lisp/byte-run.el (defun, defsubst):
* lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode)
(byte-compile-log-file, byte-compile-format-warn)
(byte-compile-nogroup-warn, byte-compile-arglist-warn)
(byte-compile-cl-warn)
(byte-compile-warn-about-unresolved-functions)
(byte-compile-file, byte-compile--declare-var)
(byte-compile-file-form-defmumble, byte-compile-form)
(byte-compile-normal-call, byte-compile-check-variable)
(byte-compile-variable-ref, byte-compile-variable-set)
(byte-compile-subr-wrong-args, byte-compile-setq-default)
(byte-compile-negation-optimizer)
(byte-compile-condition-case--old)
(byte-compile-condition-case--new, byte-compile-save-excursion)
(byte-compile-defvar, byte-compile-autoload)
(byte-compile-lambda-form)
(byte-compile-make-variable-buffer-local, display-call-tree)
(batch-byte-compile):
* lisp/emacs-lisp/cconv.el (cconv-convert, cconv--analyze-use):
* lisp/emacs-lisp/chart.el (chart-space-usage):
* lisp/emacs-lisp/check-declare.el (check-declare-scan)
(check-declare-warn, check-declare-file)
(check-declare-directory):
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine)
(checkdoc-message-text-engine):
* lisp/emacs-lisp/cl-extra.el (cl-parse-integer)
(cl--describe-class):
* lisp/emacs-lisp/cl-generic.el (cl-defgeneric)
(cl--generic-describe, cl-generic-generalizers):
* lisp/emacs-lisp/cl-macs.el (cl--parse-loop-clause, cl-tagbody)
(cl-symbol-macrolet):
* lisp/emacs-lisp/cl.el (cl-unload-function, flet):
* lisp/emacs-lisp/copyright.el (copyright)
(copyright-update-directory):
* lisp/emacs-lisp/edebug.el (edebug-read-list):
* lisp/emacs-lisp/eieio-base.el (eieio-persistent-read):
* lisp/emacs-lisp/eieio-core.el (eieio--slot-override)
(eieio-oref):
* lisp/emacs-lisp/eieio-opt.el (eieio-help-constructor):
* lisp/emacs-lisp/eieio-speedbar.el:
(eieio-speedbar-child-make-tag-lines)
(eieio-speedbar-child-description):
* lisp/emacs-lisp/eieio.el (defclass, change-class):
* lisp/emacs-lisp/elint.el (elint-file, elint-get-top-forms)
(elint-init-form, elint-check-defalias-form)
(elint-check-let-form):
* lisp/emacs-lisp/ert.el (ert-get-test, ert-results-mode-menu)
(ert-results-pop-to-backtrace-for-test-at-point)
(ert-results-pop-to-messages-for-test-at-point)
(ert-results-pop-to-should-forms-for-test-at-point)
(ert-describe-test):
* lisp/emacs-lisp/find-func.el (find-function-search-for-symbol)
(find-function-library):
* lisp/emacs-lisp/generator.el (iter-yield):
* lisp/emacs-lisp/gv.el (gv-define-simple-setter):
* lisp/emacs-lisp/lisp-mnt.el (lm-verify):
* lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning):
* lisp/emacs-lisp/map-ynp.el (map-y-or-n-p):
* lisp/emacs-lisp/nadvice.el (advice--make-docstring)
(advice--make, define-advice):
* lisp/emacs-lisp/package-x.el (package-upload-file):
* lisp/emacs-lisp/package.el (package-version-join)
(package-disabled-p, package-activate-1, package-activate)
(package--download-one-archive)
(package--download-and-read-archives)
(package-compute-transaction, package-install-from-archive)
(package-install, package-install-selected-packages)
(package-delete, package-autoremove, describe-package-1)
(package-install-button-action, package-delete-button-action)
(package-menu-hide-package, package-menu--list-to-prompt)
(package-menu--perform-transaction)
(package-menu--find-and-notify-upgrades):
* lisp/emacs-lisp/pcase.el (pcase-exhaustive, pcase--u1):
* lisp/emacs-lisp/re-builder.el (reb-enter-subexp-mode):
* lisp/emacs-lisp/ring.el (ring-previous, ring-next):
* lisp/emacs-lisp/rx.el (rx-check, rx-anything)
(rx-check-any-string, rx-check-any, rx-check-not, rx-=)
(rx-repeat, rx-check-backref, rx-syntax, rx-check-category)
(rx-form):
* lisp/emacs-lisp/smie.el (smie-config-save):
* lisp/emacs-lisp/subr-x.el (internal--check-binding):
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-put-tag):
* lisp/emacs-lisp/testcover.el (testcover-1value):
* lisp/emacs-lisp/timer.el (timer-event-handler):
* lisp/emulation/viper-cmd.el (viper-toggle-parse-sexp-ignore-comments)
(viper-toggle-search-style, viper-kill-buffer)
(viper-brac-function):
* lisp/emulation/viper-macs.el (viper-record-kbd-macro):
* lisp/env.el (setenv):
* lisp/erc/erc-button.el (erc-nick-popup):
* lisp/erc/erc.el (erc-cmd-LOAD, erc-handle-login, english):
* lisp/eshell/em-dirs.el (eshell/cd):
* lisp/eshell/em-glob.el (eshell-glob-regexp)
(eshell-glob-entries):
* lisp/eshell/em-pred.el (eshell-parse-modifiers):
* lisp/eshell/esh-opt.el (eshell-show-usage):
* lisp/facemenu.el (facemenu-add-new-face)
(facemenu-add-new-color):
* lisp/faces.el (read-face-name, read-face-font, describe-face)
(x-resolve-font-name):
* lisp/files-x.el (modify-file-local-variable):
* lisp/files.el (locate-user-emacs-file, find-alternate-file)
(set-auto-mode, hack-one-local-variable--obsolete)
(dir-locals-set-directory-class, write-file, basic-save-buffer)
(delete-directory, copy-directory, recover-session)
(recover-session-finish, insert-directory)
(file-modes-char-to-who, file-modes-symbolic-to-number)
(move-file-to-trash):
* lisp/filesets.el (filesets-add-buffer, filesets-remove-buffer):
* lisp/find-cmd.el (find-generic, find-to-string):
* lisp/finder.el (finder-commentary):
* lisp/font-lock.el (font-lock-fontify-buffer):
* lisp/format.el (format-write-file, format-find-file)
(format-insert-file):
* lisp/frame.el (get-device-terminal, select-frame-by-name):
* lisp/fringe.el (fringe--check-style):
* lisp/gnus/nnmairix.el (nnmairix-widget-create-query):
* lisp/help-fns.el (help-fns--key-bindings)
(help-fns--compiler-macro, help-fns--parent-mode)
(help-fns--obsolete, help-fns--interactive-only)
(describe-function-1, describe-variable):
* lisp/help.el (describe-mode)
(describe-minor-mode-from-indicator):
* lisp/image.el (image-type):
* lisp/international/ccl.el (ccl-dump):
* lisp/international/fontset.el (x-must-resolve-font-name):
* lisp/international/mule-cmds.el (prefer-coding-system)
(select-safe-coding-system-interactively)
(select-safe-coding-system, activate-input-method)
(toggle-input-method, describe-current-input-method)
(describe-language-environment):
* lisp/international/mule-conf.el (code-offset):
* lisp/international/mule-diag.el (describe-character-set)
(list-input-methods-1):
* lisp/mail/feedmail.el (feedmail-run-the-queue):
* lisp/mouse.el (minor-mode-menu-from-indicator):
* lisp/mpc.el (mpc-playlist-rename):
* lisp/msb.el (msb--choose-menu):
* lisp/net/ange-ftp.el (ange-ftp-shell-command):
* lisp/net/imap.el (imap-interactive-login):
* lisp/net/mairix.el (mairix-widget-create-query):
* lisp/net/newst-backend.el (newsticker--sentinel-work):
* lisp/net/newst-treeview.el (newsticker--treeview-load):
* lisp/net/rlogin.el (rlogin):
* lisp/obsolete/iswitchb.el (iswitchb-possible-new-buffer):
* lisp/obsolete/otodo-mode.el (todo-more-important-p):
* lisp/obsolete/pgg-gpg.el (pgg-gpg-process-region):
* lisp/obsolete/pgg-pgp.el (pgg-pgp-process-region):
* lisp/obsolete/pgg-pgp5.el (pgg-pgp5-process-region):
* lisp/org/ob-core.el (org-babel-goto-named-src-block)
(org-babel-goto-named-result):
* lisp/org/ob-fortran.el (org-babel-fortran-ensure-main-wrap):
* lisp/org/ob-ref.el (org-babel-ref-resolve):
* lisp/org/org-agenda.el (org-agenda-prepare):
* lisp/org/org-clock.el (org-clock-notify-once-if-expired)
(org-clock-resolve):
* lisp/org/org-ctags.el (org-ctags-ask-rebuild-tags-file-then-find-tag):
* lisp/org/org-feed.el (org-feed-parse-atom-entry):
* lisp/org/org-habit.el (org-habit-parse-todo):
* lisp/org/org-mouse.el (org-mouse-popup-global-menu)
(org-mouse-context-menu):
* lisp/org/org-table.el (org-table-edit-formulas):
* lisp/org/ox.el (org-export-async-start):
* lisp/proced.el (proced-log):
* lisp/progmodes/ada-mode.el (ada-get-indent-case)
(ada-check-matching-start, ada-goto-matching-start):
* lisp/progmodes/ada-prj.el (ada-prj-display-page):
* lisp/progmodes/ada-xref.el (ada-find-executable):
* lisp/progmodes/ebrowse.el (ebrowse-tags-apropos):
* lisp/progmodes/etags.el (etags-tags-apropos-additional):
* lisp/progmodes/flymake.el (flymake-parse-err-lines)
(flymake-start-syntax-check-process):
* lisp/progmodes/python.el (python-shell-get-process-or-error)
(python-define-auxiliary-skeleton):
* lisp/progmodes/sql.el (sql-comint):
* lisp/progmodes/verilog-mode.el (verilog-load-file-at-point):
* lisp/progmodes/vhdl-mode.el (vhdl-widget-directory-validate):
* lisp/recentf.el (recentf-open-files):
* lisp/replace.el (query-replace-read-from)
(occur-after-change-function, occur-1):
* lisp/scroll-bar.el (scroll-bar-columns):
* lisp/server.el (server-get-auth-key):
* lisp/simple.el (execute-extended-command)
(undo-outer-limit-truncate, list-processes--refresh)
(compose-mail, set-variable, choose-completion-string)
(define-alternatives):
* lisp/startup.el (site-run-file, tty-handle-args, command-line)
(command-line-1):
* lisp/subr.el (noreturn, define-error, add-to-list)
(read-char-choice, version-to-list):
* lisp/term/common-win.el (x-handle-xrm-switch)
(x-handle-name-switch, x-handle-args):
* lisp/term/x-win.el (x-handle-parent-id, x-handle-smid):
* lisp/textmodes/reftex-ref.el (reftex-label):
* lisp/textmodes/reftex-toc.el (reftex-toc-rename-label):
* lisp/textmodes/two-column.el (2C-split):
* lisp/tutorial.el (tutorial--describe-nonstandard-key)
(tutorial--find-changed-keys):
* lisp/type-break.el (type-break-noninteractive-query):
* lisp/wdired.el (wdired-do-renames, wdired-do-symlink-changes)
(wdired-do-perm-changes):
* lisp/whitespace.el (whitespace-report-region):
Prefer grave quoting in source-code strings used to generate help
and diagnostics.
* lisp/faces.el (face-documentation):
No need to convert quotes, since the result is a docstring.
* lisp/info.el (Info-virtual-index-find-node)
(Info-virtual-index, info-apropos):
Simplify by generating only curved quotes, since info files are
typically that ways nowadays anyway.
* lisp/international/mule-diag.el (list-input-methods):
Don’t assume text quoting style is curved.
* lisp/org/org-bibtex.el (org-bibtex-fields):
Revert my recent changes, going back to the old quoting style.
2015-09-07 15:41:44 +00:00
|
|
|
|
(error (message "Error trying to delete `%s': %S"
|
2015-06-18 08:23:54 +00:00
|
|
|
|
(package-desc-full-name elt)
|
|
|
|
|
|
err))))))
|
2015-04-05 22:39:43 +00:00
|
|
|
|
|
2015-05-23 09:13:02 +00:00
|
|
|
|
(defun package--update-selected-packages (add remove)
|
|
|
|
|
|
"Update the `package-selected-packages' list according to ADD and REMOVE.
|
|
|
|
|
|
ADD and REMOVE must be disjoint lists of package names (or
|
|
|
|
|
|
`package-desc' objects) to be added and removed to the selected
|
|
|
|
|
|
packages list, respectively."
|
|
|
|
|
|
(dolist (p add)
|
|
|
|
|
|
(cl-pushnew (if (package-desc-p p) (package-desc-name p) p)
|
|
|
|
|
|
package-selected-packages))
|
|
|
|
|
|
(dolist (p remove)
|
|
|
|
|
|
(setq package-selected-packages
|
|
|
|
|
|
(remove (if (package-desc-p p) (package-desc-name p) p)
|
|
|
|
|
|
package-selected-packages)))
|
|
|
|
|
|
(when (or add remove)
|
|
|
|
|
|
(package--save-selected-packages package-selected-packages)))
|
|
|
|
|
|
|
2013-02-13 04:59:06 +00:00
|
|
|
|
(defun package-menu-execute (&optional noquery)
|
2010-11-03 23:21:51 +00:00
|
|
|
|
"Perform marked Package Menu actions.
|
|
|
|
|
|
Packages marked for installation are downloaded and installed;
|
2013-02-13 05:00:45 +00:00
|
|
|
|
packages marked for deletion are removed.
|
|
|
|
|
|
Optional argument NOQUERY non-nil means do not ask the user to confirm."
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(interactive)
|
2011-09-15 01:57:54 +00:00
|
|
|
|
(unless (derived-mode-p 'package-menu-mode)
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(error "The current buffer is not in Package Menu mode"))
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(let (install-list delete-list cmd pkg-desc)
|
2010-11-03 23:21:51 +00:00
|
|
|
|
(save-excursion
|
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(while (not (eobp))
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(setq cmd (char-after))
|
|
|
|
|
|
(unless (eq cmd ?\s)
|
|
|
|
|
|
;; This is the key PKG-DESC.
|
|
|
|
|
|
(setq pkg-desc (tabulated-list-get-id))
|
|
|
|
|
|
(cond ((eq cmd ?D)
|
|
|
|
|
|
(push pkg-desc delete-list))
|
|
|
|
|
|
((eq cmd ?I)
|
|
|
|
|
|
(push pkg-desc install-list))))
|
|
|
|
|
|
(forward-line)))
|
2015-04-05 21:44:17 +00:00
|
|
|
|
(unless (or delete-list install-list)
|
|
|
|
|
|
(user-error "No operations specified"))
|
2015-05-21 07:57:31 +00:00
|
|
|
|
(let-alist (package-menu--partition-transaction install-list delete-list)
|
|
|
|
|
|
(when (or noquery
|
|
|
|
|
|
(package-menu--prompt-transaction-p .delete .install .upgrade))
|
|
|
|
|
|
(let ((message-template
|
2018-06-20 16:19:00 +00:00
|
|
|
|
(concat "[ "
|
|
|
|
|
|
(when .delete
|
|
|
|
|
|
(format "Delete %d " (length .delete)))
|
|
|
|
|
|
(when .install
|
|
|
|
|
|
(format "Install %d " (length .install)))
|
|
|
|
|
|
(when .upgrade
|
|
|
|
|
|
(format "Upgrade %d " (length .upgrade)))
|
2015-05-21 07:57:31 +00:00
|
|
|
|
"]")))
|
2018-06-20 16:19:00 +00:00
|
|
|
|
(message "Operation %s started" message-template)
|
2015-05-21 16:10:40 +00:00
|
|
|
|
;; Packages being upgraded are not marked as selected.
|
2015-05-23 09:13:02 +00:00
|
|
|
|
(package--update-selected-packages .install .delete)
|
2015-05-21 07:57:31 +00:00
|
|
|
|
(package-menu--perform-transaction install-list delete-list)
|
|
|
|
|
|
(when package-selected-packages
|
2017-09-12 17:08:47 +00:00
|
|
|
|
(if-let* ((removable (package--removable-packages)))
|
2018-06-20 16:19:00 +00:00
|
|
|
|
(message "Operation finished. Packages that are no longer needed: %d. Type `%s' to remove them"
|
|
|
|
|
|
(length removable)
|
|
|
|
|
|
(substitute-command-keys "\\[package-autoremove]"))
|
|
|
|
|
|
(message "Operation %s finished" message-template))))))))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(defun package-menu--version-predicate (A B)
|
|
|
|
|
|
(let ((vA (or (aref (cadr A) 1) '(0)))
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(vB (or (aref (cadr B) 1) '(0))))
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(if (version-list-= vA vB)
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(package-menu--name-predicate A B)
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(version-list-< vA vB))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package-menu--status-predicate (A B)
|
|
|
|
|
|
(let ((sA (aref (cadr A) 2))
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(sB (aref (cadr B) 2)))
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(cond ((string= sA sB)
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(package-menu--name-predicate A B))
|
|
|
|
|
|
((string= sA "new") t)
|
|
|
|
|
|
((string= sB "new") nil)
|
2015-04-21 10:35:40 +00:00
|
|
|
|
((string-prefix-p "avail" sA)
|
|
|
|
|
|
(if (string-prefix-p "avail" sB)
|
|
|
|
|
|
(package-menu--name-predicate A B)
|
|
|
|
|
|
t))
|
|
|
|
|
|
((string-prefix-p "avail" sB) nil)
|
2015-02-02 11:55:24 +00:00
|
|
|
|
((string= sA "installed") t)
|
|
|
|
|
|
((string= sB "installed") nil)
|
2015-02-03 13:56:13 +00:00
|
|
|
|
((string= sA "dependency") t)
|
|
|
|
|
|
((string= sB "dependency") nil)
|
2015-02-02 11:55:24 +00:00
|
|
|
|
((string= sA "unsigned") t)
|
|
|
|
|
|
((string= sB "unsigned") nil)
|
|
|
|
|
|
((string= sA "held") t)
|
|
|
|
|
|
((string= sB "held") nil)
|
2015-05-07 15:11:50 +00:00
|
|
|
|
((string= sA "external") t)
|
|
|
|
|
|
((string= sB "external") nil)
|
2015-02-02 11:55:24 +00:00
|
|
|
|
((string= sA "built-in") t)
|
|
|
|
|
|
((string= sB "built-in") nil)
|
|
|
|
|
|
((string= sA "obsolete") t)
|
|
|
|
|
|
((string= sB "obsolete") nil)
|
2015-02-11 14:53:21 +00:00
|
|
|
|
((string= sA "incompat") t)
|
|
|
|
|
|
((string= sB "incompat") nil)
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(t (string< sA sB)))))
|
2011-04-06 20:33:30 +00:00
|
|
|
|
|
|
|
|
|
|
(defun package-menu--description-predicate (A B)
|
|
|
|
|
|
(let ((dA (aref (cadr A) 3))
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(dB (aref (cadr B) 3)))
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(if (string= dA dB)
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(package-menu--name-predicate A B)
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(string< dA dB))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package-menu--name-predicate (A B)
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(string< (symbol-name (package-desc-name (car A)))
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(symbol-name (package-desc-name (car B)))))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2013-11-04 16:04:09 +00:00
|
|
|
|
(defun package-menu--archive-predicate (A B)
|
|
|
|
|
|
(string< (or (package-desc-archive (car A)) "")
|
2015-02-02 11:55:24 +00:00
|
|
|
|
(or (package-desc-archive (car B)) "")))
|
2013-11-04 16:04:09 +00:00
|
|
|
|
|
2015-04-01 10:09:00 +00:00
|
|
|
|
(defun package-menu--populate-new-package-list ()
|
|
|
|
|
|
"Decide which packages are new in `package-archives-contents'.
|
|
|
|
|
|
Store this list in `package-menu--new-package-list'."
|
|
|
|
|
|
;; Find which packages are new.
|
|
|
|
|
|
(when package-menu--old-archive-contents
|
|
|
|
|
|
(dolist (elt package-archive-contents)
|
|
|
|
|
|
(unless (assq (car elt) package-menu--old-archive-contents)
|
|
|
|
|
|
(push (car elt) package-menu--new-package-list)))
|
|
|
|
|
|
(setq package-menu--old-archive-contents nil)))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package-menu--find-and-notify-upgrades ()
|
2015-04-01 17:21:47 +00:00
|
|
|
|
"Notify the user of upgradable packages."
|
2017-09-12 17:08:47 +00:00
|
|
|
|
(when-let* ((upgrades (package-menu--find-upgrades)))
|
2018-06-20 16:19:00 +00:00
|
|
|
|
(message "Packages that can be upgraded: %d; type `%s' to mark for upgrading."
|
|
|
|
|
|
(length upgrades)
|
|
|
|
|
|
(substitute-command-keys "\\[package-menu-mark-upgrades]"))))
|
|
|
|
|
|
|
2015-04-01 10:09:00 +00:00
|
|
|
|
|
|
|
|
|
|
(defun package-menu--post-refresh ()
|
2015-06-17 14:37:51 +00:00
|
|
|
|
"If there's a *Packages* buffer, revert it and check for new packages and upgrades.
|
|
|
|
|
|
Do nothing if there's no *Packages* buffer.
|
|
|
|
|
|
|
|
|
|
|
|
This function is called after `package-refresh-contents' and it
|
|
|
|
|
|
is added to `post-command-hook' by any function which alters the
|
|
|
|
|
|
package database (`package-install' and `package-delete'). When
|
|
|
|
|
|
run, it removes itself from `post-command-hook'."
|
|
|
|
|
|
(remove-hook 'post-command-hook #'package-menu--post-refresh)
|
2015-04-01 10:09:00 +00:00
|
|
|
|
(let ((buf (get-buffer "*Packages*")))
|
|
|
|
|
|
(when (buffer-live-p buf)
|
|
|
|
|
|
(with-current-buffer buf
|
2015-06-17 14:37:51 +00:00
|
|
|
|
(package-menu--populate-new-package-list)
|
2015-05-26 08:57:17 +00:00
|
|
|
|
(run-hooks 'tabulated-list-revert-hook)
|
2015-06-17 14:37:51 +00:00
|
|
|
|
(tabulated-list-print 'remember 'update)))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package-menu--mark-or-notify-upgrades ()
|
|
|
|
|
|
"If there's a *Packages* buffer, check for upgrades and possibly mark them.
|
|
|
|
|
|
Do nothing if there's no *Packages* buffer. If there are
|
|
|
|
|
|
upgrades, mark them if `package-menu--mark-upgrades-pending' is
|
|
|
|
|
|
non-nil, otherwise just notify the user that there are upgrades.
|
|
|
|
|
|
This function is called after `package-refresh-contents'."
|
|
|
|
|
|
(let ((buf (get-buffer "*Packages*")))
|
|
|
|
|
|
(when (buffer-live-p buf)
|
|
|
|
|
|
(with-current-buffer buf
|
2015-05-26 08:57:17 +00:00
|
|
|
|
(if package-menu--mark-upgrades-pending
|
|
|
|
|
|
(package-menu--mark-upgrades-1)
|
|
|
|
|
|
(package-menu--find-and-notify-upgrades))))))
|
2015-04-01 10:09:00 +00:00
|
|
|
|
|
2010-06-17 02:08:10 +00:00
|
|
|
|
;;;###autoload
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(defun list-packages (&optional no-fetch)
|
2010-06-17 02:08:10 +00:00
|
|
|
|
"Display a list of packages.
|
2011-04-06 20:33:30 +00:00
|
|
|
|
This first fetches the updated list of packages before
|
|
|
|
|
|
displaying, unless a prefix argument NO-FETCH is specified.
|
2017-11-24 14:49:10 +00:00
|
|
|
|
The list is displayed in a buffer named `*Packages*', and
|
|
|
|
|
|
includes the package's version, availability status, and a
|
|
|
|
|
|
short description."
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(interactive "P")
|
|
|
|
|
|
(require 'finder-inf nil t)
|
2010-10-31 00:06:18 +00:00
|
|
|
|
;; Initialize the package system if necessary.
|
2010-11-03 03:25:36 +00:00
|
|
|
|
(unless package--initialized
|
|
|
|
|
|
(package-initialize t))
|
2015-04-01 10:09:00 +00:00
|
|
|
|
;; Integrate the package-menu with updating the archives.
|
|
|
|
|
|
(add-hook 'package--post-download-archives-hook
|
|
|
|
|
|
#'package-menu--post-refresh)
|
2015-06-17 14:37:51 +00:00
|
|
|
|
(add-hook 'package--post-download-archives-hook
|
|
|
|
|
|
#'package-menu--mark-or-notify-upgrades 'append)
|
2015-04-01 10:09:00 +00:00
|
|
|
|
|
|
|
|
|
|
;; Generate the Package Menu.
|
|
|
|
|
|
(let ((buf (get-buffer-create "*Packages*")))
|
|
|
|
|
|
(with-current-buffer buf
|
2019-03-19 11:16:50 +00:00
|
|
|
|
;; Since some packages have their descriptions include non-ASCII
|
|
|
|
|
|
;; characters...
|
|
|
|
|
|
(setq buffer-file-coding-system 'utf-8)
|
2015-04-01 10:09:00 +00:00
|
|
|
|
(package-menu-mode)
|
2015-04-12 12:44:43 +00:00
|
|
|
|
|
|
|
|
|
|
;; Fetch the remote list of packages.
|
|
|
|
|
|
(unless no-fetch (package-menu-refresh))
|
|
|
|
|
|
|
2015-04-12 12:47:58 +00:00
|
|
|
|
;; If we're not async, this would be redundant.
|
|
|
|
|
|
(when package-menu-async
|
|
|
|
|
|
(package-menu--generate nil t)))
|
2015-04-01 10:09:00 +00:00
|
|
|
|
;; The package menu buffer has keybindings. If the user types
|
|
|
|
|
|
;; `M-x list-packages', that suggests it should become current.
|
|
|
|
|
|
(switch-to-buffer buf)))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2010-08-24 21:36:33 +00:00
|
|
|
|
;;;###autoload
|
2010-08-29 22:15:09 +00:00
|
|
|
|
(defalias 'package-list-packages 'list-packages)
|
2010-08-24 21:36:33 +00:00
|
|
|
|
|
2011-04-24 20:32:23 +00:00
|
|
|
|
;; Used in finder.el
|
2013-12-14 19:55:19 +00:00
|
|
|
|
(defun package-show-package-list (&optional packages keywords)
|
2011-04-24 20:32:23 +00:00
|
|
|
|
"Display PACKAGES in a *Packages* buffer.
|
|
|
|
|
|
This is similar to `list-packages', but it does not fetch the
|
|
|
|
|
|
updated list of packages, and it only displays packages with
|
2013-12-14 19:55:19 +00:00
|
|
|
|
names in PACKAGES (which should be a list of symbols).
|
|
|
|
|
|
|
|
|
|
|
|
When KEYWORDS are given, only packages with those KEYWORDS are
|
|
|
|
|
|
shown."
|
|
|
|
|
|
(interactive)
|
2011-04-24 20:32:23 +00:00
|
|
|
|
(require 'finder-inf nil t)
|
2014-03-23 08:35:56 +00:00
|
|
|
|
(let* ((buf (get-buffer-create "*Packages*"))
|
|
|
|
|
|
(win (get-buffer-window buf)))
|
2011-04-24 20:32:23 +00:00
|
|
|
|
(with-current-buffer buf
|
|
|
|
|
|
(package-menu-mode)
|
2013-12-14 19:55:19 +00:00
|
|
|
|
(package-menu--generate nil packages keywords))
|
2014-03-23 08:35:56 +00:00
|
|
|
|
(if win
|
|
|
|
|
|
(select-window win)
|
|
|
|
|
|
(switch-to-buffer buf))))
|
2011-04-24 20:32:23 +00:00
|
|
|
|
|
2014-02-12 01:20:34 +00:00
|
|
|
|
;; package-menu--generate rebinds "q" on the fly, so we have to
|
|
|
|
|
|
;; hard-code the binding in the doc-string here.
|
|
|
|
|
|
(defun package-menu-filter (keyword)
|
|
|
|
|
|
"Filter the *Packages* buffer.
|
|
|
|
|
|
Show only those items that relate to the specified KEYWORD.
|
2019-07-27 12:38:40 +00:00
|
|
|
|
|
2015-04-20 06:35:07 +00:00
|
|
|
|
KEYWORD can be a string or a list of strings. If it is a list, a
|
|
|
|
|
|
package will be displayed if it matches any of the keywords.
|
|
|
|
|
|
Interactively, it is a list of strings separated by commas.
|
|
|
|
|
|
|
2019-07-27 12:38:40 +00:00
|
|
|
|
KEYWORD can also be used to filter by status or archive name by
|
|
|
|
|
|
using keywords like \"arc:gnu\" and \"status:available\".
|
|
|
|
|
|
Statuses available include \"incompat\", \"available\",
|
|
|
|
|
|
\"built-in\" and \"installed\".
|
|
|
|
|
|
|
2014-02-12 01:20:34 +00:00
|
|
|
|
To restore the full package list, type `q'."
|
2015-04-20 06:35:07 +00:00
|
|
|
|
(interactive
|
|
|
|
|
|
(list (completing-read-multiple
|
|
|
|
|
|
"Keywords (comma separated): " (package-all-keywords))))
|
|
|
|
|
|
(package-show-package-list t (if (stringp keyword)
|
|
|
|
|
|
(list keyword)
|
|
|
|
|
|
keyword)))
|
2013-12-14 19:55:19 +00:00
|
|
|
|
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(defun package-list-packages-no-fetch ()
|
|
|
|
|
|
"Display a list of packages.
|
|
|
|
|
|
Does not fetch the updated list of packages before displaying.
|
|
|
|
|
|
The list is displayed in a buffer named `*Packages*'."
|
|
|
|
|
|
(interactive)
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(list-packages t))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2018-10-18 16:17:52 +00:00
|
|
|
|
;;;###autoload
|
2018-10-19 22:10:42 +00:00
|
|
|
|
(defun package-get-version ()
|
2018-10-18 16:17:52 +00:00
|
|
|
|
"Return the version number of the package in which this is used.
|
|
|
|
|
|
Assumes it is used from an Elisp file placed inside the top-level directory
|
|
|
|
|
|
of an installed ELPA package.
|
|
|
|
|
|
The return value is a string (or nil in case we can't find it)."
|
2018-10-19 22:10:42 +00:00
|
|
|
|
;; In a sense, this is a lie, but it does just what we want: precompute
|
|
|
|
|
|
;; the version at compile time and hardcodes it into the .elc file!
|
|
|
|
|
|
(declare (pure t))
|
2018-10-18 16:17:52 +00:00
|
|
|
|
;; Hack alert!
|
|
|
|
|
|
(let ((file
|
|
|
|
|
|
(or (if (boundp 'byte-compile-current-file) byte-compile-current-file)
|
|
|
|
|
|
load-file-name
|
|
|
|
|
|
buffer-file-name)))
|
|
|
|
|
|
(cond
|
|
|
|
|
|
((null file) nil)
|
|
|
|
|
|
;; Packages are normally installed into directories named "<pkg>-<vers>",
|
|
|
|
|
|
;; so get the version number from there.
|
|
|
|
|
|
((string-match "/[^/]+-\\([0-9]\\(?:[0-9.]\\|pre\\|beta\\|alpha\\|snapshot\\)+\\)/[^/]+\\'" file)
|
|
|
|
|
|
(match-string 1 file))
|
|
|
|
|
|
;; For packages run straight from the an elpa.git clone, there's no
|
|
|
|
|
|
;; "-<vers>" in the directory name, so we have to fetch the version
|
|
|
|
|
|
;; the hard way.
|
|
|
|
|
|
(t
|
|
|
|
|
|
(let* ((pkgdir (file-name-directory file))
|
|
|
|
|
|
(pkgname (file-name-nondirectory (directory-file-name pkgdir)))
|
|
|
|
|
|
(mainfile (expand-file-name (concat pkgname ".el") pkgdir)))
|
|
|
|
|
|
(when (file-readable-p mainfile)
|
2018-10-19 22:10:42 +00:00
|
|
|
|
(require 'lisp-mnt)
|
2018-10-18 16:17:52 +00:00
|
|
|
|
(with-temp-buffer
|
|
|
|
|
|
(insert-file-contents mainfile)
|
|
|
|
|
|
(or (lm-header "package-version")
|
|
|
|
|
|
(lm-header "version")))))))))
|
|
|
|
|
|
|
2018-03-26 13:41:30 +00:00
|
|
|
|
;;;; Quickstart: precompute activation actions for faster start up.
|
|
|
|
|
|
|
|
|
|
|
|
;; Activating packages via `package-initialize' is costly: for N installed
|
|
|
|
|
|
;; packages, it needs to read all N <pkg>-pkg.el files first to decide
|
|
|
|
|
|
;; which packages to activate, and then again N <pkg>-autoloads.el files.
|
|
|
|
|
|
;; To speed this up, we precompute a mega-autoloads file which is the
|
|
|
|
|
|
;; concatenation of all those <pkg>-autoloads.el, so we can activate
|
|
|
|
|
|
;; all packages by loading this one file (and hence without initializing
|
|
|
|
|
|
;; package.el).
|
|
|
|
|
|
|
|
|
|
|
|
;; Other than speeding things up, this also offers a bootstrap feature:
|
2018-03-26 18:29:49 +00:00
|
|
|
|
;; it lets us activate packages according to `package-load-list' and
|
|
|
|
|
|
;; `package-user-dir' even before those vars are set.
|
2018-03-26 13:41:30 +00:00
|
|
|
|
|
|
|
|
|
|
(defcustom package-quickstart nil
|
|
|
|
|
|
"Precompute activation actions to speed up startup.
|
|
|
|
|
|
This requires the use of `package-quickstart-refresh' every time the
|
|
|
|
|
|
activations need to be changed, such as when `package-load-list' is modified."
|
2018-03-26 18:29:49 +00:00
|
|
|
|
:type 'boolean
|
|
|
|
|
|
:version "27.1")
|
2018-03-26 13:41:30 +00:00
|
|
|
|
|
|
|
|
|
|
(defcustom package-quickstart-file
|
|
|
|
|
|
(locate-user-emacs-file "package-quickstart.el")
|
|
|
|
|
|
"Location of the file used to speed up activation of packages at startup."
|
2018-03-26 18:29:49 +00:00
|
|
|
|
:type 'file
|
|
|
|
|
|
:version "27.1")
|
2018-03-26 13:41:30 +00:00
|
|
|
|
|
|
|
|
|
|
(defun package--quickstart-maybe-refresh ()
|
|
|
|
|
|
(if package-quickstart
|
|
|
|
|
|
;; FIXME: Delay refresh in case we're installing/deleting
|
|
|
|
|
|
;; several packages!
|
|
|
|
|
|
(package-quickstart-refresh)
|
|
|
|
|
|
(delete-file package-quickstart-file)))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package-quickstart-refresh ()
|
|
|
|
|
|
"(Re)Generate the `package-quickstart-file'."
|
|
|
|
|
|
(interactive)
|
|
|
|
|
|
(package-initialize 'no-activate)
|
|
|
|
|
|
(require 'info)
|
|
|
|
|
|
(let ((package--quickstart-pkgs ())
|
|
|
|
|
|
;; Pretend we haven't activated anything yet!
|
|
|
|
|
|
(package-activated-list ())
|
|
|
|
|
|
;; Make sure we can load this file without load-source-file-function.
|
|
|
|
|
|
(coding-system-for-write 'emacs-internal)
|
|
|
|
|
|
(Info-directory-list '("")))
|
|
|
|
|
|
(dolist (elt package-alist)
|
|
|
|
|
|
(condition-case err
|
|
|
|
|
|
(package-activate (car elt))
|
|
|
|
|
|
;; Don't let failure of activation of a package arbitrarily stop
|
|
|
|
|
|
;; activation of further packages.
|
|
|
|
|
|
(error (message "%s" (error-message-string err)))))
|
|
|
|
|
|
(setq package--quickstart-pkgs (nreverse package--quickstart-pkgs))
|
|
|
|
|
|
(with-temp-file package-quickstart-file
|
|
|
|
|
|
(emacs-lisp-mode) ;For `syntax-ppss'.
|
|
|
|
|
|
(insert ";;; Quickstart file to activate all packages at startup -*- lexical-binding:t -*-\n")
|
|
|
|
|
|
(insert ";; ¡¡ This file is autogenerated by `package-quickstart-refresh', DO NOT EDIT !!\n\n")
|
|
|
|
|
|
(dolist (pkg package--quickstart-pkgs)
|
|
|
|
|
|
(let* ((file
|
|
|
|
|
|
;; Prefer uncompiled files (and don't accept .so files).
|
|
|
|
|
|
(let ((load-suffixes '(".el" ".elc")))
|
|
|
|
|
|
(locate-library (package--autoloads-file-name pkg))))
|
|
|
|
|
|
(pfile (prin1-to-string file)))
|
|
|
|
|
|
(insert "(let ((load-file-name " pfile "))\n")
|
|
|
|
|
|
(insert-file-contents file)
|
|
|
|
|
|
;; Fixup the special #$ reader form and throw away comments.
|
|
|
|
|
|
(while (re-search-forward "#\\$\\|^;\\(.*\n\\)" nil 'move)
|
|
|
|
|
|
(unless (nth 8 (syntax-ppss))
|
|
|
|
|
|
(replace-match (if (match-end 1) "" pfile) t t)))
|
|
|
|
|
|
(unless (bolp) (insert "\n"))
|
|
|
|
|
|
(insert ")\n")))
|
|
|
|
|
|
(pp `(setq package-activated-list
|
|
|
|
|
|
(append ',(mapcar #'package-desc-name package--quickstart-pkgs)
|
|
|
|
|
|
package-activated-list))
|
|
|
|
|
|
(current-buffer))
|
|
|
|
|
|
(let ((info-dirs (butlast Info-directory-list)))
|
|
|
|
|
|
(when info-dirs
|
|
|
|
|
|
(pp `(progn (require 'info)
|
|
|
|
|
|
(info-initialize)
|
|
|
|
|
|
(setq Info-directory-list
|
|
|
|
|
|
(append ',info-dirs Info-directory-list)))
|
|
|
|
|
|
(current-buffer))))
|
|
|
|
|
|
;; Use `\s' instead of a space character, so this code chunk is not
|
|
|
|
|
|
;; mistaken for an actual file-local section of package.el.
|
|
|
|
|
|
(insert "
|
|
|
|
|
|
;; Local\sVariables:
|
|
|
|
|
|
;; version-control: never
|
2018-10-19 22:10:42 +00:00
|
|
|
|
;;\sno-byte-compile: t
|
2018-03-26 13:41:30 +00:00
|
|
|
|
;; no-update-autoloads: t
|
|
|
|
|
|
;; End:
|
|
|
|
|
|
"))))
|
|
|
|
|
|
|
2019-06-24 22:55:45 +00:00
|
|
|
|
(defun package--imenu-prev-index-position-function ()
|
|
|
|
|
|
"Move point to previous line in package-menu buffer.
|
|
|
|
|
|
This function is used as a value for
|
|
|
|
|
|
`imenu-prev-index-position-function'."
|
|
|
|
|
|
(unless (bobp)
|
|
|
|
|
|
(forward-line -1)))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package--imenu-extract-index-name-function ()
|
|
|
|
|
|
"Return imenu name for line at point.
|
|
|
|
|
|
This function is used as a value for
|
|
|
|
|
|
`imenu-extract-index-name-function'. Point should be at the
|
|
|
|
|
|
beginning of the line."
|
|
|
|
|
|
(let ((package-desc (tabulated-list-get-id)))
|
|
|
|
|
|
(format "%s (%s): %s"
|
|
|
|
|
|
(package-desc-name package-desc)
|
|
|
|
|
|
(package-version-join (package-desc-version package-desc))
|
|
|
|
|
|
(package-desc-summary package-desc))))
|
|
|
|
|
|
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(provide 'package)
|
|
|
|
|
|
|
|
|
|
|
|
;;; package.el ends here
|