[bot] "built_in_updates" Wed May 11 06:35:02 UTC 2022 (#15508)
This commit is contained in:
parent
2218a5e286
commit
11f45d529f
|
@ -1,29 +1,28 @@
|
|||
;;; package-build-badges.el --- Create batches for packages -*- lexical-binding: t -*-
|
||||
;;; package-build-badges.el --- Create batches for packages -*- lexical-binding:t; coding:utf-8 -*-
|
||||
|
||||
;; Copyright (C) 2011-2013 Donald Ephraim Curtis <dcurtis@milkbox.net>
|
||||
;; Copyright (C) 2012-2014 Steve Purcell <steve@sanityinc.com>
|
||||
;; Copyright (C) 2009 Phil Hagelberg <technomancy@gmail.com>
|
||||
;; Copyright (C) 2011-2022 Donald Ephraim Curtis
|
||||
;; Copyright (C) 2012-2022 Steve Purcell
|
||||
;; Copyright (C) 2018-2022 Jonas Bernoulli
|
||||
;; Copyright (C) 2009 Phil Hagelberg
|
||||
|
||||
;; Author: Donald Ephraim Curtis <dcurtis@milkbox.net>
|
||||
;; Keywords: tools
|
||||
;; Homepage: https://github.com/melpa/package-build
|
||||
;; Keywords: maint tools
|
||||
|
||||
;; This file is not (yet) part of GNU Emacs.
|
||||
;; However, it is distributed under the same license.
|
||||
;; SPDX-License-Identifier: GPL-3.0-or-later
|
||||
|
||||
;; GNU Emacs is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
;; the Free Software Foundation; either version 3, or (at your option)
|
||||
;; any later version.
|
||||
|
||||
;; GNU Emacs is distributed in the hope that it will be useful,
|
||||
;; This file is free software: you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published
|
||||
;; by the Free Software Foundation, either version 3 of the License,
|
||||
;; or (at your option) any later version.
|
||||
;;
|
||||
;; This file 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
|
||||
;; along with GNU Emacs; see the file COPYING. If not, write to the
|
||||
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
||||
;; Boston, MA 02110-1301, USA.
|
||||
;; along with this file. If not, see <https://www.gnu.org/licenses/>.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
|
@ -33,7 +32,7 @@
|
|||
|
||||
;;; Code:
|
||||
|
||||
(require 'package-build)
|
||||
(defvar package-build-stable)
|
||||
|
||||
(defun package-build--write-melpa-badge-image (name version target-dir)
|
||||
(unless (zerop (call-process
|
||||
|
@ -46,10 +45,4 @@
|
|||
(message "Failed to fetch badge")))
|
||||
|
||||
(provide 'package-build-badges)
|
||||
|
||||
;; Local Variables:
|
||||
;; coding: utf-8
|
||||
;; checkdoc-minor-mode: 1
|
||||
;; indent-tabs-mode: nil
|
||||
;; End:
|
||||
;;; package-badges.el ends here
|
||||
|
|
|
@ -1,42 +1,43 @@
|
|||
;;; package-build.el --- Tools for assembling a package archive -*- lexical-binding: t -*-
|
||||
;;; package-build.el --- Tools for assembling a package archive -*- lexical-binding:t; coding:utf-8 -*-
|
||||
|
||||
;; Copyright (C) 2011-2022 Donald Ephraim Curtis <dcurtis@milkbox.net>
|
||||
;; Copyright (C) 2012-2022 Steve Purcell <steve@sanityinc.com>
|
||||
;; Copyright (C) 2016-2022 Jonas Bernoulli <jonas@bernoul.li>
|
||||
;; Copyright (C) 2009 Phil Hagelberg <technomancy@gmail.com>
|
||||
;; Copyright (C) 2011-2022 Donald Ephraim Curtis
|
||||
;; Copyright (C) 2012-2022 Steve Purcell
|
||||
;; Copyright (C) 2016-2022 Jonas Bernoulli
|
||||
;; Copyright (C) 2009 Phil Hagelberg
|
||||
|
||||
;; Author: Donald Ephraim Curtis <dcurtis@milkbox.net>
|
||||
;; Keywords: tools
|
||||
;; Steve Purcell <steve@sanityinc.com>
|
||||
;; Jonas Bernoulli <jonas@bernoul.li>
|
||||
;; Phil Hagelberg <technomancy@gmail.com>
|
||||
;; Homepage: https://github.com/melpa/package-build
|
||||
;; Package-Requires: ((cl-lib "0.5") (emacs "25.1"))
|
||||
;; Keywords: maint tools
|
||||
|
||||
;; Package-Version: 0-git
|
||||
;; Package-Requires: ((emacs "25.1"))
|
||||
|
||||
;; This file is not (yet) part of GNU Emacs.
|
||||
;; However, it is distributed under the same license.
|
||||
;; SPDX-License-Identifier: GPL-3.0-or-later
|
||||
|
||||
;; GNU Emacs is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
;; the Free Software Foundation; either version 3, or (at your option)
|
||||
;; any later version.
|
||||
|
||||
;; GNU Emacs is distributed in the hope that it will be useful,
|
||||
;; This file is free software: you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published
|
||||
;; by the Free Software Foundation, either version 3 of the License,
|
||||
;; or (at your option) any later version.
|
||||
;;
|
||||
;; This file 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
|
||||
;; along with GNU Emacs; see the file COPYING. If not, write to the
|
||||
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
||||
;; Boston, MA 02110-1301, USA.
|
||||
;; along with this file. If not, see <https://www.gnu.org/licenses/>.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; This file allows a curator to publish an archive of Emacs packages.
|
||||
|
||||
;; The archive is generated from a set of recipes which describe elisp
|
||||
;; projects and repositories from which to get them. The term
|
||||
;; "package" here is used to mean a specific version of a project that
|
||||
;; is prepared for download and installation.
|
||||
;; The archive is generated from a set of recipes, which describe elisp
|
||||
;; projects and repositories from which to get them. The term "package"
|
||||
;; here is used to mean a specific version of a project that is prepared
|
||||
;; for download and installation.
|
||||
|
||||
;;; Code:
|
||||
|
||||
|
@ -49,6 +50,7 @@
|
|||
(require 'json)
|
||||
|
||||
(require 'package-recipe)
|
||||
(require 'package-build-badges)
|
||||
|
||||
;;; Options
|
||||
|
||||
|
@ -58,7 +60,7 @@
|
|||
(file-name-directory (or load-file-name (buffer-file-name))))))
|
||||
|
||||
(defgroup package-build nil
|
||||
"Facilities for building package.el-compliant packages from upstream source code."
|
||||
"Tools for building package.el-compliant packages from upstream source code."
|
||||
:group 'development)
|
||||
|
||||
(defcustom package-build-working-dir
|
||||
|
@ -1022,16 +1024,4 @@ line per entry."
|
|||
#'package-build-dump-archive-contents "Package-Build 3.0")
|
||||
|
||||
(provide 'package-build)
|
||||
|
||||
;; For the time being just require all libraries that contain code
|
||||
;; that was previously located in this library.
|
||||
|
||||
(require 'package-build-badges)
|
||||
(require 'package-recipe-mode)
|
||||
|
||||
;; Local Variables:
|
||||
;; coding: utf-8
|
||||
;; checkdoc-minor-mode: 1
|
||||
;; indent-tabs-mode: nil
|
||||
;; End:
|
||||
;;; package-build.el ends here
|
||||
|
|
|
@ -1,30 +1,28 @@
|
|||
;;; package-recipe-mode.el --- Minor mode for editing package recipes -*- lexical-binding: t -*-
|
||||
;;; package-recipe-mode.el --- Minor mode for editing package recipes -*- lexical-binding:t; coding:utf-8 -*-
|
||||
|
||||
;; Copyright (C) 2011-2022 Donald Ephraim Curtis <dcurtis@milkbox.net>
|
||||
;; Copyright (C) 2012-2022 Steve Purcell <steve@sanityinc.com>
|
||||
;; Copyright (C) 2016-2022 Jonas Bernoulli <jonas@bernoul.li>
|
||||
;; Copyright (C) 2009 Phil Hagelberg <technomancy@gmail.com>
|
||||
;; Copyright (C) 2011-2022 Donald Ephraim Curtis
|
||||
;; Copyright (C) 2012-2022 Steve Purcell
|
||||
;; Copyright (C) 2016-2022 Jonas Bernoulli
|
||||
;; Copyright (C) 2009 Phil Hagelberg
|
||||
|
||||
;; Author: Donald Ephraim Curtis <dcurtis@milkbox.net>
|
||||
;; Keywords: tools
|
||||
;; Homepage: https://github.com/melpa/package-build
|
||||
;; Keywords: maint tools
|
||||
|
||||
;; This file is not (yet) part of GNU Emacs.
|
||||
;; However, it is distributed under the same license.
|
||||
;; SPDX-License-Identifier: GPL-3.0-or-later
|
||||
|
||||
;; GNU Emacs is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
;; the Free Software Foundation; either version 3, or (at your option)
|
||||
;; any later version.
|
||||
|
||||
;; GNU Emacs is distributed in the hope that it will be useful,
|
||||
;; This file is free software: you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published
|
||||
;; by the Free Software Foundation, either version 3 of the License,
|
||||
;; or (at your option) any later version.
|
||||
;;
|
||||
;; This file 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
|
||||
;; along with GNU Emacs; see the file COPYING. If not, write to the
|
||||
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
||||
;; Boston, MA 02110-1301, USA.
|
||||
;; along with this file. If not, see <https://www.gnu.org/licenses/>.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
|
@ -99,10 +97,4 @@
|
|||
(assq (intern name) (package-build-archive-alist)))))))
|
||||
|
||||
(provide 'package-recipe-mode)
|
||||
|
||||
;; Local Variables:
|
||||
;; coding: utf-8
|
||||
;; checkdoc-minor-mode: 1
|
||||
;; indent-tabs-mode: nil
|
||||
;; End:
|
||||
;;; package-recipe-mode.el ends here
|
||||
|
|
|
@ -1,26 +1,25 @@
|
|||
;;; package-recipe.el --- Package recipes as EIEIO objects -*- lexical-binding: t -*-
|
||||
;;; package-recipe.el --- Package recipes as EIEIO objects -*- lexical-binding:t; coding:utf-8 -*-
|
||||
|
||||
;; Copyright (C) 2018-2022 Jonas Bernoulli
|
||||
;; Copyright (C) 2018-2022 Jonas Bernoulli
|
||||
|
||||
;; Author: Jonas Bernoulli <jonas@bernoul.li>
|
||||
;; Homepage: https://github.com/melpa/package-build
|
||||
;; Keywords: maint tools
|
||||
|
||||
;; This file is not (yet) part of GNU Emacs.
|
||||
;; However, it is distributed under the same license.
|
||||
;; SPDX-License-Identifier: GPL-3.0-or-later
|
||||
|
||||
;; GNU Emacs is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
;; the Free Software Foundation; either version 3, or (at your option)
|
||||
;; any later version.
|
||||
|
||||
;; GNU Emacs is distributed in the hope that it will be useful,
|
||||
;; This file is free software: you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published
|
||||
;; by the Free Software Foundation, either version 3 of the License,
|
||||
;; or (at your option) any later version.
|
||||
;;
|
||||
;; This file 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
|
||||
;; along with GNU Emacs; see the file COPYING. If not, write to the
|
||||
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
||||
;; Boston, MA 02110-1301, USA.
|
||||
;; along with this file. If not, see <https://www.gnu.org/licenses/>.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
|
@ -167,11 +166,5 @@ file is invalid, then raise an error."
|
|||
(list name ident all-keys))
|
||||
recipe))
|
||||
|
||||
;;; _
|
||||
(provide 'package-recipe)
|
||||
;; Local Variables:
|
||||
;; coding: utf-8
|
||||
;; checkdoc-minor-mode: 1
|
||||
;; indent-tabs-mode: nil
|
||||
;; End:
|
||||
;;; package-recipe.el ends here
|
||||
|
|
|
@ -4,13 +4,13 @@
|
|||
;; Description: Commands to zoom frame font size.
|
||||
;; Author: Drew Adams
|
||||
;; Maintainer: Drew Adams (concat "drew.adams" "@" "oracle" ".com")
|
||||
;; Copyright (C) 2005-2021, Drew Adams, all rights reserved.
|
||||
;; Copyright (C) 2005-2022, Drew Adams, all rights reserved.
|
||||
;; Created: Fri Jan 07 10:24:35 2005
|
||||
;; Version: 0
|
||||
;; Package-Requires: ((frame-fns "0") (frame-cmds "0"))
|
||||
;; Last-Updated: Thu Mar 18 09:07:56 2021 (-0700)
|
||||
;; Last-Updated: Mon Feb 21 10:35:29 2022 (-0800)
|
||||
;; By: dradams
|
||||
;; Update #: 362
|
||||
;; Update #: 374
|
||||
;; URL: https://www.emacswiki.org/emacs/download/zoom-frm.el
|
||||
;; Doc URL: https://emacswiki.org/emacs/SetFonts
|
||||
;; Keywords: frames, extensions, convenience
|
||||
|
@ -178,6 +178,8 @@
|
|||
;;
|
||||
;;; Change Log:
|
||||
;;
|
||||
;; 2022/02/21 dadams
|
||||
;; zoom-in/out: Fixed to respect frame-zoom-font-difference when no prefix arg.
|
||||
;; 2019/11/19 dadams
|
||||
;; zoom-all-frames-(in|out):
|
||||
;; Use zoom-frm-(in|out): zoom each relative to its current font. Visible only. Autoload.
|
||||
|
@ -329,6 +331,7 @@ This is equal but opposite to `zoom-frm-in'."
|
|||
(if (frame-parameter frame 'zoomed) (zoom-frm-unzoom frame) (zoom-frm-in frame)))
|
||||
|
||||
(when (> emacs-major-version 22)
|
||||
|
||||
(defun zoom-in (arg)
|
||||
"Zoom current frame or buffer in.
|
||||
With a prefix arg, toggle between zooming frame and zooming buffer.
|
||||
|
@ -367,16 +370,17 @@ Buffer zooming uses command `text-scale-decrease'."
|
|||
(current-buffer))
|
||||
(text-scale-decrease 1))))
|
||||
|
||||
(when (or (fboundp 'set-transient-map) ; Emacs 24.4+
|
||||
(when (or (fboundp 'set-transient-map) ; Emacs 24.4+
|
||||
(fboundp 'set-temporary-overlay-map)) ; Emacs 24.3
|
||||
|
||||
|
||||
(defun zoom-in/out (arg)
|
||||
"Zoom current frame or buffer in or out.
|
||||
A prefix arg determines the behavior, as follows:
|
||||
none : Use 1 as the zoom amount.
|
||||
none : Use the value of option `frame-zoom-font-difference' as
|
||||
the zoom amount.
|
||||
plain `C-u': Toggle between zooming frame and zooming buffer.
|
||||
0 : Unzoom: reset size to the default.
|
||||
other : Use the numeric value as the zoom amount.
|
||||
other : Use the numeric prefix value as the zoom amount.
|
||||
|
||||
Similar to the behavior of command `text-scale-adjust', you can
|
||||
continue to use any of the keys `+', `-', `0', and `C-u' repeatedly.
|
||||
|
@ -407,7 +411,9 @@ Remember that you can also use `C-u' when you are done zooming."
|
|||
(base (event-basic-type ev))
|
||||
(step (if (or (equal arg '(4)) (eq ?\025 last-command-event)) ; C-u
|
||||
'C-U-WAS-USED
|
||||
(setq arg (prefix-numeric-value arg))
|
||||
(setq arg (if (not arg)
|
||||
frame-zoom-font-difference
|
||||
(prefix-numeric-value arg)))
|
||||
(case base
|
||||
((?+ ?=) arg)
|
||||
(?- (- arg))
|
||||
|
@ -436,7 +442,9 @@ Remember that you can also use `C-u' when you are done zooming."
|
|||
(define-key map (vector (append mods (list key)))
|
||||
`(lambda () (interactive) (zoom-in/out ',arg)))))
|
||||
(define-key map "\C-u" `(lambda () (interactive) (zoom-in/out ',arg)))
|
||||
map)))))))
|
||||
map)))))
|
||||
)
|
||||
)
|
||||
|
||||
;;;###autoload
|
||||
(defun zoom-all-frames-in (&optional flip)
|
||||
|
|
Loading…
Reference in New Issue