[elpa] externals/debbugs 3ca6aba128: Release debbugs 0.41

[Michael Albinus via]

branch: externals/debbugs
commit 3ca6aba1288caa8ed575b4ae48120ca739fc978a
Author: Michael Albinus 
Commit: Michael Albinus 

Release debbugs 0.41

* debbugs.el: Bump version to 0.41.

* debbugs-compat.el (debbugs-gnu-use-threads): Declare.
(debbugs-compat-url-http-attempt-keepalives): Fix docstring.
(debbugs-compat-debbugs-advice): New defun.
(debbugs-compat-add-debbugs-advice)
(debbugs-compat-remove-debbugs-advice): Add docstring.  Use new function.

* debbugs-gnu.el (debbugs-gnu): Propagate an error to main-thread.
Rearrange messages.  Give the thread a name.
(debbugs-gnu-show-last-result): Fix docstring.  Don't handle an
error, this ia done already in the threa.
(debbugs-gnu-display-status): Mark "cache_time" as client-side
attribute.

* debbugs-org.el (debbugs-org-show-last-result): New defalias.

* debbugs-ug.texi (Retrieving Bugs): Add debbugs-org-show-last-result.
Fix typo.
---
 debbugs-compat.el | 29 -
 debbugs-gnu.el| 36 
 debbugs-org.el|  1 +
 debbugs-ug.texi   |  5 -
 debbugs.el|  2 +-
 5 files changed, 46 insertions(+), 27 deletions(-)

diff --git a/debbugs-compat.el b/debbugs-compat.el
index c73110f2aa..0e95d8605b 100644
--- a/debbugs-compat.el
+++ b/debbugs-compat.el
@@ -41,25 +41,28 @@
 ;; `soap-invoke-internal' let-binds `url-http-attempt-keepalives' to
 ;; t, which is not thread-safe.  We override this setting.
 (defvar url-http-attempt-keepalives)
