Update elpa packages

This commit is contained in:
Daniel - 2021-01-17 12:49:07 +01:00
parent 6dd6cf88ab
commit 8397b92aa4
No known key found for this signature in database
GPG Key ID: 1C7071A75BB72D64
11 changed files with 5471 additions and 3848 deletions

View File

@ -1,9 +0,0 @@
(define-package "dash" "20201231.1620" "A modern list library for Emacs" 'nil :commit "78fee36e7e7c02595e51fcacf067308be115c22c" :authors
(("Magnar Sveen" . "magnars@gmail.com"))
:maintainer
("Magnar Sveen" . "magnars@gmail.com")
:keywords
("extensions" "lisp"))
;; Local Variables:
;; no-byte-compile: t
;; End:

File diff suppressed because it is too large Load Diff

View File

@ -53,6 +53,10 @@ See `dash-fontify-mode' for more information on Dash-Fontify mode.
\(fn &optional ARG)" t nil) \(fn &optional ARG)" t nil)
(autoload 'dash-register-info-lookup "dash" "\
Register the Dash Info manual with `info-lookup-symbol'.
This allows Dash symbols to be looked up with \\[info-lookup-symbol]." t nil)
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "dash" '("!cdr" "!cons" "--" "->" "-a" "-butlast" "-c" "-d" "-e" "-f" "-gr" "-i" "-keep" "-l" "-m" "-non" "-only-some" "-p" "-r" "-s" "-t" "-u" "-value-to-list" "-when-let" "-zip" "dash-"))) (if (fboundp 'register-definition-prefixes) (register-definition-prefixes "dash" '("!cdr" "!cons" "--" "->" "-a" "-butlast" "-c" "-d" "-e" "-f" "-gr" "-i" "-keep" "-l" "-m" "-non" "-only-some" "-p" "-r" "-s" "-t" "-u" "-value-to-list" "-when-let" "-zip" "dash-")))
;;;*** ;;;***

View File

@ -0,0 +1,12 @@
(define-package "dash" "20210116.1426" "A modern list library for Emacs"
'((emacs "24"))
:commit "4fb9613314f4ea07b1f6965799bd4a044703accd" :authors
'(("Magnar Sveen" . "magnars@gmail.com"))
:maintainer
'("Magnar Sveen" . "magnars@gmail.com")
:keywords
'("extensions" "lisp")
:url "https://github.com/magnars/dash.el")
;; Local Variables:
;; no-byte-compile: t
;; End:

File diff suppressed because it is too large Load Diff

View File

@ -15,4 +15,4 @@ File: dir, Node: Top This is the top of the INFO tree
* Menu: * Menu:
Emacs Emacs
* Dash: (dash.info). A modern list library for GNU Emacs * Dash: (dash.info). A modern list library for GNU Emacs.

View File

@ -1,2 +0,0 @@
;;; -*- no-byte-compile: t -*-
(define-package "page-break-lines" "0.11" "Display ugly ^L page breaks as tidy horizontal lines" 'nil :commit "67b5928a7f14568baf2716b5741e13659a86b9ea" :keywords '("convenience" "faces") :authors '(("Steve Purcell" . "steve@sanityinc.com")) :maintainer '("Steve Purcell" . "steve@sanityinc.com") :url "https://github.com/purcell/page-break-lines")

View File

@ -13,27 +13,22 @@
(autoload 'page-break-lines-mode "page-break-lines" "\ (autoload 'page-break-lines-mode "page-break-lines" "\
Toggle Page Break Lines mode. Toggle Page Break Lines mode.
If called interactively, enable Page-Break-Lines mode if ARG is
positive, and disable it if ARG is zero or negative. If called
from Lisp, also enable the mode if ARG is omitted or nil, and
toggle it if ARG is `toggle'; disable the mode otherwise.
In Page Break mode, page breaks (^L characters) are displayed as a In Page Break mode, page breaks (^L characters) are displayed as a
horizontal line of `page-break-string-char' characters. horizontal line of `page-break-lines-char' characters.
\(fn &optional ARG)" t nil) \(fn &optional ARG)" t nil)
(autoload 'turn-on-page-break-lines-mode "page-break-lines" "\
Enable `page-break-lines-mode' in this buffer.
\(fn)" nil nil)
(autoload 'turn-off-page-break-lines-mode "page-break-lines" "\
Disable `page-break-lines-mode' in this buffer.
\(fn)" nil nil)
(autoload 'page-break-lines-mode-maybe "page-break-lines" "\ (autoload 'page-break-lines-mode-maybe "page-break-lines" "\
Enable `page-break-lines-mode' in the current buffer if desired. Enable `page-break-lines-mode' in the current buffer if desired.
When `major-mode' is listed in `page-break-lines-modes', then When `major-mode' is listed in `page-break-lines-modes', then
`page-break-lines-mode' will be enabled. `page-break-lines-mode' will be enabled." nil nil)
\(fn)" nil nil) (put 'global-page-break-lines-mode 'globalized-minor-mode t)
(defvar global-page-break-lines-mode nil "\ (defvar global-page-break-lines-mode nil "\
Non-nil if Global Page-Break-Lines mode is enabled. Non-nil if Global Page-Break-Lines mode is enabled.

View File

@ -0,0 +1,2 @@
;;; Generated package description from page-break-lines-0.14/page-break-lines.el -*- no-byte-compile: t -*-
(define-package "page-break-lines" "0.14" "Display ^L page breaks as tidy horizontal lines" '((emacs "24.4")) :commit "69caea070379f3324c530e96e06625c3cd097cb9" :authors '(("Steve Purcell" . "steve@sanityinc.com")) :maintainer '("Steve Purcell" . "steve@sanityinc.com") :keywords '("convenience" "faces") :url "https://github.com/purcell/page-break-lines")

View File

@ -1,11 +1,13 @@
;;; page-break-lines.el --- Display ugly ^L page breaks as tidy horizontal lines ;;; page-break-lines.el --- Display ^L page breaks as tidy horizontal lines -*- lexical-binding: t -*-
;; Copyright (C) 2012-2015 Steve Purcell ;; Copyright (C) 2012-2015 Steve Purcell
;; Author: Steve Purcell <steve@sanityinc.com> ;; Author: Steve Purcell <steve@sanityinc.com>
;; URL: https://github.com/purcell/page-break-lines ;; URL: https://github.com/purcell/page-break-lines
;; Package-Version: 0.11 ;; Package-Commit: 69caea070379f3324c530e96e06625c3cd097cb9
;; Package-X-Original-Version: DEV ;; Package-Version: 0.14
;; Package-X-Original-Version: 0
;; Package-Requires: ((emacs "24.4"))
;; Keywords: convenience, faces ;; Keywords: convenience, faces
;; This program is free software; you can redistribute it and/or modify ;; This program is free software; you can redistribute it and/or modify
@ -37,7 +39,7 @@
;; If `page-break-lines-char' is displayed at a different width to ;; If `page-break-lines-char' is displayed at a different width to
;; regular characters, the rule may be either too short or too long: ;; regular characters, the rule may be either too short or too long:
;; rules may then wrap if `truncate-lines' is nil. On some systems, ;; rules may then wrap if `truncate-lines' is nil. On some systems,
;; Emacs may erroneously choose a different font for the page break ;; Emacs may erroneously choose a different font for the page break
;; symbol, which choice can be overridden using code such as: ;; symbol, which choice can be overridden using code such as:
@ -73,6 +75,12 @@
:type '(choice (const :tag "No lighter" "") string) :type '(choice (const :tag "No lighter" "") string)
:group 'page-break-lines) :group 'page-break-lines)
(defcustom page-break-lines-max-width nil
"If non-nil, maximum width (in characters) of page break indicator.
If nil, indicator will span the width of the frame."
:type '(choice integer (const :tag "Full width" nil))
:group 'page-break-lines)
(defcustom page-break-lines-modes (defcustom page-break-lines-modes
'(emacs-lisp-mode lisp-mode scheme-mode compilation-mode outline-mode help-mode) '(emacs-lisp-mode lisp-mode scheme-mode compilation-mode outline-mode help-mode)
"Modes in which to enable `page-break-lines-mode'." "Modes in which to enable `page-break-lines-mode'."
@ -94,25 +102,15 @@ displayed as a junk character."
"Toggle Page Break Lines mode. "Toggle Page Break Lines mode.
In Page Break mode, page breaks (^L characters) are displayed as a In Page Break mode, page breaks (^L characters) are displayed as a
horizontal line of `page-break-string-char' characters." horizontal line of `page-break-lines-char' characters."
:lighter page-break-lines-lighter :lighter page-break-lines-lighter
:group 'page-break-lines :group 'page-break-lines
(page-break-lines--update-display-tables)) (page-break-lines--update-display-tables))
;;;###autoload
(defun turn-on-page-break-lines-mode ()
"Enable `page-break-lines-mode' in this buffer."
(page-break-lines-mode 1))
;;;###autoload
(defun turn-off-page-break-lines-mode ()
"Disable `page-break-lines-mode' in this buffer."
(page-break-lines-mode -1))
(dolist (hook '(window-configuration-change-hook (dolist (hook '(window-configuration-change-hook
window-size-change-functions window-size-change-functions
after-setting-font-hook)) after-setting-font-hook
display-line-numbers-mode-hook))
(add-hook hook 'page-break-lines--update-display-tables)) (add-hook hook 'page-break-lines--update-display-tables))
@ -122,23 +120,36 @@ horizontal line of `page-break-string-char' characters."
If the buffer inside WINDOW has `page-break-lines-mode' enabled, If the buffer inside WINDOW has `page-break-lines-mode' enabled,
its display table will be modified as necessary." its display table will be modified as necessary."
(with-current-buffer (window-buffer window) (with-current-buffer (window-buffer window)
(if page-break-lines-mode (with-selected-window window
(progn (if page-break-lines-mode
(unless buffer-display-table (progn
(setq buffer-display-table (make-display-table))) (unless buffer-display-table
(let ((default-height (face-attribute 'default :height nil 'default))) (setq buffer-display-table (make-display-table)))
(set-face-attribute 'page-break-lines nil :height default-height) (let ((default-height (face-attribute 'default :height nil 'default)))
(let* ((width (- (window-width window) 1)) (set-face-attribute 'page-break-lines nil :height default-height)
(glyph (make-glyph-code page-break-lines-char 'page-break-lines)) (let* ((cwidth (char-width page-break-lines-char))
(new-display-entry (vconcat (make-list width glyph)))) (wwidth-pix (- (window-width nil t)
(unless (equal new-display-entry (elt buffer-display-table ?\^L)) (if (and (bound-and-true-p display-line-numbers)
(aset buffer-display-table ?\^L new-display-entry))))) (fboundp 'line-number-display-width))
(when buffer-display-table (line-number-display-width t)
(aset buffer-display-table ?\^L nil))))) 0)))
(width (- (/ wwidth-pix (frame-char-width) cwidth)
(if (display-graphic-p) 0 1)))
(width (if page-break-lines-max-width
(min width page-break-lines-max-width)
width))
(glyph (make-glyph-code page-break-lines-char 'page-break-lines))
(new-display-entry (vconcat (make-list width glyph))))
(unless (equal new-display-entry (elt buffer-display-table ?\^L))
(aset buffer-display-table ?\^L new-display-entry)))))
(when (and (apply 'derived-mode-p page-break-lines-modes)
buffer-display-table)
(aset buffer-display-table ?\^L nil))))))
(defun page-break-lines--update-display-tables (&optional frame) (defun page-break-lines--update-display-tables (&optional frame)
"Function called for updating display table in windows of FRAME." "Function called for updating display table in windows of FRAME."
(mapc 'page-break-lines--update-display-table (window-list frame 'no-minibuffer))) (unless (minibufferp)
(mapc 'page-break-lines--update-display-table (window-list frame 'no-minibuffer))))
@ -154,6 +165,7 @@ When `major-mode' is listed in `page-break-lines-modes', then
;;;###autoload ;;;###autoload
(define-global-minor-mode global-page-break-lines-mode (define-global-minor-mode global-page-break-lines-mode
page-break-lines-mode page-break-lines-mode-maybe page-break-lines-mode page-break-lines-mode-maybe
:require 'page-break-lines
:group 'page-break-lines) :group 'page-break-lines)
@ -161,7 +173,6 @@ When `major-mode' is listed in `page-break-lines-modes', then
;; Local Variables: ;; Local Variables:
;; coding: utf-8 ;; coding: utf-8
;; byte-compile-warnings: (not cl-functions)
;; checkdoc-minor-mode: t ;; checkdoc-minor-mode: t
;; End: ;; End: