[elpa] externals/compat ae2404e13d: Explicitly define versions instead of inferring them from file names

[ELPA Syncer]

branch: externals/compat
commit ae2404e13dc58f71f66be5895631011b3a6b2240
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Explicitly define versions instead of inferring them from file names

This is a further simplification that avoids difficult edge cases.
Among other things this also satisfied Flymake, that copies and
renames files to a temporary directory, breaking the version inference
process.
---
 compat-24.el| 33 ++---
 compat-25.el|  2 ++
 compat-26.el|  2 ++
 compat-27.el|  2 ++
 compat-28.el|  2 ++
 compat-macs.el  | 31 ---
 compat-tests.el | 17 +++--
 7 files changed, 25 insertions(+), 64 deletions(-)

diff --git a/compat-24.el b/compat-24.el
index f208ae7bd8..8e0fd93e92 100644
--- a/compat-24.el
+++ b/compat-24.el
@@ -39,11 +39,12 @@
 
 (eval-when-compile (require 'compat-macs))
 
+(compat-declare-version "24.4")
+
  Defined in data.c
 
 (compat-defun = (number-or-marker &rest numbers-or-markers)
   "Handle multiple arguments."
-  :version "24.4"
   :prefix t
   (catch 'fail
 (while numbers-or-markers
@@ -54,7 +55,6 @@
 
 (compat-defun < (number-or-marker &rest numbers-or-markers)
   "Handle multiple arguments."
-  :version "24.4"
   :prefix t
   (catch 'fail
 (while numbers-or-markers
@@ -65,7 +65,6 @@
 
 (compat-defun > (number-or-marker &rest numbers-or-markers)
   "Handle multiple arguments."
-  :version "24.4"
   :prefix t
   (catch 'fail
 (while numbers-or-markers
@@ -76,7 +75,6 @@
 
 (compat-defun <= (number-or-marker &rest numbers-or-markers)
   "Handle multiple arguments."
-  :version "24.4"
   :prefix t
   (catch 'fail
 (while numbers-or-markers
@@ -87,7 +85,6 @@
 
 (compat-defun >= (number-or-marker &rest numbers-or-markers)
   "Handle multiple arguments."
-  :version "24.4"
   :prefix t
   (catch 'fail
 (while numbers-or-markers
@@ -100,7 +97,6 @@
 If optional third argument C is given, store result into C.
 A, B, and C must be bool vectors of the same length.
 Return the destination vector if it changed or nil otherwise."
-  :version "24.4"
   (unless (bool-vector-p a)
 (signal 'wrong-type-argument (list 'bool-vector-p a)))
   (unless (bool-vector-p b)
@@ -124,7 +120,6 @@ Return the destination vector if it changed or nil 
otherwise."
 If optional third argument C is given, store result into C.
 A, B, and C must be bool vectors of the same length.
 Return the destination vector if it changed or nil otherwise."
-  :version "24.4"
   (unless (bool-vector-p a)
 (signal 'wrong-type-argument (list 'bool-vector-p a)))
   (unless (bool-vector-p b)
@@ -148,7 +143,6 @@ Return the destination vector if it changed or nil 
otherwise."
 If optional third argument C is given, store result into C.
 A, B, and C must be bool vectors of the same length.
 Return the destination vector if it changed or nil otherwise."
-  :version "24.4"
   (unless (bool-vector-p a)
 (signal 'wrong-type-argument (list 'bool-vector-p a)))
   (unless (bool-vector-p b)
@@ -172,7 +166,6 @@ Return the destination vector if it changed or nil 
otherwise."
 If optional third argument C is given, store result into C.
 A, B, and C must be bool vectors of the same length.
 Return the destination vector if it changed or nil otherwise."
-  :version "24.4"
   (unless (bool-vector-p a)
 (signal 'wrong-type-argument (list 'bool-vector-p a)))
   (unless (bool-vector-p b)
@@ -196,7 +189,6 @@ Return the destination vector if it changed or nil 
otherwise."
 If optional second argument B is given, store result into B.
 A and B must be bool vectors of the same length.
 Return the destination vector."
-  :version "24.4"
   (unless (bool-vector-p a)
 (signal 'wrong-type-argument (list 'bool-vector-p a)))
   (unless (or (null b) (bool-vector-p b))
@@ -211,7 +203,6 @@ Return the destination vector."
 (compat-defun bool-vector-subsetp (a b)
   "Return t if every t value in A is also t in B, nil otherwise.
 A and B must be bool vectors of the same length."
-  :version "24.4"
   (unless (bool-vector-p a)
 (signal 'wrong-type-argument (list 'bool-vector-p a)))
   (unless (bool-vector-p b)
@@ -227,7 +218,6 @@ A and B must be bool vectors of the same length."
 (compat-defun bool-vector-count-consecutive (a b i)
   "Count how many consecutive elements in A equal B starting at I.
 A is a bool vector, B is t or nil, and I is an index into A."
-  :version "24.4"
   (unless (bool-vector-p a)
 (signal 'wrong-type-argument (list 'bool-vector-p a)))
   (setq b (and b t));normalise to nil or t
@@ -242,7 +232,6 @@ A is a bool vector, B is t or nil, and I is an index into 
A."
   "Count how many elements in A are t.
 A is a bool vector.  To count A's nil elements, subtract the
 return value from A's length."
-  :version "24.4"
   (unless (bool-vector-p a)
 (signal 'wrong-type-argument (list 'bool-vector-p a)))
   (let ((n 0))
@@ -259,7 +248,6 @@ return value from A's le

[nongnu] elpa/cider 8da628ce60: [Docs] Mention cider-words-of-inspiration

[ELPA Syncer]

branch: elpa/cider
commit 8da628ce600066e4de16d21a90d21775bb7255b7
Author: Bozhidar Batsov 
Commit: Bozhidar Batsov 

[Docs] Mention cider-words-of-inspiration
---
 doc/modules/ROOT/pages/config/basic_config.adoc | 10 ++
 1 file changed, 10 insertions(+)

diff --git a/doc/modules/ROOT/pages/config/basic_config.adoc 
b/doc/modules/ROOT/pages/config/basic_config.adoc
index cedb71795f..c7bb6d7f6f 100644
--- a/doc/modules/ROOT/pages/config/basic_config.adoc
+++ b/doc/modules/ROOT/pages/config/basic_config.adoc
@@ -144,6 +144,16 @@ established. This behavior is configurable via 
`cider-connection-message-fn`:
 (setq cider-connection-message-fn nil)
 
 
+The default message are stored in the variable `cider-words-of-inspiration` 
that
+you can tweak easily yourselves:
+
+[source,lisp]
+
+(add-to-list 'cider-words-of-inspiration "Moar inspiration!")
+
+
+Of course, it goes without saying that you can do the same with `cider-tips`.
+
 IMPORTANT: This is probably one of the most important CIDER features. Disable
 those amazing messages at your own risk!
 

[elpa] externals/denote updated (10646db649 -> 5c2237e00d)

[ELPA Syncer]

elpasync pushed a change to branch externals/denote.

  from  10646db649 Remove needless 'declare-function'
   new  77d65716fd Add conditionality in keyword to list conversion
   new  5c2237e00d Add TEMPORARY command to migrate Org filetags


Summary of changes:
 denote.el | 45 -
 1 file changed, 44 insertions(+), 1 deletion(-)

[elpa] externals/denote 77d65716fd 1/2: Add conditionality in keyword to list conversion

[ELPA Syncer]

branch: externals/denote
commit 77d65716fdcf7013a4e41c391879465e27905fba
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add conditionality in keyword to list conversion
---
 denote.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/denote.el b/denote.el
index 88d9be3545..68b20b1da8 100644
--- a/denote.el
+++ b/denote.el
@@ -687,7 +687,7 @@ Apply `downcase' to KEYWORDS."
 (defun denote--front-matter-keywords-to-list (file)
   "Return keywords from front matter of FILE as list of strings.
 This is the reverse operation of `denote--format-front-matter-keywords'."
-  (let ((keywords (denote--retrieve-value-keywords file)))
+  (when-let ((keywords (denote--retrieve-value-keywords file)))
 (split-string keywords "[:,\s]+" t "[][ \"']+")))
 
 ;; TODO 2022-08-10: These are `defvar' and not `defcustom' because

[elpa] externals/denote 5c2237e00d 2/2: Add TEMPORARY command to migrate Org filetags

[ELPA Syncer]

branch: externals/denote
commit 5c2237e00d22cd26ac56cf3bf0bf9e9ef101c759
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add TEMPORARY command to migrate Org filetags

This is due to the changes we made to the format of the Org front matter
where filetags are now written in the standard colon-separated
notation (check commit 37dca91).

Thanks to Alan Schmitt for bringing this matter to my attention:

https://lists.sr.ht/~protesilaos/denote/%3C871qu0jw5l.fsf%40protesilaos.com%3E
---
 denote.el | 43 +++
 1 file changed, 43 insertions(+)

diff --git a/denote.el b/denote.el
index 68b20b1da8..83cc8fd1da 100644
--- a/denote.el
+++ b/denote.el
@@ -2204,5 +2204,48 @@ Consult the manual for template samples."
 
 (add-hook 'org-capture-after-finalize-hook 
#'denote-org-capture-delete-empty-file)
 
+ For the migration of old Org filetags
+
+(defun denote--migrate-org-files ()
+  "Return list of Org files in variable `denote-directory'."
+  (seq-remove
+   (lambda (file)
+ (not (string= (file-name-extension file) "org")))
+   (denote--directory-files)))
+
+;;;###autoload
+(defun denote-migrate-old-org-filetags ()
+  "Rewrite Org filetags' value as colon-separated.
+
+Change the filetags from:
+
+#+filetags:   one  two
+
+To the standard format of:
+
+#+filetags:  :one:two:
+
+A single tags chnages from TAG to :TAG:.
+
+Denote used to format filetags with two spaces between them, but
+this is not fully supported by Org.  The colon-separated entries
+are the rule.
+
+The rewrite DOES NOT SAVE BUFFERS.  The user is expected to
+review the changes, such as by using `diff-buffer-with-file'.
+Multiple buffers can be saved with `save-some-buffers' (check its
+doc string).
+
+This command is provided for the convenience of the user.  It
+shall be deprecated and eventually removed from future versions
+of Denote.  Written on 2022-08-10 for version 0.5.0."
+  (interactive)
+  (when-let (((yes-or-no-p "Rewrite filetags in Org files to use colons 
(buffers are NOT saved)?"))
+ (files (denote--migrate-org-files)))
+(dolist (file files)
+  (when-let* ((kw (denote--front-matter-keywords-to-list file))
+  ((denote--edit-front-matter-p file)))
+(denote--rewrite-keywords file kw)
+
 (provide 'denote)
 ;;; denote.el ends here

[nongnu] elpa/git-commit b4cba3169f: magit-completing-read-multiple: No longer use crm-default-separator

[ELPA Syncer]

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

magit-completing-read-multiple: No longer use crm-default-separator

That is deprecated in Emacs 29 and was already scheduled for
deprecation before that.  `crm-separator's value is the same.
---
 lisp/magit-base.el | 8 
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/magit-base.el b/lisp/magit-base.el
index 25a4b614ef..0a9ab29d56 100644
--- a/lisp/magit-base.el
+++ b/lisp/magit-base.el
@@ -597,14 +597,14 @@ Set up the `crm' variables needed to read multiple values 
with
 `read-from-minibuffer'.
 
 SEP is a regexp matching characters that can separate choices.
-When SEP is nil, it defaults to `crm-default-separator'.
-DEFAULT, HIST, and KEYMAP are passed to `read-from-minibuffer'.
-When KEYMAP is nil, it defaults to `crm-local-completion-map'.
+When SEP is nil, it defaults to `crm-separator'.  DEFAULT, HIST,
+and KEYMAP are passed to `read-from-minibuffer'.  When KEYMAP is
+nil, it defaults to `crm-local-completion-map'.
 
 Unlike `completing-read-multiple', the return value is not split
 into a list."
   (declare (obsolete magit-completing-read-multiple* "Magit 3.1.0"))
-  (let* ((crm-separator (or sep crm-default-separator))
+  (let* ((crm-separator (or sep crm-separator))
  (crm-completion-table (magit--completion-table choices))
  (choose-completion-string-functions
   '(crm--choose-completion-string))

[nongnu] elpa/magit-section updated (8a0cc83eff -> b4cba3169f)

[ELPA Syncer]

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

  from  8a0cc83eff magit-push-implicitly--desc: Account for local upstream
  adds  b4cba3169f magit-completing-read-multiple: No longer use 
crm-default-separator

No new revisions were added by this update.

Summary of changes:
 lisp/magit-base.el | 8 
 1 file changed, 4 insertions(+), 4 deletions(-)

[nongnu] elpa/magit updated (8a0cc83eff -> b4cba3169f)

[ELPA Syncer]

elpasync pushed a change to branch elpa/magit.

  from  8a0cc83eff magit-push-implicitly--desc: Account for local upstream
  adds  b4cba3169f magit-completing-read-multiple: No longer use 
crm-default-separator

No new revisions were added by this update.

Summary of changes:
 lisp/magit-base.el | 8 
 1 file changed, 4 insertions(+), 4 deletions(-)

[elpa] externals/denote updated (5c2237e00d -> e711b1610f)

[ELPA Syncer]

elpasync pushed a change to branch externals/denote.

  from  5c2237e00d Add TEMPORARY command to migrate Org filetags
   new  3c9a99d21f Refine what was done in commit 5c2237e
   new  e711b1610f Add TEMPORARY command to migrate YAML tags


Summary of changes:
 denote.el | 40 
 1 file changed, 36 insertions(+), 4 deletions(-)

[elpa] externals/denote 3c9a99d21f 1/2: Refine what was done in commit 5c2237e

[ELPA Syncer]

branch: externals/denote
commit 3c9a99d21f7af46e1a201c8113b199229ab6ae9b
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Refine what was done in commit 5c2237e
---
 denote.el | 9 +
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/denote.el b/denote.el
index 83cc8fd1da..6dec2bdedd 100644
--- a/denote.el
+++ b/denote.el
@@ -2206,11 +2206,12 @@ Consult the manual for template samples."
 
  For the migration of old Org filetags
 
-(defun denote--migrate-org-files ()
-  "Return list of Org files in variable `denote-directory'."
+(defun denote--migrate-type-files (type)
+  "Return list of TYPE files in variable `denote-directory'.
+TYPE is a string which matches the `file-name-extension'."
   (seq-remove
(lambda (file)
- (not (string= (file-name-extension file) "org")))
+ (not (string= (file-name-extension file) type)))
(denote--directory-files)))
 
 ;;;###autoload
@@ -2241,7 +2242,7 @@ shall be deprecated and eventually removed from future 
versions
 of Denote.  Written on 2022-08-10 for version 0.5.0."
   (interactive)
   (when-let (((yes-or-no-p "Rewrite filetags in Org files to use colons 
(buffers are NOT saved)?"))
- (files (denote--migrate-org-files)))
+ (files (denote--migrate-type-files "org")))
 (dolist (file files)
   (when-let* ((kw (denote--front-matter-keywords-to-list file))
   ((denote--edit-front-matter-p file)))

[nongnu] elpa/git-commit updated (b4cba3169f -> b5acb38d2d)

[ELPA Syncer]

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

  from  b4cba3169f magit-completing-read-multiple: No longer use 
crm-default-separator
   new  458ff639bd manual: Use @insertcopying
   new  b5acb38d2d manual: Use @insertcopying


Summary of changes:
 docs/magit-section.org  | 14 +-
 docs/magit-section.texi | 15 +--
 docs/magit.org  | 14 +-
 docs/magit.texi | 15 +--
 4 files changed, 4 insertions(+), 54 deletions(-)

[elpa] externals/denote e711b1610f 2/2: Add TEMPORARY command to migrate YAML tags

[ELPA Syncer]

branch: externals/denote
commit e711b1610fb6186734d13b0a444162e6c243c472
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add TEMPORARY command to migrate YAML tags

This is due to the changes we made to the format of the YAML front
matter where tags are now written as a standard comma-separated list of
strings (per commit cb9af65).

Same idea as with commit 5c2237e.
---
 denote.el | 31 +++
 1 file changed, 31 insertions(+)

diff --git a/denote.el b/denote.el
index 6dec2bdedd..7d858d7b34 100644
--- a/denote.el
+++ b/denote.el
@@ -2248,5 +2248,36 @@ of Denote.  Written on 2022-08-10 for version 0.5.0."
   ((denote--edit-front-matter-p file)))
 (denote--rewrite-keywords file kw)
 
+;;;###autoload
+(defun denote-migrate-old-markdown-yaml-tags ()
+  "Rewrite Markdown YAML tags value as comma-separated strings.
+
+Change the tags from:
+
+tags:   one  two
+
+To the standard format of:
+
+tags:  [\"one\", \"two\"]
+
+Denote used to format filetags with two spaces between them, but
+this is not supported by YAML.
+
+The rewrite DOES NOT SAVE BUFFERS.  The user is expected to
+review the changes, such as by using `diff-buffer-with-file'.
+Multiple buffers can be saved with `save-some-buffers' (check its
+doc string).
+
+This command is provided for the convenience of the user.  It
+shall be deprecated and eventually removed from future versions
+of Denote.  Written on 2022-08-10 for version 0.5.0."
+  (interactive)
+  (when-let (((yes-or-no-p "Rewrite filetags in Org files to use colons 
(buffers are NOT saved)?"))
+ (files (denote--migrate-type-files "md")))
+(dolist (file files)
+  (when-let* ((kw (denote--front-matter-keywords-to-list file))
+  ((denote--edit-front-matter-p file)))
+(denote--rewrite-keywords file kw)
+
 (provide 'denote)
 ;;; denote.el ends here

[elpa] externals/org 76643256f2: ol-man: Set window point not buffer point and wait before search

[ELPA Syncer]

branch: externals/org
commit 76643256f2bddb79908a41c264c43de3e06a70dd
Author: Tom Gillespie 
Commit: Ihor Radchenko 

ol-man: Set window point not buffer point and wait before search

* lisp/ol-man.el (org-man-open): Set window point not buffer point and
wait before search.  When passed man:path::SEARCH `org-man-open' uses
`search-forward' to jump to the location of e.g. a heading.  Prior to
this fix it only used `search-forward', which will not change the
point of the cursor in the window, meaning that even if there is a
match it will not appear.  Use `accept-process-output' to block until
the manpage finishes rendering before searching the buffer so that
there will be something to find.
---
 lisp/ol-man.el | 20 +++-
 1 file changed, 15 insertions(+), 5 deletions(-)

diff --git a/lisp/ol-man.el b/lisp/ol-man.el
index aa22964c54..24e896f30e 100644
--- a/lisp/ol-man.el
+++ b/lisp/ol-man.el
@@ -43,12 +43,22 @@ If PATH contains extra ::STRING which will use `occur' to 
search
 matched strings in man buffer."
   (string-match "\\(.*?\\)\\(?:::\\(.*\\)\\)?$" path)
   (let* ((command (match-string 1 path))
-(search (match-string 2 path)))
-(funcall org-man-command command)
+ (search (match-string 2 path))
+ (buffer (funcall org-man-command command)))
 (when search
-  (with-current-buffer (concat "*Man " command "*")
-   (goto-char (point-min))
-   (search-forward search)
+  (with-current-buffer buffer
+(goto-char (point-min))
+(unless (search-forward search nil t)
+  (let ((process (get-buffer-process buffer)))
+(while (process-live-p process)
+  (accept-process-output process)))
+  (goto-char (point-min))
+  (search-forward search))
+(forward-line -1)
+(let ((point (point)))
+  (let ((window (get-buffer-window buffer)))
+(set-window-point window point)
+(set-window-start window point)))
 
 (defun org-man-store-link ()
   "Store a link to a README file."

[nongnu] elpa/git-commit 458ff639bd 1/2: manual: Use @insertcopying

[ELPA Syncer]

branch: elpa/git-commit
commit 458ff639bd236cfd34f447ebbcda201647bb3966
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

manual: Use @insertcopying
---
 docs/magit.org | 14 +-
 1 file changed, 1 insertion(+), 13 deletions(-)

diff --git a/docs/magit.org b/docs/magit.org
index 888c00ca6b..68a9bc6353 100644
--- a/docs/magit.org
+++ b/docs/magit.org
@@ -22,19 +22,7 @@ Magit and Git itself deserve to be called porcelains.
 #+texinfo: @noindent
 This manual is for Magit version 3.3.0-git.
 
-#+begin_quote
-Copyright (C) 2015-{{{year}}} Jonas Bernoulli 
-
-You can redistribute this document 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 document 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.
-#+end_quote
+#+texinfo: @insertcopying
 :END:
 * Introduction
 

[nongnu] elpa/git-commit b5acb38d2d 2/2: manual: Use @insertcopying

[ELPA Syncer]

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

manual: Use @insertcopying
---
 docs/magit-section.org  | 14 +-
 docs/magit-section.texi | 15 +--
 docs/magit.texi | 15 +--
 3 files changed, 3 insertions(+), 41 deletions(-)

diff --git a/docs/magit-section.org b/docs/magit-section.org
index a75fa30145..86cec18781 100644
--- a/docs/magit-section.org
+++ b/docs/magit-section.org
@@ -23,19 +23,7 @@ can use sections in your own packages.
 #+texinfo: @noindent
 This manual is for Magit-Section version 3.3.0-git.
 
-#+begin_quote
-Copyright (C) 2015-{{{year}}} Jonas Bernoulli 
-
-You can redistribute this document 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 document 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.
-#+end_quote
+#+texinfo: @insertcopying
 :END:
 * Introduction
 
diff --git a/docs/magit-section.texi b/docs/magit-section.texi
index 029cfbf971..b677998445 100644
--- a/docs/magit-section.texi
+++ b/docs/magit-section.texi
@@ -56,20 +56,7 @@ can use sections in your own packages.
 @noindent
 This manual is for Magit-Section version 3.3.0-git.
 
-@quotation
-Copyright (C) 2015-2022 Jonas Bernoulli 
-
-You can redistribute this document 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 document 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.
-
-@end quotation
+@insertcopying
 @end ifnottex
 
 @menu
diff --git a/docs/magit.texi b/docs/magit.texi
index 267bed4b8a..17f682a6c5 100644
--- a/docs/magit.texi
+++ b/docs/magit.texi
@@ -55,20 +55,7 @@ Magit and Git itself deserve to be called porcelains.
 @noindent
 This manual is for Magit version 3.3.0-git.
 
-@quotation
-Copyright (C) 2015-2022 Jonas Bernoulli 
-
-You can redistribute this document 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 document 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.
-
-@end quotation
+@insertcopying
 @end ifnottex
 
 @menu

[nongnu] elpa/magit updated (b4cba3169f -> b5acb38d2d)

[ELPA Syncer]

elpasync pushed a change to branch elpa/magit.

  from  b4cba3169f magit-completing-read-multiple: No longer use 
crm-default-separator
  adds  458ff639bd manual: Use @insertcopying
  adds  b5acb38d2d manual: Use @insertcopying

No new revisions were added by this update.

Summary of changes:
 docs/magit-section.org  | 14 +-
 docs/magit-section.texi | 15 +--
 docs/magit.org  | 14 +-
 docs/magit.texi | 15 +--
 4 files changed, 4 insertions(+), 54 deletions(-)

[nongnu] elpa/magit-section updated (b4cba3169f -> b5acb38d2d)

[ELPA Syncer]

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

  from  b4cba3169f magit-completing-read-multiple: No longer use 
crm-default-separator
  adds  458ff639bd manual: Use @insertcopying
  adds  b5acb38d2d manual: Use @insertcopying

No new revisions were added by this update.

Summary of changes:
 docs/magit-section.org  | 14 +-
 docs/magit-section.texi | 15 +--
 docs/magit.org  | 14 +-
 docs/magit.texi | 15 +--
 4 files changed, 4 insertions(+), 54 deletions(-)

[nongnu] elpa/with-editor 3b8b2e0051: manual: Use @insertcopying

[ELPA Syncer]

branch: elpa/with-editor
commit 3b8b2e005195a53c4511880b49c10a273ed84ec8
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

manual: Use @insertcopying
---
 docs/with-editor.org | 14 +-
 1 file changed, 1 insertion(+), 13 deletions(-)

diff --git a/docs/with-editor.org b/docs/with-editor.org
index b84973371d..50f30396c6 100644
--- a/docs/with-editor.org
+++ b/docs/with-editor.org
@@ -29,19 +29,7 @@ don't use Magit or another package which uses it internally.
 #+texinfo: @noindent
 This manual is for With-Editor version 3.2.0-git.
 
-#+begin_quote
-Copyright (C) 2015-{{{year}}} Jonas Bernoulli 
-
-You can redistribute this document 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 document 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.
-#+end_quote
+#+texinfo: @insertcopying
 :END:
 * Using the With-Editor package
 

[nongnu] elpa/magit updated (b5acb38d2d -> 2f0efa9f58)

[ELPA Syncer]

elpasync pushed a change to branch elpa/magit.

  from  b5acb38d2d manual: Use @insertcopying
  adds  2f0efa9f58 make: Print message for texi target

No new revisions were added by this update.

Summary of changes:
 docs/Makefile | 1 +
 1 file changed, 1 insertion(+)

[nongnu] elpa/with-editor 1d5860cfd0 2/2: make: Print message for texi target

[ELPA Syncer]

branch: elpa/with-editor
commit 1d5860cfd05d6805018bd071b8f9b56493ba11c6
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

make: Print message for texi target
---
 docs/Makefile | 1 +
 1 file changed, 1 insertion(+)

diff --git a/docs/Makefile b/docs/Makefile
index 254813d204..1e2385bc2a 100644
--- a/docs/Makefile
+++ b/docs/Makefile
@@ -14,6 +14,7 @@ ORG_EVAL += --funcall org-texinfo-export-to-texinfo
 
 .PHONY: texi
 texi:
+   @printf "Generating $(PKG).texi\n"
@$(EMACS) $(ORG_ARGS) $(PKG).org $(ORG_EVAL)
@printf "\n" >> $(PKG).texi
@rm -f $(PKG).texi~

[nongnu] elpa/with-editor updated (3b8b2e0051 -> 1d5860cfd0)

[ELPA Syncer]

elpasync pushed a change to branch elpa/with-editor.

  from  3b8b2e0051 manual: Use @insertcopying
   new  14a958d4f2 manual: Regenerate texi
   new  1d5860cfd0 make: Print message for texi target


Summary of changes:
 docs/Makefile |  1 +
 docs/with-editor.texi | 15 +--
 2 files changed, 2 insertions(+), 14 deletions(-)

[nongnu] elpa/with-editor 14a958d4f2 1/2: manual: Regenerate texi

[ELPA Syncer]

branch: elpa/with-editor
commit 14a958d4f2fc932db1c1af30ca405e6570d60e24
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

manual: Regenerate texi
---
 docs/with-editor.texi | 15 +--
 1 file changed, 1 insertion(+), 14 deletions(-)

diff --git a/docs/with-editor.texi b/docs/with-editor.texi
index 6fad37dcfa..528b4f5bfd 100644
--- a/docs/with-editor.texi
+++ b/docs/with-editor.texi
@@ -62,20 +62,7 @@ don't use Magit or another package which uses it internally.
 @noindent
 This manual is for With-Editor version 3.2.0-git.
 
-@quotation
-Copyright (C) 2015-2022 Jonas Bernoulli 
-
-You can redistribute this document 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 document 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.
-
-@end quotation
+@insertcopying
 @end ifnottex
 
 @menu

[elpa] externals/denote 2704250ea6: Mark denote-directory as changed for 0.5.0

[ELPA Syncer]

branch: externals/denote
commit 2704250ea6c569d6e46f6738755d113c843ee034
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Mark denote-directory as changed for 0.5.0

The change was done in commit 4b21e42 by Philip Kaludercic.
---
 denote.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/denote.el b/denote.el
index 7d858d7b34..56ab8e3fc6 100644
--- a/denote.el
+++ b/denote.el
@@ -131,7 +131,7 @@ the function `denote-directory' instead: it returns the 
path as a
 directory and also checks if a safe local value should be used."
   :group 'denote
   :safe (lambda (val) (or (eq val 'local) (eq val 'default-directory)))
-  :package-version '(denote . "0.1.0")
+  :package-version '(denote . "0.5.0")
   :link '(info-link "(denote) Maintain separate directories for notes")
   :type 'directory)
 

[nongnu] elpa/git-commit 2f0efa9f58: make: Print message for texi target

[ELPA Syncer]

branch: elpa/git-commit
commit 2f0efa9f58c3e8ff05dd87fb4d3f992c23798207
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

make: Print message for texi target
---
 docs/Makefile | 1 +
 1 file changed, 1 insertion(+)

diff --git a/docs/Makefile b/docs/Makefile
index 14219bb66d..eecc665c5d 100644
--- a/docs/Makefile
+++ b/docs/Makefile
@@ -91,6 +91,7 @@ ORG_EVAL += --eval "(setq org-src-preserve-indentation nil)"
 ORG_EVAL += --funcall org-texinfo-export-to-texinfo
 
 texi:
+   @printf "Generating $(PKG).texi\n"
@$(EMACS) $(ORG_ARGS) $(PKG).org $(ORG_EVAL)
@printf "\n" >> $(PKG).texi
@rm -f $(PKG).texi~

[nongnu] elpa/magit-section updated (b5acb38d2d -> 2f0efa9f58)

[ELPA Syncer]

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

  from  b5acb38d2d manual: Use @insertcopying
  adds  2f0efa9f58 make: Print message for texi target

No new revisions were added by this update.

Summary of changes:
 docs/Makefile | 1 +
 1 file changed, 1 insertion(+)

[elpa] externals/denote 59891204ce 1/2: Limit the scope of the "migration" files

[ELPA Syncer]

branch: externals/denote
commit 59891204cedef2af10482d1052c5c45b11d7a7f6
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Limit the scope of the "migration" files

See commits 5c2237e and e711b16.  This is about updating the front
matter of Org and YAML to the correct syntax for tags.

The function I just wrote is not the best code ever written, but we will
not keep it for too long, anyway.
---
 denote.el | 14 ++
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/denote.el b/denote.el
index 56ab8e3fc6..45f24d7724 100644
--- a/denote.el
+++ b/denote.el
@@ -2209,10 +2209,16 @@ Consult the manual for template samples."
 (defun denote--migrate-type-files (type)
   "Return list of TYPE files in variable `denote-directory'.
 TYPE is a string which matches the `file-name-extension'."
-  (seq-remove
-   (lambda (file)
- (not (string= (file-name-extension file) type)))
-   (denote--directory-files)))
+  (delq nil
+(mapcar
+ (lambda (file)
+   (when-let* ((value (denote--retrieve-value-keywords file))
+   ((string-match-p "\s\s" value)))
+ file))
+ (seq-remove
+  (lambda (file)
+(not (string= (file-name-extension file) type)))
+  (denote--directory-files)
 
 ;;;###autoload
 (defun denote-migrate-old-org-filetags ()

[elpa] externals/debbugs 5354f5884c: Release debbugs 0.33

[Michael Albinus]

branch: externals/debbugs
commit 5354f5884cc7ebd4fe40326ab43671770aa1280c
Author: Michael Albinus 
Commit: Michael Albinus 

Release debbugs 0.33

* .gitignore: Extend.

* debbugs-gnu.el (debbugs-gnu-search): Offer different values for
"status".  Set `archivep' to nil when there is a phrase.

* debbugs-ug.texi (Searching Bugs): Precise different values for
"status".

* debbugs.el: Bump version to 0.33.

* debbugs.texi (Requesting bugs statuses): Comment about "pending".
---
 .gitignore  |  2 ++
 debbugs-gnu.el  |  8 ++--
 debbugs-ug.texi | 20 +---
 debbugs.el  |  2 +-
 debbugs.texi|  1 +
 5 files changed, 27 insertions(+), 6 deletions(-)

diff --git a/.gitignore b/.gitignore
index 6cccf63ea5..6d1bcee653 100644
--- a/.gitignore
+++ b/.gitignore
@@ -2,3 +2,5 @@
 /debbugs-autoloads.el
 *.elc
 *.info
+*~
+ChangeLog
diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index dd3bc24ea9..e6629156c1 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -574,7 +574,10 @@ depend on PHRASE being a string, or nil.  See Info node
(completing-read
 (format "Enter status%s: "
 (if (null phrase) "" " (client-side filter)"))
-'("open" "forwarded" "done") nil t))
+ (if (null phrase)
+'("open" "forwarded" "done")
+   '("pending" "forwarded" "fixed" "done"))
+ nil t))
   (when (not (zerop (length val1)))
 (push (cons (if (null phrase) (intern key) 'pending) val1) query)))
 
@@ -640,7 +643,8 @@ depend on PHRASE being a string, or nil.  See Info node
 
   ;; Set phrase, query and filter.
   (when phrase
-(setq debbugs-gnu-current-query (list (cons 'phrase phrase
+(setq archivedp nil
+  debbugs-gnu-current-query (list (cons 'phrase phrase
   (dolist (elt query)
 (add-to-list
  (if (memq
diff --git a/debbugs-ug.texi b/debbugs-ug.texi
index 61555d0b91..f1af2a5e6f 100644
--- a/debbugs-ug.texi
+++ b/debbugs-ug.texi
@@ -300,8 +300,9 @@ modified.
 Word(s) contained in the subject of the bug report.
 
 @item status
-The status of the bug report.  Valid values are "open", "forwarded"
-and "done".
+The status of the bug report.  Valid values are "pending",
+"forwarded", "fixed" and "done".
+@c This is queried with the attribute "pending".
 @end table
 
 It is also possible to apply these commands with an empty search
@@ -310,6 +311,11 @@ bugs which match the given attributes.  The attributes to 
be applied
 are the same as already described, plus
 
 @table @samp
+@item status
+The status of the bug report.  Valid values are "open", "forwarded"
+and "done".  These values are different to the ones when there is a
+search phrase.
+
 @item archive
 Whether archived bugs shall be searched (no value to be entered).
 
@@ -821,7 +827,7 @@ arrange for the bug to be closed when the message is sent.
 
 
 @node Customizing debbugs-gnu-pick-commits
-@subsection Customizing debbugs-gnu-pick-commits
+@subsection Customizing @code{debbugs-gnu-pick-commits}
 
 @vindex debbugs-gnu-commit-description-format
 @vindex debbugs-gnu-git-remote-info-alist
@@ -867,6 +873,14 @@ your @file{~/.emacs}:
 (add-hook 'bug-reference-prog-mode-hook 'debbugs-browse-mode)
 @end smallexample
 
+If you want to enable this in GNUS summary and GNUS article buffers,
+you might set:
+
+@smallexample
+(add-hook 'gnus-summary-mode-hook 'bug-reference-mode)
+(add-hook 'gnus-article-mode-hook 'bug-reference-mode)
+@end smallexample
+
 
 @node Command Index
 @unnumbered Command Index
diff --git a/debbugs.el b/debbugs.el
index eec36d475d..f19159e7bb 100644
--- a/debbugs.el
+++ b/debbugs.el
@@ -5,7 +5,7 @@
 ;; Author: Michael Albinus 
 ;; Keywords: comm, hypermedia
 ;; Package: debbugs
-;; Version: 0.32
+;; Version: 0.33
 ;; Package-Requires: ((emacs "26.1") (soap-client "3.1.5"))
 
 ;; This file is not part of GNU Emacs.
diff --git a/debbugs.texi b/debbugs.texi
index ab520f3f97..be82f4349d 100644
--- a/debbugs.texi
+++ b/debbugs.texi
@@ -344,6 +344,7 @@ bug numbers}).
 @item pending
 The string @code{"pending"}, @code{"forwarded"}, @code{"fixed"} or
 @code{"done"}.
+@c Also the strings "pending-fixed" and "absent" exist, we don't use them.
 
 @item subject
 Subject/Title of the bugreport.

[elpa] externals/compat updated (ae2404e13d -> 6a7842cf37)

[ELPA Syncer]

elpasync pushed a change to branch externals/compat.

  from  ae2404e13d Explicitly define versions instead of inferring them 
from file names
   new  65d70b305a Extend byte-compile-docstring-max-column to 100
   new  e542b61eec Clarify that compat.texi is distributed under GFDL 1.3
   new  6a7842cf37 Abbreviate README.md by referring to the manual on 
elpa.gnu.org


Summary of changes:
 .dir-locals.el |  6 ++--
 .elpaignore|  1 -
 README.md  | 97 ++
 3 files changed, 33 insertions(+), 71 deletions(-)

[elpa] externals/denote updated (2704250ea6 -> 9dfaa947c5)

[ELPA Syncer]

elpasync pushed a change to branch externals/denote.

  from  2704250ea6 Mark denote-directory as changed for 0.5.0
   new  59891204ce Limit the scope of the "migration" files
   new  9dfaa947c5 Specify :package-version in all defface forms


Summary of changes:
 denote.el | 41 -
 1 file changed, 28 insertions(+), 13 deletions(-)

[elpa] externals/denote 9dfaa947c5 2/2: Specify :package-version in all defface forms

[ELPA Syncer]

branch: externals/denote
commit 9dfaa947c52977b44f02c745ab95473b7491324a
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Specify :package-version in all defface forms
---
 denote.el | 27 ++-
 1 file changed, 18 insertions(+), 9 deletions(-)

diff --git a/denote.el b/denote.el
index 45f24d7724..d834d163bb 100644
--- a/denote.el
+++ b/denote.el
@@ -1519,45 +1519,53 @@ relevant front matter."
 
 (defface denote-faces-link '((t :inherit link))
   "Face used to style Denote links in the buffer."
-  :group 'denote-faces)
+  :group 'denote-faces
+  :package-version '(denote . "0.5.0"))
 
 (defface denote-faces-broken-link '((t :inherit (error link)))
   "Face used to style Denote broken links in the buffer.
 This only works in Org files, as Emacs' generic buttons do not
 provide a facility that uses a face based on certain conditions."
-  :group 'denote-faces)
+  :group 'denote-faces
+  :package-version '(denote . "0.5.0"))
 
 (defface denote-faces-subdirectory '((t :inherit bold))
   "Face for subdirectory of file name.
 This should only ever needed in the backlinks' buffer (or
 equivalent), not in Dired."
-  :group 'denote-faces)
+  :group 'denote-faces
+  :package-version '(denote . "0.2.0"))
 
 (defface denote-faces-date '((t :inherit font-lock-variable-name-face))
   "Face for file name date in Dired buffers.
 This is the part of the identifier that covers the year, month,
 and day."
-  :group 'denote-faces)
+  :group 'denote-faces
+  :package-version '(denote . "0.1.0"))
 
 (defface denote-faces-time '((t :inherit denote-faces-date))
   "Face for file name time in Dired buffers.
 This is the part of the identifier that covers the hours, minutes,
 and seconds."
-  :group 'denote-faces)
+  :group 'denote-faces
+  :package-version '(denote . "0.1.0"))
 
 ;; TODO 2022-08-10: I believe a nil value has the same effect, though
 ;; there is no pressing need to test this.
 (defface denote-faces-title '((t ))
   "Face for file name title in Dired buffers."
-  :group 'denote-faces)
+  :group 'denote-faces
+  :package-version '(denote . "0.1.0"))
 
 (defface denote-faces-extension '((t :inherit shadow))
   "Face for file extension type in Dired buffers."
-  :group 'denote-faces)
+  :group 'denote-faces
+  :package-version '(denote . "0.1.0"))
 
 (defface denote-faces-keywords '((t :inherit font-lock-builtin-face))
   "Face for file name keywords in Dired buffers."
-  :group 'denote-faces)
+  :group 'denote-faces
+  :package-version '(denote . "0.1.0"))
 
 (defface denote-faces-delimiter
   'class color) (min-colors 88) (background light))
@@ -1566,7 +1574,8 @@ and seconds."
  :foreground "gray30")
 (t :inherit shadow))
   "Face for file name delimiters in Dired buffers."
-  :group 'denote-faces)
+  :group 'denote-faces
+  :package-version '(denote . "0.1.0"))
 
 ;; For character classes, evaluate: (info "(elisp) Char Classes")
 (defvar denote-faces--file-name-regexp

[elpa] externals/compat e542b61eec 2/3: Clarify that compat.texi is distributed under GFDL 1.3

[ELPA Syncer]

branch: externals/compat
commit e542b61eec0b8f9251425427e21a701b8f8fa392
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Clarify that compat.texi is distributed under GFDL 1.3
---
 README.md | 8 ++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/README.md b/README.md
index 9666e3999a..2e68c48768 100644
--- a/README.md
+++ b/README.md
@@ -87,8 +87,10 @@ the bundled Makefile:
 Distribution
 
 
-compat.el and all other files in this directory are distributed under
-the GPL, Version 3 (like Emacs itself).
+compat.el and all other source files in this directory are distributed
+under the [GNU Public License], Version 3 (like Emacs itself).  The manual
+(`compat.texi`) is distributed under the [GNU Free Documentation
+License], Version 1.3.
 
 [EOL]: https://wiki.centos.org/About/Product
 [GNU ELPA]: http://elpa.gnu.org/packages/compat.html
@@ -99,3 +101,5 @@ the GPL, Version 3 (like Emacs itself).
 [compat-devel]: https://lists.sr.ht/~pkal/compat-devel
 [compat-tracker]: https://todo.sr.ht/~pkal/compat
 [compat-tracker-mailto]: mailto:~pkal/com...@todo.sr.ht
+[GNU Public License]: https://www.gnu.org/licenses/gpl-3.0.en.html
+[GNU Free Documentation License]: https://www.gnu.org/licenses/fdl-1.3.html

[elpa] externals/compat 65d70b305a 1/3: Extend byte-compile-docstring-max-column to 100

[ELPA Syncer]

branch: externals/compat
commit 65d70b305a36bdef38a0a07c56f7f54f2667bb6d
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Extend byte-compile-docstring-max-column to 100

This addresses https://todo.sr.ht/~pkal/compat/6.

To have to change also affect ELPA packages, we will remove
.dir-locals.el from .elpaignore.
---
 .dir-locals.el | 6 --
 .elpaignore| 1 -
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/.dir-locals.el b/.dir-locals.el
index 2ce32d64ca..900dee5f90 100644
--- a/.dir-locals.el
+++ b/.dir-locals.el
@@ -1,5 +1,7 @@
 ;;; Directory Local Variables
 ;;; For more information see (info "(emacs) Directory Variables")
 
-((emacs-lisp-mode . ((show-trailing-whitespace . t)
-(indent-tabs-mode . nil
+((emacs-lisp-mode
+  (byte-compile-docstring-max-column . 100)
+  (show-trailing-whitespace . t)
+  (indent-tabs-mode . nil)))
diff --git a/.elpaignore b/.elpaignore
index 2fe0af53a7..f7d22f93fc 100644
--- a/.elpaignore
+++ b/.elpaignore
@@ -1,6 +1,5 @@
 compat-tests.el
 Makefile
-.dir-locals.el
 .github
 .elpaignore
 COPYING

[elpa] externals/compat 6a7842cf37 3/3: Abbreviate README.md by referring to the manual on elpa.gnu.org

[ELPA Syncer]

branch: externals/compat
commit 6a7842cf37fa36aab1c36faaff431ea0b8587b9d
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Abbreviate README.md by referring to the manual on elpa.gnu.org
---
 README.md | 89 +--
 1 file changed, 23 insertions(+), 66 deletions(-)

diff --git a/README.md b/README.md
index 2e68c48768..e335cb3ea3 100644
--- a/README.md
+++ b/README.md
@@ -4,79 +4,41 @@ COMPATibility Library for Emacs
 Find here the source for compat.el, a forwards-compatibility library
 for (GNU) Emacs Lisp, versions 24.3 and newer.
 
-The intended audience of this library aren't day-to-day users, but
-package developers that wish to make use of newer functionality, not
-provided in older versions of Emacs, without breaking compatibility
-for users bound to specific Emacs releases.
-
-Version 24.3 is chosen as the oldest version, because this is the
-newest version on CentOS 7. It is intended to preserve compatibility
-for at least as the CentOS 7 reaches [EOL], 2024.
-
-If you are developing a package with compat.el in mind, consider
-loading `compat-help` (on your system, not in a package) to get
-relevant notes inserted into the help buffers of functions that are
-implemented or advised in compat.el.
-
-Note that compat.el provides a few prefixed function, ie. functions
-with a `compat-` prefix.  These are used to provide extended
-functionality for commands that are already defined (`sort`, `assoc`,
-...).  It might be possible to transform these into advised functions
-later on, so that the modified functionality is accessible without a
-prefix.  Feedback on this point is appreciated.
-
-Installation
-
-
-compat.el shouldn't be installed directly, but downloaded from [GNU
-ELPA].  If necessary, this can be done using M-x package-install-file
-in the current working directory.
-
-Usage
--
-
-The intended use-case for this library is for package developers to
-add as a dependency in the header:
-
-;; Package-Requires: ((emacs "24.3") (compat "28.1.2.0"))
-
-and later on a
+For information on how to use Compat, please consult the [manual].
+The latest state of development can be found in the [snapshot
+version].
 
-   (require 'compat)
-
-This will load all non-prefixed definitions (functions and macros with
-a leading `compat-`).  To load these, an additional
-
-   (require 'compat-XY) ; e.g. 26
-
-will be necessary, to load compatibility code for Emacs version XY.
-
-It is recommended to subscribe to the [compat-announce] mailing list
-to be notified when new versions are released or relevant changes are
-made.
+[manual]: https://elpa.gnu.org/devel/doc/compat.html
+[snapshot version]: https://elpa.gnu.org/packages/doc/compat.html
 
 Contribute
 --
 
-As compat.el is distribed as part of GNU ELPA, and therefore requires
-a [copyright assignment] to the FSF, for all non-trivial code
+As compat.el is distribed as part of [GNU ELPA], and therefore
+requires a [copyright assignment] to the [FSF], for all non-trivial code
 contributions.
 
+[GNU ELPA]: http://elpa.gnu.org/packages/compat.html
+[copyright assignment]: 
https://www.gnu.org/software/emacs/manual/html_node/emacs/Copyright-Assignment.html
+[FSF]: https://www.fsf.org/
+
 Source code
 ---
 
 Compat is developed on [SourceHut]. A restricted [GitHub] mirror is
 also provided.
 
+[SourceHut]: https://sr.ht/~pkal/compat
+[GitHub]: https://github.com/phikal/compat.el
+
 Bug and patches
 ---
 
-Patches and comments can be sent to the [development mailing
-list][compat-devel].  Bug reports and issues should be directed to the
-[issue tracker][compat-tracker] (also accessible via
-[Email][compat-tracker-mailto]).  [GitHub] can also be used to submit
-patches ("Pull Request").  These may include issues in the
-compatibility code, missing definitions or performance issues.
+Patches and comments can be sent to the [development mailing list].
+Bug reports and issues should be directed to the [issue tracker] (also
+accessible via [email]).  [GitHub] can also be used to submit patches
+("Pull Request").  These may include issues in the compatibility code,
+missing definitions or performance issues.
 
 When contributing, make sure to provide test and use the existing
 tests defined in compat-test.el.  These can be easily executed using
@@ -84,6 +46,10 @@ the bundled Makefile:
 
 make test
 
+[development mailing list]: https://lists.sr.ht/~pkal/compat-devel
+[issue tracker]: https://todo.sr.ht/~pkal/compat
+[email]: mailto:~pkal/com...@todo.sr.ht
+
 Distribution
 
 
@@ -92,14 +58,5 @@ under the [GNU Public License], Version 3 (like Emacs 
itself).  The manual
 (`compat.texi`) is distributed under the [GNU Free Documentation
 License], Version 1.3.
 
-[EOL]: https://wiki.centos.org/About/Product
-[GNU ELPA]: http://elpa.gnu.org/packages/compat.html
-[copyright assignment]: 
https://www.gnu.org/software/emacs/manual/html_node/emacs

[elpa] externals/compat 6e021823d8: Swap release manual and snapshot manual links

[ELPA Syncer]

branch: externals/compat
commit 6e021823d87c1c78fd235a6673c6b73686bb3238
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Swap release manual and snapshot manual links
---
 README.md | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/README.md b/README.md
index e335cb3ea3..ec9ca086cb 100644
--- a/README.md
+++ b/README.md
@@ -8,8 +8,8 @@ For information on how to use Compat, please consult the 
[manual].
 The latest state of development can be found in the [snapshot
 version].
 
-[manual]: https://elpa.gnu.org/devel/doc/compat.html
-[snapshot version]: https://elpa.gnu.org/packages/doc/compat.html
+[manual]: https://elpa.gnu.org/packages/doc/compat.html
+[snapshot version]: https://elpa.gnu.org/devel/doc/compat.html
 
 Contribute
 --

[elpa] externals/denote d9c4746991: Update to version 0.5.0

[ELPA Syncer]

branch: externals/denote
commit d9c47469913fa723d31d9f69b0fcbfb8815a0357
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update to version 0.5.0
---
 CHANGELOG.org | 465 ++
 README.org|  38 +
 denote.el |   2 +-
 3 files changed, 469 insertions(+), 36 deletions(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index 994056a537..3601a60466 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -9,6 +9,471 @@ project's main git repository: 
.
 The newest release is at the top.  For further details, please consult
 the manual: .
 
+* Version 0.5.0 on 2022-08-10
+:PROPERTIES:
+:CUSTOM_ID: h:80b9daaa-c3c8-4457-b109-966bb6a99832
+:END:
+
+The general theme of this release is to refine what we already offer.
+As I explained in some discussions, Denote is feature-complete.  We can
+always improve the code or add some ancillary function/command/variable,
+though all the main ideas have already been implemented.  Additional
+functionality can be provided by other packages: I remain at the
+disposal of anyone willing to write such a package.
+
+The present release covers more than 150 commits since version 0.4.0 on
+2022-07-25.
+
+All release notes: .
+
+** Templates for new notes
+:PROPERTIES:
+:CUSTOM_ID: h:0878125f-8392-48e6-aeff-1469eb1e18fc
+:END:
+
+We now provide the ~denote-templates~ user option.  A "template" is
+arbitrary text that Denote will add to a newly created note right below
+the front matter.
+
+Templates are expressed as a =(KEY . STRING)= association.
+
+- The =KEY= is the name which identifies the template.  It is an
+  arbitrary symbol, such as =report=, =memo=, =statement=.
+
+- The =STRING= is ordinary text that Denote will insert as-is.  It can
+  contain newline characters to add spacing.  The manual of Denote
+  contains examples on how to use the ~concat~ function, beside writing
+  a generic string:
+  
.
+
+The user can choose a template either by invoking the new command
+~denote-template~ or by changing the user option ~denote-prompts~ to
+always prompt for a template when calling the ~denote~ command.
+
+Thanks to Jean-Philippe Gagné Guay for refinements to this facility.
+Done in pull request 77 on the GitHub mirror:
+.
+
+[ Jean-Philippe has assigned copyright to the Free Software Foundation. ]
+
+** Revised format for Org =#+filetags= entry
+:PROPERTIES:
+:CUSTOM_ID: h:17688b79-cb1b-4a59-831e-fbf2a81245d3
+:END:
+
+Denote used to format tags in Org files by separating them with two
+spaces:
+
+#+begin_example
+#+filetags:  tag1  tag2
+#+end_example
+
+While this worked for some obvious use-cases, it is not supported by
+Org.  The Org documentation stipulates that tags be separated by the
+colon sign.  The above would then be written thus:
+
+#+begin_example
+#+filetags:  :tag1:tag2:
+#+end_example
+
+Denote now conforms with Org's specifications.  To help users update
+their existing notes, we provide the ~denote-migrate-old-org-filetags~
+command.  It will perform the conversion in all Org files that had the
+old notation.  As with all Denote operations that rewrite file contents,
+it DOES NOT SAVE BUFFERS.  The user is expected to review the changes,
+such as by using ~diff-buffer-with-file~.  Multiple buffers can be saved
+with ~save-some-buffers~ (check its doc string).
+
+This command is provided for the convenience of the user.  It shall be
+deprecated and eventually removed from future versions of Denote.
+
+If you need help with any of this, please do not hesitate to contact me
+either in private or in one of Denote's official channels (mailing list,
+GitHub/GitLab mirror).
+
+Thanks to Alan Schmitt for bringing this matter to my attention:
+.
+Also thanks to Jean-Philippe Gagné Guay for commenting on it as it
+helped me decide to include the command in =denote.el=:
+.
+
+** Revised format for Markdown+YAML =tags:= entry
+:PROPERTIES:
+:CUSTOM_ID: h:205a09cf-0159-425e-a6b3-41700fa3ad31
+:END:
+
+This is the same idea as above.  Before, we were making the mistake of
+using incorrect YAML notation:
+
+#+begin_src yaml
+tags:  tag1  tag2
+#+end_src
+
+Now we do:
+
+#+begin_src yaml
+tags:  ["tag1", "tag2"]
+#+end_src
+
+This is how the TOML variant always worked.
+
+For the user's convenience, we provide a command to migrate from the old
+to the new syntax: ~denote-migrate-old-markdown-yaml-tags~.
+
+** Changes to file renaming and front matter rewriting
+:PROPERTIES:
+:CUSTOM_ID: h:15ecb4e8-d1ce-4e42-b74d-a3a046d93220
+:END:
+
+Denote adds "front matter" to newly created notes which includes data
+such as th

[nongnu] elpa/web-mode updated (7b5459f58c -> d8258fb33c)

[ELPA Syncer]

elpasync pushed a change to branch elpa/web-mode.

  from  7b5459f58c anki support
   new  c2f6ce3c86 Add completion and optional arguments to 
web-mode-attribute-insert
   new  7ae48dec23 Add completion for element tags
   new  d8258fb33c Merge pull request #1253 from thiderman/completionista


Summary of changes:
 web-mode.el | 86 -
 1 file changed, 79 insertions(+), 7 deletions(-)

[nongnu] elpa/web-mode c2f6ce3c86 1/3: Add completion and optional arguments to web-mode-attribute-insert

[ELPA Syncer]

branch: elpa/web-mode
commit c2f6ce3c86bf6265e1d794a467f0b8fdb3181262
Author: Olivia Thiderman 
Commit: Olivia Thiderman 

Add completion and optional arguments to web-mode-attribute-insert

This improves it in two ways;

- Allowing it to be called with optional arguments for both the attribute 
and
  the value. This lets users call it with common operations and skip any of 
the
  steps, such as adding common attributes (`class` and `id` come to mind).

- Use `completing-read` with a predetermined set of known and customize-able
  attributes. This helps the user find common attributes faster. It also 
has a
  history, so any new attribute added will be remembered for later access. 
The
  same is added for the value prompt, but it has no predetermined values.
---
 web-mode.el | 47 ---
 1 file changed, 44 insertions(+), 3 deletions(-)

diff --git a/web-mode.el b/web-mode.el
index 1f69cefc98..d4914a6e30 100644
--- a/web-mode.el
+++ b/web-mode.el
@@ -357,6 +357,36 @@ See web-mode-block-face."
   :type '(repeat string)
   :group 'web-mode)
 
+(defcustom web-mode-attribute-list
+  '("accept" "accesskey" "action" "alt" "async" "autocomplete" "autofocus"
+"autoplay" "charset" "checked" "cite" "class" "cols" "colspan" "content"
+"contenteditable" "controls" "coords" "data" "datetime" "default" "defer"
+"dir" "dirname" "disabled" "download" "draggable" "enctype" "for" "form"
+"formaction" "headers" "height" "hidden" "high" "href" "hreflang" "http"
+"id" "ismap" "kind" "label" "lang" "list" "loop" "low" "max" "maxlength"
+"media" "method" "min" "multiple" "muted" "name" "novalidate" "onabort"
+"onafterprint" "onbeforeprint" "onbeforeunload" "onblur" "oncanplay"
+"oncanplaythrough" "onchange" "onclick" "oncontextmenu" "oncopy"
+"oncuechange" "oncut" "ondblclick" "ondrag" "ondragend" "ondragenter"
+"ondragleave" "ondragover" "ondragstart" "ondrop" "ondurationchange"
+"onemptied" "onended" "onerror" "onfocus" "onhashchange" "oninput"
+"oninvalid" "onkeydown" "onkeypress" "onkeyup" "onload" "onloadeddata"
+"onloadedmetadata" "onloadstart" "onmousedown" "onmousemove" "onmouseout"
+"onmouseover" "onmouseup" "onmousewheel" "onoffline" "ononline"
+"onpagehide" "onpageshow" "onpaste" "onpause" "onplay" "onplaying"
+"onpopstate" "onprogress" "onratechange" "onreset" "onresize" "onscroll"
+"onsearch" "onseeked" "onseeking" "onselect" "onstalled" "onstorage"
+"onsubmit" "onsuspend" "ontimeupdate" "ontoggle" "onunload"
+"onvolumechange" "onwaiting" "onwheel" "open" "optimum" "pattern"
+"placeholder" "poster" "preload" "readonly" "rel" "required" "reversed"
+"rows" "rowspan" "sandbox" "scope" "selected" "shape" "size" "sizes"
+"span" "spellcheck" "src" "srcdoc" "srclang" "srcset" "start" "step"
+"style" "tabindex" "target" "title" "translate" "type" "usemap" "value"
+"width" "wrap")
+  "HTML attributes used for completion."
+  :type '(repeat string)
+  :group 'web-mode)
+
 ;; FACES 
---
 
 (defface web-mode-error-face
@@ -877,6 +907,9 @@ Must be used in conjunction with 
web-mode-enable-block-face."
 ("case-extra-offset" . t)
 ))
 
+(defvar web-mode-attribute-history nil)
+(defvar web-mode-attribute-value-history nil)
+
 (defvar web-mode-engines
   '(("angular"  . ("angularjs"))
 ("archibus" . ())
@@ -11907,19 +11940,27 @@ Prompt user if TAG-NAME isn't provided."
   ;;(message "attrs=%S" attrs)
   )))
 
-(defun web-mode-attribute-insert ()
+(defun web-mode-attribute-insert (&optional attr-name attr-value)
   "Insert an attribute inside current tag."
   (interactive)
   (let (attr attr-name attr-value)
 (cond
  ((not (member (get-text-property (point) 'tag-type) '(start void)))
   (message "attribute-insert ** invalid context **"))
- ((not (and (setq attr-name (read-from-minibuffer "Attribute name? "))
+ ((not (and (setq attr-name (or attr-name (completing-read
+   "Attribute name: "
+   (append
+web-mode-attribute-list
+web-mode-attribute-history)
+   nil nil nil 
'web-mode-attribute-history)))
 (> (length attr-name) 0)))
   (message "attribute-insert ** failure **"))
  (t
   (setq attr (concat " " attr-name))
-  (when (setq attr-value (read-from-minibuffer "Attribute value? "))
+  (when (setq attr-value (or attr-value (completing-read
+ "Attribute value: "
+ web-mode-attribute-value-history
+ nil nil nil 
'web-mode-attribute-value-hist

[nongnu] elpa/web-mode d8258fb33c 3/3: Merge pull request #1253 from thiderman/completionista

[ELPA Syncer]

branch: elpa/web-mode
commit d8258fb33cc1918a2d83ff637157061e804acd6f
Merge: 7b5459f58c 7ae48dec23
Author: fxbois 
Commit: GitHub 

Merge pull request #1253 from thiderman/completionista

Add completion for tags, attributes, and attribute values
---
 web-mode.el | 86 -
 1 file changed, 79 insertions(+), 7 deletions(-)

diff --git a/web-mode.el b/web-mode.el
index 03be12e3b5..18b4a7e1ea 100644
--- a/web-mode.el
+++ b/web-mode.el
@@ -357,6 +357,57 @@ See web-mode-block-face."
   :type '(repeat string)
   :group 'web-mode)
 
+;; https://developer.mozilla.org/en-US/docs/Web/HTML/Element
+(defcustom web-mode-tag-list
+  '("html" "base" "head" "link" "meta" "style" "title" "body" "address"
+"article" "aside" "footer" "header" "h1" "h2" "h3" "h4" "h5" "h6" "main"
+"nav" "section" "blockquote" "dd" "div" "dl" "dt" "figcaption" "figure"
+"hr" "li" "menu" "ol" "p" "pre" "ula" "a" "abbr" "b" "bdi" "bdo" "br"
+"cite" "code" "data" "dfn" "em" "i" "kbdmark" "q" "rp" "rt" "ruby" "s"
+"samp" "small" "span" "strong" "sub" "sup" "time" "u" "var" "wbr" "area"
+"audio" "img" "map" "track" "video" "embed" "iframe" "object" "picture"
+"portal" "source" "svg" "math" "canvas" "noscript" "script" "del" "ins"
+"caption" "col" "colgroup" "table" "tbody" "td" "tfoot" "th" "thead" "tr"
+"button" "datalist" "fieldset" "form" "input" "label" "legend" "meter"
+"optgroup" "option" "output" "progress" "select" "textarea" "details"
+"dialog" "summary" "slot" "template")
+  "HTML tags used for completion."
+  :type '(repeat string)
+  :group 'web-mode)
+
+
+;; https://www.w3schools.com/tags/ref_attributes.asp
+;; Attributes marked as deprecated in HTML 5 are not added.
+(defcustom web-mode-attribute-list
+  '("accept" "accesskey" "action" "alt" "async" "autocomplete" "autofocus"
+"autoplay" "charset" "checked" "cite" "class" "cols" "colspan" "content"
+"contenteditable" "controls" "coords" "data" "datetime" "default" "defer"
+"dir" "dirname" "disabled" "download" "draggable" "enctype" "for" "form"
+"formaction" "headers" "height" "hidden" "high" "href" "hreflang" "http"
+"id" "ismap" "kind" "label" "lang" "list" "loop" "low" "max" "maxlength"
+"media" "method" "min" "multiple" "muted" "name" "novalidate" "onabort"
+"onafterprint" "onbeforeprint" "onbeforeunload" "onblur" "oncanplay"
+"oncanplaythrough" "onchange" "onclick" "oncontextmenu" "oncopy"
+"oncuechange" "oncut" "ondblclick" "ondrag" "ondragend" "ondragenter"
+"ondragleave" "ondragover" "ondragstart" "ondrop" "ondurationchange"
+"onemptied" "onended" "onerror" "onfocus" "onhashchange" "oninput"
+"oninvalid" "onkeydown" "onkeypress" "onkeyup" "onload" "onloadeddata"
+"onloadedmetadata" "onloadstart" "onmousedown" "onmousemove" "onmouseout"
+"onmouseover" "onmouseup" "onmousewheel" "onoffline" "ononline"
+"onpagehide" "onpageshow" "onpaste" "onpause" "onplay" "onplaying"
+"onpopstate" "onprogress" "onratechange" "onreset" "onresize" "onscroll"
+"onsearch" "onseeked" "onseeking" "onselect" "onstalled" "onstorage"
+"onsubmit" "onsuspend" "ontimeupdate" "ontoggle" "onunload"
+"onvolumechange" "onwaiting" "onwheel" "open" "optimum" "pattern"
+"placeholder" "poster" "preload" "readonly" "rel" "required" "reversed"
+"rows" "rowspan" "sandbox" "scope" "selected" "shape" "size" "sizes"
+"span" "spellcheck" "src" "srcdoc" "srclang" "srcset" "start" "step"
+"style" "tabindex" "target" "title" "translate" "type" "usemap" "value"
+"width" "wrap")
+  "HTML attributes used for completion."
+  :type '(repeat string)
+  :group 'web-mode)
+
 ;; FACES 
---
 
 (defface web-mode-error-face
@@ -877,6 +928,10 @@ Must be used in conjunction with 
web-mode-enable-block-face."
 ("case-extra-offset" . t)
 ))
 
+(defvar web-mode-tag-history nil)
+(defvar web-mode-attribute-history nil)
+(defvar web-mode-attribute-value-history nil)
+
 (defvar web-mode-engines
   '(("angular"  . ("angularjs"))
 ("anki" . ())
@@ -10549,7 +10604,7 @@ Pos should be in a tag."
 (let (beg end line-beg line-end pos tag tag-start tag-end)
   (save-excursion
 (combine-after-change-calls
-  (setq tag (read-from-minibuffer "Tag name? ")
+  (setq tag (web-mode-element-complete)
 tag-start (concat "<" tag ">")
 tag-end (concat "")
 pos (point)
@@ -10600,13 +10655,22 @@ Pos should be in a tag."
 ) ;let
   )
 
+(defun web-mode-element-complete (&optional prompt)
+  "Completes for an element tag."
+  (completing-read
+   (or prompt "Tag name: ")
+   (append
+web-mode-tag-list
+web-mode-tag-history)
+   nil nil nil 'web-mode-tag-history))
+
 (defun web-mode-element-wrap (&optional tag-name)
   "Wrap current REGION with start and end tags.
 Prompt us

[nongnu] elpa/web-mode 7ae48dec23 2/3: Add completion for element tags

[ELPA Syncer]

branch: elpa/web-mode
commit 7ae48dec234b5e6f6c4ec84d313629b501ef87f0
Author: Olivia Thiderman 
Commit: Olivia Thiderman 

Add completion for element tags

Use `completing-read` with a predetermined set of known and customize-able 
tags.
This helps the user find common tags faster. It also has a history, so any 
new
tag added will be remembered for later access.
---
 web-mode.el | 39 +++
 1 file changed, 35 insertions(+), 4 deletions(-)

diff --git a/web-mode.el b/web-mode.el
index d4914a6e30..81c05d576b 100644
--- a/web-mode.el
+++ b/web-mode.el
@@ -357,6 +357,27 @@ See web-mode-block-face."
   :type '(repeat string)
   :group 'web-mode)
 
+;; https://developer.mozilla.org/en-US/docs/Web/HTML/Element
+(defcustom web-mode-tag-list
+  '("html" "base" "head" "link" "meta" "style" "title" "body" "address"
+"article" "aside" "footer" "header" "h1" "h2" "h3" "h4" "h5" "h6" "main"
+"nav" "section" "blockquote" "dd" "div" "dl" "dt" "figcaption" "figure"
+"hr" "li" "menu" "ol" "p" "pre" "ula" "a" "abbr" "b" "bdi" "bdo" "br"
+"cite" "code" "data" "dfn" "em" "i" "kbdmark" "q" "rp" "rt" "ruby" "s"
+"samp" "small" "span" "strong" "sub" "sup" "time" "u" "var" "wbr" "area"
+"audio" "img" "map" "track" "video" "embed" "iframe" "object" "picture"
+"portal" "source" "svg" "math" "canvas" "noscript" "script" "del" "ins"
+"caption" "col" "colgroup" "table" "tbody" "td" "tfoot" "th" "thead" "tr"
+"button" "datalist" "fieldset" "form" "input" "label" "legend" "meter"
+"optgroup" "option" "output" "progress" "select" "textarea" "details"
+"dialog" "summary" "slot" "template")
+  "HTML tags used for completion."
+  :type '(repeat string)
+  :group 'web-mode)
+
+
+;; https://www.w3schools.com/tags/ref_attributes.asp
+;; Attributes marked as deprecated in HTML 5 are not added.
 (defcustom web-mode-attribute-list
   '("accept" "accesskey" "action" "alt" "async" "autocomplete" "autofocus"
 "autoplay" "charset" "checked" "cite" "class" "cols" "colspan" "content"
@@ -907,6 +928,7 @@ Must be used in conjunction with 
web-mode-enable-block-face."
 ("case-extra-offset" . t)
 ))
 
+(defvar web-mode-tag-history nil)
 (defvar web-mode-attribute-history nil)
 (defvar web-mode-attribute-value-history nil)
 
@@ -10402,7 +10424,7 @@ Pos should be in a tag."
 (let (beg end line-beg line-end pos tag tag-start tag-end)
   (save-excursion
 (combine-after-change-calls
-  (setq tag (read-from-minibuffer "Tag name? ")
+  (setq tag (web-mode-element-complete)
 tag-start (concat "<" tag ">")
 tag-end (concat "")
 pos (point)
@@ -10453,13 +10475,22 @@ Pos should be in a tag."
 ) ;let
   )
 
+(defun web-mode-element-complete (&optional prompt)
+  "Completes for an element tag."
+  (completing-read
+   (or prompt "Tag name: ")
+   (append
+web-mode-tag-list
+web-mode-tag-history)
+   nil nil nil 'web-mode-tag-history))
+
 (defun web-mode-element-wrap (&optional tag-name)
   "Wrap current REGION with start and end tags.
 Prompt user if TAG-NAME isn't provided."
   (interactive)
   (let (beg end pos tag sep)
 (save-excursion
-  (setq tag (or tag-name (read-from-minibuffer "Tag name? ")))
+  (setq tag (or tag-name (web-mode-element-complete)))
   (setq pos (point))
   (cond
(mark-active
@@ -10569,7 +10600,7 @@ Prompt user if TAG-NAME isn't provided."
  ((and (get-text-property (point) 'tag-type)
(not (get-text-property (point) 'tag-beg)))
   (message "element-insert ** invalid context **"))
- ((not (and (setq tag-name (read-from-minibuffer "Tag name? "))
+ ((not (and (setq tag-name (web-mode-element-complete))
 (> (length tag-name) 0)))
   (message "element-insert ** failure **"))
  ((web-mode-element-is-void tag-name)
@@ -10619,7 +10650,7 @@ Prompt user if TAG-NAME isn't provided."
   (interactive)
   (save-excursion
 (let (pos)
-  (unless tag-name (setq tag-name (read-from-minibuffer "New tag name? ")))
+  (unless tag-name (setq tag-name (web-mode-element-complete "New tag 
name: ")))
   (when (and (> (length tag-name) 0)
  (web-mode-element-beginning)
  (looking-at "<\\([[:alnum:]]+\\(:?[[:alpha:]_-]+\\)?\\)"))

[nongnu] elpa/cider updated (8da628ce60 -> 68974c9fb6)

[ELPA Syncer]

elpasync pushed a change to branch elpa/cider.

  from  8da628ce60 [Docs] Mention cider-words-of-inspiration
   new  0f4887b253 Locate multiple ports for a single project
   new  68974c9fb6 Tweak an obsoletion message


Summary of changes:
 CHANGELOG.md|  1 +
 cider.el|  9 +
 nrepl-client.el | 10 ++
 3 files changed, 16 insertions(+), 4 deletions(-)

[nongnu] elpa/cider 0f4887b253 1/2: Locate multiple ports for a single project

[ELPA Syncer]

branch: elpa/cider
commit 0f4887b253cd0a6178bf5763df096161b7dad40f
Author: Daniel Midwood 
Commit: Bozhidar Batsov 

Locate multiple ports for a single project

Searching for a nrepl port to connect to would return a maximum of one
port per project, ignoring any others that you might want to connect
to. This creates a case where when connecting to a shadow-cljs nrepl
server the port is not presented to you as a completion when you
already have another nrepl server running.

This commit changes nrepl-extract-port to nrepl-extract-ports and the
return type from a single port to a list of ports (including nils
where a specific project type nrepl port file doesn't exist) to
provide the full view of nrepl servers that are available in the
project, and then the cider-locate-running-nrepl-ports fn is changed
to accommodate that.

This fixes #3140.
---
 CHANGELOG.md|  1 +
 cider.el|  9 +
 nrepl-client.el | 10 ++
 3 files changed, 16 insertions(+), 4 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index 4da142d65a..3d171a6d6d 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -20,6 +20,7 @@
 ### Bugs fixed
 
 * [#3235](https://github.com/clojure-emacs/cider/issues/3235): Check `name` is 
a TRAMP file in `cider--client-tramp-filename` via `tramp-tramp-file-p`.
+- [#3234](https://github.com/clojure-emacs/cider/pull/3234) Autocomplete 
multiple available ports on nRepl connect.
 
 ## 1.4.1 (2022-05-25)
 
diff --git a/cider.el b/cider.el
index 9aeae4212d..827091dfd6 100644
--- a/cider.el
+++ b/cider.el
@@ -1625,10 +1625,11 @@ of remote SSH hosts."
 When DIR is non-nil also look for nREPL port files in DIR.  Return a list
 of list of the form (project-dir port)."
   (let* ((paths (cider--running-nrepl-paths))
- (proj-ports (mapcar (lambda (d)
-   (when-let* ((port (and d (nrepl-extract-port 
(cider--file-path d)
- (list (file-name-nondirectory 
(directory-file-name d)) port)))
- (cons (clojure-project-dir dir) paths
+ (proj-ports (apply #'append
+(mapcar (lambda (d)
+  (mapcar (lambda (p) (list 
(file-name-nondirectory (directory-file-name d)) p))
+  (and d (nrepl-extract-ports 
(cider--file-path d)
+(cons (clojure-project-dir dir) paths)
 (seq-uniq (delq nil proj-ports
 
 (defun cider--running-nrepl-paths ()
diff --git a/nrepl-client.el b/nrepl-client.el
index 8b3c8a1167..c80906933d 100644
--- a/nrepl-client.el
+++ b/nrepl-client.el
@@ -237,6 +237,16 @@ PARAMS is as in `nrepl-make-buffer-name'."
   (nrepl--port-from-file (expand-file-name "target/repl-port" dir))
   (nrepl--port-from-file (expand-file-name ".shadow-cljs/nrepl.port" 
dir
 
+(defun nrepl-extract-ports (dir)
+  "Read ports from applicable repl-port files in directory DIR."
+  (delq nil
+(list (nrepl--port-from-file (expand-file-name "repl-port" dir))
+  (nrepl--port-from-file (expand-file-name ".nrepl-port" dir))
+  (nrepl--port-from-file (expand-file-name "target/repl-port" dir))
+  (nrepl--port-from-file (expand-file-name 
".shadow-cljs/nrepl.port" dir)
+
+(make-obsolete 'nrepl-extract-port 'nrepl-extract-ports "1.4.2")
+
 (defun nrepl--port-from-file (file)
   "Attempts to read port from a file named by FILE."
   (when (file-exists-p file)

[nongnu] elpa/cider 68974c9fb6 2/2: Tweak an obsoletion message

[ELPA Syncer]

branch: elpa/cider
commit 68974c9fb6ee6e95a4568c46a9c4371b24d2f0e9
Author: Bozhidar Batsov 
Commit: Bozhidar Batsov 

Tweak an obsoletion message
---
 nrepl-client.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/nrepl-client.el b/nrepl-client.el
index c80906933d..612c2e9a03 100644
--- a/nrepl-client.el
+++ b/nrepl-client.el
@@ -245,7 +245,7 @@ PARAMS is as in `nrepl-make-buffer-name'."
   (nrepl--port-from-file (expand-file-name "target/repl-port" dir))
   (nrepl--port-from-file (expand-file-name 
".shadow-cljs/nrepl.port" dir)
 
-(make-obsolete 'nrepl-extract-port 'nrepl-extract-ports "1.4.2")
+(make-obsolete 'nrepl-extract-port 'nrepl-extract-ports "1.5.0")
 
 (defun nrepl--port-from-file (file)
   "Attempts to read port from a file named by FILE."

[elpa] externals/denote updated (d9c4746991 -> 1d714e8fb2)

[ELPA Syncer]

elpasync pushed a change to branch externals/denote.

  from  d9c4746991 Update to version 0.5.0
   new  e13dc9cfa4 denote--format-front-matter: Handle nil filetype 
gracefuly
   new  70b31867e6 Merge pull request #84 from 
juergenhoetzel/handle_nil_filetype
   new  a461df46d6 Update the manual's Acknowledgements
   new  1d714e8fb2 Bump version to 0.5.1


Summary of changes:
 README.org | 6 +++---
 denote.el  | 6 +++---
 2 files changed, 6 insertions(+), 6 deletions(-)

[elpa] externals/denote a461df46d6 3/4: Update the manual's Acknowledgements

[ELPA Syncer]

branch: externals/denote
commit a461df46d6f84be0ccbce642c540e0ebaa5ce75a
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update the manual's Acknowledgements

Thanks to Jürgen Hötzel for the bug fix to M-x denote which was
contributed in pull request 84 on the GitHub mirror:
.
---
 README.org | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/README.org b/README.org
index 7f9356bf45..2366f07c93 100644
--- a/README.org
+++ b/README.org
@@ -2267,9 +2267,9 @@ Denote is meant to be a collective effort.  Every bit of 
help matters.
 + Author/maintainer :: Protesilaos Stavrou.
 
 + Contributions to code or the manual :: Benjamin Kästner, Colin McLear,
-  Damien Cassou, Jack Baty, Jean-Philippe Gagné Guay, Kaushal Modi, Kyle
-  Meyer, Peter Prevos, Philip Kaludercic, Quiliro Ordóñez, Stefan
-  Monnier.
+  Damien Cassou, Jack Baty, Jean-Philippe Gagné Guay, Jürgen Hötzel,
+  Kaushal Modi, Kyle Meyer, Peter Prevos, Philip Kaludercic, Quiliro
+  Ordóñez, Stefan Monnier.
 
 + Ideas and/or user feedback :: Abin Simon, Alan Schmitt, Alfredo
   Borrás, Benjamin Kästner, Colin McLear, Damien Cassou, Frank Ehmsen,

[elpa] externals/denote 70b31867e6 2/4: Merge pull request #84 from juergenhoetzel/handle_nil_filetype

[ELPA Syncer]

branch: externals/denote
commit 70b31867e625d75053febbda462f54e90fa1cfc3
Merge: d9c4746991 e13dc9cfa4
Author: Protesilaos Stavrou 
Commit: GitHub 

Merge pull request #84 from juergenhoetzel/handle_nil_filetype

denote--format-front-matter: Handle nil filetype gracefuly
---
 denote.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/denote.el b/denote.el
index 914a1d2fc6..f8655ca30b 100644
--- a/denote.el
+++ b/denote.el
@@ -764,8 +764,8 @@ provided by `denote'.  FILETYPE is one of the values of
   ('text (format denote-text-front-matter title date
  (denote--format-front-matter-keywords keywords 'text)
  id denote-text-front-matter-delimiter))
-  ('org (format denote-org-front-matter title date
-(denote--format-front-matter-keywords keywords 'org) 
id)
+  (_ (format denote-org-front-matter title date
+ (denote--format-front-matter-keywords keywords 'org) id)
 
 (defun denote--path (title keywords dir id file-type)
   "Return path to new file with ID, TITLE, KEYWORDS and FILE-TYPE in DIR."

[elpa] externals/denote e13dc9cfa4 1/4: denote--format-front-matter: Handle nil filetype gracefuly

[ELPA Syncer]

branch: externals/denote
commit e13dc9cfa4274da2a285210c896672ee1ddbaf17
Author: Juergen Hoetzel 
Commit: Juergen Hoetzel 

denote--format-front-matter: Handle nil filetype gracefuly

As descriped in denote-file-type docstring:

By default (a nil value), the file type is that of Org mode.
Any other non-nil value is the same as the default."
---
 denote.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/denote.el b/denote.el
index 914a1d2fc6..f8655ca30b 100644
--- a/denote.el
+++ b/denote.el
@@ -764,8 +764,8 @@ provided by `denote'.  FILETYPE is one of the values of
   ('text (format denote-text-front-matter title date
  (denote--format-front-matter-keywords keywords 'text)
  id denote-text-front-matter-delimiter))
-  ('org (format denote-org-front-matter title date
-(denote--format-front-matter-keywords keywords 'org) 
id)
+  (_ (format denote-org-front-matter title date
+ (denote--format-front-matter-keywords keywords 'org) id)
 
 (defun denote--path (title keywords dir id file-type)
   "Return path to new file with ID, TITLE, KEYWORDS and FILE-TYPE in DIR."

[elpa] externals/denote 1d714e8fb2 4/4: Bump version to 0.5.1

[ELPA Syncer]

branch: externals/denote
commit 1d714e8fb260470ada1f48dce731f6849905b78f
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Bump version to 0.5.1

Just to trigger a rebuild of the package to include commit e13dc9c.
---
 denote.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/denote.el b/denote.el
index f8655ca30b..1fa8ae5dc4 100644
--- a/denote.el
+++ b/denote.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Denote Development <~protesilaos/den...@lists.sr.ht>
 ;; URL: https://git.sr.ht/~protesilaos/denote
 ;; Mailing-List: https://lists.sr.ht/~protesilaos/denote
-;; Version: 0.5.0
+;; Version: 0.5.1
 ;; Package-Requires: ((emacs "27.2"))
 
 ;; This file is NOT part of GNU Emacs.

[elpa] externals/compat 36bc169cc0 3/3: Avoid using when-let in provided-mode-derived-p

[ELPA Syncer]

branch: externals/compat
commit 36bc169cc08408ae2cc2cfe0e2a3dc4338fc3b71
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Avoid using when-let in provided-mode-derived-p
---
 compat-27.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compat-27.el b/compat-27.el
index 99a1d33d83..bc0e37a356 100644
--- a/compat-27.el
+++ b/compat-27.el
@@ -405,8 +405,8 @@ Uses the `derived-mode-parent' property of the symbol to 
trace backwards.
 If you just want to check `major-mode', use `derived-mode-p'."
   :realname compat--provided-mode-derived-p
   ;; If MODE is an alias, then look up the real mode function first.
-  (when-let ((alias (symbol-function mode)))
-(when (symbolp alias)
+  (let ((alias (symbol-function mode)))
+(when (and alias (symbolp alias))
   (setq mode alias)))
   (while
   (and

[elpa] externals/compat db9321e222 1/3: Add provided-mode-derived-p from Emacs 27

[ELPA Syncer]

branch: externals/compat
commit db9321e222352c5c276c5df60b921999034264bf
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Add provided-mode-derived-p from Emacs 27
---
 compat-27.el| 17 +
 compat-tests.el | 23 +++
 compat.texi |  7 +++
 3 files changed, 47 insertions(+)

diff --git a/compat-27.el b/compat-27.el
index fdc81c93c8..89ed286954 100644
--- a/compat-27.el
+++ b/compat-27.el
@@ -399,6 +399,23 @@ where USER is a valid login name."
   body)))
 (cons 'progn (nreverse body
 
+(compat-defun provided-mode-derived-p (mode &rest modes)
+  "Non-nil if MODE is derived from one of MODES.
+Uses the `derived-mode-parent' property of the symbol to trace backwards.
+If you just want to check `major-mode', use `derived-mode-p'."
+  :realname compat--provided-mode-derived-p
+  ;; If MODE is an alias, then look up the real mode function first.
+  (when-let ((alias (symbol-function mode)))
+(when (symbolp alias)
+  (setq mode alias)))
+  (while
+  (and
+   (not (memq mode modes))
+   (let* ((parent (get mode 'derived-mode-parent))
+  (parentfn (symbol-function parent)))
+ (setq mode (if (and parentfn (symbolp parentfn)) parentfn parent)
+  mode)
+
 ;;* UNTESTED
 (compat-defmacro ignore-error (condition &rest body)
   "Execute BODY; if the error CONDITION occurs, return nil.
diff --git a/compat-tests.el b/compat-tests.el
index b2940cfbd8..0794b76972 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -1838,5 +1838,28 @@ being compared against."
   (ought t "~root/")
   (ought t "~root/file"))
 
+(let ((one (make-symbol "1"))
+  (two (make-symbol "2"))
+  (three (make-symbol "3"))
+  (one.5 (make-symbol "1.5"))
+  (eins (make-symbol "𝟙")))
+  (put two 'derived-mode-parent one)
+  (put one.5 'derived-mode-parent one)
+  (put three 'derived-mode-parent two)
+  (compat-deftests provided-mode-derived-p
+(ought one one one)
+(ought one two one)
+(ought one three one)
+(ought nil one eins)
+(ought nil two eins)
+(ought nil two one.5)
+(ought one two one.5 one)
+(ought two two one.5 two)
+(ought one three one.5 one)
+(ought two three one.5 one two)
+(ought two three one.5 two one)
+(ought three three one.5 two one three)
+(ought three three one.5 three two one)))
+
 (provide 'compat-tests)
 ;;; compat-tests.el ends here
diff --git a/compat.texi b/compat.texi
index 7e70fd9d61..27b00337c4 100644
--- a/compat.texi
+++ b/compat.texi
@@ -1468,6 +1468,13 @@ of @env{PATH} can lead to confusing results.
 @xref{Subprocess Creation,,,elisp}.
 @end defopt
 
+@c based on lisp/modes.el
+@defun provided-mode-derived-p mode &rest modes
+This function returns non-@code{nil} if @var{mode} is derived from any
+of the major modes given by the symbols @var{modes}.
+@end defun
+
+
 @subsection Prefixed Definitions
 These functions are prefixed with @code{compat} prefix, and are only
 loaded when @code{compat-27} is required:

[elpa] externals/compat updated (6e021823d8 -> 36bc169cc0)

[ELPA Syncer]

elpasync pushed a change to branch externals/compat.

  from  6e021823d8 Swap release manual and snapshot manual links
   new  db9321e222 Add provided-mode-derived-p from Emacs 27
   new  46b44c3be1 Add derived-mode-p from Emacs 27
   new  36bc169cc0 Avoid using when-let in provided-mode-derived-p


Summary of changes:
 compat-27.el| 23 +++
 compat-tests.el | 23 +++
 compat.texi | 13 +
 3 files changed, 59 insertions(+)

[elpa] externals/compat 46b44c3be1 2/3: Add derived-mode-p from Emacs 27

[ELPA Syncer]

branch: externals/compat
commit 46b44c3be1f650c9f7c56f8e5f70211a796fc977
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Add derived-mode-p from Emacs 27
---
 compat-27.el | 6 ++
 compat.texi  | 6 ++
 2 files changed, 12 insertions(+)

diff --git a/compat-27.el b/compat-27.el
index 89ed286954..99a1d33d83 100644
--- a/compat-27.el
+++ b/compat-27.el
@@ -416,6 +416,12 @@ If you just want to check `major-mode', use 
`derived-mode-p'."
  (setq mode (if (and parentfn (symbolp parentfn)) parentfn parent)
   mode)
 
+;;* UNTESTED
+(defun derived-mode-p (&rest modes)
+  "Non-nil if the current major mode is derived from one of MODES.
+Uses the `derived-mode-parent' property of the symbol to trace backwards."
+  (apply #'compat--provided-mode-derived-p major-mode modes))
+
 ;;* UNTESTED
 (compat-defmacro ignore-error (condition &rest body)
   "Execute BODY; if the error CONDITION occurs, return nil.
diff --git a/compat.texi b/compat.texi
index 27b00337c4..03e690372a 100644
--- a/compat.texi
+++ b/compat.texi
@@ -1474,6 +1474,12 @@ This function returns non-@code{nil} if @var{mode} is 
derived from any
 of the major modes given by the symbols @var{modes}.
 @end defun
 
+@defun derived-mode-p &rest modes
+This function returns non-@code{nil} if the current major mode is
+derived from any of the major modes given by the symbols @var{modes}.
+
+@xref{Derived Modes,,,elisp}.
+@end defun
 
 @subsection Prefixed Definitions
 These functions are prefixed with @code{compat} prefix, and are only

[nongnu] elpa/buttercup ec4d94f7d5 3/9: tests: Create enclosed expressions with buttercup--wrap-expr

[ELPA Syncer]

branch: elpa/buttercup
commit ec4d94f7d50a8a3ed5ac3ae7f57f0bfbe250a4e1
Author: Ola Nilsson 
Commit: Ola Nilsson 

tests: Create enclosed expressions with buttercup--wrap-expr

... instead of creating wrapped functions manually.  At least in the
cases where the wrapping and unwrapping is not the focus of the tests.
---
 tests/test-buttercup.el | 10 +-
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/tests/test-buttercup.el b/tests/test-buttercup.el
index b9456ffa4a..17a49e036b 100644
--- a/tests/test-buttercup.el
+++ b/tests/test-buttercup.el
@@ -182,17 +182,17 @@ text properties using `ansi-color-apply'."
   (describe "with a function as a matcher argument"
 (it "should not raise an error if the function returns true"
   (expect (buttercup-expect
-   (lambda () t)
+   (buttercup--wrap-expr t)
#'eq
-   (lambda () t))
+   (buttercup--wrap-expr t))
   :not :to-throw
   'buttercup-failed))
 
 (it "should raise an error if the function returns false"
   (expect (buttercup-expect
-   (lambda () t)
+   (buttercup--wrap-expr t)
#'eq
-   (lambda () nil))
+   (buttercup--wrap-expr nil))
   :to-throw
   'buttercup-failed)))
 
@@ -206,7 +206,7 @@ text properties using `ansi-color-apply'."
   'buttercup-failed))
 
 (it "should raise an error if the matcher returns false"
-  (expect (buttercup-expect (lambda () 1) :always-false)
+  (expect (buttercup-expect (buttercup--wrap-expr 1) :always-false)
   :to-throw
   'buttercup-failed
 

[nongnu] elpa/buttercup 0e26b1bbed 6/9: Clean up buttercup--enclosed-expr

[ELPA Syncer]

branch: elpa/buttercup
commit 0e26b1bbed3da4b86c621e8ad18843657e59c063
Author: Ola Nilsson 
Commit: Ola Nilsson 

Clean up buttercup--enclosed-expr

There are only two valid forms of FUN, and one of them is probably
only for special cases when testing buttercup itself.
---
 buttercup.el | 53 +
 1 file changed, 29 insertions(+), 24 deletions(-)

diff --git a/buttercup.el b/buttercup.el
index 418dd5ecae..1fdfc74b5b 100644
--- a/buttercup.el
+++ b/buttercup.el
@@ -59,31 +59,36 @@
 
 The function MUST have one of the following forms:
 
-\(lambda () EXPR)
-\(lambda () (buttercup--mark-stackframe) EXPR)
-\(closure (ENVLIST) () EXPR)
-\(closure (ENVLIST) () (buttercup--mark-stackframe) EXPR)
-\(lambda () (quote EXPR) EXPR)
-\(closure (ENVLIST) () (quote EXPR) EXPR)
-
-and the return value will be EXPR, unevaluated. The latter 2
-forms are useful if EXPR is a macro call, in which case the
-`quote' ensures access to the un-expanded form."
+\(closure (ENVLIST) () (quote EXPR) (buttercup--mark-stackframe) EXPANDED)
+\(lambda () (quote EXPR) (buttercup--mark-stackframe) EXPR)
+
+and the return value will be EXPR, unevaluated. The quoted EXPR
+is useful if EXPR is a macro call, in which case the `quote'
+ensures access to the un-expanded form."
+  (cl-assert (functionp fun) t "Expected FUN to be a function")
   (pcase fun
-(`(closure ,(pred listp) nil ,expr) expr)
-(`(closure ,(pred listp) nil (buttercup--mark-stackframe) ,expr) expr)
-(`(closure ,(pred listp) nil (quote ,expr) . ,_rest) expr)
-(`(closure ,(pred listp) nil ,_expr . ,(pred identity))
- (error "Closure contains multiple expressions: %S" fun))
-(`(closure ,(pred listp) ,(pred identity) . ,(pred identity))
- (error "Closure has nonempty arglist: %S" fun))
-(`(lambda nil ,expr) expr)
-(`(lambda nil (buttercup--mark-stackframe) ,expr) expr)
-(`(lambda nil (quote ,expr) . ,_rest) expr)
-(`(lambda nil ,_expr . ,(pred identity))
- (error "Function contains multiple expressions: %S" fun))
-(`(lambda ,(pred identity) . ,(pred identity))
- (error "Function has nonempty arglist: %S" fun))
+;; This should be the normal case, a closure with unknown enclosed
+;; variables, empty arglist and a body containing
+;; * the quoted original expression
+;; * the stackframe marker
+;; * the macroexpanded original expression
+(`(closure ,(pred listp) nil
+(quote ,expr) (buttercup--mark-stackframe) ,_expanded)
+ expr)
+;; This a when FUN has not been evaluated. Probably never happens
+;; except when testing buttercup. Should probably do something
+;; about that.
+;; A lambda with an empty arglist and a body containing
+;; * the quoted original expression
+;; * the stackframe marker
+;; * the original expression
+;; In this case expr and expr2 should be equal (but not eq?) as
+;; expr2 has not been macroexpanded.
+((and `(lambda nil
+ (quote ,expr) (buttercup--mark-stackframe) ,expr2)
+  (guard (equal expr expr2)))
+ expr)
+;; Error
 (_ (error "Not a zero-arg one-expression closure: %S" fun
 
 (defun buttercup--expr-and-value (fun)

[nongnu] elpa/buttercup 4cbd106609 5/9: tests: Use buttercup--wrap-expr instead of make-list-of-closures

[ELPA Syncer]

branch: elpa/buttercup
commit 4cbd10660901adae0cac1540b31c9d02d52ae0ad
Author: Ola Nilsson 
Commit: Ola Nilsson 

tests: Use buttercup--wrap-expr instead of make-list-of-closures

buttercup--wrap-expr creates correct closures that the rest of
buttercup expect.
---
 tests/test-buttercup.el | 46 --
 1 file changed, 20 insertions(+), 26 deletions(-)

diff --git a/tests/test-buttercup.el b/tests/test-buttercup.el
index c46d0785ed..c0d31a6ea6 100644
--- a/tests/test-buttercup.el
+++ b/tests/test-buttercup.el
@@ -31,12 +31,6 @@
 (require 'cl-lib)
 (require 'imenu)
 
-(defun make-list-of-closures (items)
-  "For each element of ITEMS, return a closure returning it."
-  (mapcar (lambda (item)
-(lambda () item))
-  items))
-
 (defmacro with-local-buttercup (&rest body)
   "Execute BODY with local buttercup state variables.
 Keyword arguments kan be used to override the values of certain
@@ -240,7 +234,7 @@ text properties using `ansi-color-apply'."
 (describe "The `buttercup-define-matcher' macro"
   (it "should create a matcher usable by apply-matcher"
 (expect (buttercup--apply-matcher
- :test-matcher (make-list-of-closures '(1 2)))
+ :test-matcher (mapcar #'buttercup--wrap-expr '(1 2)))
 :to-equal
 3)))
 
@@ -248,19 +242,19 @@ text properties using `ansi-color-apply'."
   (it "should work with functions"
 (expect (buttercup--apply-matcher
  #'+
- (make-list-of-closures '(1 2)))
+ (mapcar #'buttercup--wrap-expr '(1 2)))
 :to-equal
 3))
 
   (it "should work with matchers"
 (expect (buttercup--apply-matcher
- :test-matcher (make-list-of-closures '(1 2)))
+ :test-matcher (mapcar #'buttercup--wrap-expr '(1 2)))
 :to-equal
 3))
 
   (it "should fail if the matcher is not defined"
 (expect (buttercup--apply-matcher
- :not-defined (make-list-of-closures '(1 2)))
+ :not-defined (mapcar #'buttercup--wrap-expr '(1 2)))
 :to-throw)))
 
 ;
@@ -771,7 +765,7 @@ text properties using `ansi-color-apply'."
 ;
 ;;; Spies
 
-(describe "The Spy "
+(describe "The Spy"
   (let (saved-test-function
 saved-test-command
 saved-test-function-throws-on-negative)
@@ -882,7 +876,7 @@ text properties using `ansi-color-apply'."
   (it "returns false if the spy was not called"
 (expect (buttercup--apply-matcher
  :to-have-been-called
- (list (lambda () 'test-function)))
+ (list (buttercup--wrap-expr ''test-function)))
 :to-be
 nil))
 
@@ -890,7 +884,7 @@ text properties using `ansi-color-apply'."
 (test-function 1 2 3)
 (expect (buttercup--apply-matcher
  :to-have-been-called
- (list (lambda () 'test-function)))
+ (list (buttercup--wrap-expr ''test-function)))
 :to-be
 t)))
 
@@ -901,7 +895,7 @@ text properties using `ansi-color-apply'."
   (it "returns false if the spy was not called at all"
 (expect (buttercup--apply-matcher
  :to-have-been-called-with
- (make-list-of-closures '(test-function 1 2 3)))
+ (mapcar #'buttercup--wrap-expr '('test-function '1 '2 '3)))
 :to-equal
 (cons nil
   "Expected `test-function' to have been called with (1 2 
3), but it was not called at all")))
@@ -910,7 +904,7 @@ text properties using `ansi-color-apply'."
 (test-function 3 2 1)
 (expect (buttercup--apply-matcher
  :to-have-been-called-with
- (make-list-of-closures '(test-function 1 2 3)))
+ (mapcar #'buttercup--wrap-expr '('test-function 1 2 3)))
 :to-equal
 (cons nil
   "Expected `test-function' to have been called with (1 2 
3), but it was called with (3 2 1)")))
@@ -919,7 +913,7 @@ text properties using `ansi-color-apply'."
 (test-function 1 2 3)
 (expect (buttercup--apply-matcher
  :to-have-been-called-with
- (make-list-of-closures '(test-function 1 2 3)))
+ (mapcar #'buttercup--wrap-expr '('test-function 1 2 3)))
 :to-be
 t)))
 
@@ -930,7 +924,7 @@ text properties using `ansi-color-apply'."
   (it "returns error if the spy was called less than expected"
 (expect (buttercup--apply-matcher
  :to-have-been-called-times
- (make-list-of-closures '(test-function 1)))
+ (mapcar #'buttercup--wrap-expr '('test-function 1)))
 :to-equal
 (cons nil
   "Expected `test-function' to have been called 1 time, 
but it was called 0 

[nongnu] elpa/buttercup 497f6c2795 9/9: Merge branch 'byte-compiled'

[ELPA Syncer]

branch: elpa/buttercup
commit 497f6c27951146692a4a07f0027cb08f70f0064e
Merge: 62176a39ee 1bb0ba9439
Author: Ola Nilsson 
Commit: Ola Nilsson 

Merge branch 'byte-compiled'

Cleanup and tests for #219.

* byte-compiled:
  tests: Add tests for buttercup--enclosed-expr
  Clean up buttercup--enclosed-expr
  tests: Use buttercup--wrap-expr instead of make-list-of-closures
  tests: Fix some buttercup-expect tests
  tests: Create enclosed expressions with buttercup--wrap-expr
  Refactor the expect macro
  Fix: (buttercup--enclosed-expr) byte-code functions
---
 buttercup.el|  88 +--
 tests/test-buttercup.el | 136 +++-
 2 files changed, 150 insertions(+), 74 deletions(-)

diff --git a/buttercup.el b/buttercup.el
index f32647b788..bf7f265162 100644
--- a/buttercup.el
+++ b/buttercup.el
@@ -57,33 +57,46 @@
 (defun buttercup--enclosed-expr (fun)
   "Given a zero-arg function FUN, return its unevaluated expression.
 
-The function MUST have one of the following forms:
-
-\(lambda () EXPR)
-\(lambda () (buttercup--mark-stackframe) EXPR)
-\(closure (ENVLIST) () EXPR)
-\(closure (ENVLIST) () (buttercup--mark-stackframe) EXPR)
-\(lambda () (quote EXPR) EXPR)
-\(closure (ENVLIST) () (quote EXPR) EXPR)
-
-and the return value will be EXPR, unevaluated. The latter 2
-forms are useful if EXPR is a macro call, in which case the
-`quote' ensures access to the un-expanded form."
+The function MUST be byte-compiled or have one of the following
+forms:
+
+\(closure (ENVLIST) () (quote EXPR) (buttercup--mark-stackframe) EXPANDED)
+\(lambda () (quote EXPR) (buttercup--mark-stackframe) EXPR)
+
+and the return value will be EXPR, unevaluated. The quoted EXPR
+is useful if EXPR is a macro call, in which case the `quote'
+ensures access to the un-expanded form."
+  (cl-assert (functionp fun) t "Expected FUN to be a function")
   (pcase fun
-(`(closure ,(pred listp) nil ,expr) expr)
-(`(closure ,(pred listp) nil (buttercup--mark-stackframe) ,expr) expr)
-(`(closure ,(pred listp) nil (quote ,expr) . ,_rest) expr)
-(`(closure ,(pred listp) nil ,_expr . ,(pred identity))
- (error "Closure contains multiple expressions: %S" fun))
-(`(closure ,(pred listp) ,(pred identity) . ,(pred identity))
- (error "Closure has nonempty arglist: %S" fun))
-(`(lambda nil ,expr) expr)
-(`(lambda nil (buttercup--mark-stackframe) ,expr) expr)
-(`(lambda nil (quote ,expr) . ,_rest) expr)
-(`(lambda nil ,_expr . ,(pred identity))
- (error "Function contains multiple expressions: %S" fun))
-(`(lambda ,(pred identity) . ,(pred identity))
- (error "Function has nonempty arglist: %S" fun))
+;; This should be the normal case, a closure with unknown enclosed
+;; variables, empty arglist and a body containing
+;; * the quoted original expression
+;; * the stackframe marker
+;; * the macroexpanded original expression
+(`(closure ,(pred listp) nil
+(quote ,expr) (buttercup--mark-stackframe) ,_expanded)
+ expr)
+;; This a when FUN has not been evaluated. Probably never happens
+;; except when testing buttercup. Should probably do something
+;; about that.
+;; A lambda with an empty arglist and a body containing
+;; * the quoted original expression
+;; * the stackframe marker
+;; * the original expression
+;; In this case expr and expr2 should be equal (but not eq?) as
+;; expr2 has not been macroexpanded.
+((and `(lambda nil
+ (quote ,expr) (buttercup--mark-stackframe) ,expr2)
+  (guard (equal expr expr2)))
+ expr)
+;;; This is when FUN has been byte compiled, as when the entire
+;;; test file has been byte compiled. Check that it has an empty
+;;; arglist, that is all that is possible at this point. The
+;;; return value is byte compiled code, not the original
+;;; expressions. Also what is possible at this point.
+((and (pred byte-code-function-p) (guard (member (aref fun 0) '(nil 0
+ (aref fun 1))
+;; Error
 (_ (error "Not a zero-arg one-expression closure: %S" fun
 
 (defun buttercup--expr-and-value (fun)
@@ -123,6 +136,13 @@ a call to `save-match-data', as `format-spec' modifies 
that."
 
 (define-error 'buttercup-pending "Buttercup test is pending" 
'buttercup-error-base)
 
+(defun buttercup--wrap-expr (expr)
+  "Wrap EXPR to be used by `buttercup-expect'."
+  `(lambda ()
+ (quote ,expr)
+ (buttercup--mark-stackframe)
+ ,expr))
+
 (defmacro expect (arg &optional matcher &rest args)
   "Expect a condition to be true.
 
@@ -137,19 +157,9 @@ This macro knows three forms:
 
 \(expect ARG)
   Fail the current test if ARG is not true."
-  (let ((wrapped-args
- (mapcar (lambda (expr) `(lambda ()
-   (quote ,expr)
-   (buttercup--mark-stackframe)
-  

[nongnu] elpa/buttercup cdbb8b061d 7/9: tests: Add tests for buttercup--enclosed-expr

[ELPA Syncer]

branch: elpa/buttercup
commit cdbb8b061d176b4e6190d8aa69d5e6816f846c16
Author: Ola Nilsson 
Commit: Ola Nilsson 

tests: Add tests for buttercup--enclosed-expr

Includes a pending test for byte compiled expressions.
Tests that a lot of old expressions that used to be OK are no longer
OK.
---
 tests/test-buttercup.el | 70 +
 1 file changed, 70 insertions(+)

diff --git a/tests/test-buttercup.el b/tests/test-buttercup.el
index c0d31a6ea6..ea3da31ded 100644
--- a/tests/test-buttercup.el
+++ b/tests/test-buttercup.el
@@ -138,6 +138,76 @@ text properties using `ansi-color-apply'."
   ;; print remaining text
   (insert-owrt string))
 
+;;
+;;; helpers
+
+(describe "The buttercup--enclosed-expr function"
+ (describe "should handle"
+(it "expressions wrapped by buttercup--wrap-expr"
+  (expect (buttercup--enclosed-expr (buttercup--wrap-expr '(ignore)))
+  :to-equal '(ignore)))
+(it "a closure with expression copy?"
+  (expect (buttercup--enclosed-expr
+   (let ((_foo 1))
+ (lambda () '(ignore) (buttercup--mark-stackframe) (ignore
+  :to-equal '(ignore)))
+(it "a lambda with expression copy?"
+  ;; I suspect there is nothing to make sure that the quoted
+  ;; expression matches the actual expression
+  (expect (buttercup--enclosed-expr
+   '(lambda () (quote (ignore)) (buttercup--mark-stackframe) 
(ignore
+  :to-equal '(ignore))
+(xdescribe "byte compiled"
+  (it "lambda objects"
+(expect (buttercup--enclosed-expr
+ (byte-compile-sexp '(lambda () '(ignore) 
(buttercup--mark-stackframe) (ignore))
+  (it "wrapped expression"
+(expect (buttercup--enclosed-expr (byte-compile-sexp 
(buttercup--wrap-expr '(ignore
+ (describe "should error"
+(it "on a simple closure"
+  (expect
+   (buttercup--enclosed-expr (let ((_foo 1)) (lambda () (ignore
+   :to-throw
+   'error '("Not a zero-arg one-expression closure: (closure ((_foo . 1) 
t) nil (ignore))")))
+(it "on a closure with stackframe marker but no quoted expression"
+  (expect
+   (buttercup--enclosed-expr (let ((_foo 1)) (lambda () 
(buttercup--mark-stackframe) (ignore
+   :to-throw
+   'error '("Not a zero-arg one-expression closure: (closure ((_foo . 1) 
t) nil (buttercup--mark-stackframe) (ignore))")))
+(it "for multi-statement closures"
+  (expect (buttercup--enclosed-expr
+   (lambda () '(+ 1 2) (buttercup--mark-stackframe) (+ 1 2) 
(ignore)))
+  :to-throw
+  'error
+  ;; The formatting differs in different versions of Emacs
+  (list (format "Not a zero-arg one-expression closure: %S"
+'(closure (t) nil '(+ 1 2) 
(buttercup--mark-stackframe) (+ 1 2) (ignore))
+(it "for closures with non-empty argument lists"
+  (expect (buttercup--enclosed-expr
+   (lambda (foo) '(ignore foo) (buttercup--mark-stackframe) 
(ignore foo)))
+  :to-throw
+  'error
+  ;; The formatting differs in different versions of Emacs
+  (list (format "Not a zero-arg one-expression closure: %S"
+'(closure (t) (foo) '(ignore foo) 
(buttercup--mark-stackframe) (ignore foo))
+(it "on simple lambda objects"
+  (expect (buttercup--enclosed-expr
+   '(lambda () (ignore)))
+  :to-throw))
+(it "on a lambda with stackframe marker but no quoted expression"
+  (expect (buttercup--enclosed-expr
+   '(lambda () (buttercup--mark-stackframe) (ignore)))
+  :to-throw))
+(it "for multi-statement lambdas"
+  (expect (buttercup--enclosed-expr
+   '(lambda () (+ 1 2) (ignore)))
+  :to-throw
+  'error '("Not a zero-arg one-expression closure: (lambda nil (+ 
1 2) (ignore))")))
+(it "for lambdas with non-empty argument lists"
+  (expect (buttercup--enclosed-expr
+   '(lambda (foo) (ignore foo)))
+  :to-throw
+  'error '("Not a zero-arg one-expression closure: (lambda (foo) 
(ignore foo))")
 
 ;;
 ;;; expect

[nongnu] elpa/buttercup 1bb0ba9439 8/9: Merge PR 219 into byte-compiled

[ELPA Syncer]

branch: elpa/buttercup
commit 1bb0ba9439a25f3ff543795233b489e3f1ea55c0
Merge: cdbb8b061d ef293a62df
Author: Ola Nilsson 
Commit: Ola Nilsson 

Merge PR 219 into byte-compiled

* commit 'ef293a6':
  Fix: (buttercup--enclosed-expr) byte-code functions

Removed the special error case for byte compiled functions as it broke
pcase on Emacs 24.4 and all the other special errors were already
removed.
---
 buttercup.el| 10 +-
 tests/test-buttercup.el | 13 +
 2 files changed, 18 insertions(+), 5 deletions(-)

diff --git a/buttercup.el b/buttercup.el
index 1fdfc74b5b..bf7f265162 100644
--- a/buttercup.el
+++ b/buttercup.el
@@ -57,7 +57,8 @@
 (defun buttercup--enclosed-expr (fun)
   "Given a zero-arg function FUN, return its unevaluated expression.
 
-The function MUST have one of the following forms:
+The function MUST be byte-compiled or have one of the following
+forms:
 
 \(closure (ENVLIST) () (quote EXPR) (buttercup--mark-stackframe) EXPANDED)
 \(lambda () (quote EXPR) (buttercup--mark-stackframe) EXPR)
@@ -88,6 +89,13 @@ ensures access to the un-expanded form."
  (quote ,expr) (buttercup--mark-stackframe) ,expr2)
   (guard (equal expr expr2)))
  expr)
+;;; This is when FUN has been byte compiled, as when the entire
+;;; test file has been byte compiled. Check that it has an empty
+;;; arglist, that is all that is possible at this point. The
+;;; return value is byte compiled code, not the original
+;;; expressions. Also what is possible at this point.
+((and (pred byte-code-function-p) (guard (member (aref fun 0) '(nil 0
+ (aref fun 1))
 ;; Error
 (_ (error "Not a zero-arg one-expression closure: %S" fun
 
diff --git a/tests/test-buttercup.el b/tests/test-buttercup.el
index ea3da31ded..292b21d3cd 100644
--- a/tests/test-buttercup.el
+++ b/tests/test-buttercup.el
@@ -26,6 +26,7 @@
 (require 'buttercup)
 (require 'autoload)
 (require 'ansi-color)
+(require 'bytecomp)
 (require 'ert)
 (require 'ert-x)
 (require 'cl-lib)
@@ -142,7 +143,7 @@ text properties using `ansi-color-apply'."
 ;;; helpers
 
 (describe "The buttercup--enclosed-expr function"
- (describe "should handle"
+  (describe "should handle"
 (it "expressions wrapped by buttercup--wrap-expr"
   (expect (buttercup--enclosed-expr (buttercup--wrap-expr '(ignore)))
   :to-equal '(ignore)))
@@ -157,13 +158,13 @@ text properties using `ansi-color-apply'."
   (expect (buttercup--enclosed-expr
'(lambda () (quote (ignore)) (buttercup--mark-stackframe) 
(ignore
   :to-equal '(ignore))
-(xdescribe "byte compiled"
+(describe "byte compiled"
   (it "lambda objects"
 (expect (buttercup--enclosed-expr
  (byte-compile-sexp '(lambda () '(ignore) 
(buttercup--mark-stackframe) (ignore))
   (it "wrapped expression"
 (expect (buttercup--enclosed-expr (byte-compile-sexp 
(buttercup--wrap-expr '(ignore
- (describe "should error"
+  (describe "should error"
 (it "on a simple closure"
   (expect
(buttercup--enclosed-expr (let ((_foo 1)) (lambda () (ignore
@@ -207,7 +208,11 @@ text properties using `ansi-color-apply'."
   (expect (buttercup--enclosed-expr
'(lambda (foo) (ignore foo)))
   :to-throw
-  'error '("Not a zero-arg one-expression closure: (lambda (foo) 
(ignore foo))")
+  'error '("Not a zero-arg one-expression closure: (lambda (foo) 
(ignore foo))")))
+(it "on byte-compiled functions with arguments"
+  (expect (buttercup--enclosed-expr
+   (byte-compile-sexp '(lambda (_a) '(ignore) 
(buttercup--mark-stackframe) (ignore
+  :to-throw 'error
 
 ;;
 ;;; expect

[nongnu] elpa/buttercup 8dda6ef8c9 2/9: Refactor the expect macro

[ELPA Syncer]

branch: elpa/buttercup
commit 8dda6ef8c9e4f5f49a5c2b834ea83802b5ca5bf3
Author: Ola Nilsson 
Commit: Ola Nilsson 

Refactor the expect macro

Extract the wrapping of expressions into a separate function
buttercup--wrap-expr.  This reduces code duplication.
---
 buttercup.el | 23 ++-
 1 file changed, 10 insertions(+), 13 deletions(-)

diff --git a/buttercup.el b/buttercup.el
index f32647b788..418dd5ecae 100644
--- a/buttercup.el
+++ b/buttercup.el
@@ -123,6 +123,13 @@ a call to `save-match-data', as `format-spec' modifies 
that."
 
 (define-error 'buttercup-pending "Buttercup test is pending" 
'buttercup-error-base)
 
+(defun buttercup--wrap-expr (expr)
+  "Wrap EXPR to be used by `buttercup-expect'."
+  `(lambda ()
+ (quote ,expr)
+ (buttercup--mark-stackframe)
+ ,expr))
+
 (defmacro expect (arg &optional matcher &rest args)
   "Expect a condition to be true.
 
@@ -137,19 +144,9 @@ This macro knows three forms:
 
 \(expect ARG)
   Fail the current test if ARG is not true."
-  (let ((wrapped-args
- (mapcar (lambda (expr) `(lambda ()
-   (quote ,expr)
-   (buttercup--mark-stackframe)
-   ,expr))
- args)))
-`(buttercup-expect
-  (lambda ()
-(quote ,arg)
-(buttercup--mark-stackframe)
-,arg)
-  ,(or matcher :to-be-truthy)
-  ,@wrapped-args)))
+  `(buttercup-expect ,(buttercup--wrap-expr arg)
+ ,(or matcher :to-be-truthy)
+ ,@(mapcar #'buttercup--wrap-expr args)))
 
 (defun buttercup-expect (arg &optional matcher &rest args)
   "The function for the `expect' macro.

[nongnu] elpa/buttercup 435fc0d378 4/9: tests: Fix some buttercup-expect tests

[ELPA Syncer]

branch: elpa/buttercup
commit 435fc0d378bd2855e02418e5398f61cd94364f6d
Author: Ola Nilsson 
Commit: Ola Nilsson 

tests: Fix some buttercup-expect tests

* Use buttercup--wrap-expr
* Use functions instead of local matchers (as they are not local but
  global)
* Use expressions that return the opposite of the matchers.

for these tests

The `buttercup-expect' function
  with a matcher argument
should not raise an error if the matcher returns true
should raise an error if the matcher returns false
---
 tests/test-buttercup.el | 7 ++-
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/tests/test-buttercup.el b/tests/test-buttercup.el
index 17a49e036b..c46d0785ed 100644
--- a/tests/test-buttercup.el
+++ b/tests/test-buttercup.el
@@ -197,16 +197,13 @@ text properties using `ansi-color-apply'."
   'buttercup-failed)))
 
   (describe "with a matcher argument"
-(buttercup-define-matcher :always-true (_a) t)
-(buttercup-define-matcher :always-false (_a) nil)
-
 (it "should not raise an error if the matcher returns true"
-  (expect (buttercup-expect (lambda () 1) :always-true)
+  (expect (buttercup-expect (buttercup--wrap-expr (ignore)) #'always)
   :not :to-throw
   'buttercup-failed))
 
 (it "should raise an error if the matcher returns false"
-  (expect (buttercup-expect (buttercup--wrap-expr 1) :always-false)
+  (expect (buttercup-expect (buttercup--wrap-expr t) #'ignore)
   :to-throw
   'buttercup-failed
 

[nongnu] elpa/buttercup updated (62176a39ee -> 497f6c2795)

[ELPA Syncer]

elpasync pushed a change to branch elpa/buttercup.

  from  62176a39ee Improve buttercup--run-suite docstring
   new  8dda6ef8c9 Refactor the expect macro
   new  ec4d94f7d5 tests: Create enclosed expressions with 
buttercup--wrap-expr
   new  435fc0d378 tests: Fix some buttercup-expect tests
   new  4cbd106609 tests: Use buttercup--wrap-expr instead of 
make-list-of-closures
   new  0e26b1bbed Clean up buttercup--enclosed-expr
   new  cdbb8b061d tests: Add tests for buttercup--enclosed-expr
   new  ef293a62df Fix: (buttercup--enclosed-expr) byte-code functions
   new  1bb0ba9439 Merge PR 219 into byte-compiled
   new  497f6c2795 Merge branch 'byte-compiled'


Summary of changes:
 buttercup.el|  88 +--
 tests/test-buttercup.el | 136 +++-
 2 files changed, 150 insertions(+), 74 deletions(-)

[nongnu] elpa/buttercup ef293a62df 1/9: Fix: (buttercup--enclosed-expr) byte-code functions

[ELPA Syncer]

branch: elpa/buttercup
commit ef293a62dff34ad705de8799489ee2f0cfa67ec6
Author: Adam Porter 
Commit: GitHub 

Fix: (buttercup--enclosed-expr) byte-code functions

Accept byte-code functions (useful when test files are byte-compiled in 
advance).

Fixes #218.
---
 buttercup.el | 7 ++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/buttercup.el b/buttercup.el
index 7033c3a198..738c252301 100644
--- a/buttercup.el
+++ b/buttercup.el
@@ -57,7 +57,8 @@
 (defun buttercup--enclosed-expr (fun)
   "Given a zero-arg function FUN, return its unevaluated expression.
 
-The function MUST have one of the following forms:
+The function MUST be byte-compiled or have one of the following
+forms:
 
 \(lambda () EXPR)
 \(lambda () (buttercup--mark-stackframe) EXPR)
@@ -84,6 +85,10 @@ forms are useful if EXPR is a macro call, in which case the
  (error "Function contains multiple expressions: %S" fun))
 (`(lambda ,(pred identity) . ,(pred identity))
  (error "Function has nonempty arglist: %S" fun))
+((and (pred byte-code-function-p) (guard (member (aref fun 0) '(nil 0
+ (aref fun 1))
+((pred byte-code-function-p)
+ (error "Byte-compiled function expects arguments: %S" fun))
 (_ (error "Not a zero-arg one-expression closure: %S" fun
 
 (defun buttercup--expr-and-value (fun)

[nongnu] elpa/buttercup e083d67fdc 2/4: Makefile: Rename test* targets check*

[ELPA Syncer]

branch: elpa/buttercup
commit e083d67fdc5b20501d5f9a5717cf171e68a01378
Author: Ola Nilsson 
Commit: Ola Nilsson 

Makefile: Rename test* targets check*

check is the canonical make target name.
Keep test* as compatibility aliases.
---
 .github/workflows/test.yml | 2 +-
 Makefile   | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
index d19c3f0615..8feee385ea 100644
--- a/.github/workflows/test.yml
+++ b/.github/workflows/test.yml
@@ -38,5 +38,5 @@ jobs:
 
 - uses: actions/checkout@v2
 - name: Run tests
-  run: make test
+  run: make check
 
diff --git a/Makefile b/Makefile
index a8c0e81a78..2cfa9a7406 100644
--- a/Makefile
+++ b/Makefile
@@ -6,12 +6,12 @@ ELISP_FILES := $(wildcard *.el)
 
 all: test
 
-test: test-buttercup test-docs
+check test: check-buttercup check-docs
 
-test-buttercup: compile
+check-buttercup test-buttercup: compile
./bin/buttercup -L . tests $(if $(CI),--traceback pretty)
 
-test-docs: compile
+check-docs test-docs: compile
$(EMACS) -batch -L . -l buttercup.el -f buttercup-run-markdown 
docs/writing-tests.md
 
 compile: $(patsubst %.el,%.elc,$(ELISP_FILES))

[nongnu] elpa/buttercup 9f3d18197c 1/4: Makefile: Remove release target and associated variables

[ELPA Syncer]

branch: elpa/buttercup
commit 9f3d18197c2f8f996d0a64bbf46b1a4ecd45bdc8
Author: Ola Nilsson 
Commit: Ola Nilsson 

Makefile: Remove release target and associated variables

The release target has not been used for along while and did not work
since the removal of buttercup-pkg.el
---
 Makefile | 7 +--
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/Makefile b/Makefile
index 5336b2d68c..a8c0e81a78 100644
--- a/Makefile
+++ b/Makefile
@@ -1,7 +1,6 @@
 EMACS := emacs
 VERSION := $(shell sed -ne 's/^;; Version: \(.*\)/\1/p' buttercup.el)
-ELISP_FILES := $(filter-out %-pkg.el, $(wildcard *.el))
-DISTFILES := $(ELISP_FILES) buttercup-pkg.el README.md
+ELISP_FILES := $(wildcard *.el)
 
 .PHONY: test compile clean
 
@@ -20,9 +19,5 @@ compile: $(patsubst %.el,%.elc,$(ELISP_FILES))
 %.elc: %.el
$(EMACS) -batch -L . -f batch-byte-compile $<
 
-release: clean test
-   mkdir -p dist
-   tar -c $(DISTFILES) --transform "s,^,buttercup-$(VERSION)/," 
--transform 's/README.md/README.txt/' > "dist/buttercup-$(VERSION).tar"
-
 clean:
rm -f *.elc tests/*.elc

[nongnu] elpa/buttercup updated (497f6c2795 -> 9022546ebf)

[ELPA Syncer]

elpasync pushed a change to branch elpa/buttercup.

  from  497f6c2795 Merge branch 'byte-compiled'
   new  9f3d18197c Makefile: Remove release target and associated variables
   new  e083d67fdc Makefile: Rename test* targets check*
   new  91b541a5a6 Add .elpaignore
   new  9022546ebf Bump version: 1.25 → 1.26


Summary of changes:
 .bumpversion.cfg   |  2 +-
 .elpaignore|  8 
 .github/workflows/test.yml |  2 +-
 Makefile   | 13 -
 buttercup.el   |  2 +-
 5 files changed, 15 insertions(+), 12 deletions(-)
 create mode 100644 .elpaignore

[nongnu] elpa/buttercup 91b541a5a6 3/4: Add .elpaignore

[ELPA Syncer]

branch: elpa/buttercup
commit 91b541a5a615a5e2c750e2ae43be767fc5952527
Author: Ola Nilsson 
Commit: Ola Nilsson 

Add .elpaignore

The package generated on NonGNU ELPA contains a lot of unnecessary
files.
---
 .elpaignore | 8 
 1 file changed, 8 insertions(+)

diff --git a/.elpaignore b/.elpaignore
new file mode 100644
index 00..c7b6d94994
--- /dev/null
+++ b/.elpaignore
@@ -0,0 +1,8 @@
+.bumpversion.cfg
+.elpaignore
+.github
+Makefile
+README.md
+docs
+scripts
+tests

[nongnu] elpa/buttercup 9022546ebf 4/4: Bump version: 1.25 → 1.26

[ELPA Syncer]

branch: elpa/buttercup
commit 9022546ebf2f492e9f3ce92e02ed893bcecab027
Author: Ola Nilsson 
Commit: Ola Nilsson 

Bump version: 1.25 → 1.26
---
 .bumpversion.cfg | 2 +-
 buttercup.el | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/.bumpversion.cfg b/.bumpversion.cfg
index 87237de92f..ebb9dbacec 100644
--- a/.bumpversion.cfg
+++ b/.bumpversion.cfg
@@ -1,5 +1,5 @@
 [bumpversion]
-current_version = 1.25
+current_version = 1.26
 parse = (?P\d+)\.(?P.*)
 serialize = {major}.{minor}
 files = buttercup.el
diff --git a/buttercup.el b/buttercup.el
index bf7f265162..93d12a877a 100644
--- a/buttercup.el
+++ b/buttercup.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 2015-2017  Jorgen Schaefer 
 
-;; Version: 1.25
+;; Version: 1.26
 ;; Author: Jorgen Schaefer 
 ;; Maintainer: Ola Nilsson 
 ;; Package-Requires: ((emacs "24.3"))

[nongnu] elpa/inf-ruby f9c856bd54: Improve compatibility with advanced completion styles

[ELPA Syncer]

branch: elpa/inf-ruby
commit f9c856bd5496cd1b9c8c1f9e09a4331c88c5917e
Author: Dmitry Gutov 
Commit: Dmitry Gutov 

Improve compatibility with advanced completion styles

Fixes #162
---
 inf-ruby.el | 23 +--
 1 file changed, 17 insertions(+), 6 deletions(-)

diff --git a/inf-ruby.el b/inf-ruby.el
index 226a72647f..27b0c1d4b8 100755
--- a/inf-ruby.el
+++ b/inf-ruby.el
@@ -833,11 +833,15 @@ Then switch to the process buffer."
 (defun inf-ruby-completions (prefix)
   "Return a list of completions for the Ruby expression starting with EXPR."
   (let* ((proc (inf-ruby-proc))
- (line (buffer-substring (save-excursion (move-beginning-of-line 1)
- (point))
- (point)))
- (expr (inf-ruby-completion-expr-at-point))
- (prefix-offset (- (length expr) (length prefix)))
+ (line
+  (concat
+   (buffer-substring (save-excursion (move-beginning-of-line 1)
+ (point))
+ (car (inf-ruby-completion-bounds-of-prefix)))
+   ;; prefix can be different, as requested by completion style.
+   prefix))
+ (target (inf-ruby-completion-target-at-point))
+ (prefix-offset (length target))
  (comint-filt (process-filter proc))
  (kept "") completions
  ;; Guard against running completions in parallel:
@@ -871,7 +875,7 @@ Then switch to the process buffer."
"Bond.agent.instance_variable_set('@weapon', old_wp) if 
old_wp "
"  end "
"}.call('%s', '%s')\n")
-  (ruby-escape-single-quoted expr)
+  (ruby-escape-single-quoted (concat target prefix))
   (ruby-escape-single-quoted line
 (process-send-string proc completion-snippet)
 (while (and (not (string-match inf-ruby-prompt-pattern kept))
@@ -908,6 +912,13 @@ Then switch to the process buffer."
 (and bounds
  (buffer-substring (car bounds) (cdr bounds)
 
+(defun inf-ruby-completion-target-at-point ()
+  (let ((bounds (inf-ruby-completion-bounds-of-expr-at-point)))
+(and bounds
+ (buffer-substring
+  (car bounds)
+  (car (inf-ruby-completion-bounds-of-prefix))
+
 (defun inf-ruby-completion-at-point ()
   "Retrieve the list of completions and prompt the user.
 Returns the selected completion or nil."

[nongnu] elpa/elixir-mode updated (e0d0466d83 -> d495ed87a9)

[ELPA Syncer]

elpasync pushed a change to branch elpa/elixir-mode.

  from  e0d0466d83 Merge pull request #490 from 
elixir-editors/chore/remove_hack_from_emacs_24
   new  73ed57b279 Add font-lock to arrows
   new  192fa47f91 add tests
   new  d495ed87a9 Merge pull request #478 from 
mpanarin/add_font-lock_to_arrows


Summary of changes:
 elixir-mode.el |  5 +
 tests/elixir-mode-font-test.el | 25 +
 2 files changed, 30 insertions(+)

[nongnu] elpa/elixir-mode 73ed57b279 1/3: Add font-lock to arrows

[ELPA Syncer]

branch: elpa/elixir-mode
commit 73ed57b2799f04e93aa4182f56b79babf2a34baf
Author: mpanarin 
Commit: mpanarin 

Add font-lock to arrows
---
 elixir-mode.el | 5 +
 1 file changed, 5 insertions(+)

diff --git a/elixir-mode.el b/elixir-mode.el
index 8efa991c69..5865d8cf38 100644
--- a/elixir-mode.el
+++ b/elixir-mode.el
@@ -182,6 +182,7 @@
  (zero-or-more (any "A-Z" "a-z" "_" "0-9"
(optional (or "!" "?"))
symbol-end))
+  (arrows . ,(rx (or "->" "<-" "=>" "|>")))
   (pseudo-var . ,(rx symbol-start
  (optional (or "%" "&"))
  (or "_" "__MODULE__" "__DIR__" "__ENV__" "__CALLER__"
@@ -435,6 +436,10 @@ is used to limit the scan."
 (,(elixir-rx (group pseudo-var))
  1 font-lock-constant-face)
 
+;; Arrows
+(,(elixir-rx (group arrows))
+ 1 font-lock-keyword-face)
+
 ;; Code points
 (,(elixir-rx (group code-point))
  1 font-lock-negation-char-face)))

[nongnu] elpa/elixir-mode 192fa47f91 2/3: add tests

[ELPA Syncer]

branch: elpa/elixir-mode
commit 192fa47f914bd914e4cbd3a3a264d6e7f290d16b
Author: mpanarin 
Commit: mpanarin 

add tests
---
 tests/elixir-mode-font-test.el | 25 +
 1 file changed, 25 insertions(+)

diff --git a/tests/elixir-mode-font-test.el b/tests/elixir-mode-font-test.el
index 1306b3f79a..8d3e539ced 100644
--- a/tests/elixir-mode-font-test.el
+++ b/tests/elixir-mode-font-test.el
@@ -579,6 +579,31 @@ _1_day"
(should (eq (elixir-test-face-at 2) 'font-lock-comment-face))
(should (eq (elixir-test-face-at 19) 'font-lock-comment-face
 
+(ert-deftest elixir-mode-syntax-table/arrows ()
+  :tags '(fontification syntax-table)
+
+  (elixir-test-with-temp-buffer
+   "with {:ok, _} <- SomeModule.call(),
+ :ok <- OtherModule.call() do
+  :ok
+end"
+   (should (eq (elixir-test-face-at 15) 'font-lock-keyword-face))
+   (should (eq (elixir-test-face-at 50) 'font-lock-keyword-face)))
+
+  (elixir-test-with-temp-buffer
+   "%{
+  \"\"foo\"\" => \"bar\"
+}"
+   (should (eq (elixir-test-face-at 18) 'font-lock-keyword-face)))
+
+  (elixir-test-with-temp-buffer
+   "[] |> IO.inspect()"
+   (should (eq (elixir-test-face-at 4) 'font-lock-keyword-face)))
+
+  (elixir-test-with-temp-buffer
+   "a = fn x -> x end"
+   (should (eq (elixir-test-face-at 10) 'font-lock-keyword-face
+
 (ert-deftest elixir-mode-in-docstring ()
   "https://github.com/elixir-editors/emacs-elixir/issues/355";
   :tags 'fontification

[nongnu] elpa/elixir-mode d495ed87a9 3/3: Merge pull request #478 from mpanarin/add_font-lock_to_arrows

[ELPA Syncer]

branch: elpa/elixir-mode
commit d495ed87a9c507f5939a51c740f119950c83e2ff
Merge: e0d0466d83 192fa47f91
Author: Justin Smestad 
Commit: GitHub 

Merge pull request #478 from mpanarin/add_font-lock_to_arrows

Add font-lock to arrows
---
 elixir-mode.el |  5 +
 tests/elixir-mode-font-test.el | 25 +
 2 files changed, 30 insertions(+)

diff --git a/elixir-mode.el b/elixir-mode.el
index 8efa991c69..5865d8cf38 100644
--- a/elixir-mode.el
+++ b/elixir-mode.el
@@ -182,6 +182,7 @@
  (zero-or-more (any "A-Z" "a-z" "_" "0-9"
(optional (or "!" "?"))
symbol-end))
+  (arrows . ,(rx (or "->" "<-" "=>" "|>")))
   (pseudo-var . ,(rx symbol-start
  (optional (or "%" "&"))
  (or "_" "__MODULE__" "__DIR__" "__ENV__" "__CALLER__"
@@ -435,6 +436,10 @@ is used to limit the scan."
 (,(elixir-rx (group pseudo-var))
  1 font-lock-constant-face)
 
+;; Arrows
+(,(elixir-rx (group arrows))
+ 1 font-lock-keyword-face)
+
 ;; Code points
 (,(elixir-rx (group code-point))
  1 font-lock-negation-char-face)))
diff --git a/tests/elixir-mode-font-test.el b/tests/elixir-mode-font-test.el
index 1306b3f79a..8d3e539ced 100644
--- a/tests/elixir-mode-font-test.el
+++ b/tests/elixir-mode-font-test.el
@@ -579,6 +579,31 @@ _1_day"
(should (eq (elixir-test-face-at 2) 'font-lock-comment-face))
(should (eq (elixir-test-face-at 19) 'font-lock-comment-face
 
+(ert-deftest elixir-mode-syntax-table/arrows ()
+  :tags '(fontification syntax-table)
+
+  (elixir-test-with-temp-buffer
+   "with {:ok, _} <- SomeModule.call(),
+ :ok <- OtherModule.call() do
+  :ok
+end"
+   (should (eq (elixir-test-face-at 15) 'font-lock-keyword-face))
+   (should (eq (elixir-test-face-at 50) 'font-lock-keyword-face)))
+
+  (elixir-test-with-temp-buffer
+   "%{
+  \"\"foo\"\" => \"bar\"
+}"
+   (should (eq (elixir-test-face-at 18) 'font-lock-keyword-face)))
+
+  (elixir-test-with-temp-buffer
+   "[] |> IO.inspect()"
+   (should (eq (elixir-test-face-at 4) 'font-lock-keyword-face)))
+
+  (elixir-test-with-temp-buffer
+   "a = fn x -> x end"
+   (should (eq (elixir-test-face-at 10) 'font-lock-keyword-face
+
 (ert-deftest elixir-mode-in-docstring ()
   "https://github.com/elixir-editors/emacs-elixir/issues/355";
   :tags 'fontification

[elpa] externals/denote updated (1d714e8fb2 -> 465a093893)

[ELPA Syncer]

elpasync pushed a change to branch externals/denote.

  from  1d714e8fb2 Bump version to 0.5.1
   new  c4d76bdd55 Add denote--file-supported-extension-p helper
   new  29ed5c3449 Add denote--writable-and-supported-p helper
   new  465a093893 Simplify denote--edit-front-matter-p


Summary of changes:
 denote.el | 25 -
 1 file changed, 16 insertions(+), 9 deletions(-)

[elpa] externals/denote c4d76bdd55 1/3: Add denote--file-supported-extension-p helper

[ELPA Syncer]

branch: externals/denote
commit c4d76bdd552ac2795176866f5cca5075cc814683
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add denote--file-supported-extension-p helper
---
 denote.el | 4 
 1 file changed, 4 insertions(+)

diff --git a/denote.el b/denote.el
index 1fa8ae5dc4..edd3790f72 100644
--- a/denote.el
+++ b/denote.el
@@ -437,6 +437,10 @@ trailing hyphen."
  file-name)
  (not (string-match-p "[#~]\\'" file)
 
+(defun denote--file-supported-extension-p (file)
+  "Return non-nil if FILE has supported extension."
+  (string-match-p (format "%s\\(.gpg\\)?\\'" denote--extension-regexp) file))
+
 (defun denote--file-name-relative-to-denote-directory (file)
   "Return file name of FILE relative to the variable `denote-directory'.
 FILE must be an absolute path."

[elpa] externals/org updated (76643256f2 -> ad802a923b)

[ELPA Syncer]

elpasync pushed a change to branch externals/org.

  from  76643256f2 ol-man: Set window point not buffer point and wait 
before search
   new  70a311b001 ox-icalendar: Avoid processing ignored elements
   new  ad802a923b Merge branch 'bugfix'


Summary of changes:
 lisp/ox-icalendar.el | 12 ++--
 1 file changed, 6 insertions(+), 6 deletions(-)

[elpa] externals-release/org 70a311b001: ox-icalendar: Avoid processing ignored elements

[ELPA Syncer]

branch: externals-release/org
commit 70a311b001153afdf492b3dab5a0816c861e3186
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

ox-icalendar: Avoid processing ignored elements

* lisp/ox-icalendar.el (icalendar): Use nil transcoders instead of
`ignore' for ignored element types.  Otherwise, `org-export-data'
still exports the ignored element contents, including resolving links,
and the result is ignored.  The contents might contain broken links
and hence lead to errors despite the whole element not supposed to be
exported.

Fixes 
https://orgmode.org/list/45aa417a-7eb1-1070-b0dd-17bdd7d14...@mailbox.org
---
 lisp/ox-icalendar.el | 12 ++--
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/lisp/ox-icalendar.el b/lisp/ox-icalendar.el
index 7e40f5bcd0..148e111fd4 100644
--- a/lisp/ox-icalendar.el
+++ b/lisp/ox-icalendar.el
@@ -276,14 +276,14 @@ re-read the iCalendar file.")
 ;;; Define Back-End
 
 (org-export-define-derived-backend 'icalendar 'ascii
-  :translate-alist '((clock . ignore)
-(footnote-definition . ignore)
-(footnote-reference . ignore)
+  :translate-alist '((clock . nil)
+(footnote-definition . nil)
+(footnote-reference . nil)
 (headline . org-icalendar-entry)
  (inner-template . org-icalendar-inner-template)
-(inlinetask . ignore)
-(planning . ignore)
-(section . ignore)
+(inlinetask . nil)
+(planning . nil)
+(section . nil)
 (template . org-icalendar-template))
   :options-alist
   '((:exclude-tags

[elpa] externals/denote 29ed5c3449 2/3: Add denote--writable-and-supported-p helper

[ELPA Syncer]

branch: externals/denote
commit 29ed5c3449aa1493f10e3fbd10b0df5f15cf
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add denote--writable-and-supported-p helper
---
 denote.el | 6 ++
 1 file changed, 6 insertions(+)

diff --git a/denote.el b/denote.el
index edd3790f72..1474b33ed6 100644
--- a/denote.el
+++ b/denote.el
@@ -441,6 +441,12 @@ trailing hyphen."
   "Return non-nil if FILE has supported extension."
   (string-match-p (format "%s\\(.gpg\\)?\\'" denote--extension-regexp) file))
 
+(defun denote--writable-and-supported-p (file)
+  "Return non-nil if FILE is writable and has supported extension."
+  (and (file-regular-p file-name)
+   (file-writable-p file-name)
+   (denote--file-supported-extension-p file-name)))
+
 (defun denote--file-name-relative-to-denote-directory (file)
   "Return file name of FILE relative to the variable `denote-directory'.
 FILE must be an absolute path."

[elpa] externals/denote 465a093893 3/3: Simplify denote--edit-front-matter-p

[ELPA Syncer]

branch: externals/denote
commit 465a093893c152dc6ff41ec88a47b61b7179385d
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Simplify denote--edit-front-matter-p

The 'denote--writable-and-supported-p' was added in commit 29ed5c3.
---
 denote.el | 15 ++-
 1 file changed, 6 insertions(+), 9 deletions(-)

diff --git a/denote.el b/denote.el
index 1474b33ed6..040d17bc56 100644
--- a/denote.el
+++ b/denote.el
@@ -1171,15 +1171,12 @@ For the purposes of this test, FILE is a Denote note 
when it (i)
 is a regular file, (ii) is writable, (iii) has a supported file
 type extension per `denote-file-type', and (iv) is stored in the
 variable `denote-directory'."
-  (when-let ((ext (file-name-extension file)))
-(and (file-regular-p file)
- (file-writable-p file)
- (not (denote--file-empty-p file))
- (string-match-p "\\(md\\|org\\|txt\\)\\'" ext)
- ;; Heuristic to check if this is one of our notes
- (string-prefix-p (denote-directory) (expand-file-name file))
- (denote--regexp-in-file-p 
denote--retrieve-title-front-matter-key-regexp file)
- (denote--regexp-in-file-p 
denote--retrieve-keywords-front-matter-key-regexp file
+  (and (denote--writable-and-supported-p file)
+   (not (denote--file-empty-p file))
+   ;; Heuristic to check if this is one of our notes
+   (string-prefix-p (denote-directory) (expand-file-name file)) ; FIXME 
2022-08-11: Why do we need this?
+   (denote--regexp-in-file-p 
denote--retrieve-title-front-matter-key-regexp file)
+   (denote--regexp-in-file-p 
denote--retrieve-keywords-front-matter-key-regexp file)))
 
 (defun denote--rewrite-keywords (file keywords)
   "Rewrite KEYWORDS in FILE outright.

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

[ELPA Syncer]

branch: externals/org
commit ad802a923b8bdc96537e64b2b1f3c0968cd0b4d2
Merge: 76643256f2 70a311b001
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

Merge branch 'bugfix'
---
 lisp/ox-icalendar.el | 12 ++--
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/lisp/ox-icalendar.el b/lisp/ox-icalendar.el
index 410289abfb..352d163357 100644
--- a/lisp/ox-icalendar.el
+++ b/lisp/ox-icalendar.el
@@ -290,14 +290,14 @@ re-read the iCalendar file.")
 ;;; Define Back-End
 
 (org-export-define-derived-backend 'icalendar 'ascii
-  :translate-alist '((clock . ignore)
-(footnote-definition . ignore)
-(footnote-reference . ignore)
+  :translate-alist '((clock . nil)
+(footnote-definition . nil)
+(footnote-reference . nil)
 (headline . org-icalendar-entry)
  (inner-template . org-icalendar-inner-template)
-(inlinetask . ignore)
-(planning . ignore)
-(section . ignore)
+(inlinetask . nil)
+(planning . nil)
+(section . nil)
 (template . org-icalendar-template))
   :options-alist
   '((:exclude-tags

[elpa] externals/denote updated (465a093893 -> 4bb79fe89f)

[ELPA Syncer]

elpasync pushed a change to branch externals/denote.

  from  465a093893 Simplify denote--edit-front-matter-p
   new  73ba47e832 Add comments for denote--only-note-p
   new  64c5b74dbd Relax conditionality in denote--retrieve-search
   new  1bdd0eb5e7 Fix argument in denote--writable-and-supported-p
   new  1b2d4319bd Refactor denote command to prepare all arguments for 
denote--prepare-note
   new  8256c85df9 Rename denote--file-type-symbol to 
denote--valid-file-type
   new  3748ac5f6d Simplify denote--format-file
   new  4bb79fe89f Remove fallback value in denote--file-extension


Summary of changes:
 denote.el | 54 +++---
 1 file changed, 31 insertions(+), 23 deletions(-)

[elpa] externals/denote 3748ac5f6d 6/7: Simplify denote--format-file

[ELPA Syncer]

branch: externals/denote
commit 3748ac5f6d0c5dd0addc11823909d8261d041cab
Author: Jean-Philippe Gagné Guay 
Commit: Protesilaos Stavrou 

Simplify denote--format-file
---
 denote.el | 7 ++-
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/denote.el b/denote.el
index a76c62b8ce..d9db91a45e 100644
--- a/denote.el
+++ b/denote.el
@@ -677,17 +677,14 @@ Parse `denote--retrieve-xrefs'."
   "Format file name.
 PATH, ID, KEYWORDS, TITLE-SLUG are expected to be supplied by
 `denote' or equivalent: they will all be converted into a single
-string.  EXTENSION is the file type extension, either a string
-which include the starting dot or the return value of
-`denote--file-extension'."
+string.  EXTENSION is the file type extension, as a string."
   (let ((kws (denote--keywords-combine keywords))
-(ext (or extension (denote--file-extension denote-file-type)))
 (file-name (concat path id)))
 (when (and title-slug (not (string-empty-p title-slug)))
   (setq file-name (concat file-name "--" title-slug)))
 (when keywords
   (setq file-name (concat file-name "__" kws)))
-(concat file-name ext)))
+(concat file-name extension)))
 
 (defun denote--format-front-matter-keywords (keywords type)
   "Format KEYWORDS according to TYPE for the file's front matter.

[elpa] externals/denote 64c5b74dbd 2/7: Relax conditionality in denote--retrieve-search

[ELPA Syncer]

branch: externals/denote
commit 64c5b74dbd5c36f2f01ae2836a832d2eb42f1ac2
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Relax conditionality in denote--retrieve-search
---
 denote.el | 5 -
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/denote.el b/denote.el
index dcfb2c721c..f5d16c8824 100644
--- a/denote.el
+++ b/denote.el
@@ -584,7 +584,10 @@ output is sorted with `string-lessp'."
 (defun denote--retrieve-search (file key-regexp &optional key)
   "Return value of KEY-REGEXP key in current buffer from FILE.
 If optional KEY is non-nil, return the key instead."
-  (when (denote--only-note-p file)
+  ;; NOTE 2022-08-11: The `or' is superfluous, but I am keeping it as a
+  ;; reminder.  See TODO comment above `denote--only-note-p'
+  (when (or (denote--writable-and-supported-p file)
+(denote--only-note-p file))
 (with-temp-buffer
   (insert-file-contents file)
   (save-excursion

[elpa] externals/denote 4bb79fe89f 7/7: Remove fallback value in denote--file-extension

[ELPA Syncer]

branch: externals/denote
commit 4bb79fe89f17304547d0475449463222ee9a3ba2
Author: Jean-Philippe Gagné Guay 
Commit: Protesilaos Stavrou 

Remove fallback value in denote--file-extension
---
 denote.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/denote.el b/denote.el
index d9db91a45e..d74b7732e3 100644
--- a/denote.el
+++ b/denote.el
@@ -671,7 +671,7 @@ Parse `denote--retrieve-xrefs'."
 ('markdown-toml ".md")
 ('markdown-yaml ".md")
 ('text ".txt")
-(_ ".org")))
+('org ".org")))
 
 (defun denote--format-file (path id keywords title-slug extension)
   "Format file name.