[elpa] externals/vertico 0531a64062 2/2: Update docstring

[ELPA Syncer]

branch: externals/vertico
commit 0531a640625a3fcabf558c73f7f7f8b37aa52ddd
Author: Daniel Mendler 
Commit: Daniel Mendler 

Update docstring
---
 extensions/vertico-repeat.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extensions/vertico-repeat.el b/extensions/vertico-repeat.el
index 86735fdde7..0a416cd1a6 100644
--- a/extensions/vertico-repeat.el
+++ b/extensions/vertico-repeat.el
@@ -146,7 +146,7 @@ This function must be registered as 
`minibuffer-setup-hook'."
 
 ;;;###autoload
 (defun vertico-repeat (&optional arg)
-  "Repeat last vertico session.
+  "Repeat last Vertico session.
 If prefix ARG is non-nil, offer completion menu to select from session 
history."
   (interactive "P")
   (call-interactively

[elpa] externals/vertico 56d70768c8 1/2: Add back vertico-repeat command

[ELPA Syncer]

branch: externals/vertico
commit 56d70768c812c11b6a369735a5ca6b91ad0f57f7
Author: Daniel Mendler 
Commit: Daniel Mendler 

Add back vertico-repeat command
---
 extensions/vertico-repeat.el | 21 +++--
 1 file changed, 15 insertions(+), 6 deletions(-)

diff --git a/extensions/vertico-repeat.el b/extensions/vertico-repeat.el
index 1e73b31123..86735fdde7 100644
--- a/extensions/vertico-repeat.el
+++ b/extensions/vertico-repeat.el
@@ -26,13 +26,12 @@
 
 ;;; Commentary:
 
-;; This package is a Vertico extension, which enables repetition of the
-;; Vertico sessions via the `vertico-repeat-last' and
+;; This package is a Vertico extension, which enables repetition of
+;; Vertico sessions via the `vertico-repeat', `vertico-repeat-last' and
 ;; `vertico-repeat-select' commands. It is necessary to register a
 ;; minibuffer setup hook, which saves the Vertico state for repetition.
 ;;
-;; (global-set-key "\M-r" #'vertico-repeat-last)
-;; (global-set-key "\M-R" #'vertico-repeat-select)
+;; (global-set-key "\M-R" #'vertico-repeat)
 ;; (add-hook 'minibuffer-setup-hook #'vertico-repeat-save)
 
 ;;; Code:
@@ -41,7 +40,8 @@
 (eval-when-compile (require 'cl-lib))
 
 (defcustom vertico-repeat-filter
-  '(vertico-repeat-select
+  '(vertico-repeat
+vertico-repeat-select
 execute-extended-command
 execute-extended-command-for-buffer)
   "List of commands to filter out from the history."
@@ -97,8 +97,9 @@ This function must be registered as `minibuffer-setup-hook'."
   (apply-partially #'vertico-repeat--restore session)
 (command-execute (setq this-command (car session)
 
+;;;###autoload
 (defun vertico-repeat-select ()
-  "Select a session from the last Vertico sessions and repeat it."
+  "Select a Vertico session from the session history and repeat it."
   (interactive)
   (let* ((trimmed
   (delete-dups
@@ -143,5 +144,13 @@ This function must be registered as 
`minibuffer-setup-hook'."
(user-error "No session selected"
 (vertico-repeat-last selected)))
 
+;;;###autoload
+(defun vertico-repeat (&optional arg)
+  "Repeat last vertico session.
+If prefix ARG is non-nil, offer completion menu to select from session 
history."
+  (interactive "P")
+  (call-interactively
+   (if arg #'vertico-repeat-select #'vertico-repeat-last)))
+
 (provide 'vertico-repeat)
 ;;; vertico-repeat.el ends here

[elpa] externals/vertico updated (a92b1e47ff -> 0531a64062)

[ELPA Syncer]

elpasync pushed a change to branch externals/vertico.

  from  a92b1e47ff vertico-repeat extension: Add vertico-repeat-select (Fix 
#182)
   new  56d70768c8 Add back vertico-repeat command
   new  0531a64062 Update docstring


Summary of changes:
 extensions/vertico-repeat.el | 21 +++--
 1 file changed, 15 insertions(+), 6 deletions(-)

[nongnu] elpa/cider 86dd3fee9d: [Fix #3173] Don't kill completion-at-point-functions completely (#3175)

[ELPA Syncer]

branch: elpa/cider
commit 86dd3fee9d9836dcd56f6abb91ba59b7aeedecb9
Author: Andrey Listopadov 
Commit: GitHub 

[Fix #3173] Don't kill completion-at-point-functions completely (#3175)
---
 CHANGELOG.md  | 1 +
 cider-mode.el | 4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index 1c7c5471f5..2ea008ec03 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -6,6 +6,7 @@
 
 * Use clojure-mode 
[5.14.0](https://github.com/clojure-emacs/clojure-mode/blob/v5.14.0/CHANGELOG.md#5140-2022-03-07).
 * [#3170](https://github.com/clojure-emacs/cider/issues/3170) Skip ensure repl 
available on xref functions.
+* [#3173](https://github.com/clojure-emacs/cider/issues/3173) Locally remove 
`cider-complete-at-point` from `completion-at-point-functions` instead of 
killing it as a local variable.
 
 ## 1.3.0 (2021-03-07)
 
diff --git a/cider-mode.el b/cider-mode.el
index 3897a612e6..ba6bbfc33c 100644
--- a/cider-mode.el
+++ b/cider-mode.el
@@ -1073,11 +1073,11 @@ property."
   (add-hook 'xref-backend-functions #'cider--xref-backend 
cider-xref-fn-depth 'local))
 (setq next-error-function #'cider-jump-to-compilation-error))
 ;; Mode cleanup
-(mapc #'kill-local-variable '(completion-at-point-functions
-  next-error-function
+(mapc #'kill-local-variable '(next-error-function
   x-gtk-use-system-tooltips
   font-lock-fontify-region-function
   clojure-get-indent-function))
+(remove-hook 'completion-at-point-functions #'cider-complete-at-point t)
 (when cider-use-xref
   (remove-hook 'xref-backend-functions #'cider--xref-backend 'local))
 (remove-hook 'font-lock-mode-hook #'cider-refresh-dynamic-font-lock 'local)

[nongnu] elpa/helm updated (5b17313011 -> 16ab10d4b8)

[ELPA Syncer]

elpasync pushed a change to branch elpa/helm.

  from  5b17313011 More update on bug template
   new  53c22dce50 Allow using 'diacritics as match attribute value (#2470)
   new  16ab10d4b8 Fix highlighting with diacritics (#2470)


Summary of changes:
 helm-core.el| 25 -
 helm-multi-match.el | 16 +++-
 helm-source.el  | 33 -
 3 files changed, 51 insertions(+), 23 deletions(-)

[nongnu] elpa/helm 53c22dce50 1/2: Allow using 'diacritics as match attribute value (#2470)

[ELPA Syncer]

branch: elpa/helm
commit 53c22dce50de03b21c5cf20a6710d0a663c89a66
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Allow using 'diacritics as match attribute value (#2470)
---
 helm-multi-match.el | 11 ++-
 helm-source.el  | 36 +++-
 2 files changed, 33 insertions(+), 14 deletions(-)

diff --git a/helm-multi-match.el b/helm-multi-match.el
index eda59f63df..512adda64a 100644
--- a/helm-multi-match.el
+++ b/helm-multi-match.el
@@ -206,6 +206,11 @@ E.g., ((identity . \"foo\") (not . \"bar\"))."
   (cons 'not (substring pat 1))
 (cons 'identity pat)
 
+(defun helm-mm-regexp-p (string)
+  (string-match-p "[[]*+^$.?\\]" string))
+
+(defvar helm-mm--match-on-diacritics nil)
+
 (cl-defun helm-mm-3-match (candidate &optional (pattern helm-pattern))
   "Check if PATTERN match CANDIDATE.
 When PATTERN contains a space, it is splitted and matching is
@@ -219,12 +224,16 @@ the same cons cell against CANDIDATE.
 I.e. (identity (string-match \"foo\" \"foo bar\")) => t."
   (let ((pat (helm-mm-3-get-patterns pattern)))
 (cl-loop for (predicate . regexp) in pat
+ for re = (if (and (not (helm-mm-regexp-p regexp))
+   helm-mm--match-on-diacritics)
+  (char-fold-to-regexp regexp)
+regexp)
  always (funcall predicate
  (condition-case _err
  ;; FIXME: Probably do nothing when
  ;; using fuzzy leaving the job
  ;; to the fuzzy fn.
- (string-match regexp candidate)
+ (string-match re candidate)
(invalid-regexp nil))
 
 (defun helm-mm-3-search-base (pattern searchfn1 searchfn2)
diff --git a/helm-source.el b/helm-source.el
index f96c2d6ce4..429c3e994a 100644
--- a/helm-source.el
+++ b/helm-source.el
@@ -469,6 +469,9 @@
   in the list of results and then results from the other
   functions, respectively.
 
+  If the special symbol `diacritics' is given as value helm will match
+  diacritics candidates with `char-fold-to-regexp'.
+ 
   This attribute has no effect for asynchronous sources (see
   attribute `candidates'), and sources using `match-dynamic'
   since they perform pattern matching themselves.
@@ -973,19 +976,26 @@ Arguments ARGS are keyword value pairs as defined in 
CLASS."
 (defvar helm-mm-default-search-functions)
 (defvar helm-mm-default-match-functions)
 
+(defun helm-source-default-match-fns (diacritics)
+  (list 'helm-mm-exact-match (lambda (candidate &optional _pattern)
+   (let ((helm-mm--match-on-diacritics diacritics))
+ (helm-mm-match candidate)
+  
 (defun helm-source-mm-get-search-or-match-fns (source method)
-  (let ((defmatch (helm-aif (slot-value source 'match)
-  (helm-mklist it)))
-(defmatch-strict  (helm-aif (and (eq method 'match)
- (slot-value source 'match-strict))
-  (helm-mklist it)))
-(defsearch(helm-aif (and (eq method 'search)
- (slot-value source 'search))
-  (helm-mklist it)))
-(defsearch-strict (helm-aif (and (eq method 'search-strict)
- (slot-value source 'search-strict))
-  (helm-mklist it)))
-(migemo   (slot-value source 'migemo)))
+  (let* (diacritics
+ (defmatch (helm-aif (slot-value source 'match)
+   (unless (setq diacritics (eq it 'diacritics))
+ (helm-mklist it
+ (defmatch-strict  (helm-aif (and (eq method 'match)
+  (slot-value source 'match-strict))
+   (helm-mklist it)))
+ (defsearch(helm-aif (and (eq method 'search)
+  (slot-value source 'search))
+   (helm-mklist it)))
+ (defsearch-strict (helm-aif (and (eq method 'search-strict)
+  (slot-value source 'search-strict))
+   (helm-mklist it)))
+ (migemo   (slot-value source 'migemo)))
 (cl-case method
   (match (cond (defmatch-strict)
(migemo
@@ -993,7 +1003,7 @@ Arguments ARGS are keyword value pairs as defined in 
CLASS."
 defmatch '(helm-mm-3-migemo-match)))
(defmatch
 (append helm-mm-default-match-functions defmatch))
-   (t helm-mm-default-match-functions)))
+   (t (helm-source-default-match-fns diacritics

[nongnu] elpa/helm 16ab10d4b8 2/2: Fix highlighting with diacritics (#2470)

[ELPA Syncer]

branch: elpa/helm
commit 16ab10d4b8213594e09c3164025c57a6fe9c6cf6
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Fix highlighting with diacritics (#2470)
---
 helm-core.el| 25 -
 helm-multi-match.el |  5 +
 helm-source.el  |  9 +++--
 3 files changed, 24 insertions(+), 15 deletions(-)

diff --git a/helm-core.el b/helm-core.el
index 1f98c1feaa..b9ed138fda 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -4465,12 +4465,14 @@ useful when the order of the candidates is meaningful, 
e.g. with
 `recentf-list'."
   (helm-fuzzy-matching-default-sort-fn-1 candidates nil nil t))
 
-(defun helm--maybe-get-migemo-pattern (pattern)
+(defun helm--maybe-get-migemo-pattern (pattern &optional diacritics)
   (or (and helm-migemo-mode
(assoc-default pattern helm-mm--previous-migemo-info))
-  pattern))
+  (if diacritics
+  (char-fold-to-regexp pattern)
+pattern)))
 
-(defun helm-fuzzy-default-highlight-match (candidate)
+(defun helm-fuzzy-default-highlight-match (candidate &optional diacritics)
   "The default function to highlight matches in fuzzy matching.
 Highlight elements in CANDIDATE matching `helm-pattern' according
 to the matching method in use."
@@ -4481,7 +4483,7 @@ to the matching method in use."
 (let* ((pair(and (consp candidate) candidate))
(display (helm-stringify (if pair (car pair) candidate)))
(real(cdr pair))
-   (regex   (helm--maybe-get-migemo-pattern helm-pattern))
+   (regex   (helm--maybe-get-migemo-pattern helm-pattern diacritics))
(mp  (pcase (get-text-property 0 'match-part display)
   ((pred (string= display)) nil)
   (str str)))
@@ -4510,8 +4512,11 @@ to the matching method in use."
   (when (zerop count)
 (cl-loop with multi-match = (string-match-p " " helm-pattern)
  with patterns = (if multi-match
- (mapcar 
#'helm--maybe-get-migemo-pattern
- (helm-mm-split-pattern 
helm-pattern))
+ (cl-loop for pat in 
(helm-mm-split-pattern
+  helm-pattern)
+  collect
+  
(helm--maybe-get-migemo-pattern
+   pat diacritics))
(split-string helm-pattern "" t))
  for p in patterns
  ;; Multi matches (regexps patterns).
@@ -4534,12 +4539,14 @@ to the matching method in use."
 (setq display (if mp (concat beg-str (buffer-string) end-str) 
(buffer-string
   (if real (cons display real) display
 
-(defun helm-fuzzy-highlight-matches (candidates _source)
+(defun helm-fuzzy-highlight-matches (candidates source)
   "The filtered-candidate-transformer function to highlight fuzzy matches.
 See `helm-fuzzy-default-highlight-match'."
   (cl-assert helm-fuzzy-matching-highlight-fn nil "Wrong type argument 
functionp: nil")
-  (cl-loop for c in candidates
-   collect (funcall helm-fuzzy-matching-highlight-fn c)))
+  (cl-loop with diac = (memq 'helm-mm-3-match-on-diacritics
+ (helm-mklist (helm-get-attr 'match source)))
+   for c in candidates
+   collect (funcall helm-fuzzy-matching-highlight-fn c diac)))
 
 
 ;;; helm-flex style
diff --git a/helm-multi-match.el b/helm-multi-match.el
index 512adda64a..b848c09cce 100644
--- a/helm-multi-match.el
+++ b/helm-multi-match.el
@@ -360,6 +360,11 @@ E.g. \"bar foo baz\" will match \"barfoobaz\" or 
\"barbazfoo\" but not
(multi3p #'helm-mm-3p-match
 (funcall fun candidate pattern)))
 
+(cl-defun helm-mm-3-match-on-diacritics (candidate &optional (pattern 
helm-pattern))
+  "Same as `helm-mm-3-match' but match on diacritics if possible."
+  (let ((helm-mm--match-on-diacritics t))
+(helm-mm-match candidate pattern)))
+
 (defun helm-mm-search (pattern &rest _ignore)
   "Search for PATTERN with `helm-mm-matching-method' function."
   (let ((fun (cl-ecase helm-mm-matching-method
diff --git a/helm-source.el b/helm-source.el
index 429c3e994a..d916f256e8 100644
--- a/helm-source.el
+++ b/helm-source.el
@@ -976,11 +976,6 @@ Arguments ARGS are keyword value pairs as defined in 
CLASS."
 (defvar helm-mm-default-search-functions)
 (defvar helm-mm-default-match-functions)
 
-(defun helm-source-default-match-fns (diacritics)
-  (list 'helm-mm-exact-match (lambda (candidate &optional _pattern)
-   (let ((helm-mm--match-on-diacritics diacritics))
- (helm-mm-match candidate)
-  
 (defun helm-source-mm-get-search-or-match-fns (source method)
   (let*

[nongnu] elpa/helm-core updated (5b17313011 -> 16ab10d4b8)

[ELPA Syncer]

elpasync pushed a change to branch elpa/helm-core.

  from  5b17313011 More update on bug template
  adds  53c22dce50 Allow using 'diacritics as match attribute value (#2470)
  adds  16ab10d4b8 Fix highlighting with diacritics (#2470)

No new revisions were added by this update.

Summary of changes:
 helm-core.el| 25 -
 helm-multi-match.el | 16 +++-
 helm-source.el  | 33 -
 3 files changed, 51 insertions(+), 23 deletions(-)

[nongnu] elpa/magit updated (d1ad778280 -> b4be194de1)

[ELPA Syncer]

elpasync pushed a change to branch elpa/magit.

  from  d1ad778280 magit-{cherry-pick,revert}-in-progress-p: Restore 
sequencer/todo check
  adds  b4be194de1 Fix typo

No new revisions were added by this update.

Summary of changes:
 docs/magit.org | 2 +-
 docs/magit.texi| 2 +-
 lisp/magit-diff.el | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

[nongnu] elpa/magit-section updated (d1ad778280 -> b4be194de1)

[ELPA Syncer]

elpasync pushed a change to branch elpa/magit-section.

  from  d1ad778280 magit-{cherry-pick,revert}-in-progress-p: Restore 
sequencer/todo check
  adds  b4be194de1 Fix typo

No new revisions were added by this update.

Summary of changes:
 docs/magit.org | 2 +-
 docs/magit.texi| 2 +-
 lisp/magit-diff.el | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

[elpa] externals/eglot fd9a5646d1: Fix #906: Protect against empty firstTriggerCharacter strings

[ELPA Syncer]

branch: externals/eglot
commit fd9a5646d1b49ef5968713005d83131dd75a52ad
Author: João Távora 
Commit: João Távora 

Fix #906: Protect against empty firstTriggerCharacter strings

Which some LS's like gopls like to send.

* eglot.el (eglot--post-self-insert-hook): Beware of empty strings.
---
 eglot.el | 11 ++-
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/eglot.el b/eglot.el
index ade8a7c711..86e798fabd 100644
--- a/eglot.el
+++ b/eglot.el
@@ -1993,11 +1993,12 @@ THINGS are either registrations or unregisterations 
(sic)."
   (setq eglot--last-inserted-char last-input-event)
   (let ((ot-provider (eglot--server-capable 
:documentOnTypeFormattingProvider)))
 (when (and ot-provider
-   (or (eq last-input-event
-   (elt (plist-get ot-provider :firstTriggerCharacter) 0))
-   (cl-find last-input-event
-(plist-get ot-provider :moreTriggerCharacter)
-:key #'seq-first)))
+   (ignore-errors ; github#906, some LS's send empty strings
+ (or (eq last-input-event
+ (seq-first (plist-get ot-provider 
:firstTriggerCharacter)))
+ (cl-find last-input-event
+  (plist-get ot-provider :moreTriggerCharacter)
+  :key #'seq-first
   (eglot-format (point) nil last-input-event
 
 (defun eglot--pre-command-hook ()

[nongnu] elpa/git-commit b4be194de1: Fix typo

[ELPA Syncer]

branch: elpa/git-commit
commit b4be194de1edb3d64ebf2abf199c6ec531904319
Author: Jorge Israel Peña 
Commit: Jonas Bernoulli 

Fix typo
---
 docs/magit.org | 2 +-
 docs/magit.texi| 2 +-
 lisp/magit-diff.el | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/docs/magit.org b/docs/magit.org
index 1a4341faa2..9d72725cf1 100644
--- a/docs/magit.org
+++ b/docs/magit.org
@@ -3359,7 +3359,7 @@ that they are available here too.
   https://github.com/magit/magit/issues/2758 ff.
 
   Instead of, or in addition to, using delimiting horizontal lines,
-  to emphasize the boundaries, you may which to emphasize the text
+  to emphasize the boundaries, you may wish to emphasize the text
   itself, using ~magit-diff-highlight-hunk-region-using-face~.
 
   In terminal frames it's not possible to draw lines as the overlay
diff --git a/docs/magit.texi b/docs/magit.texi
index b4a505383d..62e516f59f 100644
--- a/docs/magit.texi
+++ b/docs/magit.texi
@@ -4200,7 +4200,7 @@ limitations of Emacs' display engine.  For more 
information see
 @uref{https://github.com/magit/magit/issues/2758} ff.
 
 Instead of, or in addition to, using delimiting horizontal lines,
-to emphasize the boundaries, you may which to emphasize the text
+to emphasize the boundaries, you may wish to emphasize the text
 itself, using @code{magit-diff-highlight-hunk-region-using-face}.
 
 In terminal frames it's not possible to draw lines as the overlay
diff --git a/lisp/magit-diff.el b/lisp/magit-diff.el
index e76c898bd6..492c77042c 100644
--- a/lisp/magit-diff.el
+++ b/lisp/magit-diff.el
@@ -159,7 +159,7 @@ how we should do it.  However the overlay variant actually 
works
 better.  Also see https://github.com/magit/magit/issues/2758.
 
 Instead of, or in addition to, using delimiting horizontal lines,
-to emphasize the boundaries, you may which to emphasize the text
+to emphasize the boundaries, you may wish to emphasize the text
 itself, using `magit-diff-highlight-hunk-region-using-face'.
 
 In terminal frames it's not possible to draw lines as the overlay

[elpa] externals/nhexl-mode 45d4611f58: * nhexl-mode.el: Remove redundant dependency

[Stefan Monnier via]

branch: externals/nhexl-mode
commit 45d4611f584a4653c76dbf417ae86d5570a53ea3
Author: Stefan Monnier 
Commit: Stefan Monnier 

* nhexl-mode.el: Remove redundant dependency
---
 nhexl-mode.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/nhexl-mode.el b/nhexl-mode.el
index 761b949f91..ea51f4de37 100644
--- a/nhexl-mode.el
+++ b/nhexl-mode.el
@@ -5,7 +5,7 @@
 ;; Author: Stefan Monnier 
 ;; Keywords: data
 ;; Version: 1.5
-;; Package-Requires: ((emacs "24.4") (cl-lib "0.5"))
+;; Package-Requires: ((emacs "24.4"))
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by

[elpa] externals-release/org 64ee5c2c47: lisp/org-table.el: Fix bug in `org-table-row-get-visible-string'

[ELPA Syncer]

branch: externals-release/org
commit 64ee5c2c47e0167f4cd4740a8d57731d30d47b68
Author: Bastien 
Commit: Bastien 

lisp/org-table.el: Fix bug in `org-table-row-get-visible-string'

* lisp/org-table.el (org-table-row-get-visible-string): Don't use
`backward-char' in a function called in a post-command hook.
---
 lisp/org-table.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/org-table.el b/lisp/org-table.el
index c4daed1665..860fd6e560 100644
--- a/lisp/org-table.el
+++ b/lisp/org-table.el
@@ -462,14 +462,14 @@ This may be useful when columns have been shrunk."
 (when pos (goto-char pos))
 (goto-char (line-beginning-position))
 (let ((end (line-end-position)) str)
-  (backward-char)
+  (goto-char (1- pos))
   (while (progn (forward-char 1) (< (point) end))
(let ((ov (car (overlays-at (point)
  (if (not ov)
  (push (char-to-string (char-after)) str)
(push (overlay-get ov 'display) str)
(goto-char (1- (overlay-end ov))
-  (format "%s" (mapconcat #'identity (reverse str) "")
+  (format "|%s" (mapconcat #'identity (reverse str) "")
 
 (defvar-local org-table-header-overlay nil)
 (defun org-table-header-set-header ()

[elpa] externals/org updated (971eb6885e -> d7cae14953)

[ELPA Syncer]

elpasync pushed a change to branch externals/org.

  from  971eb6885e Merge branch 'bugfix'
   new  64ee5c2c47 lisp/org-table.el: Fix bug in 
`org-table-row-get-visible-string'
   new  d7cae14953 Merge branch 'bugfix'


Summary of changes:
 lisp/org-table.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

[elpa] externals/org d7cae14953: Merge branch 'bugfix'

[ELPA Syncer]

branch: externals/org
commit d7cae14953894cd1540026f238082dae9fbe74ef
Merge: 971eb6885e 64ee5c2c47
Author: Bastien 
Commit: Bastien 

Merge branch 'bugfix'
---
 lisp/org-table.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/org-table.el b/lisp/org-table.el
index 293e7a918e..2f31bef560 100644
--- a/lisp/org-table.el
+++ b/lisp/org-table.el
@@ -463,14 +463,14 @@ This may be useful when columns have been shrunk."
 (when pos (goto-char pos))
 (goto-char (line-beginning-position))
 (let ((end (line-end-position)) str)
-  (backward-char)
+  (goto-char (1- pos))
   (while (progn (forward-char 1) (< (point) end))
(let ((ov (car (overlays-at (point)
  (if (not ov)
  (push (char-to-string (char-after)) str)
(push (overlay-get ov 'display) str)
(goto-char (1- (overlay-end ov))
-  (format "%s" (mapconcat #'identity (reverse str) "")
+  (format "|%s" (mapconcat #'identity (reverse str) "")
 
 (defvar-local org-table-header-overlay nil)
 (defun org-table-header-set-header ()

[elpa] externals/marginalia 35fe7f12e4 2/2: Use get to detect cl-generic

[ELPA Syncer]

branch: externals/marginalia
commit 35fe7f12e4c21a0552036e5ec52a442cbfd7cb62
Author: Daniel Mendler 
Commit: Daniel Mendler 

Use get to detect cl-generic
---
 marginalia.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/marginalia.el b/marginalia.el
index 931451c39a..23688342bf 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -466,7 +466,7 @@ t cl-type"
 ((get s 'side-effect-free) "s"))
(cond
 ((commandp s) (if (get s 'interactive-only) "C" "c"))
-((cl--generic s) "g")
+((get s 'cl--generic) "g")
 ((macrop (symbol-function s)) "m")
 ((special-form-p (symbol-function s)) "M")
 (t "f"))

[elpa] externals/marginalia f57a6e8a91 1/2: marginalia--symbol-class: Detect cl-generic

[ELPA Syncer]

branch: externals/marginalia
commit f57a6e8a9110453d731209f78e12ebb0f6956766
Author: Daniel Mendler 
Commit: Daniel Mendler 

marginalia--symbol-class: Detect cl-generic
---
 marginalia.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/marginalia.el b/marginalia.el
index ca525d3857..931451c39a 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -440,6 +440,7 @@ c command
 C interactive-only command
 m macro
 M special-form
+g cl-generic
 p pure
 s side-effect-free
 @ autoloaded
@@ -465,6 +466,7 @@ t cl-type"
 ((get s 'side-effect-free) "s"))
(cond
 ((commandp s) (if (get s 'interactive-only) "C" "c"))
+((cl--generic s) "g")
 ((macrop (symbol-function s)) "m")
 ((special-form-p (symbol-function s)) "M")
 (t "f"))

[elpa] externals/marginalia updated (e63d27e6fb -> 35fe7f12e4)

[ELPA Syncer]

elpasync pushed a change to branch externals/marginalia.

  from  e63d27e6fb Remove obsolete variables
   new  f57a6e8a91 marginalia--symbol-class: Detect cl-generic
   new  35fe7f12e4 Use get to detect cl-generic


Summary of changes:
 marginalia.el | 2 ++
 1 file changed, 2 insertions(+)

[nongnu] elpa/git-commit a93a81007a 2/2: magit-diff-wash-signature: Fix indentation

[ELPA Syncer]

branch: elpa/git-commit
commit a93a81007a7347811230439fb793e0f1c55af76c
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

magit-diff-wash-signature: Fix indentation
---
 lisp/magit-diff.el | 10 +-
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lisp/magit-diff.el b/lisp/magit-diff.el
index 492c77042c..eecfee5b26 100644
--- a/lisp/magit-diff.el
+++ b/lisp/magit-diff.el
@@ -2161,11 +2161,11 @@ section or a child thereof."
  'face '(italic bold)
   (forward-line))
 (setq end (point-marker)))
-(magit-insert-section (signature magit-buffer-revision title)
-  (when title
-(magit-insert-heading title))
-  (goto-char end)
-  (insert "\n")
+  (magit-insert-section (signature magit-buffer-revision title)
+(when title
+  (magit-insert-heading title))
+(goto-char end)
+(insert "\n")
 
 (defun magit-diff-wash-diffstat ()
   (let (heading (beg (point)))

[nongnu] elpa/git-commit ae03ca91d7 1/2: Revert "magit-make-margin-overlay: Remove old kludge"

[ELPA Syncer]

branch: elpa/git-commit
commit ae03ca91d7ef45b095216ce17b2d285a02cdc4c2
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Revert "magit-make-margin-overlay: Remove old kludge"

This reverts commit 6f5f72bc9887af326e8dbdca67c00fd5713fe797.

Turns out this is necessary after all.  Without this the margin
for the empty line at the end of a log section (for example) is
not highlighted when the section is current.
---
 lisp/magit-margin.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/magit-margin.el b/lisp/magit-margin.el
index 415870c2e6..ae0c310880 100644
--- a/lisp/magit-margin.el
+++ b/lisp/magit-margin.el
@@ -156,7 +156,8 @@ does not carry to other options."
   (save-excursion
 (forward-line -1)
 (magit-make-margin-overlay string))
-(let ((o (make-overlay (line-beginning-position)
+;; Don't put the overlay on the complete line to work around #1880.
+(let ((o (make-overlay (1+ (line-beginning-position))
(line-end-position)
nil t)))
   (overlay-put o 'evaporate t)

[nongnu] elpa/git-commit updated (b4be194de1 -> a93a81007a)

[ELPA Syncer]

elpasync pushed a change to branch elpa/git-commit.

  from  b4be194de1 Fix typo
   new  ae03ca91d7 Revert "magit-make-margin-overlay: Remove old kludge"
   new  a93a81007a magit-diff-wash-signature: Fix indentation


Summary of changes:
 lisp/magit-diff.el   | 10 +-
 lisp/magit-margin.el |  3 ++-
 2 files changed, 7 insertions(+), 6 deletions(-)

[nongnu] elpa/magit updated (b4be194de1 -> a93a81007a)

[ELPA Syncer]

elpasync pushed a change to branch elpa/magit.

  from  b4be194de1 Fix typo
  adds  ae03ca91d7 Revert "magit-make-margin-overlay: Remove old kludge"
  adds  a93a81007a magit-diff-wash-signature: Fix indentation

No new revisions were added by this update.

Summary of changes:
 lisp/magit-diff.el   | 10 +-
 lisp/magit-margin.el |  3 ++-
 2 files changed, 7 insertions(+), 6 deletions(-)

[nongnu] elpa/magit-section updated (b4be194de1 -> a93a81007a)

[ELPA Syncer]

elpasync pushed a change to branch elpa/magit-section.

  from  b4be194de1 Fix typo
  adds  ae03ca91d7 Revert "magit-make-margin-overlay: Remove old kludge"
  adds  a93a81007a magit-diff-wash-signature: Fix indentation

No new revisions were added by this update.

Summary of changes:
 lisp/magit-diff.el   | 10 +-
 lisp/magit-margin.el |  3 ++-
 2 files changed, 7 insertions(+), 6 deletions(-)

[nongnu] elpa/keycast 2316522e73: Fix indentation

[ELPA Syncer]

branch: elpa/keycast
commit 2316522e734a8e4493ce315907d889b801f28ed5
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Fix indentation
---
 keycast.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/keycast.el b/keycast.el
index 6bbe746f66..ae1a3fffee 100644
--- a/keycast.el
+++ b/keycast.el
@@ -260,7 +260,7 @@ t to show the actual COMMAND, or a symbol to be shown 
instead."
  :weight bold
  :background "#d5cfbf"
  :foreground "#00"
-:box (:line-width -3 :style released-button
+ :box (:line-width -3 :style released-button
   "When Keycast mode is enabled, face used for the key in the mode line."
   :group 'keycast)
 

[elpa] externals/marginalia 746f738989: Use cl-generic-p

[ELPA Syncer]

branch: externals/marginalia
commit 746f73898987571a6703155d882d983334c7f950
Author: Daniel Mendler 
Commit: Daniel Mendler 

Use cl-generic-p

It seems that in contrast to cl-lib, cl-generic is always loaded.
---
 marginalia.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/marginalia.el b/marginalia.el
index 23688342bf..04b9ea06bc 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -466,7 +466,7 @@ t cl-type"
 ((get s 'side-effect-free) "s"))
(cond
 ((commandp s) (if (get s 'interactive-only) "C" "c"))
-((get s 'cl--generic) "g")
+((cl-generic-p s) "g")
 ((macrop (symbol-function s)) "m")
 ((special-form-p (symbol-function s)) "M")
 (t "f"))

[nongnu] elpa/git-commit 6a5c79fd1b 2/2: Fix indentation

[ELPA Syncer]

branch: elpa/git-commit
commit 6a5c79fd1b19c5f64b2fdfc04112359954d06c1d
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Fix indentation
---
 lisp/git-commit.el  | 18 +-
 lisp/magit-apply.el |  2 +-
 lisp/magit-diff.el  |  8 
 lisp/magit-extras.el|  8 
 lisp/magit-libgit.el|  4 ++--
 lisp/magit-process.el   |  2 +-
 lisp/magit-repos.el |  2 +-
 lisp/magit-submodule.el |  6 +++---
 lisp/magit-transient.el |  8 
 lisp/magit.el   |  8 
 10 files changed, 33 insertions(+), 33 deletions(-)

diff --git a/lisp/git-commit.el b/lisp/git-commit.el
index 2ca03fddf2..6f6f8a56d2 100644
--- a/lisp/git-commit.el
+++ b/lisp/git-commit.el
@@ -531,15 +531,15 @@ to recover older messages")
   ;; Pretend that git-commit-mode is a major-mode,
   ;; so that directory-local settings can be used.
   (let ((default-directory
-  (or (and (not (file-exists-p ".dir-locals.el"))
-   ;; When $GIT_DIR/.dir-locals.el doesn't exist,
-   ;; fallback to $GIT_WORK_TREE/.dir-locals.el,
-   ;; because the maintainer can use the latter
-   ;; to enforce conventions, while s/he has no
-   ;; control over the former.
-   (fboundp 'magit-toplevel)  ; silence byte-compiler
-   (magit-toplevel))
-  default-directory)))
+ (or (and (not (file-exists-p ".dir-locals.el"))
+  ;; When $GIT_DIR/.dir-locals.el doesn't exist,
+  ;; fallback to $GIT_WORK_TREE/.dir-locals.el,
+  ;; because the maintainer can use the latter
+  ;; to enforce conventions, while s/he has no
+  ;; control over the former.
+  (fboundp 'magit-toplevel)  ; silence byte-compiler
+  (magit-toplevel))
+ default-directory)))
 (let ((buffer-file-name nil) ; trick hack-dir-local-variables
   (major-mode 'git-commit-mode)) ; trick dir-locals-collect-variables
   (hack-dir-local-variables)
diff --git a/lisp/magit-apply.el b/lisp/magit-apply.el
index 66a6333fd5..52db7c0463 100644
--- a/lisp/magit-apply.el
+++ b/lisp/magit-apply.el
@@ -373,7 +373,7 @@ ignored) files."
  start))
 (let* ((topdir (magit-toplevel))
(url (let ((default-directory
-(file-name-as-directory (expand-file-name repo
+   (file-name-as-directory (expand-file-name repo
   (or (magit-get "remote" (magit-get-some-remote) "url")
   (concat (file-name-as-directory ".") repo
(package
diff --git a/lisp/magit-diff.el b/lisp/magit-diff.el
index ac1ff6803c..ff0a5bce6e 100644
--- a/lisp/magit-diff.el
+++ b/lisp/magit-diff.el
@@ -917,7 +917,7 @@ and `:slant'."
("=g" "Show signature" "--show-signature"
 :if-derived magit-diff-mode)
(5 "-R" "Reverse sides""-R"
-:if-derived magit-diff-mode)
+  :if-derived magit-diff-mode)
(5 magit-diff:--color-moved)
(5 magit-diff:--color-moved-ws)]
   [["Refresh"
@@ -2401,8 +2401,8 @@ section or a child thereof."
" content"))
   ")")
 (let ((default-directory
-(file-name-as-directory
- (expand-file-name module (magit-toplevel)
+   (file-name-as-directory
+(expand-file-name module (magit-toplevel)
   (magit-git-wash (apply-partially #'magit-log-wash-log 'module)
 "log" "--oneline" "--left-right" range)
   (delete-char -1)
@@ -3230,7 +3230,7 @@ are highlighted."
   (cdr (--first (string-match-p (car it) default-directory)
 (nreverse
  (default-value
-   'magit-diff-highlight-indentation
+  'magit-diff-highlight-indentation
   (when (and magit-diff-highlight-trailing
  (looking-at (concat prefix ".*?\\([ \t]+\\)$")))
 (let ((ov (make-overlay (match-beginning 1) (match-end 1) nil t)))
diff --git a/lisp/magit-extras.el b/lisp/magit-extras.el
index 2881ddfab1..3928d72550 100644
--- a/lisp/magit-extras.el
+++ b/lisp/magit-extras.el
@@ -694,10 +694,10 @@ the minibuffer too."
   (interactive
(if (or current-prefix-arg (not magit-revision-stack))
(let ((default-directory
-   (or (and (not (= (prefix-numeric-value current-prefix-arg) 16))
-(or (magit-toplevel)
-(cadr (car magit-revision-stack
-   (magit-read-repository
+  (or (and (not (= (prefix-numeric-value current-prefix-arg) 16))
+   (or (magit-toplevel)
+   (cadr (car mag

[nongnu] elpa/git-commit updated (a93a81007a -> 6a5c79fd1b)

[ELPA Syncer]

elpasync pushed a change to branch elpa/git-commit.

  from  a93a81007a magit-diff-wash-signature: Fix indentation
   new  c1a9994db6 Use defun indentation for function bindings
   new  6a5c79fd1b Fix indentation


Summary of changes:
 lisp/git-commit.el  | 18 +-
 lisp/magit-apply.el |  2 +-
 lisp/magit-blame.el | 22 +++---
 lisp/magit-diff.el  | 50 -
 lisp/magit-extras.el| 18 +-
 lisp/magit-libgit.el|  4 ++--
 lisp/magit-margin.el| 16 
 lisp/magit-mode.el  | 20 ++--
 lisp/magit-process.el   | 20 ++--
 lisp/magit-repos.el |  2 +-
 lisp/magit-status.el| 15 +++
 lisp/magit-submodule.el |  6 +++---
 lisp/magit-transient.el |  8 
 lisp/magit.el   |  8 
 14 files changed, 104 insertions(+), 105 deletions(-)

[nongnu] elpa/git-commit c1a9994db6 1/2: Use defun indentation for function bindings

[ELPA Syncer]

branch: elpa/git-commit
commit c1a9994db66f69fe26fa1e03f26619688c877cb6
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Use defun indentation for function bindings
---
 lisp/magit-blame.el   | 22 +++---
 lisp/magit-diff.el| 42 +-
 lisp/magit-extras.el  | 10 +-
 lisp/magit-margin.el  | 16 
 lisp/magit-mode.el| 20 ++--
 lisp/magit-process.el | 18 +-
 lisp/magit-status.el  | 15 +++
 7 files changed, 71 insertions(+), 72 deletions(-)

diff --git a/lisp/magit-blame.el b/lisp/magit-blame.el
index 1832e60c6b..279098e09d 100644
--- a/lisp/magit-blame.el
+++ b/lisp/magit-blame.el
@@ -679,19 +679,19 @@ modes is toggled, then this mode also gets toggled 
automatically.
(magit--format-spec
 (propertize format 'font-lock-face face)
 (cl-flet* ((p0 (s f)
-   (propertize s 'font-lock-face
-   (if face
-   (if (listp face)
-   face
- (list f face))
- f)))
+ (propertize s 'font-lock-face
+ (if face
+ (if (listp face)
+ face
+   (list f face))
+   f)))
(p1 (k f)
-   (p0 (cdr (assoc k revinfo)) f))
+ (p0 (cdr (assoc k revinfo)) f))
(p2 (k1 k2 f)
-   (p0 (magit-blame--format-time-string
-(cdr (assoc k1 revinfo))
-(cdr (assoc k2 revinfo)))
-   f)))
+ (p0 (magit-blame--format-time-string
+  (cdr (assoc k1 revinfo))
+  (cdr (assoc k2 revinfo)))
+ f)))
   `((?H . ,(p0 rev 'magit-blame-hash))
 (?s . ,(p1 "summary"   'magit-blame-summary))
 (?a . ,(p1 "author"'magit-blame-name))
diff --git a/lisp/magit-diff.el b/lisp/magit-diff.el
index eecfee5b26..ac1ff6803c 100644
--- a/lisp/magit-diff.el
+++ b/lisp/magit-diff.el
@@ -1423,13 +1423,13 @@ toggle the file restriction in the repository's 
revision buffer
 instead."
   (interactive)
   (cl-flet ((toggle ()
-(if (or magit-buffer-diff-files
-magit-buffer-diff-files-suspended)
-(cl-rotatef magit-buffer-diff-files
-magit-buffer-diff-files-suspended)
-  (setq magit-buffer-diff-files
-(transient-infix-read 'magit:--)))
-(magit-refresh)))
+  (if (or magit-buffer-diff-files
+  magit-buffer-diff-files-suspended)
+  (cl-rotatef magit-buffer-diff-files
+  magit-buffer-diff-files-suspended)
+(setq magit-buffer-diff-files
+  (transient-infix-read 'magit:--)))
+  (magit-refresh)))
 (cond
  ((derived-mode-p 'magit-log-mode
   'magit-cherry-mode
@@ -3181,13 +3181,13 @@ are highlighted."
 (defun magit-diff-tab-width (file)
   (setq file (expand-file-name file))
   (cl-flet ((cache (value)
-   (let ((elt (assoc file magit-diff--tab-width-cache)))
- (if elt
- (setcdr elt value)
-   (setq magit-diff--tab-width-cache
- (cons (cons file value)
-   magit-diff--tab-width-cache
-   value))
+  (let ((elt (assoc file magit-diff--tab-width-cache)))
+(if elt
+(setcdr elt value)
+  (setq magit-diff--tab-width-cache
+(cons (cons file value)
+  magit-diff--tab-width-cache
+  value))
 (cond
  ((not magit-diff-adjust-tab-width)
   tab-width)
@@ -3270,10 +3270,10 @@ are highlighted."
 (oref section end)
 'diff-mode 'fine
 (cl-labels ((recurse (section)
- (if (magit-section-match 'hunk section)
- (magit-diff-update-hunk-refinement section)
-   (dolist (child (oref section children))
- (recurse child)
+  (if (magit-section-match 'hunk section)
+  (magit-diff-update-hunk-refinement section)
+(dolist

[nongnu] elpa/magit updated (a93a81007a -> 6a5c79fd1b)

[ELPA Syncer]

elpasync pushed a change to branch elpa/magit.

  from  a93a81007a magit-diff-wash-signature: Fix indentation
  adds  c1a9994db6 Use defun indentation for function bindings
  adds  6a5c79fd1b Fix indentation

No new revisions were added by this update.

Summary of changes:
 lisp/git-commit.el  | 18 +-
 lisp/magit-apply.el |  2 +-
 lisp/magit-blame.el | 22 +++---
 lisp/magit-diff.el  | 50 -
 lisp/magit-extras.el| 18 +-
 lisp/magit-libgit.el|  4 ++--
 lisp/magit-margin.el| 16 
 lisp/magit-mode.el  | 20 ++--
 lisp/magit-process.el   | 20 ++--
 lisp/magit-repos.el |  2 +-
 lisp/magit-status.el| 15 +++
 lisp/magit-submodule.el |  6 +++---
 lisp/magit-transient.el |  8 
 lisp/magit.el   |  8 
 14 files changed, 104 insertions(+), 105 deletions(-)

[nongnu] elpa/magit-section updated (a93a81007a -> 6a5c79fd1b)

[ELPA Syncer]

elpasync pushed a change to branch elpa/magit-section.

  from  a93a81007a magit-diff-wash-signature: Fix indentation
  adds  c1a9994db6 Use defun indentation for function bindings
  adds  6a5c79fd1b Fix indentation

No new revisions were added by this update.

Summary of changes:
 lisp/git-commit.el  | 18 +-
 lisp/magit-apply.el |  2 +-
 lisp/magit-blame.el | 22 +++---
 lisp/magit-diff.el  | 50 -
 lisp/magit-extras.el| 18 +-
 lisp/magit-libgit.el|  4 ++--
 lisp/magit-margin.el| 16 
 lisp/magit-mode.el  | 20 ++--
 lisp/magit-process.el   | 20 ++--
 lisp/magit-repos.el |  2 +-
 lisp/magit-status.el| 15 +++
 lisp/magit-submodule.el |  6 +++---
 lisp/magit-transient.el |  8 
 lisp/magit.el   |  8 
 14 files changed, 104 insertions(+), 105 deletions(-)

[elpa] externals/osm 1264c3e1dc: Download tiles in batch (Fix #20)

[ELPA Syncer]

branch: externals/osm
commit 1264c3e1dc514567a5093b46fa5b4a7abdf74dec
Author: Daniel Mendler 
Commit: Daniel Mendler 

Download tiles in batch (Fix #20)

By downloading multiple tiles in batch we avoid expensive https reconnects.
This speeds up loading tiles and reduces the load on the server.
---
 osm.el | 115 +
 1 file changed, 80 insertions(+), 35 deletions(-)

diff --git a/osm.el b/osm.el
index d9899d25d0..c9db407c7d 100644
--- a/osm.el
+++ b/osm.el
@@ -39,7 +39,9 @@
 
 (require 'bookmark)
 (require 'dom)
-(eval-when-compile (require 'cl-lib))
+(eval-when-compile
+  (require 'cl-lib)
+  (require 'subr-x))
 
 (defgroup osm nil
   "OpenStreetMap viewer."
@@ -47,10 +49,16 @@
   :prefix "osm-")
 
 (defcustom osm-curl-options
-  "--fail --location --silent"
-  "Additional Curl command line options."
+  "--disable --fail --location --silent"
+  "Curl command line options."
   :type 'string)
 
+(defcustom osm-download-batch 4
+  "Number of tiles to fetch as a batch.
+This reduces the overhead of https handshake, since the connection is
+kept alive."
+  :type 'integer)
+
 (defcustom osm-server-defaults
   '(:min-zoom 2 :max-zoom 19 :max-connections 2 :subdomains ("a" "b" "c"))
   "Default server properties."
@@ -339,6 +347,9 @@ Should be at least 7 days according to the server usage 
policies."
 (defvar-local osm--download-active nil
   "Active download jobs.")
 
+(defvar-local osm--download-processes 0
+  "Number of active download processes.")
+
 (defvar-local osm--wx 0
   "Half window width in pixel.")
 
@@ -442,13 +453,10 @@ Should be at least 7 days according to the server usage 
policies."
 
 (defun osm--tile-url (x y zoom)
   "Return tile url for coordinate X, Y and ZOOM."
-  (let* ((url (osm--server-property :url))
- (sub (osm--server-property :subdomains))
- (count (length sub)))
-(prog1
-(format-spec url `((?z . ,zoom) (?x . ,x) (?y . ,y)
-   (?s . ,(nth (mod osm--subdomain-index count) sub
-  (setq osm--subdomain-index (mod (1+ osm--subdomain-index) count)
+  (let ((url (osm--server-property :url))
+(sub (osm--server-property :subdomains)))
+(format-spec url `((?z . ,zoom) (?x . ,x) (?y . ,y)
+   (?s . ,(nth (mod osm--subdomain-index (length sub)) 
sub))
 
 (defun osm--tile-file (x y zoom)
   "Return tile file name for coordinate X, Y and ZOOM."
@@ -468,38 +476,74 @@ Should be at least 7 days according to the server usage 
policies."
   (unless (or (member job osm--download-queue) (member job 
osm--download-active))
 (setq osm--download-queue (nconc osm--download-queue (list job)))
 
+(defun osm--download-filter (output)
+  "Filter function for the download process which receives OUTPUT."
+  (dolist (line (split-string output "\n" t))
+(when (string-match
+   "\\`\\([0-9]+\\) 
\\(.*?/\\([^/]+\\)/\\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\)\\..+\\.tmp\\)\\'"
+   line)
+  (let ((status (string-to-number (match-string 1 line)))
+(file (match-string 2 line))
+(server (intern-soft (match-string 3 line)))
+(zoom (string-to-number (match-string 4 line)))
+(x (string-to-number (match-string 5 line)))
+(y (string-to-number (match-string 6 line
+(when (and (= status 200) (= osm--zoom zoom) (eq osm-server server))
+  (ignore-errors (rename-file file (string-remove-suffix ".tmp" file) 
t))
+  (osm--display-tile x y (osm--get-tile x y)))
+(setq osm--download-active (delete `(,x ,y . ,zoom) 
osm--download-active))
+(delete-file file
+  (force-mode-line-update))
+
+(defun osm--download-command ()
+  "Build download command."
+  (let* ((count 0)
+ (subs (length (osm--server-property :subdomains)))
+ (parallel (* subs (osm--server-property :max-connections)))
+ args jobs job)
+(while (and (< count osm-download-batch)
+(setq job (nth (* count parallel) osm--download-queue)))
+  (pcase-let ((`(,x ,y . ,zoom) job))
+(setq args `(,(osm--tile-url x y zoom)
+ ,(concat (osm--tile-file x y zoom) ".tmp")
+ "--output"
+ ,@args))
+(push job jobs)
+(push job osm--download-active)
+(cl-incf count)))
+(dolist (job jobs)
+  (setq osm--download-queue (delq job osm--download-queue)))
+(setq osm--subdomain-index (mod (1+ osm--subdomain-index) subs))
+`("curl" "--write-out" "%{http_code} %{filename_effective}\n"
+  ,@(split-string-shell-command osm-curl-options) ,@(nreverse args
+
 (defun osm--download ()
-  "Download next tile in queue."
-  (when-let (job (and (< (length osm--download-active)
- (* (length (osm--server-property :subdomains))
-(osm--server-property :max-connections)))
-  

[elpa] externals/pulsar c6b2c25a42: Handle region highlights (pulsar-highlight-dwim)

[ELPA Syncer]

branch: externals/pulsar
commit c6b2c25a42c1a9910ed80fa41a7d2f7e99ec1064
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Handle region highlights (pulsar-highlight-dwim)

Thanks to Mark Barton for the feedback in issue 13:
.
---
 README.org | 15 +--
 pulsar.el  | 58 +++---
 2 files changed, 68 insertions(+), 5 deletions(-)

diff --git a/README.org b/README.org
index 3ca154acb1..b16166b1ba 100644
--- a/README.org
+++ b/README.org
@@ -96,11 +96,19 @@ will pulse before fading away.  Whereas the 
~pulsar-highlight-line~
 command never pulses the line: the highlight stays in place as if
 ~pulsar-pulse~ is nil.
 
+[ The ~pulsar-highlight-dwim~ is part of {{{development-version}}} ]
+
+#+findex: pulsar-highlight-dwim
+A do-what-I-mean command is also on offer: ~pulsar-highlight-dwim~.  It
+highlights the current line line like ~pulsar-highlight-line~.  If the
+region is active, it applies its effect there.  The region may also be a
+rectangle (internally they differ from ordinary regions).
+
 #+vindex: pulsar-highlight-face
 To help users differentiate between the pulse and highlight effects, the
 user option ~pulsar-highlight-face~ controls the presentation of the
-~pulsar-highlight-line~ command.  By default, this variable is the same
-as ~pulsar-face~.
+~pulsar-highlight-line~ and ~pulsar-highlight-dwim~ commands.  By
+default, this variable is the same as ~pulsar-face~.
 
 Pulsar depends on the built-in ~pulse.el~ library.
 
@@ -222,6 +230,9 @@ Remember to read the doc string of each of these variables.
 ;;
 ;; The author uses C-x l for `pulsar-pulse-line' and C-x L for
 ;; `pulsar-highlight-line'.
+;;
+;; You can replace `pulsar-highlight-line' with the command
+;; `pulsar-highlight-dwim'.
 (let ((map global-map))
   (define-key map (kbd "C-c h p") #'pulsar-pulse-line)
   (define-key map (kbd "C-c h h") #'pulsar-highlight-line))
diff --git a/pulsar.el b/pulsar.el
index de5514a738..8684a8ff45 100644
--- a/pulsar.el
+++ b/pulsar.el
@@ -257,17 +257,20 @@ pulse.  Only applies when `pulsar-pulse' is non-nil."
   (line-beginning-position 1)
 (line-beginning-position 2)))
 
-(defun pulsar--pulse (&optional no-pulse face)
+(defun pulsar--pulse (&optional no-pulse face start end)
   "Highlight the current line.
 With optional NO-PULSE keep the highlight until another command
 is invoked.  Otherwise use whatever `pulsar-pulse' entails.
 
-With optional FACE, use it instead of `pulsar-face'."
+With optional FACE, use it instead of `pulsar-face'.
+
+With optional START and END, highlight the region in-between
+instead of the current line."
   (let* ((pulse-flag (if no-pulse nil pulsar-pulse))
  (pulse-delay pulsar-delay)
  (pulse-iterations pulsar-iterations)
  (f (if (facep face) face pulsar-face))
- (o (make-overlay (pulsar--start) (pulsar--end
+ (o (make-overlay (or start (pulsar--start)) (or end (pulsar--end)
 (overlay-put o 'pulse-delete t)
 (overlay-put o 'window (frame-selected-window))
 (pulse-momentary-highlight-overlay o f)))
@@ -295,6 +298,55 @@ default)."
   (interactive)
   (pulsar--pulse :no-pulse pulsar-highlight-face))
 
+; Highlight region
+
+(defvar-local pulsar--rectangle-face-cookie nil
+  "Cookie of remapped rectangle region face.")
+
+(autoload 'face-remap-remove-relative "face-remap.el")
+
+(defun pulsar--remove-face-remap ()
+  "Remove `pulsar--rectangle-face-cookie'."
+  (when pulsar--rectangle-face-cookie
+(face-remap-remove-relative pulsar--rectangle-face-cookie)))
+
+(defvar rectangle-mark-mode)
+
+;; When we highlight a region, it gets the `region' face.  The
+;; `pulsar-highlight-dwim' overlays it with `pulsar-highlight-face'
+;; using a standard pulse.el mechanism.  If the user tries to expand the
+;; region further, it gets its original face.  This function ensures
+;; that the rectangle behaves the same way (pulse.el does not handle
+;; rectangular regions).
+(defun pulsar--remove-rectangle-remap ()
+  "Remove face remap from rectangle region when appropriate."
+  (when (and rectangle-mark-mode
+ (not (eq this-command 'pulsar-highlight-dwim)))
+(pulsar--remove-face-remap)))
+
+(defun pulsar--highlight-rectangle ()
+  "Remap `region' face and set `pulsar--remove-face-remap'."
+  (setq pulsar--rectangle-face-cookie
+(face-remap-add-relative 'region pulsar-highlight-face))
+  (add-hook 'post-command-hook #'pulsar--remove-rectangle-remap nil t)
+  (add-hook 'deactivate-mark-hook #'pulsar--remove-face-remap nil t))
+
+;;;###autoload
+(defun pulsar-highlight-dwim (beg end)
+  "Temporarily highlight the current line or active region.
+The region is the space between the BEG and END positions.  The
+region may also be a rectangle.
+
+For lines, do the same as `pulsar-highlight-line'."
+  (interactive "r")
+  (cond
+   (rectangle-mark-mode
+(pulsar--highl

[elpa] externals/org 6d73cd34a0: Replace all uses of the old `defadvice` with the new `advice-add`

[ELPA Syncer]

branch: externals/org
commit 6d73cd34a07796c33f9435bfc8c9a19e67656c7a
Author: Stefan Monnier 
Commit: Bastien 

Replace all uses of the old `defadvice` with the new `advice-add`

* lisp/org.el (org-run-like-in-org-mode): Strength reduce `eval`
to `cl-progv`.
(org--check-org-structure-template-alist): Strength reduce `eval`
to `symbol-value`.
(org-map-entries, org-eval-in-calendar, org-diary-sexp-entry):
Make sure we use the new lexically scoped dialect.
(org--math-always-on): New function, extracted from advice.
(org-cdlatex-mode): Use it with `advice-add`.
(org-self-insert-command): Simplify `and`+`listp` into `consp`.
(org-submit-bug-report):
Make sure we use the new lexically scoped dialect.

* lisp/org-protocol.el (org-protocol-convert-query-to-plist):
Use `cl-mapcan`.
(org--protocol-detect-protocol-server): New function, extracted
from advice.
(server-visit-files): Use it with `advice-add`.

* lisp/org-mouse.el (org--mouse-dnd-insert-text): New function, extracted
from advice.
(dnd-insert-text): Use it with `advice-add`.
(org--mouse-dnd-open-file): New function, extracted from advice.
(dnd-open-file): Use it with `advice-add`.
(org--mouse-open-at-point): New function, extracted from advice.
(org-mode-hook): Advise `org-open-at-point` with `advice-add`.

* lisp/org-ctags.el (org--ctags-load-tag-list): New function, extracted
from advice.
(visit-tags-table): Use it with `advice-add`.
(org--ctags-set-org-mark-before-finding-tag): New function, extracted
from advice.
(xref-find-definitions): Use it with `advice-add`.

* lisp/org-compat.el (org-bookmark-jump-unhide): Accept (unused) args.
(save-place-find-file-hook): Use `advice-add`.
(org--ecb-show-context): New function, extracted from advice.
(ecb-method-clicked): Use it with `advice-add`.
(org-mark-jump-unhide): Accept (unused) args.
(pop-to-mark-command, exchange-point-and-mark, pop-global-mark):
Use `advice-add`.

Along the way, remove some redundant `:group` args
(redundant because they specify the same group as would be used by
default anyway) and make a few other simplifications.
Also don't bother putting `advice-add` within an eval-after-load
since the advice machinery already takes care of handling it.
---
 lisp/org-compat.el   | 38 +++--
 lisp/org-ctags.el| 11 +-
 lisp/org-mouse.el| 30 ++
 lisp/org-persist.el  |  5 ++---
 lisp/org-protocol.el | 35 +++---
 lisp/org-tempo.el|  9 
 lisp/org.el  | 60 +---
 lisp/ox-odt.el   | 32 ++--
 8 files changed, 98 insertions(+), 122 deletions(-)

diff --git a/lisp/org-compat.el b/lisp/org-compat.el
index 38d330de6d..f768a8233b 100644
--- a/lisp/org-compat.el
+++ b/lisp/org-compat.el
@@ -901,7 +901,6 @@ attention to case differences."
 (defcustom org-imenu-depth 2
   "The maximum level for Imenu access to Org headlines.
 This also applied for speedbar access."
-  :group 'org-imenu-and-speedbar
   :type 'integer)
 
  Imenu
@@ -1114,7 +1113,7 @@ ELEMENT is the element at point."
 
  Bookmark
 
-(defun org-bookmark-jump-unhide ()
+(defun org-bookmark-jump-unhide (&rest _)
   "Unhide the current position, to show the bookmark location."
   (and (derived-mode-p 'org-mode)
(or (org-invisible-p)
@@ -1123,7 +1122,7 @@ ELEMENT is the element at point."
(org-show-context 'bookmark-jump)))
 
 ;; Make `bookmark-jump' shows the jump location if it was hidden.
-(add-hook 'bookmark-after-jump-hook 'org-bookmark-jump-unhide)
+(add-hook 'bookmark-after-jump-hook #'org-bookmark-jump-unhide)
 
  Calendar
 
@@ -1176,42 +1175,29 @@ key."
  Saveplace
 
 ;; Make sure saveplace shows the location if it was hidden
-(eval-after-load 'saveplace
-  '(defadvice save-place-find-file-hook (after org-make-visible activate)
- "Make the position visible."
- (org-bookmark-jump-unhide)))
+(advice-add 'save-place-find-file-hook :after #'org-bookmark-jump-unhide)
 
  Ecb
 
 ;; Make sure ecb shows the location if it was hidden
-(eval-after-load 'ecb
-  '(defadvice ecb-method-clicked (after esf/org-show-context activate)
- "Make hierarchy visible when jumping into location from ECB tree buffer."
- (when (derived-mode-p 'org-mode)
-   (org-show-context
+(advice-add 'ecb-method-clicked :after #'org--ecb-show-context)
+(defun org--ecb-show-context (&rest _)
+  "Make hierarchy visible when jumping into location from ECB tree buffer."
+  (when (derived-mode-p 'org-mode)
+(org-show-context)))
 
  Simple
 
-(defun org-mark-jump-unhide ()
+(defun org-mark-jump-unhide (&rest _)
   "Make the point visible with `org-show-context' after jumping to the mark."
   (when (and (derived-mode-p 'org-mode)
 (org-invis