+(defvar debbugs-gnu-use-threads)
 (defvar debbugs-compat-url-http-attempt-keepalives nil
-  "Temporary storage for `'.")
+  "Temporary storage for `url-http-attempt-keepalives'.")
+
+(defun debbugs-compat-debbugs-advice ()
+  "Set `url-http-attempt-keepalives' to nil."
+  (setq url-http-attempt-keepalives nil))
+
 (defun debbugs-compat-add-debbugs-advice ()
-  (with-no-warnings
+  "Activate advice for Bug#73199."
+  (when debbugs-gnu-use-threads
 (setq debbugs-compat-url-http-attempt-keepalives
-  url-http-attempt-keepalives))
-  (advice-add
-   'url-http-create-request :around
-   (lambda (orig-fun)
- "Set `url-http-attempt-keepalives' to nil."
- (with-no-warnings (setq url-http-attempt-keepalives nil))
- (funcall orig-fun))
-   '(name debbugs-advice)))
+  url-http-attempt-keepalives)
+(advice-add
+ 'url-http-create-request :before #'debbugs-compat-debbugs-advice)))
 
 (defun debbugs-compat-remove-debbugs-advice ()
-  (advice-remove 'url-http-create-request 'debbugs-advice)
-  (with-no-warnings
+  "Deactivate advice for Bug#73199."
+  (when debbugs-gnu-use-threads
 (setq url-http-attempt-keepalives
-  debbugs-compat-url-http-attempt-keepalives)))
+  debbugs-compat-url-http-attempt-keepalives)
+(advice-remove 'url-http-create-request  #'debbugs-compat-debbugs-advice)))
 
 (provide 'debbugs-compat)
 
diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index d0d1154574..be744d924f 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -896,18 +896,25 @@ value, like in `debbugs-gnu-get-bugs' or 
`debbubgs-gnu-tagged'."
(lambda ()
  (let (debbugs-show-progress)
(unwind-protect
-  (funcall debbugs-gnu-show-reports-function)
+   (condition-case err
+   (funcall debbugs-gnu-show-reports-function)
+ ;; `thread-signal' exists since Emacs 27.1.  This
+ ;; doesn't matter, because in Emacs 26 we don't use
+ ;; threads.
+ (error (apply 'thread-signal main-thread err)))
  (when debbugs-gnu-current-id
(debbugs-gnu-goto debbugs-gnu-current-id))
  ;; Indicate result.
  (if debbugs-gnu-current-message
  (message
+  "%s, visit buffer via %s"
+  debbugs-gnu-current-message
   (substitute-command-keys
-   "%s, visit buffer via \\[debbugs-gnu-show-last-result]")
-  debbugs-gnu-current-message)
+   "\\[debbugs-gnu-show-last-result]"))
(message
+"Visit buffer via %s"
 (substitute-command-keys
- "Visit buffer via \\[debbugs-gnu-show-last-result]")))
+ "\\[debbugs-gnu-show-last-result]")))
  ;; Reset query, filter, suppress and message.
  (setq debbugs-gnu-current-query nil
   debbugs-gnu-current-filter nil
@@ -916,7 +923,8 @@ value, like in `debbugs-gnu-get-bugs' or 
`debbubgs-gnu-tagged'."
debbugs-gnu-current-message nil
debbugs-gnu-current-nocache nil
debbugs-gnu-show-reports-function
-   debbugs-gnu-default-show-reports-function)
+   debbugs-gnu-default-show-reports-function
+   "debbugs")
 
 (unwind-protect
(funcall debbugs-g

[elpa] externals/denote 7fd4160a99 01/10: Remove an empty line

[ELPA Syncer]

branch: externals/denote
commit 7fd4160a99dab4cbc1b14aad0f925d5f36dfb25d
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Remove an empty line
---
 denote-sort.el | 1 -
 1 file changed, 1 deletion(-)

diff --git a/denote-sort.el b/denote-sort.el
index b3249bc9e6..1a3e52054c 100644
--- a/denote-sort.el
+++ b/denote-sort.el
@@ -106,7 +106,6 @@ minibuffer prompt that asks for a reverse sort or not."
   :package-version '(denote . "3.1.0")
   :group 'denote-sort)
 
-
 ;; NOTE 2023-12-04: We can have compound sorting algorithms such as
 ;; title+signature, but I want to keep this simple for the time being.
 ;; Let us first hear from users to understand if there is a real need

[elpa] externals/denote ee2d92859e 04/10: Merge pull request #443 from brabalan/denote-journal-extra-path-to-new-or-existing-entry

[ELPA Syncer]

branch: externals/denote
commit ee2d92859e483095db6069d86f136e5253fefe5d
Merge: dcd92c4ac6 126238c9c1
Author: Protesilaos Stavrou 
Commit: GitHub 

Merge pull request #443 from 
brabalan/denote-journal-extra-path-to-new-or-existing-entry

add `denote-journal-extra-path-to-new-or-existing-entry'
---
 denote-journal-extras.el | 43 ---
 1 file changed, 24 insertions(+), 19 deletions(-)

diff --git a/denote-journal-extras.el b/denote-journal-extras.el
index 7223da0e88..ee69644313 100644
--- a/denote-journal-extras.el
+++ b/denote-journal-extras.el
@@ -172,6 +172,24 @@ DATE has the same format as that returned by 
`denote-parse-date'."
(string-match-p keyword file))
  files)))
 
+(defun denote-journal-extra-path-to-new-or-existing-entry (&optional date)
+  "Return the path to the journal file corresponding to DATE, or to
+the current date if DATE in nil.  DATE is a string and has the same
+format as that covered in the documentation of the `denote' function.
+It is internally processed by `denote-parse-date'.
+
+If there are multiple journal entries for the date, prompt for one
+using minibuffer completion.  If there is only one, return it.  If
+there is no journal entry, return nil."
+  (let* ((internal-date (denote-parse-date date))
+ (files (denote-journal-extras--entry-today internal-date)))
+(cond
+ ((length> files 1)
+  (completing-read "Select journal entry: " files nil :require-match))
+ (files
+  (car files))
+ (t nil
+
 ;;;###autoload
 (defun denote-journal-extras-new-or-existing-entry (&optional date)
   "Locate an existing journal entry or create a new one.
@@ -194,15 +212,9 @@ It is internally processed by `denote-parse-date'."
(list
 (when current-prefix-arg
   (denote-date-prompt
-  (let* ((internal-date (denote-parse-date date))
- (files (denote-journal-extras--entry-today internal-date)))
-(cond
- ((length> files 1)
-  (find-file (completing-read "Select journal entry: " files nil 
:require-match)))
- (files
-  (find-file (car files)))
- (t
-  (denote-journal-extras-new-entry date)
+  (let ((path (denote-journal-extra-path-to-new-or-existing-entry date)))
+(if path (find-file path)
+  (denote-journal-extras-new-entry date
 
 ;;;###autoload
 (defun denote-journal-extras-link-or-create-entry (&optional date id-only)
@@ -230,19 +242,12 @@ file's title.  This has the same meaning as in 
`denote-link'."
(pcase current-prefix-arg
  ('(16) (list (denote-date-prompt) :id-only))
  ('(4) (list (denote-date-prompt)
-  (let* ((internal-date (denote-parse-date date))
- (files (denote-journal-extras--entry-today internal-date))
- (path))
-(cond
- ((length> files 1)
-  (setq path (completing-read "Select journal entry: " files nil 
:require-match)))
- (files
-  (setq path (car files)))
- (t
+  (let ((path (denote-journal-extra-path-to-new-or-existing-entry date)))
+(unless path
   (save-window-excursion
 (denote-journal-extras-new-entry date)
 (save-buffer)
-(setq path (buffer-file-name)
+(setq path (buffer-file-name
 (denote-link path
  (denote-filetype-heuristics (buffer-file-name))
  (denote--link-get-description path)

[elpa] externals/bufferlo 85aa26a6ba 2/2: Use seq-mapcat

[ELPA Syncer]

branch: externals/bufferlo
commit 85aa26a6ba5c5ba7d94355c1526951c862bf703c
Author: Florian Rommel 
Commit: Florian Rommel 

Use seq-mapcat

Simplifies the code.
---
 bufferlo.el | 55 ---
 1 file changed, 24 insertions(+), 31 deletions(-)

diff --git a/bufferlo.el b/bufferlo.el
index 4a87f21319..61ed0d8abc 100644
--- a/bufferlo.el
+++ b/bufferlo.el
@@ -358,11 +358,11 @@ If FRAME is nil, the current frame is selected.
 If TABNUM is nil, the current tab is selected.
 If TABNUM is \\='all, all tabs of the frame are selected."
   (cond ((eq tabnum 'all)
- (seq-uniq (mapcan (lambda (tb)
- (if (eq 'current-tab (car tb))
- (bufferlo--current-buffers frame)
-   (bufferlo--get-tab-buffers tb)))
-   (funcall tab-bar-tabs-function frame
+ (seq-uniq (seq-mapcat (lambda (tb)
+ (if (eq 'current-tab (car tb))
+ (bufferlo--current-buffers frame)
+   (bufferlo--get-tab-buffers tb)))
+   (funcall tab-bar-tabs-function frame
 (tabnum
  (let ((tab (nth tabnum (funcall tab-bar-tabs-function frame
(if (eq 'current-tab (car tab))
@@ -512,29 +512,25 @@ and ignore EXCLUDE-TABNUM."
   (let* ((exclude-tab (when (and exclude-tabnum (not (eq exclude-tabnum 'all)))
 (nth exclude-tabnum
  (funcall tab-bar-tabs-function exclude-frame
- (flatten (lambda (list)
-(apply #'append (append list '(nil)
  (get-inactive-tabs-buffers
   (lambda (f)
-(funcall flatten
- (mapcar
-  (lambda (tb)
-(unless (and (eq f exclude-frame)
- (or (eq exclude-tabnum 'all)
- (eq tb exclude-tab)))
-  (bufferlo--get-tab-buffers tb)))
-  (funcall tab-bar-tabs-function f)
+(seq-mapcat
+ (lambda (tb)
+   (unless (and (eq f exclude-frame)
+(or (eq exclude-tabnum 'all)
+(eq tb exclude-tab)))
+ (bufferlo--get-tab-buffers tb)))
+ (funcall tab-bar-tabs-function f
  (get-frames-buffers
   (lambda ()
-(funcall flatten
- (mapcar
-  (lambda (f)
-(unless (and (eq f exclude-frame)
- (or (eq exclude-tabnum 'all)
- (not exclude-tab)
- (eq 'current-tab (car exclude-tab
-  (bufferlo--current-buffers f)))
-  (frame-list))
+(seq-mapcat
+ (lambda (f)
+   (unless (and (eq f exclude-frame)
+(or (eq exclude-tabnum 'all)
+(not exclude-tab)
+(eq 'current-tab (car exclude-tab
+ (bufferlo--current-buffers f)))
+ (frame-list)
 (seq-uniq
  (append (seq-mapcat get-inactive-tabs-buffers (frame-list))
  (funcall get-frames-buffers)
@@ -651,8 +647,6 @@ This does not select the buffer -- just the containing 
frame and tab."
   (interactive "b")
   (bufferlo--warn)
   (let* ((buffer (get-buffer buffer-or-name))
- (flatten (lambda (list)
-(apply #'append (append list '()
  (search-tabs (lambda (f)
 (let ((i 0))
   (mapcar
@@ -674,11 +668,10 @@ This does not select the buffer -- just the containing 
frame and tab."
 (eq f (selected-frame))
 nil nil)))
  (candidates (seq-filter 'identity
- (funcall flatten
-  (mapcar
-   (lambda (f)
- (funcall search-frames f))
-   (frame-list)
+ (seq-mapcat
+  (lambda (f)
+(funcall search-frames f))
+  (frame-list
  (candidates (mapcar
   (lambda (c)
 (let ((sel (if (nth 2 c) " [this]" ""))

[elpa] externals/ef-themes ddbf0957a5: Add support for the built-in hexl-mode

[ELPA Syncer]

branch: externals/ef-themes
commit ddbf0957a5c40272479d497381ed7267404ee1f8
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add support for the built-in hexl-mode
---
 README.org   | 1 +
 ef-themes.el | 3 +++
 2 files changed, 4 insertions(+)

diff --git a/README.org b/README.org
index 6454e8f98b..aa368c8f08 100644
--- a/README.org
+++ b/README.org
@@ -1392,6 +1392,7 @@ everything most users need.
 - git-gutter-fr
 - git-rebase
 - gnus
+- hexl-mode [ Part of {{{development-version}}}. ]
 - hi-lock (=M-x highlight-regexp=)
 - highlight-indentation
 - ibuffer
diff --git a/ef-themes.el b/ef-themes.el
index 273f586298..4842d0be54 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -1557,6 +1557,9 @@ text should not be underlined as well) yet still blend 
in."
 `(gnus-summary-normal-undownloaded ((,c :foreground ,warning)))
 `(gnus-summary-normal-unread (( )))
 `(gnus-summary-selected ((,c :inherit highlight)))
+ hexl-mode
+`(hexl-address-region ((,c :foreground ,constant)))
+`(hexl-ascii-region ((,c :foreground ,variable)))
  hi-lock (M-x highlight-regexp)
 ;; NOTE 2022-10-16 We hardcode color values.  We have to do this
 ;; as the themes lack entries in their palette for such an edge

[elpa] externals/bufferlo 7606ab19d5 1/2: Fix bufferlo--get-captured-buffers

[ELPA Syncer]

branch: externals/bufferlo
commit 7606ab19d575d3f95c8743e2c0244b39a3b2a947
Author: Florian Rommel 
Commit: Florian Rommel 

Fix bufferlo--get-captured-buffers

Previously, bufferlo--get-captured-buffers erroneously returned a
non-flattened list of buffers, which broke bufferlo-kill-buffers and
dependent functions.
---
 bufferlo.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bufferlo.el b/bufferlo.el
index 2365607927..4a87f21319 100644
--- a/bufferlo.el
+++ b/bufferlo.el
@@ -536,7 +536,7 @@ and ignore EXCLUDE-TABNUM."
   (bufferlo--current-buffers f)))
   (frame-list))
 (seq-uniq
- (append (mapcar get-inactive-tabs-buffers (frame-list))
+ (append (seq-mapcat get-inactive-tabs-buffers (frame-list))
  (funcall get-frames-buffers)
 
 (defun bufferlo--get-orphan-buffers ()

[elpa] externals/bufferlo updated (63ae8e60d5 -> 85aa26a6ba)

[ELPA Syncer]

elpasync pushed a change to branch externals/bufferlo.

  from  63ae8e60d5 Improve bufferlo-find-buffer-switch
   new  7606ab19d5 Fix bufferlo--get-captured-buffers
   new  85aa26a6ba Use seq-mapcat


Summary of changes:
 bufferlo.el | 57 +
 1 file changed, 25 insertions(+), 32 deletions(-)

[elpa] externals/kubed 5f23c410df: ; * kubed.texi: Add illustrative images.

[ELPA Syncer]

branch: externals/kubed
commit 5f23c410dfbfef5d041f56a1c25a51eb9691fb4d
Author: Eshel Yaron 
Commit: Eshel Yaron 

; * kubed.texi: Add illustrative images.
---
 kubed.texi | 50 ++
 1 file changed, 50 insertions(+)

diff --git a/kubed.texi b/kubed.texi
index fbf719b2c0..9b732bf908 100644
--- a/kubed.texi
+++ b/kubed.texi
@@ -63,6 +63,13 @@ with your Kubernetes clusters and deployments with the full 
power of
 @command{kubectl}, and with the comfort and confidence of an intuitive
 interactive interface.
 
+@ifhtml
+@float
+@image{/assets/kubed-overview,,,Four different kinds of Kubed buffers in 
Emacs,.png}
+@caption{Pods, logs, shells, YAMLs, all in one integrated interface}
+@end float
+@end ifhtml
+
 You can use Kubed to:
 
 @itemize
@@ -149,6 +156,17 @@ with @kbd{C-c k +} and attach to a running pod with 
@kbd{C-c k p a}.
 The @kbd{C-c k} binding is just a suggestion of course, feel free to
 pick any key sequence you like.
 
+@ifhtml
+@float
+
+@image{/assets/kubed-prefix-map,,,Emacs which-key popup for kubed-prefix-map 
keymap,.png}
+
+@image{/assets/kubed-deployment-prefix-map,,,Emacs which-key popup for 
kubed-deployment-prefix-map,.png}
+
+@caption{Use @code{kubed-prefix-map} for quick access to the main Kubed 
commands}
+@end float
+@end ifhtml
+
 You can also access all of the commands in @code{kubed-prefix-map} via
 the menu-bar @samp{Kubernetes} menu---to add this menu to your
 menu-bar, enable the global minor mode @code{kubed-menu-bar-mode}:
@@ -292,6 +310,13 @@ resource with @kbd{C-x x g} (@code{revert-buffer-quick}) 
and
 resource and want to restart from a clean slate.
 @end itemize
 
+@ifhtml
+@float
+@image{/assets/kubed-replace-diff,,,Displaying and editing YAML of Kubernetes 
pod with Kubed,.png}
+@caption{Type @kbd{C-x C-q} in a resource YAML buffer to edit it, @kbd{C-c 
C-c} to apply}
+@end float
+@end ifhtml
+
 @node Browse Resources
 @section Browse Resources
 
@@ -325,6 +350,13 @@ from a shared parent mode.  The pods list uses the
 of Kubernetes deployments uses @code{kubed-deployments-mode}, and so
 on.
 
+@ifhtml
+@float
+@image{/assets/kubed-list-transient,,,Kubed pods list buffer with the help 
transient menu visible,.png}
+@caption{Browse your pods, deployments, and other resources with Kubed list 
buffers}
+@end float
+@end ifhtml
+
 The common parent major mode is @code{kubed-list-mode}:
 
 @deffn {Major Mode} kubed-list-mode
@@ -590,6 +622,17 @@ running in Kubernetes, the ``Kubernetes Logs'' transient 
menu which
 you open with @code{kubed-transient-logs} lets you set a maximum
 number of logs to retrieve, among other knobs and handles.
 
+@ifhtml
+@float
+
+@image{/assets/kubed-transient,,,The Kubed main transient menu,.png}
+
+@image{/assets/kubed-transient-exec,,,The Kubed Exec transient menu,.png}
+
+@caption{Explore Kubed commands with transient menus}
+@end float
+@end ifhtml
+
 Command @code{kubed-transient} opens the Kubed ``root'' transient
 menu, which is a dispatch that lets you access different transient
 menus, such as the aforementioned ``Kubernetes Logs'' transient menu.
@@ -630,6 +673,13 @@ specify a different context too.
 In the deployments list buffer, you can scale the deployment at point
 by simply typing @kbd{$}.  @xref{Browse Resources}.
 
+@ifhtml
+@float
+@image{/assets/kubed-scale-deployments,,,Help transient menu in Kubed 
deployments list buffer,.png}
+@caption{Scale deployments with @kbd{$} in the deployments list buffer}
+@end float
+@end ifhtml
+
 Lastly, you can scale deployments using the transient menu
 @code{kubed-transient-scale-deployment}, which is available from the
 main Kubed transient by pressing @kbd{$}.  @xref{Transient Menus}.

[elpa] externals/modus-themes 19e91f9e72: Add support for the built-in hexl-mode

[ELPA Syncer]

branch: externals/modus-themes
commit 19e91f9e72cd79af1d7305bb7aae0c9ae18ccba4
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add support for the built-in hexl-mode
---
 doc/modus-themes.info | 561 +-
 doc/modus-themes.org  |   1 +
 modus-themes.el   |   8 +
 3 files changed, 290 insertions(+), 280 deletions(-)

diff --git a/doc/modus-themes.info b/doc/modus-themes.info
index 438000d49a..098209df60 100644
--- a/doc/modus-themes.info
+++ b/doc/modus-themes.info
@@ -1,4 +1,4 @@
-This is modus-themes.info, produced by makeinfo version 7.1 from
+This is modus-themes.info, produced by makeinfo version 6.8 from
 modus-themes.texi.
 
 Copyright (C) 2020-2024 Free Software Foundation, Inc.
@@ -77,7 +77,7 @@ as such.
 * GNU Free Documentation License::
 * Indices::
 
--- The Detailed Node Listing --
+— The Detailed Node Listing —
 
 Overview
 
@@ -246,11 +246,11 @@ distance in relative luminance of 7:1.
 subgroups.
 
 Main themes
- ‘modus-operandi’ is the project's main light theme, while
+ ‘modus-operandi’ is the project’s main light theme, while
  ‘modus-vivendi’ is its dark counterpart.  These two themes are part
  of the project since its inception.  They are designed to cover a
  broad range of needs and are, in the opinion of the author, the
- reference for what a highly legible "default" theme should look
+ reference for what a highly legible “default” theme should look
  like.
 
 Tinted themes
@@ -325,7 +325,7 @@ File: modus-themes.info,  Node: Installation,  Next: Enable 
and load,  Prev: Ove
 **
 
 The Modus themes are distributed with Emacs starting with version 28.1.
-On older versions of Emacs, they can be installed using Emacs' package
+On older versions of Emacs, they can be installed using Emacs’ package
 manager or manually from their code repository.  There also exist
 packages for distributions of GNU/Linux.
 
@@ -333,7 +333,7 @@ packages for distributions of GNU/Linux.
 includes version ‘3.0.0’.  Emacs 30 provides a newer, refactored version
 that thoroughly refashions how the themes are implemented and
 customized.  Such major versions are not backward-compatible due to the
-limited resources at the maintainer's disposal to support multiple
+limited resources at the maintainer’s disposal to support multiple
 versions of Emacs and of the themes across the years.
 
 * Menu:
@@ -358,7 +358,7 @@ stored in ‘~/.emacs.d’ and that you want to place the Modus 
themes in
 
  $ git clone https://gitlab.com/protesilaos/modus-themes.git 
~/.emacs.d/modus-themes
 
-  1. Add that path to your known Elisp libraries' list, by placing this
+  1. Add that path to your known Elisp libraries’ list, by placing this
  snippet of Emacs Lisp in your init file (e.g.  ‘init.el’):
 
  (add-to-list 'load-path "~/.emacs.d/modus-themes")
@@ -390,7 +390,7 @@ File: modus-themes.info,  Node: Install on GNU/Linux,  
Next: Dealing with byte c
 The themes are also available from the archives of some distributions of
 GNU/Linux.  These should correspond to a tagged release rather than
 building directly from the latest Git commit.  It all depends on the
-distro's packaging policies.
+distro’s packaging policies.
 
 * Menu:
 
@@ -409,7 +409,7 @@ The themes are part of Debian 11 Bullseye.  Get them with:
 
They are now ready to be used: *note Enable and load::.
 
-   NOTE that Debian's package is severely out-of-date as of this writing
+   NOTE that Debian’s package is severely out-of-date as of this writing
 2022-07-24 09:57 +0300.
 
 
@@ -652,7 +652,7 @@ package configurations in their setup.  We use this as an 
example:
*note Differences between loading and enabling::.
 
Note: make sure not to customize the variable
-‘custom-theme-load-path’ or ‘custom-theme-directory’ after the themes'
+‘custom-theme-load-path’ or ‘custom-theme-directory’ after the themes’
 package declaration.  That will lead to failures in loading the files.
 If either or both of those variables need to be changed, their values
 should be defined before the package declaration of the themes.
@@ -664,7 +664,7 @@ File: modus-themes.info,  Node: Differences between loading 
and enabling,  Prev:
 
 
 The reason we recommend ‘load-theme’ instead of the other option of
-‘enable-theme’ is that the former does a kind of "reset" on the face
+‘enable-theme’ is that the former does a kind of “reset” on the face
 specs.  It quite literally loads (or reloads) the theme.  Whereas the
 ‘enable-theme’ function simply puts an already loaded theme to the top
 of the list of enabled items, reusing whatever state was last loaded.
@@ -680,7 +680,7 @@ so it might appear to the unsuspecting user that the themes 
are somehow
 broken whenever they try to assign a new value to a customization option
 or some face.
 
-   This "reset" that ‘load-theme’ brings about does, however, come at
+   This “reset” that ‘

[elpa] externals/auctex c296d38eb9: ; * .elpaignore: Restore ChangeLog.1.

[ELPA Syncer]

branch: externals/auctex
commit c296d38eb9a50c24e5f55082fe40a331f8c82b3f
Author: Ikumi Keita 
Commit: Ikumi Keita 

; * .elpaignore: Restore ChangeLog.1.
---
 .elpaignore | 1 +
 1 file changed, 1 insertion(+)

diff --git a/.elpaignore b/.elpaignore
index 9996b100fd..fdc680c248 100644
--- a/.elpaignore
+++ b/.elpaignore
@@ -4,6 +4,7 @@
 *.spec
 .elpaignore
 .dir-locals.el
+ChangeLog.1
 README.GIT
 admin
 build-aux

[nongnu] elpa/helm-core updated (f728686f9d -> fe73536ebe)

[ELPA Syncer]

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

  from  f728686f9d Fix preselection of single char directory names
  adds  fe73536ebe Ensure popup-info fn is called even when helm-window is 
not ready

No new revisions were added by this update.

Summary of changes:
 helm-core.el | 7 +++
 1 file changed, 7 insertions(+)

[nongnu] elpa/meow bba7aa9504: Add a shim for Macrostep. (#637)

[ELPA Syncer]

branch: elpa/meow
commit bba7aa9504f85ecd310e71ca74b53207e5eb037b
Author: okamsn <28612288+oka...@users.noreply.github.com>
Commit: GitHub 

Add a shim for Macrostep. (#637)

Macrostep shows macro expansions using overlays either in a separate buffer 
or at
the location where the macro is used.  In the overlay, it binds a local map 
to
further expand or collapse macros.

This change takes inspiration for the Beacon state and checks whether point 
is
inside one of the overlays in `post-command-hook`.  However, at least one 
of the
commands to collapse the overlay does not seem to trigger 
`post-command-hook`,
so switching back to the previous state is also done during
`macrostep-mode-hook`.

Co-authored-by: okamsn 
---
 meow-shims.el | 75 +++
 1 file changed, 75 insertions(+)

diff --git a/meow-shims.el b/meow-shims.el
index e7cd19b96c..33505e4e3b 100644
--- a/meow-shims.el
+++ b/meow-shims.el
@@ -250,6 +250,79 @@ Argument ENABLE non-nil means turn on."
   (add-hook 'sly-db-hook 'meow--sly-debug-hook-function)
 (remove-hook 'sly-db-hook 'meow--sly-debug-hook-function)))
 
+;;;
+;; macrostep
+
+(defvar macrostep-overlays)
+(defvar macrostep-mode)
+
+(defvar meow--macrostep-setup nil)
+(defvar meow--macrostep-setup-previous-state nil)
+
+(defun meow--macrostep-inside-overlay-p ()
+  "Return whether point is inside a `macrostep-mode' overlay."
+  (seq-some (let ((pt (point)))
+  (lambda (ov)
+(and (<= (overlay-start ov) pt)
+ (< pt (overlay-end ov)
+macrostep-overlays))
+
+(defun meow--macrostep-post-command-function ()
+  "Function to run in `post-commmand-hook' when `macrostep-mode' is enabled.
+
+`macrostep-mode' uses a local keymap for the overlay showing the
+expansion.  Switch to Motion state when we enter the overlay and
+try to switch back to the previous state when leaving it."
+  (if (meow--macrostep-inside-overlay-p)
+  ;; The overlay is not editable, so the `macrostep-mode' commands are
+  ;; likely more important than the Beacon-state commands and possibly more
+  ;; important than any custom-state commands.  It is less important than
+  ;; Keypad state.
+  (unless (eq meow--current-state 'keypad)
+(meow--switch-to-motion))
+(meow--switch-state meow--macrostep-setup-previous-state)))
+
+(defun meow--macrostep-record-outside-state (state)
+  "Record the Meow STATE in most circumstances, so that we can return to it 
later.
+
+This function receives the STATE to which one switches via `meow--switch-state'
+inside `meow-switch-state-hook'.
+
+Record the state if:
+- We are outside the overlay and not in Keypad state.
+- We are inside the overlay and not in Keypad or Motion state."
+  ;; We assume that the user will not try to switch to Motion state for the
+  ;; entire buffer while we are already in Motion state while inside an 
overlay.
+  (unless (eq state 'keypad)
+(if (not (meow--macrostep-inside-overlay-p))
+(setq-local meow--macrostep-setup-previous-state state)
+  (unless (eq state 'motion)
+(setq-local meow--macrostep-setup-previous-state state)
+
+(defun meow--macrostep-hook-function ()
+  "Switch Meow state when entering/leaving `macrostep-mode' or its overlays."
+  (if macrostep-mode
+  (progn
+(setq-local meow--macrostep-setup-previous-state meow--current-state)
+;; Add to end of `post-command-hook', so that this function is run 
after
+;; the check for whether we should switch to Beacon state.
+(add-hook 'post-command-hook #'meow--macrostep-post-command-function 
90 t)
+(add-hook 'meow-switch-state-hook 
#'meow--macrostep-record-outside-state nil t))
+;; The command `macrostep-collapse' does not seem to trigger
+;; `post-command-hook', so we switch back manually.
+(meow--switch-state meow--macrostep-setup-previous-state)
+(setq-local meow--macrostep-setup-previous-state nil)
+(remove-hook 'meow-switch-state-hook 
#'meow--macrostep-record-outside-state t)
+(remove-hook 'post-command-hook #'meow--macrostep-post-command-function 
t)))
+
+(defun meow--setup-macrostep (enable)
+  "Setup macrostep.
+Argument ENABLE non-nil means turn on."
+  (setq meow--macrostep-setup enable)
+  (if enable
+  (add-hook 'macrostep-mode-hook 'meow--macrostep-hook-function)
+(remove-hook 'macrostep-mode-hook 'meow--macrostep-hook-function)))
+
 ;;;
 ;; realgud (debug)
 
@@ -366,6 +439,7 @@ Argument ENABLE non-nil means turn on."
   (meow--setup-eldoc t)
   (meow--setup-rectangle-mark t)
 
+  (eval-after-load "macrostep" (lambda () (meow--setup-macrostep t)))
   (eval-after-load "wdired" (lambda () (meow--setup-wdired t)))
   (eval-after-load "edebug" (la

[nongnu] elpa/helm fe73536ebe: Ensure popup-info fn is called even when helm-window is not ready

[ELPA Syncer]

branch: elpa/helm
commit fe73536ebeaeaf48d4b3fe76f1c2c47f25a2c65c
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Ensure popup-info fn is called even when helm-window is not ready
---
 helm-core.el | 7 +++
 1 file changed, 7 insertions(+)

diff --git a/helm-core.el b/helm-core.el
index 3b5ca1ae4b..684c65bfa9 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -5190,6 +5190,13 @@ Argument OVERLAY is a ref-cell."
   :follow t)
 (forward-line 1)
 (helm-mark-current-line)
+;; If we are here, it is because helm-window is not ready, if one of the
+;; functions in `helm-move-selection-after-hook' is called with
+;; `with-helm-window' (it shouldn't but never know) we will have an error.
+(condition-case-unless-debug _err
+(helm-log-run-hook "helm--update-move-first-line"
+   'helm-move-selection-after-hook)
+  (error nil))
 (helm-follow-execute-persistent-action-maybe)))
 
 (cl-defun helm-force-update (&optional preselect (recenter t))

[elpa] externals/denote 1ddf6787dc 05/10: Merge branch 'main' of github.com:protesilaos/denote

[ELPA Syncer]

branch: externals/denote
commit 1ddf6787dcca2afd6dfc8a950e166f2b5499ac49
Merge: 7ddff697fc ee2d92859e
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Merge branch 'main' of github.com:protesilaos/denote
---
 denote-journal-extras.el | 43 ---
 1 file changed, 24 insertions(+), 19 deletions(-)

diff --git a/denote-journal-extras.el b/denote-journal-extras.el
index 7223da0e88..ee69644313 100644
--- a/denote-journal-extras.el
+++ b/denote-journal-extras.el
@@ -172,6 +172,24 @@ DATE has the same format as that returned by 
`denote-parse-date'."
(string-match-p keyword file))
  files)))
 
+(defun denote-journal-extra-path-to-new-or-existing-entry (&optional date)
+  "Return the path to the journal file corresponding to DATE, or to
+the current date if DATE in nil.  DATE is a string and has the same
+format as that covered in the documentation of the `denote' function.
+It is internally processed by `denote-parse-date'.
+
+If there are multiple journal entries for the date, prompt for one
+using minibuffer completion.  If there is only one, return it.  If
+there is no journal entry, return nil."
+  (let* ((internal-date (denote-parse-date date))
+ (files (denote-journal-extras--entry-today internal-date)))
+(cond
+ ((length> files 1)
+  (completing-read "Select journal entry: " files nil :require-match))
+ (files
+  (car files))
+ (t nil
+
 ;;;###autoload
 (defun denote-journal-extras-new-or-existing-entry (&optional date)
   "Locate an existing journal entry or create a new one.
@@ -194,15 +212,9 @@ It is internally processed by `denote-parse-date'."
(list
 (when current-prefix-arg
   (denote-date-prompt
-  (let* ((internal-date (denote-parse-date date))
- (files (denote-journal-extras--entry-today internal-date)))
-(cond
- ((length> files 1)
-  (find-file (completing-read "Select journal entry: " files nil 
:require-match)))
- (files
-  (find-file (car files)))
- (t
-  (denote-journal-extras-new-entry date)
+  (let ((path (denote-journal-extra-path-to-new-or-existing-entry date)))
+(if path (find-file path)
+  (denote-journal-extras-new-entry date
 
 ;;;###autoload
 (defun denote-journal-extras-link-or-create-entry (&optional date id-only)
@@ -230,19 +242,12 @@ file's title.  This has the same meaning as in 
`denote-link'."
(pcase current-prefix-arg
  ('(16) (list (denote-date-prompt) :id-only))
  ('(4) (list (denote-date-prompt)
-  (let* ((internal-date (denote-parse-date date))
- (files (denote-journal-extras--entry-today internal-date))
- (path))
-(cond
- ((length> files 1)
-  (setq path (completing-read "Select journal entry: " files nil 
:require-match)))
- (files
-  (setq path (car files)))
- (t
+  (let ((path (denote-journal-extra-path-to-new-or-existing-entry date)))
+(unless path
   (save-window-excursion
 (denote-journal-extras-new-entry date)
 (save-buffer)
-(setq path (buffer-file-name)
+(setq path (buffer-file-name
 (denote-link path
  (denote-filetype-heuristics (buffer-file-name))
  (denote--link-get-description path)

[elpa] externals/denote 0377530250 10/10: Fix typo in doc string

[ELPA Syncer]

branch: externals/denote
commit 0377530250105a688bfb6cdeb566ae6acb1f125a
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Fix typo in doc string
---
 denote-journal-extras.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/denote-journal-extras.el b/denote-journal-extras.el
index a6976db3a7..37f282ebe6 100644
--- a/denote-journal-extras.el
+++ b/denote-journal-extras.el
@@ -181,7 +181,7 @@ the `denote' function.  It is internally processed by
 
 If there are multiple journal entries for the date, prompt for one among
 them using minibuffer completion.  If there is only one, return it.  If
-there can be no journal entry, return nil."
+there is no journal entry, return nil."
   (let* ((internal-date (denote-parse-date date))
  (files (denote-journal-extras--entry-today internal-date)))
 (cond

[elpa] externals/denote updated (dcd92c4ac6 -> 0377530250)

[ELPA Syncer]

elpasync pushed a change to branch externals/denote.

  from  dcd92c4ac6 Document how to list empty/non-empty files in a Dired 
buffer
   new  7fd4160a99 Remove an empty line
   new  7ddff697fc Make a sample code a bit more robust
   new  126238c9c1 add `denote-journal-extra-path-to-new-or-existing-entry'
   new  ee2d92859e Merge pull request #443 from 
brabalan/denote-journal-extra-path-to-new-or-existing-entry
   new  1ddf6787dc Merge branch 'main' of github.com:protesilaos/denote
   new  433422758a Tweak denote-journal-extra-path-to-new-or-existing-entry
   new  09e4c6692f Placate the compiler about 'denote-file-type'
   new  cd6bfb03fa Make stylistic change to denote-link--buffer-prompt
   new  3694b19cd3 Untabify and reindent the main file
   new  0377530250 Fix typo in doc string


Summary of changes:
 README.org   |   2 +-
 denote-journal-extras.el |  45 +++
 denote-org-extras.el |   2 +-
 denote-sort.el   |   1 -
 denote.el| 112 +++
 5 files changed, 84 insertions(+), 78 deletions(-)

[elpa] externals/denote 3694b19cd3 09/10: Untabify and reindent the main file

[ELPA Syncer]

branch: externals/denote
commit 3694b19cd3c51d3a381d0426853d2dafa75f0e04
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Untabify and reindent the main file
---
 denote.el | 20 ++--
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/denote.el b/denote.el
index 474d0ff097..7344bacec1 100644
--- a/denote.el
+++ b/denote.el
@@ -639,7 +639,7 @@ but carries out the renaming without asking for 
confirmation)."
  (const :tag "Rewrite front matter" rewrite-front-matter)
  (const :tag "Modify file name" modify-file-name
 
- (defcustom denote-excluded-directories-regexp nil
+(defcustom denote-excluded-directories-regexp nil
   "Regular expression of directories to exclude from all operations.
 Omit matching directories from file prompts and also exclude them
 from all functions that check the contents of the variable
@@ -3904,7 +3904,7 @@ With optional INCLUDE-DATE, convert the identifier using
   (let* ((identifier (denote-retrieve-filename-identifier file))
  (desc (if include-date
(format "%s (%s)" description (denote--id-to-date 
identifier))
-description)))
+ description)))
 (format
  (cond
   ((or id-only (null description) (string-empty-p description))
@@ -4293,13 +4293,13 @@ Implementation based on the function 
`org-activate-links'."
   (memq 'font-lock-comment-face face)
 (eq 'font-lock-comment-face face)))
   (let* ((properties `(face denote-faces-link
-   mouse-face highlight
-  keymap ,denote-link-mouse-map
-  denote-link-id ,id
-  help-echo ,(or 
(denote-retrieve-title-or-filename path type)
- (concat "denote:" 
id))
-  htmlize-link (:uri ,file-link)
-  font-lock-multiline t))
+mouse-face highlight
+keymap ,denote-link-mouse-map
+denote-link-id ,id
+help-echo ,(or 
(denote-retrieve-title-or-filename path type)
+   (concat "denote:" id))
+htmlize-link (:uri ,file-link)
+font-lock-multiline t))
  (non-sticky-props
   '(rear-nonsticky (mouse-face highlight keymap invisible 
intangible help-echo htmlize-link)))
  (face-property 'link)
@@ -4579,7 +4579,7 @@ Optional INCLUDE-DATE has the same meaning as in 
`denote-format-link'."
   (let* ((description (denote--link-get-description file))
  (link (denote-format-link file description current-file-type 
id-only include-date))
  (link-as-list-item (format denote-link--prepare-links-format 
link)))
- (push link-as-list-item links)))
+(push link-as-list-item links)))
 (if no-sort
 (nreverse links)
   (sort links #'string-collate-lessp

[elpa] externals/denote 126238c9c1 03/10: add `denote-journal-extra-path-to-new-or-existing-entry'

[ELPA Syncer]

branch: externals/denote
commit 126238c9c1e0ad93249348ebc743bf86c037c791
Author: Alan Schmitt 
Commit: Alan Schmitt 

add `denote-journal-extra-path-to-new-or-existing-entry'

This function returns the path to a journal entry with the given date,
or nil if there is none.

Refactored `denote-journal-extras-new-or-existing-entry' and
`denote-journal-extras-link-or-create-entry' to use it.
---
 denote-journal-extras.el | 43 ---
 1 file changed, 24 insertions(+), 19 deletions(-)

diff --git a/denote-journal-extras.el b/denote-journal-extras.el
index 7223da0e88..ee69644313 100644
--- a/denote-journal-extras.el
+++ b/denote-journal-extras.el
@@ -172,6 +172,24 @@ DATE has the same format as that returned by 
`denote-parse-date'."
(string-match-p keyword file))
  files)))
 
+(defun denote-journal-extra-path-to-new-or-existing-entry (&optional date)
+  "Return the path to the journal file corresponding to DATE, or to
+the current date if DATE in nil.  DATE is a string and has the same
+format as that covered in the documentation of the `denote' function.
+It is internally processed by `denote-parse-date'.
+
+If there are multiple journal entries for the date, prompt for one
+using minibuffer completion.  If there is only one, return it.  If
+there is no journal entry, return nil."
+  (let* ((internal-date (denote-parse-date date))
+ (files (denote-journal-extras--entry-today internal-date)))
+(cond
+ ((length> files 1)
+  (completing-read "Select journal entry: " files nil :require-match))
+ (files
+  (car files))
+ (t nil
+
 ;;;###autoload
 (defun denote-journal-extras-new-or-existing-entry (&optional date)
   "Locate an existing journal entry or create a new one.
@@ -194,15 +212,9 @@ It is internally processed by `denote-parse-date'."
(list
 (when current-prefix-arg
   (denote-date-prompt
-  (let* ((internal-date (denote-parse-date date))
- (files (denote-journal-extras--entry-today internal-date)))
-(cond
- ((length> files 1)
-  (find-file (completing-read "Select journal entry: " files nil 
:require-match)))
- (files
-  (find-file (car files)))
- (t
-  (denote-journal-extras-new-entry date)
+  (let ((path (denote-journal-extra-path-to-new-or-existing-entry date)))
+(if path (find-file path)
+  (denote-journal-extras-new-entry date
 
 ;;;###autoload
 (defun denote-journal-extras-link-or-create-entry (&optional date id-only)
@@ -230,19 +242,12 @@ file's title.  This has the same meaning as in 
`denote-link'."
(pcase current-prefix-arg
  ('(16) (list (denote-date-prompt) :id-only))
  ('(4) (list (denote-date-prompt)
-  (let* ((internal-date (denote-parse-date date))
- (files (denote-journal-extras--entry-today internal-date))
- (path))
-(cond
- ((length> files 1)
-  (setq path (completing-read "Select journal entry: " files nil 
:require-match)))
- (files
-  (setq path (car files)))
- (t
+  (let ((path (denote-journal-extra-path-to-new-or-existing-entry date)))
+(unless path
   (save-window-excursion
 (denote-journal-extras-new-entry date)
 (save-buffer)
-(setq path (buffer-file-name)
+(setq path (buffer-file-name
 (denote-link path
  (denote-filetype-heuristics (buffer-file-name))
  (denote--link-get-description path)

[elpa] externals/denote 433422758a 06/10: Tweak denote-journal-extra-path-to-new-or-existing-entry

[ELPA Syncer]

branch: externals/denote
commit 433422758ac8c7d402a8d93f50fd51badf826e20
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Tweak denote-journal-extra-path-to-new-or-existing-entry

This builds on top of commit 126238c by Alan Schmitt, which was done
in pull request 443: .
The change extracts the code we had in a function into a separate
function, though Alan has anyway assigned copyright to the Free
Software Foundation.
---
 denote-journal-extras.el | 22 --
 1 file changed, 12 insertions(+), 10 deletions(-)

diff --git a/denote-journal-extras.el b/denote-journal-extras.el
index ee69644313..a6976db3a7 100644
--- a/denote-journal-extras.el
+++ b/denote-journal-extras.el
@@ -173,19 +173,20 @@ DATE has the same format as that returned by 
`denote-parse-date'."
  files)))
 
 (defun denote-journal-extra-path-to-new-or-existing-entry (&optional date)
-  "Return the path to the journal file corresponding to DATE, or to
-the current date if DATE in nil.  DATE is a string and has the same
-format as that covered in the documentation of the `denote' function.
-It is internally processed by `denote-parse-date'.
-
-If there are multiple journal entries for the date, prompt for one
-using minibuffer completion.  If there is only one, return it.  If
-there is no journal entry, return nil."
+  "Return path to existing or new journal file.
+With optional DATE, do it for that date, else do it for today.  DATE is
+a string and has the same format as that covered in the documentation of
+the `denote' function.  It is internally processed by
+`denote-parse-date'.
+
+If there are multiple journal entries for the date, prompt for one among
+them using minibuffer completion.  If there is only one, return it.  If
+there can be no journal entry, return nil."
   (let* ((internal-date (denote-parse-date date))
  (files (denote-journal-extras--entry-today internal-date)))
 (cond
  ((length> files 1)
-  (completing-read "Select journal entry: " files nil :require-match))
+  (completing-read "Select journal entry: " files nil t))
  (files
   (car files))
  (t nil
@@ -213,7 +214,8 @@ It is internally processed by `denote-parse-date'."
 (when current-prefix-arg
   (denote-date-prompt
   (let ((path (denote-journal-extra-path-to-new-or-existing-entry date)))
-(if path (find-file path)
+(if path
+(find-file path)
   (denote-journal-extras-new-entry date
 
 ;;;###autoload

[elpa] externals/denote cd6bfb03fa 08/10: Make stylistic change to denote-link--buffer-prompt

[ELPA Syncer]

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

Make stylistic change to denote-link--buffer-prompt
---
 denote.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/denote.el b/denote.el
index 3c1c96caf3..474d0ff097 100644
--- a/denote.el
+++ b/denote.el
@@ -4631,8 +4631,7 @@ inserts links with just the identifier."
 ;; NOTE 2022-07-21: I don't think we need a history for this one.
 (defun denote-link--buffer-prompt (buffers)
   "Select buffer from BUFFERS visiting Denote notes."
-  (let ((buffer-file-names (mapcar #'file-name-nondirectory
-   buffers)))
+  (let ((buffer-file-names (mapcar #'file-name-nondirectory buffers)))
 (completing-read
  "Select note buffer: "
  (denote--completion-table 'buffer buffer-file-names)

[elpa] externals/denote 7ddff697fc 02/10: Make a sample code a bit more robust

[ELPA Syncer]

branch: externals/denote
commit 7ddff697fc5e505534a0709e14b50442ae7b936c
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Make a sample code a bit more robust
---
 README.org | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/README.org b/README.org
index 8c3c8486b5..247d830c5e 100644
--- a/README.org
+++ b/README.org
@@ -4352,7 +4352,7 @@ title or keywords fields.
 Add this function to the `after-save-hook'."
   (let ((denote-rename-confirmations nil)
 (denote-save-buffers t)) ; to save again post-rename
-(when (denote-file-is-note-p buffer-file-name)
+(when (and buffer-file-name (denote-file-is-note-p buffer-file-name))
   (ignore-errors (denote-rename-file-using-front-matter buffer-file-name))
   (message "Buffer saved; Denote file renamed"
 

[elpa] externals/denote 09e4c6692f 07/10: Placate the compiler about 'denote-file-type'

[ELPA Syncer]

branch: externals/denote
commit 09e4c6692f9b2adc8b8cf3af8c45d8795ce72b60
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Placate the compiler about 'denote-file-type'
---
 denote-org-extras.el |  2 +-
 denote.el| 89 ++--
 2 files changed, 46 insertions(+), 45 deletions(-)

diff --git a/denote-org-extras.el b/denote-org-extras.el
index 83063289bf..6c8f3580da 100644
--- a/denote-org-extras.el
+++ b/denote-org-extras.el
@@ -216,7 +216,7 @@ For the rest, consult the value of the user option
   one.
 
 Make the new note an Org file regardless of the value of
-`denote-file-type'."
+the variable `denote-file-type'."
   (interactive nil org-mode)
   (unless (derived-mode-p 'org-mode)
 (user-error "Headings can only be extracted from Org files"))
diff --git a/denote.el b/denote.el
index a43c94aa92..3c1c96caf3 100644
--- a/denote.el
+++ b/denote.el
@@ -260,7 +260,7 @@ of the following:
 - `file-type': Prompts with completion for the file type of the
   new note.  Available candidates are those specified in the user
   option `denote-file-type'.  Without this prompt, `denote' uses
-  the value of `denote-file-type'.
+  the value of the variable `denote-file-type'.
 
 - `subdirectory': Prompts with completion for a subdirectory in
   which to create the note.  Available candidates are the value
@@ -290,9 +290,9 @@ of the following:
 
 The prompts occur in the given order.
 
-If the value of this user option is nil, no prompts are used.
-The resulting file name will consist of an identifier (i.e. the
-date and time) and a supported file type extension (per
+If the value of this user option is nil, no prompts are used.  The
+resulting file name will consist of an identifier (i.e. the date and
+time) and a supported file type extension (per the variable
 `denote-file-type').
 
 Recall that Denote's standard file-naming scheme is defined as
@@ -451,7 +451,7 @@ technicalities."
   "Date format in the front matter (file header) of new notes.
 
 When nil (the default value), use a file-type-specific
-format (also check `denote-file-type'):
+format (also check the user option `denote-file-type'):
 
 - For Org, an inactive timestamp is used, such as [2022-06-30 Wed
   15:31].
@@ -1055,8 +1055,8 @@ they are used as the keywords separator in file names."
 
 (defun denote-file-has-supported-extension-p (file)
   "Return non-nil if FILE has supported extension.
-Also account for the possibility of an added .gpg suffix.
-Supported extensions are those implied by `denote-file-type'."
+Also account for the possibility of an added .gpg suffix.  Supported
+extensions are those implied by the variable `denote-file-type'."
   (seq-some (lambda (e)
   (string-suffix-p e file))
 (denote-file-type-extensions-with-encryption)))
@@ -1064,8 +1064,8 @@ Supported extensions are those implied by 
`denote-file-type'."
 (defun denote-filename-is-note-p (filename)
   "Return non-nil if FILENAME is a valid name for a Denote note.
 For our purposes, its path must be part of the variable
-`denote-directory', it must have a Denote identifier in its name,
-and use one of the extensions implied by `denote-file-type'."
+`denote-directory', it must have a Denote identifier in its name, and
+use one of the extensions implied by the variable `denote-file-type'."
   (and (string-prefix-p (denote-directory) (expand-file-name filename))
(denote-file-has-identifier-p filename)
(denote-file-has-supported-extension-p filename)))
@@ -1153,7 +1153,8 @@ Files that match `denote-excluded-files-regexp' are 
excluded from the
 list.
 
 Files only need to have an identifier.  The return value may thus
-include file types that are not implied by `denote-file-type'.
+include file types that are not implied by the variable
+`denote-file-type'.
 
 With optional FILES-MATCHING-REGEXP, restrict files to those
 matching the given regular expression.
@@ -1538,10 +1539,10 @@ Consult the `denote-file-types' for how this is used."
  :keywords-value-reverse-function denote-extract-keywords-from-front-matter
  :link denote-org-link-format
  :link-in-context-regexp denote-org-link-in-context-regexp))
-  "Alist of `denote-file-type' and their format properties.
+  "Alist of variable `denote-file-type' and their format properties.
 
-Each element is of the form (SYMBOL PROPERTY-LIST).  SYMBOL is
-one of those specified in `denote-file-type' or an arbitrary
+Each element is of the form (SYMBOL PROPERTY-LIST).  SYMBOL is one of
+those specified in the user option `denote-file-type' or an arbitrary
 symbol that defines a new file type.
 
 PROPERTY-LIST is a plist that consists of the following elements:
@@ -1592,8 +1593,8 @@ PROPERTY-LIST is a plist that consists of the following 
elements:
   to match the aforementioned link format.  See the variables
   `denote-org-link-in-context-regexp',`denote-md-link-in-context-regexp'.
 
-If `denote-file-type' is nil, use