[elpa] externals/ef-themes 432acfdc6b 2/3: ef-frost: tweak mail-3 mapping

[ELPA Syncer]

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

ef-frost: tweak mail-3 mapping

It contrasts better with the other relevant colours, without
detracting from the character of the theme.
---
 ef-frost-theme.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ef-frost-theme.el b/ef-frost-theme.el
index 90ba7e97ab..f2bb3ce5e6 100644
--- a/ef-frost-theme.el
+++ b/ef-frost-theme.el
@@ -178,7 +178,7 @@
   (mail-0 blue)
   (mail-1 cyan-cooler)
   (mail-2 magenta)
-  (mail-3 cyan)
+  (mail-3 green)
   (mail-4 cyan-warmer)
   (mail-5 blue-cooler)
 

[elpa] externals/ef-themes ad3169421a 1/3: ef-day: tweak mail-3 mapping

[ELPA Syncer]

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

ef-day: tweak mail-3 mapping

It contrasts better with the other relevant colours, without
detracting from the character of the theme.
---
 ef-day-theme.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ef-day-theme.el b/ef-day-theme.el
index f1e3d876f1..ae6823da28 100644
--- a/ef-day-theme.el
+++ b/ef-day-theme.el
@@ -178,7 +178,7 @@
   (mail-0 red)
   (mail-1 green)
   (mail-2 yellow)
-  (mail-3 green-cooler)
+  (mail-3 cyan)
   (mail-4 yellow-cooler)
   (mail-5 blue)
 

[elpa] externals/ef-themes 404a54dc9e 3/3: ef-duo-light: tweak mail-3 mapping

[ELPA Syncer]

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

ef-duo-light: tweak mail-3 mapping

It contrasts better with the other relevant colours, without
detracting from the character of the theme.
---
 ef-duo-light-theme.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ef-duo-light-theme.el b/ef-duo-light-theme.el
index c957e53c95..4a5c8fdba2 100644
--- a/ef-duo-light-theme.el
+++ b/ef-duo-light-theme.el
@@ -182,7 +182,7 @@
   (mail-0 blue)
   (mail-1 yellow-cooler)
   (mail-2 cyan-cooler)
-  (mail-3 yellow)
+  (mail-3 red-cooler)
   (mail-4 blue-warmer)
   (mail-5 green-warmer)
 

[elpa] externals/ef-themes updated (f5b64ef6d1 -> 404a54dc9e)

[ELPA Syncer]

elpasync pushed a change to branch externals/ef-themes.

  from  f5b64ef6d1 Add support for flycheck
   new  ad3169421a ef-day: tweak mail-3 mapping
   new  432acfdc6b ef-frost: tweak mail-3 mapping
   new  404a54dc9e ef-duo-light: tweak mail-3 mapping


Summary of changes:
 ef-day-theme.el   | 2 +-
 ef-duo-light-theme.el | 2 +-
 ef-frost-theme.el | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

[elpa] externals/org-modern 59b2e3c947 2/2: Adding string support for org-modern heading hide star

[ELPA Syncer]

branch: externals/org-modern
commit 59b2e3c94756b4e37b2cf7b9f81028c6d4758672
Author: Inc0n 
Commit: Daniel Mendler 

Adding string support for org-modern heading hide star
---
 org-modern.el | 32 +---
 1 file changed, 25 insertions(+), 7 deletions(-)

diff --git a/org-modern.el b/org-modern.el
index fe22ddbe67..04e8d4d2a4 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -54,8 +54,11 @@ Set to nil to disable styling the headlines."
   :type '(repeat string))
 
 (defcustom org-modern-hide-stars 'leading
-  "Make some of the headline stars invisible."
+  "Changes the displays of the stars.
+Can be leading, t, or a string replacement for each leading star.
+Set to nil to disable."
   :type '(choice
+  (string :tag "Replacement string for leading stars")
   (const :tag "Do not hide stars" nil)
   (const :tag "Hide all stars" t)
   (const :tag "Hide leading stars" leading)))
@@ -289,6 +292,7 @@ the font.")
 
 (defvar-local org-modern--font-lock-keywords nil)
 (defvar-local org-modern--star-cache nil)
+(defvar-local org-modern--hide-stars-cache nil)
 (defvar-local org-modern--checkbox-cache nil)
 (defvar-local org-modern--progress-cache nil)
 (defvar-local org-modern--table-sp-width 0)
@@ -410,11 +414,19 @@ the font.")
 
 (defun org-modern--star ()
   "Prettify headline stars."
-  (let ((level (- (match-end 1) (match-beginning 1
-(put-text-property
- (match-beginning 2) (match-end 2) 'display
- (aref org-modern--star-cache
-   (min (1- (length org-modern--star-cache)) level)
+  (let* ((beg (match-beginning 1))
+ (end (match-end 1))
+ (level (- end beg)))
+(when (and org-modern--hide-stars-cache (not (eq beg end)))
+  (cl-loop for i from beg below end do
+   (put-text-property i (1+ i) 'display
+  (nth (logand i 1)
+   org-modern--hide-stars-cache
+(when org-modern-star
+  (put-text-property
+   (match-beginning 2) (match-end 2) 'display
+   (aref org-modern--star-cache
+ (min (1- (length org-modern--star-cache)) level))
 
 (defun org-modern--table ()
   "Prettify vertical table lines."
@@ -582,7 +594,9 @@ the font.")
 (0 (org-modern--checkbox)
(when (or org-modern-star org-modern-hide-stars)
  `(("^\\(\\**\\)\\(\\*\\) "
-,@(and (not (eq org-modern-hide-stars t)) org-modern-star '((0 
(org-modern--star
+,@(and (not (eq org-modern-hide-stars t))
+   (or org-modern-star (stringp org-modern-hide-stars))
+   '((0 (org-modern--star
 ,@(and (eq org-modern-hide-stars 'leading) '((1 '(face nil invisible 
t
 ,@(and (eq org-modern-hide-stars t) '((0 '(face nil invisible t)))
(when org-modern-horizontal-rule
@@ -683,6 +697,10 @@ the font.")
  (vconcat (mapcar
(lambda (x) (propertize x 'face 'org-modern-symbol))
org-modern-star))
+ org-modern--hide-stars-cache
+ (and (stringp org-modern-hide-stars)
+  (list (propertize org-modern-hide-stars 'face 'org-modern-symbol)
+(propertize org-modern-hide-stars 'face 'org-modern-symbol)))
  org-modern--progress-cache
  (vconcat (mapcar
(lambda (x) (concat " " (propertize x 'face 'org-modern-symbol) 
" "))

[elpa] externals/org-modern 8bf1023d22 1/2: Use logand

[ELPA Syncer]

branch: externals/org-modern
commit 8bf1023d22330de6592b77d78729db34f71c68c9
Author: Daniel Mendler 
Commit: Daniel Mendler 

Use logand
---
 org-modern.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/org-modern.el b/org-modern.el
index 54dda0bfd4..fe22ddbe67 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -454,7 +454,7 @@ the font.")
 (b (match-end 0)))
 (cl-loop for i from a below b do
  (put-text-property i (1+ i) 'display
-(nth (mod i 2) 
org-modern--table-sp)
+(nth (logand i 1) 
org-modern--table-sp)
 
 (defun org-modern--block-name ()
   "Prettify block according to `org-modern-block-name'."

[elpa] externals/org-modern updated (ed9d67d00f -> 59b2e3c947)

[ELPA Syncer]

elpasync pushed a change to branch externals/org-modern.

  from  ed9d67d00f Version 0.5
   new  8bf1023d22 Use logand
   new  59b2e3c947 Adding string support for org-modern heading hide star


Summary of changes:
 org-modern.el | 34 ++
 1 file changed, 26 insertions(+), 8 deletions(-)

[elpa] externals/org 7d1e3dc38e 1/2: org-element-special-block-interpreter: Fix when no content

[ELPA Syncer]

branch: externals/org
commit 7d1e3dc38ea7fcd9ff57ace883370de1d5f902d8
Author: Bruno BARBIER 
Commit: Ihor Radchenko 

org-element-special-block-interpreter: Fix when no content

* lisp/org-element.el (org-element-special-block-interpreter): Use
empty string when content is nil.

*
testing/lisp/test-org-element.el 
(test-org-element/special-block-interpreter):
Test the case with no content.
---
 lisp/org-element.el  |  2 +-
 testing/lisp/test-org-element.el | 12 ++--
 2 files changed, 11 insertions(+), 3 deletions(-)

diff --git a/lisp/org-element.el b/lisp/org-element.el
index 7b26e877e3..ca3b61b49f 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -1910,7 +1910,7 @@ Assume point is at the beginning of the block."
   "Interpret SPECIAL-BLOCK element as Org syntax.
 CONTENTS is the contents of the element."
   (let ((block-type (org-element-property :type special-block)))
-(format "#+begin_%s\n%s#+end_%s" block-type contents block-type)))
+(format "#+begin_%s\n%s#+end_%s" block-type (or contents "") block-type)))
 
 
 
diff --git a/testing/lisp/test-org-element.el b/testing/lisp/test-org-element.el
index 187cadf7a6..985108e375 100644
--- a/testing/lisp/test-org-element.el
+++ b/testing/lisp/test-org-element.el
@@ -2425,7 +2425,11 @@ Outside list"
   ;; Handle non-empty blank line at the end of buffer.
   (should
(org-test-with-temp-text "#+BEGIN_SPECIAL\nC\n#+END_SPECIAL\n "
- (= (org-element-property :end (org-element-at-point)) (point-max)
+ (= (org-element-property :end (org-element-at-point)) (point-max
+  ;; When contents is empty, the parsed contents is nil.
+  (should
+   (org-test-with-temp-text "#+BEGIN_SPECIAL\n#+END_SPECIAL"
+ (eq nil (org-element-contents (org-element-at-point))
 
 
  Src Block
@@ -2943,7 +2947,11 @@ Outside list"
   "Test special block interpreter."
   (should (equal (org-test-parse-and-interpret
  "#+BEGIN_SPECIAL\nTest\n#+END_SPECIAL")
-"#+begin_SPECIAL\nTest\n#+end_SPECIAL\n")))
+"#+begin_SPECIAL\nTest\n#+end_SPECIAL\n"))
+  ;; No content
+  (should (equal (org-test-parse-and-interpret
+ "#+BEGIN_SPECIAL\n#+END_SPECIAL")
+"#+begin_SPECIAL\n#+end_SPECIAL\n")))
 
 (ert-deftest test-org-element/babel-call-interpreter ()
   "Test Babel call interpreter."

[elpa] externals/org updated (7f8e616f3b -> 98cae03b7d)

[ELPA Syncer]

elpasync pushed a change to branch externals/org.

  from  7f8e616f3b org-num-mode: Clear remaining num overlays before 
activation
   new  7d1e3dc38e org-element-special-block-interpreter: Fix when no 
content
   new  98cae03b7d lisp/org-element: Add a parameters-line property to 
special blocks


Summary of changes:
 lisp/org-element.el  | 19 +--
 testing/lisp/test-org-element.el | 41 ++--
 2 files changed, 52 insertions(+), 8 deletions(-)

[elpa] externals/org 98cae03b7d 2/2: lisp/org-element: Add a parameters-line property to special blocks

[ELPA Syncer]

branch: externals/org
commit 98cae03b7d9a612334d5ea461e73ac0b37b0285d
Author: Bruno BARBIER 
Commit: Ihor Radchenko 

lisp/org-element: Add a parameters-line property to special blocks

Add a property `:parameters' to special blocks, to store the
PARAMETERS as a string.

* lisp/org-element.el (org-element-special-block-parser): Parse
PARAMETERS and set the property `:parameters'.

(org-element-special-block-interpreter): Interpret the property
`:parameters'.

*
testing/lisp/test-org-element.el (test-org-element/special-block-parser):
Add a new test for PARAMETERS.

(test-org-element/special-block-interpreter): Add new tests for PARAMETERS.
---
 lisp/org-element.el  | 19 +--
 testing/lisp/test-org-element.el | 33 +++--
 2 files changed, 44 insertions(+), 8 deletions(-)

diff --git a/lisp/org-element.el b/lisp/org-element.el
index ca3b61b49f..ce6daaef84 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -1868,13 +1868,15 @@ keyword and CDR is a plist of affiliated keywords along 
with
 their value.
 
 Return a list whose CAR is `special-block' and CDR is a plist
-containing `:type', `:begin', `:end', `:contents-begin',
-`:contents-end', `:post-blank' and `:post-affiliated' keywords.
+containing `:type', `:parameters', `:begin', `:end',
+`:contents-begin', `:contents-end', `:post-blank' and
+`:post-affiliated' keywords.
 
 Assume point is at the beginning of the block."
   (let* ((case-fold-search t)
-(type (progn (looking-at "[ \t]*#\\+BEGIN_\\(\\S-+\\)")
- (match-string-no-properties 1
+(type (progn (looking-at "[ \t]*#\\+BEGIN_\\(\\S-+\\)[ \t]*\\(.*\\)[ 
\t]*$")
+ (match-string-no-properties 1)))
+(parameters (match-string-no-properties 2)))
 (if (not (save-excursion
   (re-search-forward
(format "^[ \t]*#\\+END_%s[ \t]*$" (regexp-quote type))
@@ -1898,6 +1900,8 @@ Assume point is at the beginning of the block."
(list 'special-block
  (nconc
   (list :type type
+:parameters (and (org-string-nw-p parameters)
+ (org-trim parameters))
 :begin begin
 :end end
 :contents-begin contents-begin
@@ -1909,8 +1913,11 @@ Assume point is at the beginning of the block."
 (defun org-element-special-block-interpreter (special-block contents)
   "Interpret SPECIAL-BLOCK element as Org syntax.
 CONTENTS is the contents of the element."
-  (let ((block-type (org-element-property :type special-block)))
-(format "#+begin_%s\n%s#+end_%s" block-type (or contents "") block-type)))
+  (let ((block-type (org-element-property :type special-block))
+(parameters (org-element-property :parameters special-block)))
+(format "#+begin_%s%s\n%s#+end_%s" block-type
+(if parameters (concat " " parameters) "")
+(or contents "") block-type)))
 
 
 
diff --git a/testing/lisp/test-org-element.el b/testing/lisp/test-org-element.el
index 985108e375..eb5b95e86e 100644
--- a/testing/lisp/test-org-element.el
+++ b/testing/lisp/test-org-element.el
@@ -2429,7 +2429,19 @@ Outside list"
   ;; When contents is empty, the parsed contents is nil.
   (should
(org-test-with-temp-text "#+BEGIN_SPECIAL\n#+END_SPECIAL"
- (eq nil (org-element-contents (org-element-at-point))
+ (eq nil (org-element-contents (org-element-at-point)
+  ;; Parse parameters if any, trimming blanks.
+  (should
+   (org-test-with-temp-text "#+BEGIN_SPECIAL* s  p   :w 3   
\nContent.\n#+END_SPECIAL*"
+ (equal "s  p   :w 3"
+   (org-element-property :parameters (org-element-at-point)
+  ;; When parameters is blank, `:parameters' is nil.
+  (should
+   (org-test-with-temp-text "#+BEGIN_SPECIAL* \t   
\nContent.\n#+END_SPECIAL*"
+ (eq nil (org-element-property :parameters (org-element-at-point
+   ))
+
+
 
 
  Src Block
@@ -2945,13 +2957,30 @@ Outside list"
 
 (ert-deftest test-org-element/special-block-interpreter ()
   "Test special block interpreter."
+  ;; No parameters
   (should (equal (org-test-parse-and-interpret
  "#+BEGIN_SPECIAL\nTest\n#+END_SPECIAL")
 "#+begin_SPECIAL\nTest\n#+end_SPECIAL\n"))
   ;; No content
   (should (equal (org-test-parse-and-interpret
  "#+BEGIN_SPECIAL\n#+END_SPECIAL")
-"#+begin_SPECIAL\n#+end_SPECIAL\n")))
+"#+begin_SPECIAL\n#+end_SPECIAL\n"))
+  ;; Some parameters
+  (should
+   (equal (org-test-parse-and-interpret
+   "#+BEGIN_special some parameters until EOL\nA very special 
content\n#+END_special")
+  "#+begin_special some parameters until EOL\nA very special 
content\n#+end_special\n"))
+  ;; No parameters (blanks only)
+  (should
+   (equal (org-test-parse-and-

[elpa] externals/transient ea851f3bde 4/4: Turn suffix specifications into code instead of data

[Jonas Bernoulli]

branch: externals/transient
commit ea851f3bde0b769b04ad03ab1a1341c013d0ddc6
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Turn suffix specifications into code instead of data

The macro `transient-define-prefix' manipulates its GROUP arguments,
but until now it expanded to new vectors using vector syntax, i.e.,
data.  An effort was made to evaluate lambda expressions, but that did
not really work.

Now the GROUP arguments are expanded into code, which evaluates to new
vectors.  This way lambda expressions are automatically evaluated and
byte-compiled, but we now have to take care to quote certain lists and
symbols.

Functions such as `transient-insert-suffix' take group and suffix
specs of the same form as `transient-define-prefix' but because there
is no macro expansion step, they have to `eval' the result of parsing
these specifications.

Add a new macro `transient-define-groups', which can be used to define
suffix groups that are shared between multiple prefix commands, but
don't use it for `transient-common-commands' to avoid having to make
a bunch of functions available at compile time.
---
 docs/transient.org  |  54 +-
 docs/transient.texi |  34 +---
 lisp/transient.el   | 157 
 3 files changed, 163 insertions(+), 82 deletions(-)

diff --git a/docs/transient.org b/docs/transient.org
index b658341a2d..27401836f1 100644
--- a/docs/transient.org
+++ b/docs/transient.org
@@ -861,6 +861,18 @@ that is used to invoke that transient.
   For example, the scope of the ~magit-branch-configure~ transient is
   the branch whose variables are being configured.
 
+It is possible to define one or more groups independently of a prefix
+definition, which is useful when those groups are to be used by more
+than just one prefix command.
+
+- Macro: transient-define-groups name group... ::
+
+  This macro defines one or more groups of infix and suffix commands
+  and stores them in a property of the symbol {{{var(NAME)}}}.  
{{{var(GROUP)}}} has the
+  same form as for ~transient-define-prefix~.  Subsequently {{{var(NAME)}}} can
+  be used in a {{{var(GROUP)}}} of ~transient-define-prefix~, as described in 
the
+  next section.
+
 ** Binding Suffix and Infix Commands
 
 The macro ~transient-define-prefix~ is used to define a transient.
@@ -950,23 +962,35 @@ constructor of that class.
   contained in a group are right padded, effectively aligning the
   descriptions.
 
-The {{{var(ELEMENT)}}}s are either all subgroups (vectors), or all suffixes
-(lists) and strings.  (At least currently no group type exists that
-would allow mixing subgroups with commands at the same level, though
-in principle there is nothing that prevents that.)
+The {{{var(ELEMENT)}}}s are either all subgroups, or all suffixes and strings.
+(At least currently no group type exists that would allow mixing
+subgroups with commands at the same level, though in principle there
+is nothing that prevents that.)
 
 If the {{{var(ELEMENT)}}}s are not subgroups, then they can be a mixture of 
lists
-that specify commands and strings.  Strings are inserted verbatim.
-The empty string can be used to insert gaps between suffixes, which is
-particularly useful if the suffixes are outlined as a table.
-
-Variables are supported inside group specifications.  For example in
-place of a direct subgroup specification, a variable can be used whose
-value is a vector that qualifies as a group specification.  Likewise,
-a variable can be used where a suffix specification is expected.
-Lists of group or suffix specifications are also supported.  Indirect
-specifications are resolved when the transient prefix is being
-defined.
+that specify commands and strings.  Strings are inserted verbatim into
+the buffer.  The empty string can be used to insert gaps between
+suffixes, which is particularly useful if the suffixes are outlined as
+a table.
+
+Inside group specifications, including inside contained suffix
+specifications, nothing has to be quoted and quoting anyway is
+invalid.
+
+How symbols are treated, depends on context.  Inside suffix
+specifications they often name functions.  However if they appear in
+a place where a group is expected, then they are treated as indirect
+group specifications. Such a symbol must have an associated group
+specification, created using ~transient-define-groups~.
+
+Likewise a symbol can appear in a place where a suffix specification
+is expected.  The value of the ~transient--layout~ property of that
+symbol must be a single suffix specification or a list of such
+specifications.  Currently no macro exist that would create such a
+symbol, and this feature should usually not be used.
+
+The value following a keyword, can be explicitly unquoted using ~,~.
+This feature is experimental and should be avoided as well.
 
 The form of suffix specifications is documented in the ne

[elpa] externals/transient d93dfeba4f 2/4: manual: Fix wrong reference

[Jonas Bernoulli]

branch: externals/transient
commit d93dfeba4f459345361de301ca088619c8bbae43
Author: Juergen Hoetzel 
Commit: Jonas Bernoulli 

manual: Fix wrong reference
---
 docs/transient.org  | 4 ++--
 docs/transient.texi | 6 +++---
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/docs/transient.org b/docs/transient.org
index 8d2be808de..b658341a2d 100644
--- a/docs/transient.org
+++ b/docs/transient.org
@@ -304,9 +304,9 @@ but it is easily accessible (see [[*Using History]]).
   Save the value of the active transient persistently across Emacs
   sessions.
 
-- Key: C-x C-k (transient-save) ::
+- Key: C-x C-k (transient-reset) ::
 
-  Clear the set and saved value of the active transient.
+  Clear the set and saved values of the active transient.
 
 - User Option: transient-values-file ::
 
diff --git a/docs/transient.texi b/docs/transient.texi
index 1ce39566fa..bcc29f418f 100644
--- a/docs/transient.texi
+++ b/docs/transient.texi
@@ -447,10 +447,10 @@ session.
 Save the value of the active transient persistently across Emacs
 sessions.
 
-@item @kbd{C-x C-k} (@code{transient-save})
+@item @kbd{C-x C-k} (@code{transient-reset})
 @kindex C-x C-k
-@findex transient-save
-Clear the set and saved value of the active transient.
+@findex transient-reset
+Clear the set and saved values of the active transient.
 @end table
 
 @defopt transient-values-file

[elpa] externals/transient 097f5be6e0 1/4: manual: Fix typos

[Jonas Bernoulli]

branch: externals/transient
commit 097f5be6e0c228790a6e78ffee5f0c599cb58b20
Author: hokomo 
Commit: Jonas Bernoulli 

manual: Fix typos
---
 docs/transient.org  | 6 +++---
 docs/transient.texi | 6 +++---
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/docs/transient.org b/docs/transient.org
index d084b35ab7..8d2be808de 100644
--- a/docs/transient.org
+++ b/docs/transient.org
@@ -1021,7 +1021,7 @@ argument that is mandatory in all cases.
   with it (as would be the case if ~transient-define-suffix~ or
   ~transient-define-infix~ were used to define it).
 
-  Anonymous, dynamically defined suffix commands are also support.
+  Anonymous, dynamically defined suffix commands are also supported.
   See information about the ~:setup-children~ function in [[*Group
   Specifications]].
 
@@ -1550,7 +1550,7 @@ object should not affect later invocations.
   indicates that all remaining arguments are files.
 
 - Classes used for infix commands that represent variables should
-  derived from the abstract ~transient-variables~ class.
+  derived from the abstract ~transient-variable~ class.
 
 Magit defines additional classes, which can serve as examples for the
 fancy things you can do without modifying Transient.  Some of these
@@ -1753,7 +1753,7 @@ Also see [[*Suffix Classes]].
   called with no argument and returns a string.
 
 - ~show-help~ A function used to display help for the suffix.  If
-  unspecified, the prefix controls how hlep is displayed for its
+  unspecified, the prefix controls how help is displayed for its
   suffixes.
 
 *** Slots of ~transient-infix~
diff --git a/docs/transient.texi b/docs/transient.texi
index 5ae15bb340..1ce39566fa 100644
--- a/docs/transient.texi
+++ b/docs/transient.texi
@@ -1222,7 +1222,7 @@ Any command will do; it does not need to have an object 
associated
 with it (as would be the case if @code{transient-define-suffix} or
 @code{transient-define-infix} were used to define it).
 
-Anonymous, dynamically defined suffix commands are also support.
+Anonymous, dynamically defined suffix commands are also supported.
 See information about the @code{:setup-children} function in @ref{Group 
Specifications}.
 
 As mentioned above, the object that is associated with a command can
@@ -1800,7 +1800,7 @@ indicates that all remaining arguments are files.
 
 @item
 Classes used for infix commands that represent variables should
-derived from the abstract @code{transient-variables} class.
+derived from the abstract @code{transient-variable} class.
 @end itemize
 
 Magit defines additional classes, which can serve as examples for the
@@ -2035,7 +2035,7 @@ called with no argument and returns a string.
 
 @item
 @code{show-help} A function used to display help for the suffix.  If
-unspecified, the prefix controls how hlep is displayed for its
+unspecified, the prefix controls how help is displayed for its
 suffixes.
 @end itemize
 

[elpa] externals/transient updated (555792f71e -> ea851f3bde)

[Jonas Bernoulli]

tarsius pushed a change to branch externals/transient.

  from  555792f71e Fix setting level of anonymous infixes
   new  097f5be6e0 manual: Fix typos
   new  d93dfeba4f manual: Fix wrong reference
   new  0a3b22f169 transient--delay-post-command: Account for events 
returned as vector
   new  ea851f3bde Turn suffix specifications into code instead of data


Summary of changes:
 docs/transient.org  |  64 ++---
 docs/transient.texi |  46 ++-
 lisp/transient.el   | 160 
 3 files changed, 176 insertions(+), 94 deletions(-)

[elpa] externals/transient 0a3b22f169 3/4: transient--delay-post-command: Account for events returned as vector

[Jonas Bernoulli]

branch: externals/transient
commit 0a3b22f169b84ab7a51dc83856b0b6487fdf41da
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

transient--delay-post-command: Account for events returned as vector

Closes #215.
---
 lisp/transient.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 54f3ba0490..535effed56 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -2179,7 +2179,8 @@ value.  Otherwise return CHILDREN as is."
   ;; used to call another command
   ;; that also uses the minibuffer.
   (equal
-   (string-to-multibyte (this-command-keys))
+   (ignore-errors
+ (string-to-multibyte (this-command-keys)))
(format "\M-x%s\r" this-command))
 (transient--debug 'post-command-hook "act: %s" act)
 (when act

[elpa] externals/denote 7b39592605 1/3: Add missing backronyms to the manual

[ELPA Syncer]

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

Add missing backronyms to the manual
---
 README.org | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/README.org b/README.org
index 7449f719c8..85a9805c2f 100644
--- a/README.org
+++ b/README.org
@@ -38,6 +38,8 @@ Current development target is {{{development-version}}}.
 + GitHub: 
 + GitLab: 
 + Mailing list: 
++ Backronyms: Denote Everything Neatly; Omit The Excesses.  Don't Ever
+  Note Only The Epiphenomenal.
 
 If you are viewing the README.org version of this file, please note that
 the GNU ELPA machinery automatically generates an Info manual out of it.

[elpa] externals/denote d9a1b0c0b8 2/3: Update to version 1.1.0

[ELPA Syncer]

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

Update to version 1.1.0
---
 CHANGELOG.org | 203 ++
 README.org|  35 +++---
 denote.el |   2 +-
 3 files changed, 213 insertions(+), 27 deletions(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index c2e659ee8f..46f21b45cf 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -9,6 +9,209 @@ project's main git repository: 
.
 The newest release is at the top.  For further details, please consult
 the manual: .
 
+* Version 1.1.0 on 2022-10-20
+:PROPERTIES:
+:CUSTOM_ID: h:8e0f536a-ab3b-4cab-82f7-529bc0e40dbd
+:END:
+
+** New commands or refinements to common use-cases
+:PROPERTIES:
+:CUSTOM_ID: h:5665e7ec-4f3a-4de3-8cb0-63d25a0db8c1
+:END:
+
++ The ~denote-link-add-missing-links~ is a companion to what we
+  already provide to produce a list of links to Denote files matching
+  a regular expression (the ~denote-link-add-links~).  This new
+  command adds links that are not already present in the current file.
+  So if you have a metanote that references, say, your journal entries
+  but have not updated it in a month, you can revisit the metanote,
+  invoke ~denote-link-add-missing-links~, and then type the search
+  terms (e.g. =_journal=) to include what remains.
+
+  Thanks to Elias Storms for the initial contribution, which was done
+  in pull request 108 on the GitHub mirror:
+  .
+
+  Elias has assigned copyright to the Free Software Foundation.  It is
+  required for changes that exceed 15 lines in total.
+
++ The ~denote-link-find-backlink~ provides a minibuffer interface that
+  shows all backlinks to the current note.  It complements the
+  existing ~denote-link-backlinks~ command (which also has the alias
+  ~denote-link-show-backlinks-buffer~).  Each command has its own
+  niche: the minibuffer lets the user leverage powerful pattern
+  matching styles, such as those provided by the =orderless= package,
+  while the bespoke buffer provides an easy overview of what links to
+  the current note.
+
+  Thanks to Elias Storms for the original patch:
+  
.
+
++ The ~denote-keywords-add~ and ~denote-keywords-remove~ are two
+  commands that interactively operate on the current note's front
+  matter to add or remove keywords.  They use the familiar keywords'
+  prompt which means, among others, that they can read more than one
+  keyword at a time.  To specify multiple keywords, separate each
+  input with a comma (or whatever the value of ~crm-separator~ is,
+  which should be a comma unless something out-of-the-ordinary is in
+  force).
+
+  Thanks to Elias Storms for the original patch, which was done as
+  part of a discussion on the mailing list and then iterated on:
+  
.
+
++ The ~denote-link~ command will now recognise an active region and
+  use its text as the description of the inserted link.  The default
+  behaviour is to use the file's title from its front matter or file
+  name.  Thanks to Charanjit Singh for the original contribution,
+  which was done as part of pull request 109 on the GitHub mirror:
+  .  A subsequent
+  tweak was implemented in pull request 110, following a discussion
+  with me: .
+
+  Charanjit's contribution is below the ~15 line threshold and thus
+  does not require copyright assignment to the Free Software
+  Foundation.
+
++ The renaming operations are now aware of the underlying version
+  control system and will use the appropriate command when a VCS is
+  available.  In practice, renaming a file under, say, Git will
+  register it as a "rename" instead of two separate actions of
+  deletion and addition.
+
+  Thanks to Florian for the patch.  It was discussed on the mailing
+  list and then underwent some changes:
+  
.
+
++ The ~denote-rename-file-using-front-matter~ no longer fails to carry
+  out its intended task when the front matter has no keywords.  If no
+  keywords are available, this is interpreted as a request to remove
+  the KEYWORDS component of the file name.  This was always
+  technically possible and could be achieved with various permutations
+  of the user option ~denote-prompts~ (as explained in its doc string
+  or the manual).  Denote only needs an identifier in the file name to
+  establish unique links (although I strongly encourage you to stick
+  to the standard file-naming scheme as it i

[elpa] externals/transient afb7b250d4: make: Suppress warning about obsolete autoload package

[Jonas Bernoulli]

branch: externals/transient
commit afb7b250d4ee9669fdb82c4e40a23800f651ff96
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

make: Suppress warning about obsolete autoload package
---
 lisp/Makefile | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/Makefile b/lisp/Makefile
index b51152a1d7..eb41ee353c 100644
--- a/lisp/Makefile
+++ b/lisp/Makefile
@@ -32,4 +32,5 @@ $(PKG)-autoloads.el: $(ELS)
   (cl-letf (((symbol-function 'progress-reporter-do-update) (lambda (&rest 
_)))\
 ((symbol-function 'progress-reporter-done) (lambda (_\
 (let ((generated-autoload-file file))\
-  (update-directory-autoloads default-directory"
+  (update-directory-autoloads default-directory" \
+   2>&1 | sed "/^Package autoload is deprecated$$/d"

[elpa] externals/denote dd08ea3496 3/3: Add missing backronyms to the README.md

[ELPA Syncer]

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

Add missing backronyms to the README.md

Not important, I know...  But it is fun.
---
 README.md | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/README.md b/README.md
index 613f9fb9d9..9938bf8633 100644
--- a/README.md
+++ b/README.md
@@ -19,3 +19,5 @@ 
package](https://protesilaos.com/codelog/2022-06-18-denote-demo/).
 + GitHub: 
 + GitLab: 
 + Mailing list: 
++ Backronyms: Denote Everything Neatly; Omit The Excesses.  Don't Ever
+  Note Only The Epiphenomenal.

[nongnu] elpa/git-commit 619b6a147c: make: Suppress warning about obsolete autoload package

[ELPA Syncer]

branch: elpa/git-commit
commit 619b6a147cbadcd2e14c759b3e91e12f30acc79b
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

make: Suppress warning about obsolete autoload package
---
 lisp/Makefile | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/Makefile b/lisp/Makefile
index 2d55746823..a1cb39f89d 100644
--- a/lisp/Makefile
+++ b/lisp/Makefile
@@ -93,7 +93,8 @@ $(PKG)-autoloads.el: $(ELS)
   (cl-letf (((symbol-function 'progress-reporter-do-update) (lambda (&rest 
_)))\
 ((symbol-function 'progress-reporter-done) (lambda (_\
 (let ((generated-autoload-file file))\
-  (update-directory-autoloads default-directory"
+  (update-directory-autoloads default-directory" \
+   2>&1 | sed "/^Package autoload is deprecated$$/d"
 
 $(PKG)-version.el:
@printf " Creating $@\n"

[nongnu] elpa/with-editor 4ca225bf1c: make: Suppress warning about obsolete autoload package

[ELPA Syncer]

branch: elpa/with-editor
commit 4ca225bf1c54d6dab2ba7e734f594419c7769e36
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

make: Suppress warning about obsolete autoload package
---
 lisp/Makefile | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/Makefile b/lisp/Makefile
index b51152a1d7..eb41ee353c 100644
--- a/lisp/Makefile
+++ b/lisp/Makefile
@@ -32,4 +32,5 @@ $(PKG)-autoloads.el: $(ELS)
   (cl-letf (((symbol-function 'progress-reporter-do-update) (lambda (&rest 
_)))\
 ((symbol-function 'progress-reporter-done) (lambda (_\
 (let ((generated-autoload-file file))\
-  (update-directory-autoloads default-directory"
+  (update-directory-autoloads default-directory" \
+   2>&1 | sed "/^Package autoload is deprecated$$/d"

[nongnu] elpa/helm updated (1697afdfdc -> 29df83f4a2)

[ELPA Syncer]

elpasync pushed a change to branch elpa/helm.

  from  1697afdfdc Don't loop in highlight matches transformer when not 
needed
   new  a36fc9e2aa Always put incomplete filenames on top
   new  29df83f4a2 Fix highlighting matches on symlinks


Summary of changes:
 helm-files.el | 20 +++-
 1 file changed, 11 insertions(+), 9 deletions(-)

[nongnu] elpa/helm a36fc9e2aa 1/2: Always put incomplete filenames on top

[ELPA Syncer]

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

Always put incomplete filenames on top
---
 helm-files.el | 16 
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/helm-files.el b/helm-files.el
index 4787084850..52465dce90 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -3882,14 +3882,14 @@ return FNAME with display property prefixed with [?]."
   (new-file (concat prefix-new " " fname)
 
 (defun helm-ff-score-candidate-for-pattern (real disp pattern)
-  (if (or (member real '("." ".."))
-  ;; Incomplete filenames are prefixed with two spaces, the
-  ;; first one beeing propertized with a 'display prop
-  ;; i.e. "[?] foo".
-  (and (string-match-p "\\`\\s-\\{2\\}" disp)
-   (string= real (substring-no-properties disp 2
-  90
-  (helm-score-candidate-for-pattern real pattern)))
+  (cond ((member real '("." "..")) 90)
+((and (string-match-p "\\`\\s-\\{2\\}" disp)
+   (string= real (substring-no-properties disp 2)))
+ ;; Incomplete filenames are prefixed with two spaces, the
+ ;; first one beeing propertized with a 'display prop
+ ;; i.e. "[?] foo".
+ 91)
+(t (helm-score-candidate-for-pattern real pattern
 
 (defun helm-ff-sort-candidates-1 (candidates input)
   "Sort function for `helm-source-find-files'.

[elpa] externals/denote updated (21e194a5bd -> dd08ea3496)

[ELPA Syncer]

elpasync pushed a change to branch externals/denote.

  from  21e194a5bd Refine file renaming under version control
   new  7b39592605 Add missing backronyms to the manual
   new  d9a1b0c0b8 Update to version 1.1.0
   new  dd08ea3496 Add missing backronyms to the README.md


Summary of changes:
 CHANGELOG.org | 203 ++
 README.md |   2 +
 README.org|  37 ---
 denote.el |   2 +-
 4 files changed, 217 insertions(+), 27 deletions(-)

[nongnu] elpa/helm 29df83f4a2 2/2: Fix highlighting matches on symlinks

[ELPA Syncer]

branch: elpa/helm
commit 29df83f4a2a2a08f579b964035b6ced4e21099f4
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Fix highlighting matches on symlinks
---
 helm-files.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/helm-files.el b/helm-files.el
index 52465dce90..3b86687204 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -4077,7 +4077,9 @@ If SKIP-BORING-CHECK is non nil don't filter boring 
files."
(add-face-text-property 0 len-abbrev 'helm-ff-truename t 
abbrev)
;; Colorize extension only on truename.
(add-face-text-property 0 len 'helm-ff-symlink nil disp)
-   (cons (propertize disp 'display (concat disp " -> " abbrev))
+   ;; As we use match-on-real we can use this safely,
+   ;; abbrev will not be matched.
+   (cons (concat disp " -> " abbrev)
  file)))
 ;; A directory.
 ((eq t type)

[nongnu] elpa/git-modes 4f9ad30f01: make: Suppress warning about obsolete autoload package

[ELPA Syncer]

branch: elpa/git-modes
commit 4f9ad30f01cfb3f8460b786153f8569578c0f8dc
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

make: Suppress warning about obsolete autoload package

We'll have to support older Emacs releases for years to come.
---
 Makefile | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Makefile b/Makefile
index b37df674ae..2d66aab844 100644
--- a/Makefile
+++ b/Makefile
@@ -55,4 +55,5 @@ $(PKG)-autoloads.el: $(ELS)
   (cl-letf (((symbol-function 'progress-reporter-do-update) (lambda (&rest 
_)))\
 ((symbol-function 'progress-reporter-done) (lambda (_\
 (let ((generated-autoload-file file))\
-  (update-directory-autoloads default-directory"
+  (update-directory-autoloads default-directory" \
+   2>&1 | sed "/^Package autoload is deprecated$$/d"

[elpa] externals/consult 00a58f5fba 1/2: README: Update recommended preview configuration

[ELPA Syncer]

branch: externals/consult
commit 00a58f5fba2f3b0179db7237cfd2688fddd2eb21
Author: Daniel Mendler 
Commit: Daniel Mendler 

README: Update recommended preview configuration
---
 README.org | 12 ++--
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/README.org b/README.org
index 386390f96a..93df855b59 100644
--- a/README.org
+++ b/README.org
@@ -439,9 +439,9 @@ to be considered.
consult-bookmark consult-recent-file consult-xref
consult--source-bookmark consult--source-file-register
consult--source-recent-file consult--source-project-recent-file
-   ;; my/command-wrapping-consult   ;; disable auto previews inside my 
command
-   ;; :preview-key '(:debounce 0.2 any) ;; Option 1: Delay preview
-   :preview-key (kbd "M-."));; Option 2: Manual preview
+   ;; my/command-wrapping-consult;; disable auto previews inside my command
+   :preview-key '(:debounce 0.2 any) ;; Option 1: Delay preview
+   ;; :preview-key (kbd "M-."))  ;; Option 2: Manual preview
 #+end_src
 
 In this case one may wonder what the difference is between using an Embark
@@ -841,13 +841,13 @@ configuration examples.
 ;; For some commands and buffer sources it is useful to configure the
 ;; :preview-key on a per-command basis using the `consult-customize' macro.
 (consult-customize
- consult-theme
- :preview-key '(:debounce 0.2 any)
+ consult-theme :preview-key '(:debounce 0.2 any)
  consult-ripgrep consult-git-grep consult-grep
  consult-bookmark consult-recent-file consult-xref
  consult--source-bookmark consult--source-file-register
  consult--source-recent-file consult--source-project-recent-file
- :preview-key (kbd "M-."))
+ ;; :preview-key (kbd "M-.")
+ :preview-key '(:debounce 0.4 any))
 
 ;; Optionally configure the narrowing key.
 ;; Both < and C-+ work reasonably well.

[nongnu] elpa/keycast 30f2b446c0: make: Suppress warning about obsolete autoload package

[ELPA Syncer]

branch: elpa/keycast
commit 30f2b446c013dda490f44dbf82d0ab34eb016726
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

make: Suppress warning about obsolete autoload package

We'll have to support older Emacs releases for years to come.
---
 Makefile | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Makefile b/Makefile
index cfb146932f..730fd31645 100644
--- a/Makefile
+++ b/Makefile
@@ -52,4 +52,5 @@ $(PKG)-autoloads.el: $(ELS)
   (cl-letf (((symbol-function 'progress-reporter-do-update) (lambda (&rest 
_)))\
 ((symbol-function 'progress-reporter-done) (lambda (_\
 (let ((generated-autoload-file file))\
-  (update-directory-autoloads default-directory"
+  (update-directory-autoloads default-directory" \
+   2>&1 | sed "/^Package autoload is deprecated$$/d"

[nongnu] elpa/magit-section updated (5d6c01e293 -> 619b6a147c)

[ELPA Syncer]

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

  from  5d6c01e293 magit-commit-squash-internal: Restore window conf after 
showing diff
  adds  619b6a147c make: Suppress warning about obsolete autoload package

No new revisions were added by this update.

Summary of changes:
 lisp/Makefile | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

[nongnu] elpa/magit updated (5d6c01e293 -> 619b6a147c)

[ELPA Syncer]

elpasync pushed a change to branch elpa/magit.

  from  5d6c01e293 magit-commit-squash-internal: Restore window conf after 
showing diff
  adds  619b6a147c make: Suppress warning about obsolete autoload package

No new revisions were added by this update.

Summary of changes:
 lisp/Makefile | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

[nongnu] elpa/helm-core updated (1697afdfdc -> 29df83f4a2)

[ELPA Syncer]

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

  from  1697afdfdc Don't loop in highlight matches transformer when not 
needed
  adds  a36fc9e2aa Always put incomplete filenames on top
  adds  29df83f4a2 Fix highlighting matches on symlinks

No new revisions were added by this update.

Summary of changes:
 helm-files.el | 20 +++-
 1 file changed, 11 insertions(+), 9 deletions(-)

[elpa] main dd3afb4db5: Source Eglot package from :core file lisp/progmodes/eglot.el

[João Távora]

branch: main
commit dd3afb4db5c658a7c435e95a1394bd0ef36bb381
Author: João Távora 
Commit: João Távora 

Source Eglot package from :core file lisp/progmodes/eglot.el

* elpa-packages ("eglot"): Source from :core file
---
 elpa-packages | 5 +
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/elpa-packages b/elpa-packages
index 015e21caf4..afd9b1a528 100644
--- a/elpa-packages
+++ b/elpa-packages
@@ -262,10 +262,7 @@
   :readme "README.md"
   :news "CHANGELOG.org"
   :ignored-files ("COPYING" "doclicense.texi" "contrast-ratios.org"))
- ("eglot"   :url "https://github.com/joaotavora/eglot.git";
-  :news "NEWS.md"
-  :ignored-files (".github" "LICENSE" "gif-examples")
-  :auto-sync t)
+ ("eglot"   :core "lisp/progmodes/eglot.el")
  ("el-search"  :url nil)
  ("eldoc"  :core "lisp/emacs-lisp/eldoc.el")
  ("eldoc-eval" :url 
"https://github.com/thierryvolpiatto/eldoc-eval.git";)

[nongnu] elpa/orgit 5036c3db58: make: Suppress warning about obsolete autoload package

[ELPA Syncer]

branch: elpa/orgit
commit 5036c3db5897ce93cd895aa213072661a497a4e6
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

make: Suppress warning about obsolete autoload package

We'll have to support older Emacs releases for years to come.
---
 Makefile | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Makefile b/Makefile
index b7837c2dd2..82aa599f92 100644
--- a/Makefile
+++ b/Makefile
@@ -57,4 +57,5 @@ $(PKG)-autoloads.el: $(ELS)
   (cl-letf (((symbol-function 'progress-reporter-do-update) (lambda (&rest 
_)))\
 ((symbol-function 'progress-reporter-done) (lambda (_\
 (let ((generated-autoload-file file))\
-  (update-directory-autoloads default-directory"
+  (update-directory-autoloads default-directory" \
+   2>&1 | sed "/^Package autoload is deprecated$$/d"

[elpa] externals/consult 51402e8e08 2/2: README update

[ELPA Syncer]

branch: externals/consult
commit 51402e8e08ce2f8513522a776c3b7fe45fa63593
Author: Daniel Mendler 
Commit: Daniel Mendler 

README update
---
 README.org | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/README.org b/README.org
index 93df855b59..81729afd6d 100644
--- a/README.org
+++ b/README.org
@@ -440,7 +440,7 @@ to be considered.
consult--source-bookmark consult--source-file-register
consult--source-recent-file consult--source-project-recent-file
;; my/command-wrapping-consult;; disable auto previews inside my command
-   :preview-key '(:debounce 0.2 any) ;; Option 1: Delay preview
+   :preview-key '(:debounce 0.4 any) ;; Option 1: Delay preview
;; :preview-key (kbd "M-."))  ;; Option 2: Manual preview
 #+end_src
 

[nongnu] elpa/helm-core updated (29df83f4a2 -> eda9a8b322)

[ELPA Syncer]

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

  from  29df83f4a2 Fix highlighting matches on symlinks
  adds  39ed67040d Fix error when extracting props in a file of length 1
  adds  eda9a8b322 Highlight matches on real if possible (HFF)

No new revisions were added by this update.

Summary of changes:
 helm-core.el  | 5 -
 helm-files.el | 4 ++--
 2 files changed, 6 insertions(+), 3 deletions(-)

[nongnu] elpa/helm eda9a8b322 2/2: Highlight matches on real if possible (HFF)

[ELPA Syncer]

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

Highlight matches on real if possible (HFF)
---
 helm-core.el | 5 -
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/helm-core.el b/helm-core.el
index 49190b7672..c1d8d88dbd 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -4591,7 +4591,10 @@ useful when the order of the candidates is meaningful, 
e.g. with
  (mpart   (get-text-property 0 'match-part display))
  (mp  (cond ((and mpart (string= display mpart)) nil)
 (mpart)
-(file-comp (file-name-nondirectory display
+;; FIXME: This may be wrong when match-on-real
+;; is nil, so we should flag match-on-real on
+;; top and use it.
+(file-comp (file-name-nondirectory (or real 
display)
  (count   0)
  beg-str end-str)
 ;; Extract all parts of display keeping original properties.

[elpa] externals/consult updated (5b258a501a -> 51402e8e08)

[ELPA Syncer]

elpasync pushed a change to branch externals/consult.

  from  5b258a501a Remove obsolete consult-line-point-placement
   new  00a58f5fba README: Update recommended preview configuration
   new  51402e8e08 README update


Summary of changes:
 README.org | 12 ++--
 1 file changed, 6 insertions(+), 6 deletions(-)

[nongnu] elpa/helm updated (29df83f4a2 -> eda9a8b322)

[ELPA Syncer]

elpasync pushed a change to branch elpa/helm.

  from  29df83f4a2 Fix highlighting matches on symlinks
   new  39ed67040d Fix error when extracting props in a file of length 1
   new  eda9a8b322 Highlight matches on real if possible (HFF)


Summary of changes:
 helm-core.el  | 5 -
 helm-files.el | 4 ++--
 2 files changed, 6 insertions(+), 3 deletions(-)

[nongnu] elpa/helm 39ed67040d 1/2: Fix error when extracting props in a file of length 1

[ELPA Syncer]

branch: elpa/helm
commit 39ed67040d5a08fe27a138678d852e6aa577bbde
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Fix error when extracting props in a file of length 1
---
 helm-files.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/helm-files.el b/helm-files.el
index 3b86687204..e9fc9d0a58 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -4152,13 +4152,13 @@ Arg DISP is the display part of the candidate."
 
 (defun helm-ff--is-dir-from-disp (disp)
   "Return the face used for candidate when candidate is a directory."
-  (cl-loop with faces = (helm-mklist (get-text-property 2 'face disp))
+  (cl-loop with faces = (helm-mklist (get-text-property 1 'face disp))
for face in '(helm-ff-directory helm-ff-dotted-directory)
thereis (memq face faces)))
 
 (defun helm-ff--is-file-from-disp (disp)
   "Return the face used for file's candidate or dotted-symlink dirs."
-  (cl-loop with faces = (helm-mklist (get-text-property 2 'face disp))
+  (cl-loop with faces = (helm-mklist (get-text-property 1 'face disp))
for face in '(helm-ff-file
  helm-ff-suid
  helm-ff-executable

[elpa] externals/vertico 87357496df: Add missing completion-predicate

[ELPA Syncer]

branch: externals/vertico
commit 87357496dfcf58440d798e19d5354f03f6b86ea8
Author: Daniel Mendler 
Commit: Daniel Mendler 

Add missing completion-predicate
---
 extensions/vertico-multiform.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/extensions/vertico-multiform.el b/extensions/vertico-multiform.el
index 97b51b7afc..1e015f6a82 100644
--- a/extensions/vertico-multiform.el
+++ b/extensions/vertico-multiform.el
@@ -204,6 +204,8 @@ MODE defaults to the vertical display."
   (vertico-multiform--temporary-mode mode 1))
 (setq vertico-multiform--display-last last)))
 
+(put #'vertico-multiform-vertical 'completion-predicate #'vertico--command-p)
+
 (defmacro vertico-multiform--define-display-toggle (name)
   "Define toggle for display mode NAME."
   (let ((sym (intern (format "vertico-multiform-%s" name

[elpa] externals/auctex 56b081e241 02/23: * tex.el (TeX-insert-macro): Use 'atomic-change-group'

[Tassilo Horn]

branch: externals/auctex
commit 56b081e241971ab497a669524b04f89dd9e6d8c7
Author: Philip Kaludercic 
Commit: Tassilo Horn 

* tex.el (TeX-insert-macro): Use 'atomic-change-group'

If the user aborts the command, we avoid keeping behind a partial
state by reverting all changes that might have made.
---
 tex.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/tex.el b/tex.el
index 1497f2281c..350d9e9003 100644
--- a/tex.el
+++ b/tex.el
@@ -3338,8 +3338,9 @@ is called with \\[universal-argument]."
'TeX-macro-history TeX-default-macro
   (when (called-interactively-p 'any)
 (setq TeX-default-macro symbol))
-  (TeX-parse-macro symbol (cdr-safe (assoc symbol (TeX-symbol-list
-  (run-hooks 'TeX-after-insert-macro-hook))
+  (atomic-change-group
+(TeX-parse-macro symbol (cdr-safe (assoc symbol (TeX-symbol-list
+(run-hooks 'TeX-after-insert-macro-hook)))
 
 (defvar TeX-electric-macro-map
   (let ((map (make-sparse-keymap)))

[elpa] externals/auctex b36127cc74 10/23: * tex.el: Require seq.el for older Emacsen where not preloaded.

[Tassilo Horn]

branch: externals/auctex
commit b36127cc74808690cc042eac73952e3e75493d90
Author: Arash Esbati 
Commit: Arash Esbati 

* tex.el: Require seq.el for older Emacsen where not preloaded.
---
 tex.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/tex.el b/tex.el
index 350d9e9003..e6f09d8fb5 100644
--- a/tex.el
+++ b/tex.el
@@ -36,6 +36,9 @@
 (eval-when-compile
   (require 'cl-lib))
 (require 'texmathp)
+;; seq.el is preloaded in Emacs 29, so the next form can be removed
+;; once 29 is the minimum required Emacs version
+(require 'seq)
 ;; Require dbus at compile time to get macro definition of
 ;; `dbus-ignore-errors'.
 (eval-when-compile (require 'dbus))

[elpa] externals/auctex 16ef09b18c 15/23: Override built-in tex-mode

[Tassilo Horn]

branch: externals/auctex
commit 16ef09b18ca2d652e38cbdeb717c737394bf7ce7
Author: Ikumi Keita 
Commit: Ikumi Keita 

Override built-in tex-mode

* tex-site.el.in (TeX-modes-set): Specify `depth' to override the
:around advice given to `tex-mode' in tex-mode.el.
---
 tex-site.el.in | 7 ++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/tex-site.el.in b/tex-site.el.in
index e088251efd..b9a73bd9a2 100644
--- a/tex-site.el.in
+++ b/tex-site.el.in
@@ -107,7 +107,12 @@ functions into the respective function cell of the mode."
   (setq elt (car (pop list)))
   (let ((dst (intern (concat "TeX-" (symbol-name elt)
 (if (memq elt value)
-(advice-add elt :override dst)
+(advice-add elt :override dst
+;; COMPATIBILITY for Emacs 28.[12]
+;; Give it higher precedence than the :around
+;; advice given to `tex-mode' in tex-mode.el.
+;; 
https://lists.gnu.org/r/auctex-devel/2022-09/msg00050.html>
+'((depth . -10)))
   (advice-remove elt dst))
 
 (defcustom TeX-modes

[elpa] externals/auctex 6baccb4054 16/23: Recognize '=' argument modifier

[Tassilo Horn]

branch: externals/auctex
commit 6baccb40548a380dd9dfd8a584e0f17cc8d53de8
Author: Arash Esbati 
Commit: Arash Esbati 

Recognize '=' argument modifier

* style/xparse.el (LaTeX-xparse-macro-parse): Support '={...}'
argument modifier for key-vals.
---
 style/xparse.el | 16 
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/style/xparse.el b/style/xparse.el
index b2a2fb051b..397a0c4bae 100644
--- a/style/xparse.el
+++ b/style/xparse.el
@@ -1,4 +1,4 @@
-;;; xparse.el --- AUCTeX style for `xparse.sty' version 2020-03-06  -*- 
lexical-binding: t; -*-
+;;; xparse.el --- AUCTeX style for `xparse.sty' version 2022-07-05  -*- 
lexical-binding: t; -*-
 
 ;; Copyright (C) 2013, 2020--2022 Free Software Foundation, Inc.
 
@@ -25,7 +25,7 @@
 
 ;;; Commentary:
 
-;; This file adds basic support for `xparse.sty' version 2020-03-06.
+;; This file adds basic support for `xparse.sty' version 2022-07-05.
 ;; It parses argument specification of macros and environments.
 
 ;; The "yet not more supported" specifiers `l', `u', `g' and `G' are
@@ -118,15 +118,15 @@ TYPE is one of the symbols mac or env."
 (goto-char (point-min))
 (insert (replace-regexp-in-string "[ \t\r\n%]" "" spec))
 (goto-char (point-min))
-(while (looking-at-p "[+!>bmrRvodODsteE]")
-  (cond (;; + or !: Long argument or space aware: Move over
+(while (looking-at-p "[+!>=bmrRvodODsteE]")
+  (cond ((looking-at-p "[+!b]")
+ ;; + or !: Long argument or space aware: Move over
  ;; them.  b is special; only available for
  ;; enviroments
- (looking-at-p "[+!b]")
  (forward-char 1))
-((looking-at-p ">")
- ;; Argument processors: Move over > and a balanced
- ;; {}
+;; Argument processors and key-val modifier: Move
+;; over [>=] and a balanced {}
+((looking-at-p "[>=]")
  (forward-char 1)
  (forward-sexp))
 ;; Mandatory arguments:

[elpa] externals/auctex fe801f9e4a 11/23: Add support for the amsaddr package

[Tassilo Horn]

branch: externals/auctex
commit fe801f9e4a898d3d181989b2021bc7e2882e91d8
Author: Uwe Brauer 
Commit: Arash Esbati 

Add support for the amsaddr package

* Makefile.in (STYLESRC): Add new style.

* style/amsaddr.el: New file.
---
 Makefile.in  |  2 +-
 style/amsaddr.el | 37 +
 2 files changed, 38 insertions(+), 1 deletion(-)

diff --git a/Makefile.in b/Makefile.in
index ffa39b2531..c56c03c22d 100644
--- a/Makefile.in
+++ b/Makefile.in
@@ -195,7 +195,7 @@ STYLESRC = style/prosper.el \
   style/ifxetex.el   style/multibib.el  style/ltcaption.el \
   style/keyval.elstyle/kvoptions.el style/kvsetkeys.el \
   style/proc.el  style/microtype.el style/tcolorboxlib-theorems.el 
\
-  style/catchfilebetweentags.el
+  style/amsaddr.el   style/catchfilebetweentags.el
 
 STYLEELC = $(STYLESRC:.el=.elc)
 
diff --git a/style/amsaddr.el b/style/amsaddr.el
new file mode 100644
index 00..e52036534e
--- /dev/null
+++ b/style/amsaddr.el
@@ -0,0 +1,37 @@
+;;; amsaddr.el --- AUCTeX style for the (LaTeX) amsaddr package-*- 
lexical-binding: t; -*-
+
+;; Copyright (C) 2022 Free Software Foundation, Inc.
+
+;; Author: Uwe Brauer 
+;; Maintainer: auctex-de...@gnu.org
+;; Created: 2022-09-04
+;; Keywords: tex
+
+;; This file is part of AUCTeX.
+
+;; AUCTeX is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 3, or (at your option)
+;; any later version.
+
+;; AUCTeX is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with AUCTeX; see the file COPYING.  If not, write to the Free
+;; Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
+;; 02110-1301, USA.
+
+;;; Commentary:
+
+;; This file adds support for the amsaddr package.
+
+;;; Code:
+
+(defvar LaTeX-amsaddr-package-options
+  '("foot")
+  "Package options for the amsaddr package.")
+
+;;; amsaddr.el ends here

[elpa] externals/auctex 324250f243 04/23: Support macros for key-val package or class options

[Tassilo Horn]

branch: externals/auctex
commit 324250f2433a7a7625d08b1ab76457199d9c191e
Author: Arash Esbati 
Commit: Arash Esbati 

Support macros for key-val package or class options

* style/ltx-base.el ("ltx-base"): Add kernel commands for creating
and using key-val package or class options.
---
 style/ltx-base.el | 15 +--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/style/ltx-base.el b/style/ltx-base.el
index d10a1379c7..693308a378 100644
--- a/style/ltx-base.el
+++ b/style/ltx-base.el
@@ -123,7 +123,13 @@
 '("addpenalty" "Penalty")
 '("@ifundefined" TeX-arg-macro 2)
 '("@ifnextchar" (TeX-arg-literal " ") (TeX-arg-free "Character") 2)
-'("expandafter" 0))
+'("expandafter" 0)
+
+;; These macros are currently (June 2022) described in ltkeys.dtx:
+'("DeclareKeys" ["Family"] t)
+'("DeclareUnknownKeyHandler" ["Family"] t)
+'("ProcessKeyOptions" ["Family"])
+'("SetKeys" ["Family"] t))
 
;; Fontification
(when (and (featurep 'font-latex)
@@ -149,7 +155,12 @@
 ("ProcessOptions" "*")
 ("ExecuteOptions" "{")
 ("DeclareRobustCommand" "*|{\\[[{")
-("CheckCommand" "*|{\\[[{"))
+("CheckCommand" "*|{\\[[{")
+
+("DeclareKeys"  "[{")
+("DeclareUnknownKeyHandler" "[{")
+("ProcessKeyOptions""[")
+("SetKeys"  "[{"))
   'function)))
  TeX-dialect)
 

[elpa] externals/auctex 48db5bdf84 03/23: Restore compatibility for BSD sed

[Tassilo Horn]

branch: externals/auctex
commit 48db5bdf84a992bc53424f283b2e7980cdb84fe4
Author: Arash Esbati 
Commit: Arash Esbati 

Restore compatibility for BSD sed

* Makefile.in (tex-site.el): Set '-i' command line option
explicitly since it is mandatory for BSD sed.
---
 Makefile.in | 8 +---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/Makefile.in b/Makefile.in
index 9d97eff36b..97ddae21cc 100644
--- a/Makefile.in
+++ b/Makefile.in
@@ -268,9 +268,11 @@ tex-site.el: tex-site.el.out auto-loads.el Makefile
cat auto-loads.el >>$@
echo "(provide 'tex-site)" >>$@ ; \
echo ";;; tex-site.el ends here" >>$@
-   sed -i -e "/^(provide 'auto-loads)/d" \
-  -e '/^;;; auto-loads.el ends here/d' \
-  -e 's/^\(;;; auto-loads.el.*\)\(   -\*- lexical-binding: t 
-\*-\)/\1/' $@
+   sed -i'.tmp' \
+   -e "/^(provide 'auto-loads)/d" \
+   -e '/^;;; auto-loads.el ends here/d' \
+   -e 's/^\(;;; auto-loads.el.*\)\(   -\*- lexical-binding: t 
-\*-\)/\1/' $@
+   -rm -f $@.tmp
 
 tex-site.el.out: tex-site.el.in Makefile config.status
./config.status

[elpa] externals/auctex 10dbae9ab1 08/23: Add support for catchfilebetweentags package

[Tassilo Horn]

branch: externals/auctex
commit 10dbae9ab1725eeb0452b5c4a36d5a25bb121040
Author: Uwe Brauer 
Commit: Arash Esbati 

Add support for catchfilebetweentags package

* Makefile.in (STYLESRC): Add new style.

* tex-style.el (LaTeX-catchfilebetweentags-use-numeric-label):
Add a new variable that controls whether a numeric label gets
inserted automatically.  Default is t.

* style/catchfilebetweentags.el: New file.
---
 Makefile.in   |   3 +-
 style/catchfilebetweentags.el | 116 ++
 tex-style.el  |   7 +++
 3 files changed, 125 insertions(+), 1 deletion(-)

diff --git a/Makefile.in b/Makefile.in
index 97ddae21cc..ffa39b2531 100644
--- a/Makefile.in
+++ b/Makefile.in
@@ -194,7 +194,8 @@ STYLESRC = style/prosper.el \
   style/ifpdf.el style/iftex.el style/ifvtex.el \
   style/ifxetex.el   style/multibib.el  style/ltcaption.el \
   style/keyval.elstyle/kvoptions.el style/kvsetkeys.el \
-  style/proc.el  style/microtype.el style/tcolorboxlib-theorems.el
+  style/proc.el  style/microtype.el style/tcolorboxlib-theorems.el 
\
+  style/catchfilebetweentags.el
 
 STYLEELC = $(STYLESRC:.el=.elc)
 
diff --git a/style/catchfilebetweentags.el b/style/catchfilebetweentags.el
new file mode 100644
index 00..27c67e23d6
--- /dev/null
+++ b/style/catchfilebetweentags.el
@@ -0,0 +1,116 @@
+;;; catchfilebetweentags.el --- AUCTeX style for catchfilebetweentags package  
-*- lexical-binding: t; -*-
+
+;; Copyright (C) 2022 Free Software Foundation, Inc.
+
+;; Author: Uwe Brauer 
+;; Maintainer: auctex-de...@gnu.org
+;; Created: Aug 23, 2022
+;; Keywords: tex
+
+;; This file is part of AUCTeX.
+
+;; AUCTeX is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 3, or (at your option)
+;; any later version.
+
+;; AUCTeX is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with AUCTeX; see the file COPYING.  If not, write to the Free
+;; Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
+;; 02110-1301, USA.
+
+;;; Commentary:
+
+;; This file adds support for the catchfilebetweentags package.
+
+;; Acknowledgements
+;; Arash Esbati  for, basically, a complete rewrite, thanks.
+
+;;; Code:
+
+(require 'tex)
+(require 'latex)
+
+;; Silence the compiler:
+(declare-function font-latex-add-keywords
+  "font-latex"
+  (keywords class))
+
+(defvar-local LaTeX-catchfilebetweentags-counter nil
+  "Counter for LaTeX-catchfilebetweentags numbers.")
+
+;; Scanning function, stolen from markdown-mode
+(defun LaTeX-catchfilebetweentags-counter-inc ()
+  "Increment `LaTeX-catchfilebetweentags-counter' and return the new value."
+  (when (null LaTeX-catchfilebetweentags-counter)
+(setq LaTeX-catchfilebetweentags-counter 0)
+(save-excursion
+  (goto-char (point-min))
+  (while (re-search-forward (concat "^%<\\*\\([^>]+\\)>$")
+(point-max) t)
+(let ((fn (string-to-number (match-string 1
+  (when (> fn LaTeX-catchfilebetweentags-counter)
+(setq LaTeX-catchfilebetweentags-counter fn))
+  (setq LaTeX-catchfilebetweentags-counter
+(1+ LaTeX-catchfilebetweentags-counter)))
+
+(defun LaTeX-env-catchfilebetweentags (_environment)
+  "Insert a tag-skeleton defined by `LaTeX-catchfilebetweentags'.
+ENVIRONMENT is ignored."
+  (let* ((fn (when LaTeX-catchfilebetweentags-use-numeric-label
+   (LaTeX-catchfilebetweentags-counter-inc)))
+ (tag  (TeX-read-string
+(if fn (format "Tag (default %s): " fn) "Tag: ")
+nil nil (when fn (number-to-string fn)
+(unless (bolp)
+  (newline)
+  (delete-horizontal-space))
+(save-excursion
+  (insert (concat (format "%%<*%s>" tag)
+  "\n\n"
+  (format "%%" tag)
+  (forward-line))
+
+(TeX-add-style-hook
+ "catchfilebetweentags"
+ (lambda ()
+   (TeX-add-symbols
+'("ExecuteMetaData"
+  ;; Act like \include and not like \input:
+  [TeX-arg-input-file "File" t] "Tag")
+'("ExecuteMetaData*"
+  [TeX-arg-input-file "File" t] "Tag")
+
+'("CatchFileBetweenTags"
+  TeX-arg-define-macro (TeX-arg-input-file  "File-name" t) "Tag")
+'("CatchFileBetweenTags*"
+  TeX-arg-define-macro (TeX-arg-input-file  "File-name" t) "Tag")
+
+'("CatchFileBetweenDelims"
+  TeX-arg-define-macro (TeX-arg-input-file  "File-name" t)
+  "Start delimiter" "Stop delimiter" ["Setup"]))
+
+   (LaTeX-add-environment

[elpa] externals/auctex 567458f54f 07/23: Silence byte-compiler.

[Tassilo Horn]

branch: externals/auctex
commit 567458f54f83ed89e29b2b7bb3708843772c
Author: Tassilo Horn 
Commit: Tassilo Horn 

Silence byte-compiler.
---
 tex-bar.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/tex-bar.el b/tex-bar.el
index acb01c4d77..5c36f24b4f 100644
--- a/tex-bar.el
+++ b/tex-bar.el
@@ -458,6 +458,8 @@ format of the argument MEANING-ALIST in the mentioned 
function."
  (setq list-str-temp (cons (car i)
list-str-temp)))
(nreverse list-str-temp
+  ;; Will be defined by running LaTeX-install-toolbar.
+  (defvar LaTeX-symbols-active-menuitem)
   (defvar LaTeX-symbols-toolbar-visible-flag nil
 "Non-nil means that the LaTeX symbols on toolbar are visible.
 Internal variable.")

[elpa] externals/auctex 6b5f00bfac 01/23: Unquote lambdas in font-latex.el & tex-bar.el; add some FIXMEs

[Tassilo Horn]

branch: externals/auctex
commit 6b5f00bfaca715fe7fcbf30d5811cef22f4fd529
Author: Stefan Monnier 
Commit: Tassilo Horn 

Unquote lambdas in font-latex.el & tex-bar.el; add some FIXMEs

* font-latex.el (font-latex-match-math-env)
(font-latex-match-math-envII,font-latex-match-dollar-math)
(font-latex-match-quotation): Add FIXMEs.
* tex-bar.el (TeX-bar-TeX-button-alist)
(TeX-bar-LaTeX-button-alist,menu-strings-buttons-alist): Unquote lambdas.
---
 font-latex.el |  4 +++
 tex-bar.el| 91 ++-
 2 files changed, 50 insertions(+), 45 deletions(-)

diff --git a/font-latex.el b/font-latex.el
index 4406dea610..52c0fca11e 100644
--- a/font-latex.el
+++ b/font-latex.el
@@ -1804,6 +1804,7 @@ Used for patterns like:
 ;; If the closing tag is beyond the current end of
 ;; region, take care of it.
 (when (< font-latex--updated-region-end p)
+  ;; FIXME: Why?  Should this use `font-lock-flush'?
   (font-lock-unfontify-region font-latex--updated-region-end p)
   (setq font-latex--updated-region-end p))
 (store-match-data (list beg beg beg p)))
@@ -1883,6 +1884,7 @@ The \\begin{equation} incl. arguments in the same line and
  (+ limit font-latex-multiline-boundary) 'move)
   (progn
 (setq end (match-beginning 0))
+;; FIXME: Duplicate of code in `font-latex-match-math-env'.
 (if (< font-latex--updated-region-end limit)
 (setq font-latex--updated-region-end limit))
 (when (< font-latex--updated-region-end end)
@@ -1919,6 +1921,7 @@ The \\begin{equation} incl. arguments in the same line and
 (progn
   (forward-char num)
   (let ((p (point)))
+;; FIXME: Duplicate of code in `font-latex-match-math-env'.
 (if (< font-latex--updated-region-end limit)
 (setq font-latex--updated-region-end limit))
 (when (< font-latex--updated-region-end p)
@@ -2082,6 +2085,7 @@ set to `french', and >>german<< (and 8-bit) are used if 
set to `german'."
   (goto-char after-beg)
   (store-match-data (list after-beg after-beg beg after-beg)))
   (let ((p (point)))
+;; FIXME: Duplicate of code in `font-latex-match-math-env'.
 (if (< font-latex--updated-region-end limit)
 (setq font-latex--updated-region-end limit))
 (when (< font-latex--updated-region-end p)
diff --git a/tex-bar.el b/tex-bar.el
index 9df6c8700e..024a268d30 100644
--- a/tex-bar.el
+++ b/tex-bar.el
@@ -133,43 +133,43 @@ the argument BUTTON-ALIST in function 
`toolbarx-install-toolbar'."
   :group 'TeX-tool-bar-button-definitions)
 
 (defcustom TeX-bar-TeX-button-alist
-  '((tex :image (lambda nil (if TeX-PDF-mode "pdftex" "tex"))
+  `((tex :image ,(lambda nil (if TeX-PDF-mode "pdftex" "tex"))
  :command (progn
 (TeX-save-document #'TeX-master-file)
 (TeX-command "TeX" #'TeX-master-file -1))
- :help (lambda (&rest ignored)
- (TeX-bar-help-from-command-list "TeX")))
+ :help ,(lambda (&rest _ignored)
+  (TeX-bar-help-from-command-list "TeX")))
 (pdftex :image "pdftex"
 :command (progn
(TeX-save-document #'TeX-master-file)
(TeX-command "PDFTeX" #'TeX-master-file -1))
-:help (lambda (&rest ignored)
-(TeX-bar-help-from-command-list "PDFTeX")))
+:help ,(lambda (&rest _ignored)
+ (TeX-bar-help-from-command-list "PDFTeX")))
 (next-error :image "error"
 :command TeX-next-error
 :enable (TeX-error-report-has-errors-p)
 :visible (TeX-error-report-has-errors-p))
-(view :image (lambda nil (if TeX-PDF-mode "viewpdf" "viewdvi"))
+(view :image ,(lambda nil (if TeX-PDF-mode "viewpdf" "viewdvi"))
   :command (TeX-command "View" #'TeX-master-file -1)
-  :help (lambda (&rest ignored)
-  (TeX-bar-help-from-command-list "View")))
+  :help ,(lambda (&rest _ignored)
+   (TeX-bar-help-from-command-list "View")))
 (file :image "dvips"
   :command (TeX-command "File" #'TeX-master-file -1)
   :visible (not TeX-PDF-mode)
-  :help (lambda (&rest ignored)
-  (TeX-bar-help-from-command-list "File")))
+  :help ,(lambda (&rest _ignored)
+   (TeX-bar-help-from-command-list "File")))
 (bibtex :image "bibtex"
 :command (TeX-command "BibTeX" #'TeX-master-file -1)
-:help (lambda (&rest ignored)
-(TeX-bar-help-from-command-list "BibTeX")))
+   

[elpa] externals/auctex 99470f080d 06/23: Close over list-strings from outer scope.

[Tassilo Horn]

branch: externals/auctex
commit 99470f080d057b970ba00a61c9c97be8f60d1490
Author: Tassilo Horn 
Commit: Tassilo Horn 

Close over list-strings from outer scope.

* tex-bar.el (menu-strings-buttons-alist): Close over list-strings
from outer scope.
---
 tex-bar.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tex-bar.el b/tex-bar.el
index 810509bb14..acb01c4d77 100644
--- a/tex-bar.el
+++ b/tex-bar.el
@@ -479,7 +479,7 @@ Internal variable.")
 (if LaTeX-symbols-toolbar-visible-flag "off " "on ")
 "the toolbar of LaTeX symbols (current class: "
 (nth (1- LaTeX-symbols-active-menuitem)
- (quote ,list-strings))
+ list-strings)
 ")")))
   ;; the dropdown button, that also switch on the symbols
   ,(append '(:dropdown-group)

[elpa] externals/auctex updated (0029ca410f -> d22387d0d2)

[Tassilo Horn]

tsdh pushed a change to branch externals/auctex.

  from  0029ca410f Release GNU AUCTeX 13.1.4
   new  6b5f00bfac Unquote lambdas in font-latex.el & tex-bar.el; add some 
FIXMEs
   new  56b081e241 * tex.el (TeX-insert-macro): Use 'atomic-change-group'
   new  48db5bdf84 Restore compatibility for BSD sed
   new  324250f243 Support macros for key-val package or class options
   new  d58f4fdd7e Don't use RESULT arg of dolist.
   new  99470f080d Close over list-strings from outer scope.
   new  567458f54f Silence byte-compiler.
   new  10dbae9ab1 Add support for catchfilebetweentags package
   new  4004dc6b8f Simplify the function `LaTeX-array-update-column-letters'
   new  b36127cc74 * tex.el: Require seq.el for older Emacsen where not 
preloaded.
   new  fe801f9e4a Add support for the amsaddr package
   new  1e2e097106 * style/l3doc.el ("l3doc"): Fix entry for the "env" 
macro.
   new  07a8a3cf98 ; Use `TeX-dialect' in style/tcolorboxlib-theorems.el
   new  ae2922ce76 Update style/amsart.el
   new  16ef09b18c Override built-in tex-mode
   new  6baccb4054 Recognize '=' argument modifier
   new  9fc41106dc Add new style/parskip.el
   new  1e59481512 Improve interaction between fancyvrb.el and fvextra.el
   new  e2ce8ae4db Improve style/fvextra.el
   new  b302fdce1d Add missing argument for `TeX-argument-prompt'
   new  4c26ef9b0b ; Delete ineffective string escapes
   new  4a843073c5 Don't use `eval' on code
   new  d22387d0d2 Merge remote-tracking branch 'origin/master' into 
externals/auctex


Summary of changes:
 Makefile.in |  11 ++--
 font-latex.el   |   4 ++
 latex.el|  96 ++---
 style/{jura.el => amsaddr.el}   |  23 
 style/amsart.el | 109 +++--
 style/array.el  |  15 ++
 style/catchfilebetweentags.el   | 116 
 style/fancyvrb.el   |  29 +++---
 style/fvextra.el|  22 
 style/hologo.el |  10 ++--
 style/l3doc.el  |   7 ++-
 style/ltx-base.el   |  15 +-
 style/newfloat.el   |  19 +++
 style/{ifvtex.el => parskip.el} |  37 +++--
 style/tcolorboxlib-theorems.el  |   2 +-
 style/xparse.el |  16 +++---
 tex-bar.el  |  99 +-
 tex-site.el.in  |   7 ++-
 tex-style.el|   7 +++
 tex.el  |  10 ++--
 20 files changed, 460 insertions(+), 194 deletions(-)
 copy style/{jura.el => amsaddr.el} (68%)
 create mode 100644 style/catchfilebetweentags.el
 copy style/{ifvtex.el => parskip.el} (51%)

[elpa] externals/auctex d22387d0d2 23/23: Merge remote-tracking branch 'origin/master' into externals/auctex

[Tassilo Horn]

branch: externals/auctex
commit d22387d0d253ca8f9e25f75a53a5dd474a555bf7
Merge: 0029ca410f 4a843073c5
Author: Tassilo Horn 
Commit: Tassilo Horn 

Merge remote-tracking branch 'origin/master' into externals/auctex
---
 Makefile.in|  11 ++--
 font-latex.el  |   4 ++
 latex.el   |  96 +++---
 style/amsaddr.el   |  37 +
 style/amsart.el| 109 --
 style/array.el |  15 ++
 style/catchfilebetweentags.el  | 116 +
 style/fancyvrb.el  |  29 ---
 style/fvextra.el   |  22 
 style/hologo.el|  10 ++--
 style/l3doc.el |   7 ++-
 style/ltx-base.el  |  15 +-
 style/newfloat.el  |  19 +++
 style/parskip.el   |  50 ++
 style/tcolorboxlib-theorems.el |   2 +-
 style/xparse.el|  16 +++---
 tex-bar.el |  99 ++-
 tex-site.el.in |   7 ++-
 tex-style.el   |   7 +++
 tex.el |  10 ++--
 20 files changed, 518 insertions(+), 163 deletions(-)

diff --git a/Makefile.in b/Makefile.in
index 9d97eff36b..a2bb2d9db7 100644
--- a/Makefile.in
+++ b/Makefile.in
@@ -194,7 +194,8 @@ STYLESRC = style/prosper.el \
   style/ifpdf.el style/iftex.el style/ifvtex.el \
   style/ifxetex.el   style/multibib.el  style/ltcaption.el \
   style/keyval.elstyle/kvoptions.el style/kvsetkeys.el \
-  style/proc.el  style/microtype.el style/tcolorboxlib-theorems.el
+  style/proc.el  style/microtype.el style/tcolorboxlib-theorems.el 
\
+  style/amsaddr.el   style/parskip.el   style/catchfilebetweentags.el
 
 STYLEELC = $(STYLESRC:.el=.elc)
 
@@ -268,9 +269,11 @@ tex-site.el: tex-site.el.out auto-loads.el Makefile
cat auto-loads.el >>$@
echo "(provide 'tex-site)" >>$@ ; \
echo ";;; tex-site.el ends here" >>$@
-   sed -i -e "/^(provide 'auto-loads)/d" \
-  -e '/^;;; auto-loads.el ends here/d' \
-  -e 's/^\(;;; auto-loads.el.*\)\(   -\*- lexical-binding: t 
-\*-\)/\1/' $@
+   sed -i'.tmp' \
+   -e "/^(provide 'auto-loads)/d" \
+   -e '/^;;; auto-loads.el ends here/d' \
+   -e 's/^\(;;; auto-loads.el.*\)\(   -\*- lexical-binding: t 
-\*-\)/\1/' $@
+   -rm -f $@.tmp
 
 tex-site.el.out: tex-site.el.in Makefile config.status
./config.status
diff --git a/font-latex.el b/font-latex.el
index 4406dea610..52c0fca11e 100644
--- a/font-latex.el
+++ b/font-latex.el
@@ -1804,6 +1804,7 @@ Used for patterns like:
 ;; If the closing tag is beyond the current end of
 ;; region, take care of it.
 (when (< font-latex--updated-region-end p)
+  ;; FIXME: Why?  Should this use `font-lock-flush'?
   (font-lock-unfontify-region font-latex--updated-region-end p)
   (setq font-latex--updated-region-end p))
 (store-match-data (list beg beg beg p)))
@@ -1883,6 +1884,7 @@ The \\begin{equation} incl. arguments in the same line and
  (+ limit font-latex-multiline-boundary) 'move)
   (progn
 (setq end (match-beginning 0))
+;; FIXME: Duplicate of code in `font-latex-match-math-env'.
 (if (< font-latex--updated-region-end limit)
 (setq font-latex--updated-region-end limit))
 (when (< font-latex--updated-region-end end)
@@ -1919,6 +1921,7 @@ The \\begin{equation} incl. arguments in the same line and
 (progn
   (forward-char num)
   (let ((p (point)))
+;; FIXME: Duplicate of code in `font-latex-match-math-env'.
 (if (< font-latex--updated-region-end limit)
 (setq font-latex--updated-region-end limit))
 (when (< font-latex--updated-region-end p)
@@ -2082,6 +2085,7 @@ set to `french', and >>german<< (and 8-bit) are used if 
set to `german'."
   (goto-char after-beg)
   (store-match-data (list after-beg after-beg beg after-beg)))
   (let ((p (point)))
+;; FIXME: Duplicate of code in `font-latex-match-math-env'.
 (if (< font-latex--updated-region-end limit)
 (setq font-latex--updated-region-end limit))
 (when (< font-latex--updated-region-end p)
diff --git a/latex.el b/latex.el
index 59ba9cbfc6..ae8dd89f30 100644
--- a/latex.el
+++ b/latex.el
@@ -375,7 +375,7 @@ If so, return the second element, otherwise return nil."
 (defun LaTeX-outline-name ()
   "Guess a name for the current header line."
   (save-excursion
-(if (re-search-f

[elpa] externals/auctex 9fc41106dc 17/23: Add new style/parskip.el

[Tassilo Horn]

branch: externals/auctex
commit 9fc41106dc82e240959c1ecbe40536496fd43367
Author: Arash Esbati 
Commit: Arash Esbati 

Add new style/parskip.el

* Makefile.in (STYLESRC): Add new style.

* style/parskip.el: New file.
---
 Makefile.in  |  2 +-
 style/parskip.el | 50 ++
 2 files changed, 51 insertions(+), 1 deletion(-)

diff --git a/Makefile.in b/Makefile.in
index c56c03c22d..a2bb2d9db7 100644
--- a/Makefile.in
+++ b/Makefile.in
@@ -195,7 +195,7 @@ STYLESRC = style/prosper.el \
   style/ifxetex.el   style/multibib.el  style/ltcaption.el \
   style/keyval.elstyle/kvoptions.el style/kvsetkeys.el \
   style/proc.el  style/microtype.el style/tcolorboxlib-theorems.el 
\
-  style/amsaddr.el   style/catchfilebetweentags.el
+  style/amsaddr.el   style/parskip.el   style/catchfilebetweentags.el
 
 STYLEELC = $(STYLESRC:.el=.elc)
 
diff --git a/style/parskip.el b/style/parskip.el
new file mode 100644
index 00..861d4698ec
--- /dev/null
+++ b/style/parskip.el
@@ -0,0 +1,50 @@
+;;; parskip.el --- AUCTeX style for `parskip.sty' (v2.0h)  -*- 
lexical-binding: t; -*-
+
+;; Copyright (C) 2022 Free Software Foundation, Inc.
+
+;; Author: Arash Esbati 
+;; Maintainer: auctex-de...@gnu.org
+;; Created: 2022-10-07
+;; Keywords: tex
+
+;; This file is part of AUCTeX.
+
+;; AUCTeX is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 3, or (at your option)
+;; any later version.
+
+;; AUCTeX is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with AUCTeX; see the file COPYING.  If not, write to the Free
+;; Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
+;; 02110-1301, USA.
+
+;;; Commentary:
+
+;; This file adds support for `parskip.sty' (v2.0h) from 2021/03/14.
+;; `parskip.sty' is part of TeXLive.  Note that the parskip package
+;; doesn't offer any document user commands and just needs loading
+;; with \usepackage.  Hence this style provides only one function for
+;; key=val query of package options.
+
+;;; Code:
+
+(require 'tex)
+(require 'latex)
+
+(defun LaTeX-parskip-package-options ()
+  "Prompt for package options for the parskip package."
+  (let ((len (mapcar (lambda (x)
+   (concat TeX-esc (car x)))
+ (LaTeX-length-list
+(TeX-read-key-val t `(("skip",len)
+  ("tocskip" ,len)
+  ("indent"  ,len)
+  ("parfill" ,len)
+
+;;; parskip.el ends here

[elpa] externals/auctex 4a843073c5 22/23: Don't use `eval' on code

[Tassilo Horn]

branch: externals/auctex
commit 4a843073c53b0478c378a14b2774e4943dc15bdf
Author: Arash Esbati 
Commit: Arash Esbati 

Don't use `eval' on code

* latex.el (TeX-read-key-val, TeX-read-completing-read)
(TeX-read-completing-read-multiple): Replace usage of `eval' with
other clauses after a comment in this message:
https://lists.gnu.org/archive/html/emacs-devel/2022-08/msg01231.html
Adjust docstrings.

* style/hologo.el ("hologo"):
* style/newfloat.el ("newfloat"): Adjust the styles accordingly.
---
 latex.el  | 82 ++-
 style/hologo.el   | 10 +++
 style/newfloat.el | 19 ++---
 3 files changed, 58 insertions(+), 53 deletions(-)

diff --git a/latex.el b/latex.el
index 9bd2b6ac6b..ae8dd89f30 100644
--- a/latex.el
+++ b/latex.el
@@ -3222,24 +3222,31 @@ prompt string.  `LaTeX-default-author' is the initial 
input."
 (defun TeX-read-key-val (optional key-val-alist &optional prompt)
   "Prompt for keys and values in KEY-VAL-ALIST and return them.
 If OPTIONAL is non-nil, indicate in the prompt that we are
-reading an optional argument.  KEY-VAL-ALIST is an alist.  The
-car of each element should be a string representing a key and the
-optional cdr should be a list with strings to be used as values
-for the key.  KEY-VAL-ALIST can be a symbol or a function call
-returning an alist.  Use PROMPT as the prompt string."
+reading an optional argument.  KEY-VAL-ALIST can be
+  - A function call without arguments
+  - A function object
+  - A symbol returning an alist
+  - An alist
+
+The car of each element should be a string representing a key and
+the optional cdr should be a list with strings to be used as
+values for the key.  Use PROMPT as the prompt string."
   (multi-prompt-key-value
(TeX-argument-prompt optional prompt "Options (k=v)")
-   (cond ((and (symbolp key-val-alist)
+   (cond ((and (listp key-val-alist)
+   (symbolp (car key-val-alist))
+   (fboundp (car key-val-alist)))
+  (funcall (car key-val-alist)))
+ ((functionp key-val-alist)
+  (funcall key-val-alist))
+ ((and (symbolp key-val-alist)
(boundp key-val-alist))
   (symbol-value key-val-alist))
  ((and (listp key-val-alist)
-   (symbolp (car key-val-alist))
-   (fboundp (car key-val-alist)))
-  (if (> (length key-val-alist) 1)
-  (eval key-val-alist t)
-(funcall (car key-val-alist
+   (listp (car key-val-alist)))
+  key-val-alist)
  (t
-  key-val-alist
+  (error "Cannot interpret key-val-alist %S" key-val-alist)
 
 (defun TeX-arg-key-val (optional key-val-alist &optional prompt)
   "Prompt for keys and values in KEY-VAL-ALIST.
@@ -3247,9 +3254,8 @@ Insert the given value as a TeX macro argument.  If 
OPTIONAL is
 non-nil, insert it as an optional argument.  KEY-VAL-ALIST is an
 alist.  The car of each element should be a string representing a
 key and the optional cdr should be a list with strings to be used
-as values for the key.  KEY-VAL-ALIST can be a symbol or a
-function call returning an alist.  Use PROMPT as the prompt
-string."
+as values for the key.  Refer to `TeX-read-key-val' for more
+about KEY-VAL-ALIST.  Use PROMPT as the prompt string."
   (let ((options (TeX-read-key-val optional key-val-alist prompt)))
 (TeX-argument-insert options optional)))
 
@@ -3262,9 +3268,10 @@ If OPTIONAL is non-nil, indicate it in the prompt.
 
 COLLECTION provides elements for completion and is passed to
 `completing-read'.  It can be:
-  - A List or an alist
+  - A function call without arguments
+  - A function object
   - A symbol returning a list
-  - A function call
+  - A List
 
 PROMPT replaces the standard one where \\=' (cr): \\=' is appended to
 it.  If you want the full control over the prompt, set COMPLETE
@@ -3281,15 +3288,15 @@ INHERIT-INPUT-METHOD are passed to `completing-read', 
which see."
   (t nil))
 "Option (cr)"
 complete)
-   (cond ((and (symbolp collection)
-   (boundp collection))
-  (symbol-value collection))
- ((and (listp collection)
+   (cond ((and (listp collection)
(symbolp (car collection))
(fboundp (car collection)))
-  (if (> (length collection) 1)
-  (eval collection t)
-(funcall (car collection
+  (funcall (car collection)))
+ ((functionp collection)
+  (funcall collection))
+ ((and (symbolp collection)
+   (boundp collection))
+  (symbol-value collection))
  (t collection))
predicate require-match initial-input hist def inherit-input-method))
 
@@ -3303,7 +3310,7 @@ If OPTIONAL is non-nil, indicate it in the minibuffer and 
insert
 the result in brackets if not empty.  The brac

[elpa] externals/auctex 1e2e097106 12/23: * style/l3doc.el ("l3doc"): Fix entry for the "env" macro.

[Tassilo Horn]

branch: externals/auctex
commit 1e2e0971063b928301e0259421ac81bb641a4941
Author: Arash Esbati 
Commit: Arash Esbati 

* style/l3doc.el ("l3doc"): Fix entry for the "env" macro.
---
 style/l3doc.el | 7 +++
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/style/l3doc.el b/style/l3doc.el
index 8364e74e94..69ae346b39 100644
--- a/style/l3doc.el
+++ b/style/l3doc.el
@@ -184,10 +184,9 @@ For syntax environment from l3doc class."
 '("parg" "Picture mode argument")
 
 '("file" "File name")
-'("env" LaTeX-env-args
-  (TeX-arg-eval completing-read
-(TeX-argument-prompt nil nil "Environment")
-(LaTeX-environment-list)))
+'("env" (TeX-arg-eval completing-read
+  (TeX-argument-prompt nil nil "Environment")
+  (LaTeX-environment-list)))
 '("pkg" "Package name")
 '("cls" "Class name")
 

[elpa] externals/auctex 4c26ef9b0b 21/23: ; Delete ineffective string escapes

[Tassilo Horn]

branch: externals/auctex
commit 4c26ef9b0b0aa72fa660f85ec5bc8bd206732995
Author: Arash Esbati 
Commit: Arash Esbati 

; Delete ineffective string escapes

* latex.el (LaTeX-outline-name)
(TeX-arg-verb-delim-or-brace)
(LaTeX-error-description-list):
* tex.el (TeX-submit-bug-report): Delete ineffective string
escapes reported by relint.
---
 latex.el | 8 
 tex.el   | 2 +-
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/latex.el b/latex.el
index 9e5cff3d9d..9bd2b6ac6b 100644
--- a/latex.el
+++ b/latex.el
@@ -375,7 +375,7 @@ If so, return the second element, otherwise return nil."
 (defun LaTeX-outline-name ()
   "Guess a name for the current header line."
   (save-excursion
-(if (re-search-forward "{\\([^\}]*\\)}" (+ (point) fill-column 10) t)
+(if (re-search-forward "{\\([^}]*\\)}" (+ (point) fill-column 10) t)
 (match-string 1)
   (buffer-substring (point) (min (point-max) (+ 20 (point)))
 
@@ -2900,7 +2900,7 @@ The compatibility argument OPTIONAL and IGNORE are 
ignored."
 If OPTIONAL, indicate optional argument in minibuffer.  PROMPT is
 a string replacing the default one when asking the user for text.
 This function is intended for \\verb like macros which take their
-argument in delimiters like \"\| \|\" or braces \"\{ \}\"."
+argument in delimiters like \"| |\" or braces \"{ }\"."
   (let ((del (read-quoted-char
   (concat "Delimiter (default "
   (char-to-string LaTeX-default-verb-delimiter) "): "
@@ -6772,13 +6772,13 @@ you did something too clever, or AUCTeX something too 
stupid.")
 
 ("Bad line or vector argument.*" .
  "The first argument of a \\line or \\vector command, which specifies the
-slope, is illegal\.")
+slope, is illegal.")
 
 ("Bad math environment delimiter.*" .
  "TeX has found either a math-mode-starting command such as \\[ or \\(
 when it is already in math mode, or else a math-mode-ending command
 such as \\) or \\] while in LR or paragraph mode.  The problem is caused
-by either unmatched math mode delimiters or unbalanced braces\.")
+by either unmatched math mode delimiters or unbalanced braces.")
 
 ("Bad use of .*" .
  "A  command appears between paragraphs, where it makes no sense. This
diff --git a/tex.el b/tex.el
index e6f09d8fb5..e9690b9c4d 100644
--- a/tex.el
+++ b/tex.el
@@ -6308,7 +6308,7 @@ available from ")
 (insert " if your
 installation is older than the one available from the web site.
 
-If the bug is triggered by a specific \(La\)TeX file, you should try
+If the bug is triggered by a specific (La)TeX file, you should try
 to produce a minimal sample file showing the problem and include it
 in your report.
 

[elpa] externals/auctex c569c7d486: Release GNU AUCTeX 13.1.5

[Tassilo Horn]

branch: externals/auctex
commit c569c7d486624ac7a5bb924ca92c41e80a58091f
Author: Tassilo Horn 
Commit: Tassilo Horn 

Release GNU AUCTeX 13.1.5

* GNU AUCTeX Version 13.1.5 released.
---
 auctex.el  |  2 +-
 auctex.info|  4 ++--
 preview-latex.info |  4 ++--
 tex-site.el| 11 ---
 4 files changed, 13 insertions(+), 8 deletions(-)

diff --git a/auctex.el b/auctex.el
index 5067831d55..fef62e4886 100644
--- a/auctex.el
+++ b/auctex.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 2014-2021 Free Software Foundation, Inc.
 
-;; Version: 13.1.4
+;; Version: 13.1.5
 ;; URL: https://www.gnu.org/software/auctex/
 ;; Maintainer: auctex-de...@gnu.org
 ;; Notifications-To: auctex-di...@gnu.org
diff --git a/auctex.info b/auctex.info
index af911d2682..878bf20772 100644
--- a/auctex.info
+++ b/auctex.info
@@ -1,6 +1,6 @@
 This is auctex.info, produced by makeinfo version 6.8 from auctex.texi.
 
-This manual is for AUCTeX (version 13.1.4 from 2022-08-26), a
+This manual is for AUCTeX (version 13.1.5 from 2022-10-20), a
 sophisticated TeX environment for Emacs.
 
Copyright (C) 1992-1995, 2001, 2002, 2004-2022 Free Software
@@ -6143,7 +6143,7 @@ A.1 Copying this Manual
 
 The copyright notice for this manual is:
 
-   This manual is for AUCTeX (version 13.1.4 from 2022-08-26), a
+   This manual is for AUCTeX (version 13.1.5 from 2022-10-20), a
 sophisticated TeX environment for Emacs.
 
Copyright (C) 1992-1995, 2001, 2002, 2004-2022 Free Software
diff --git a/preview-latex.info b/preview-latex.info
index 452fd99fff..90864ea020 100644
--- a/preview-latex.info
+++ b/preview-latex.info
@@ -2,7 +2,7 @@ This is preview-latex.info, produced by makeinfo version 6.8 
from
 preview-latex.texi.
 
 This manual is for preview-latex, a LaTeX preview mode for AUCTeX
-(version 13.1.4 from 2022-08-26).
+(version 13.1.5 from 2022-10-20).
 
Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2017-2019, 2021
 Free Software Foundation, Inc.
@@ -1922,7 +1922,7 @@ Appendix C Copying this Manual
 The copyright notice for this manual is:
 
This manual is for preview-latex, a LaTeX preview mode for AUCTeX
-(version 13.1.4 from 2022-08-26).
+(version 13.1.5 from 2022-10-20).
 
Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2017-2019, 2021
 Free Software Foundation, Inc.
diff --git a/tex-site.el b/tex-site.el
index 41dd4aa704..7f887f5d9e 100644
--- a/tex-site.el
+++ b/tex-site.el
@@ -107,7 +107,12 @@ functions into the respective function cell of the mode."
   (setq elt (car (pop list)))
   (let ((dst (intern (concat "TeX-" (symbol-name elt)
 (if (memq elt value)
-(advice-add elt :override dst)
+(advice-add elt :override dst
+;; COMPATIBILITY for Emacs 28.[12]
+;; Give it higher precedence than the :around
+;; advice given to `tex-mode' in tex-mode.el.
+;; 
https://lists.gnu.org/r/auctex-devel/2022-09/msg00050.html>
+'((depth . -10)))
   (advice-remove elt dst))
 
 (defcustom TeX-modes
@@ -121,11 +126,11 @@ set it with `TeX-modes-set'."
   :set #'TeX-modes-set
   :initialize #'custom-initialize-reset)
 
-(defconst AUCTeX-version "13.1.4"
+(defconst AUCTeX-version "13.1.5"
 "AUCTeX version.
 If not a regular release, the date of the last change.")
 
-(defconst AUCTeX-date "2022-08-26"
+(defconst AUCTeX-date "2022-10-20"
   "AUCTeX release date using the ISO 8601 format, -mm-dd.")
 
 ;; Store bibitems when saving a BibTeX buffer

[elpa] externals/auctex 07a8a3cf98 13/23: ; Use `TeX-dialect' in style/tcolorboxlib-theorems.el

[Tassilo Horn]

branch: externals/auctex
commit 07a8a3cf9886466384f7f2f4bd452e4c2961
Author: Arash Esbati 
Commit: Arash Esbati 

; Use `TeX-dialect' in style/tcolorboxlib-theorems.el

* style/tcolorboxlib-theorems.el ("tcolorboxlib-theorems"): Use
`TeX-dialect' instead of obsolete `LaTeX-dialect'.
---
 style/tcolorboxlib-theorems.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/style/tcolorboxlib-theorems.el b/style/tcolorboxlib-theorems.el
index 8c4eb7d44c..20aa710d47 100644
--- a/style/tcolorboxlib-theorems.el
+++ b/style/tcolorboxlib-theorems.el
@@ -312,6 +312,6 @@ empty."
  (font-latex-add-keywords '(("newtcbtheorem"   "[")
 ("renewtcbtheorem" "["))
   'function)))
- LaTeX-dialect)
+ TeX-dialect)
 
 ;;; tcolorboxlib-theorems.el ends here

[elpa] externals/auctex 1e59481512 18/23: Improve interaction between fancyvrb.el and fvextra.el

[Tassilo Horn]

branch: externals/auctex
commit 1e59481512cacefeb59f26e06d6b11025e870691
Author: Arash Esbati 
Commit: Arash Esbati 

Improve interaction between fancyvrb.el and fvextra.el

* style/fancyvrb.el ("fancyvrb"): Check if the fvextra package is
loaded which allows \Verb and \SaveVerb macros to take the
mandatory argument in braces.
Add starred version of \Verb and \UseVerb macros.
Adjust fontification entry for \UseVerb.
---
 style/fancyvrb.el | 29 +
 1 file changed, 21 insertions(+), 8 deletions(-)

diff --git a/style/fancyvrb.el b/style/fancyvrb.el
index 22e52c269f..a9ea0a44bf 100644
--- a/style/fancyvrb.el
+++ b/style/fancyvrb.el
@@ -1,6 +1,6 @@
-;;; fancyvrb.el --- AUCTeX style for `fancyvrb.sty' version 3.6.  -*- 
lexical-binding: t; -*-
+;;; fancyvrb.el --- AUCTeX style for `fancyvrb.sty' version 4.5.  -*- 
lexical-binding: t; -*-
 
-;; Copyright (C) 2013, 2014, 2016-2021 Free Software Foundation, Inc.
+;; Copyright (C) 2013, 2014, 2016-2022 Free Software Foundation, Inc.
 
 ;; Maintainer: auctex-de...@gnu.org
 ;; Author: Mosè Giordano 
@@ -25,7 +25,7 @@
 
 ;;; Commentary:
 
-;; This file adds support for `fancyvrb.sty' version 3.6.
+;; This file adds support for `fancyvrb.sty' version 4.5.
 
 ;; This style has some capabilities to parse user defined macros,
 ;; environments and saved blocks with `SaveVerbatim' environments and
@@ -571,9 +571,15 @@ ENV is the name of current environment as a string."
 ;; Verbatim material in footnotes
 "VerbatimFootnotes"
 ;; Improved verbatim commands
-'("Verb" [TeX-arg-key-val (LaTeX-fancyvrb-key-val-options)] TeX-arg-verb)
-;; \Verb also has a starred version:
-'("Verb*" [TeX-arg-key-val (LaTeX-fancyvrb-key-val-options)] TeX-arg-verb)
+'("Verb" [TeX-arg-key-val (LaTeX-fancyvrb-key-val-options)]
+  (TeX-arg-conditional (member "fvextra" (TeX-style-list))
+   (TeX-arg-verb-delim-or-brace)
+   (TeX-arg-verb)))
+;; \Verb also has a starred version
+'("Verb*" [TeX-arg-key-val (LaTeX-fancyvrb-key-val-options)]
+  (TeX-arg-conditional (member "fvextra" (TeX-style-list))
+   (TeX-arg-verb-delim-or-brace)
+   (TeX-arg-verb)))
 '("DefineShortVerb" (TeX-arg-eval
  TeX-read-string
  (TeX-argument-prompt nil nil "Character")
@@ -618,11 +624,18 @@ ENV is the name of current environment as a string."
   (TeX-argument-prompt nil nil "Save name"
(LaTeX-add-fancyvrb-saveverbs name)
(format "%s" name
-  TeX-arg-verb)
+  (TeX-arg-conditional (member "fvextra" (TeX-style-list))
+   (TeX-arg-verb-delim-or-brace)
+   (TeX-arg-verb)))
 '("UseVerb" (TeX-arg-eval
  completing-read
  (TeX-argument-prompt nil nil "Saved name")
  (LaTeX-fancyvrb-saveverb-list)))
+;; \UseVerb also has a starred version
+'("UseVerb*" (TeX-arg-eval
+  completing-read
+  (TeX-argument-prompt nil nil "Saved name")
+  (LaTeX-fancyvrb-saveverb-list)))
 '("UseVerbatim" (TeX-arg-eval completing-read
   (TeX-argument-prompt nil nil "Saved name")
   (LaTeX-fancyvrb-saveverbatim-list)))
@@ -758,7 +771,7 @@ ENV is the name of current environment as a string."
   'reference)
  (font-latex-add-keywords '(("Verb" "*[") ; The second argument is 
verbatim.
 ("SaveVerb" "[{")
-("UseVerb"  "{")
+("UseVerb"  "*{")
 ("UseVerbatim"  "{")
 ("LUseVerbatim" "{")
 ("BUseVerbatim" "{"))

[elpa] externals/auctex b302fdce1d 20/23: Add missing argument for `TeX-argument-prompt'

[Tassilo Horn]

branch: externals/auctex
commit b302fdce1d87ad1abd74de630d45e4eb561c50b8
Author: Arash Esbati 
Commit: Arash Esbati 

Add missing argument for `TeX-argument-prompt'

* latex.el (TeX-read-completing-read)
(TeX-read-completing-read-multiple): Fix the value of third
argument of `TeX-argument-prompt'.
---
 latex.el | 6 --
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/latex.el b/latex.el
index 59ba9cbfc6..9e5cff3d9d 100644
--- a/latex.el
+++ b/latex.el
@@ -3278,7 +3278,8 @@ INHERIT-INPUT-METHOD are passed to `completing-read', 
which see."
(concat prompt " (cr)"))
   ((and prompt complete)
prompt)
-  (t "Option (cr)"))
+  (t nil))
+"Option (cr)"
 complete)
(cond ((and (symbolp collection)
(boundp collection))
@@ -3340,7 +3341,8 @@ INHERIT-INPUT-METHOD are passed to
(concat prompt " (crm)"))
   ((and prompt complete)
prompt)
-  (t "Options (crm)"))
+  (t nil))
+"Options (crm)"
 complete)
(cond ((and (symbolp table)
(boundp table))

[elpa] externals/auctex e2ce8ae4db 19/23: Improve style/fvextra.el

[Tassilo Horn]

branch: externals/auctex
commit e2ce8ae4db3168d46971fea55cec21f227b74f20
Author: Arash Esbati 
Commit: Arash Esbati 

Improve style/fvextra.el

* style/fvextra.el: Don't require cl-lib, `cl-pushnew' isn't used.
(font-latex-set-syntactic-keywords): Declare the function.
("fvextra"): Add \Verb*? and \EscVerb*? to
`LaTeX-verbatim-macros-with-braces-local'.
Update fontification rules.
---
 style/fvextra.el | 22 +++---
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/style/fvextra.el b/style/fvextra.el
index 3109216923..3bb11e811d 100644
--- a/style/fvextra.el
+++ b/style/fvextra.el
@@ -1,6 +1,6 @@
 ;;; fvextra.el --- AUCTeX style for `fvextra.sty' (v1.4)  -*- lexical-binding: 
t; -*-
 
-;; Copyright (C) 2017--2021 Free Software Foundation, Inc.
+;; Copyright (C) 2017--2022 Free Software Foundation, Inc.
 
 ;; Author: Arash Esbati 
 ;; Maintainer: auctex-de...@gnu.org
@@ -34,14 +34,12 @@
 (require 'tex)
 (require 'latex)
 
-;; Needed for compiling `cl-pushnew':
-(eval-when-compile
-  (require 'cl-lib))
-
 ;; Silence the compiler:
 (declare-function font-latex-add-keywords
   "font-latex"
   (keywords class))
+(declare-function font-latex-set-syntactic-keywords
+  "font-latex")
 
 (declare-function LaTeX-color-definecolor-list "color" ())
 (declare-function LaTeX-xcolor-definecolor-list "xcolor" ())
@@ -138,11 +136,12 @@
 "FancyVerbBreakBeforeBreak"
 "FancyVerbBreakAfterBreak")
 
-   ;; Add \EscVerb*? to `LaTeX-verbatim-macros-with-braces-local':
-   (add-to-list 'LaTeX-verbatim-macros-with-braces-local
-"EscVerb" t)
-   (add-to-list 'LaTeX-verbatim-macros-with-braces-local
-"EscVerb*" t)
+   ;; Add \Verb*? and \EscVerb*? to
+   ;; `LaTeX-verbatim-macros-with-braces-local':
+   (let ((macs '("Verb" "Verb*"
+ "EscVerb" "EscVerb*")))
+ (dolist (mac macs)
+   (add-to-list 'LaTeX-verbatim-macros-with-braces-local mac t)))
 
;; Fontification
(when (and (fboundp 'font-latex-add-keywords)
@@ -150,7 +149,8 @@
  (font-latex-add-keywords '(("fvinlineset" "{"))
   'function)
  (font-latex-add-keywords '(("EscVerb" "*["))
-  'textual)))
+  'textual)
+ (font-latex-set-syntactic-keywords)))
  TeX-dialect)
 
 (defvar LaTeX-fvextra-package-options nil

[elpa] externals/auctex ae2922ce76 14/23: Update style/amsart.el

[Tassilo Horn]

branch: externals/auctex
commit ae2922ce76f8b068e8d036117094bc07ed95674a
Author: Arash Esbati 
Commit: Arash Esbati 

Update style/amsart.el

* style/amsart.el: Add missing header.
(LaTeX-amsart-class-options): New variable.
("amsart"): Update the style hook for the macros provided by the
class.
---
 style/amsart.el | 109 +---
 1 file changed, 105 insertions(+), 4 deletions(-)

diff --git a/style/amsart.el b/style/amsart.el
index 7f93f1af3f..67a587a49e 100644
--- a/style/amsart.el
+++ b/style/amsart.el
@@ -1,16 +1,117 @@
 ;;; amsart.el --- Style hook for the AMS-LaTeX article document class.  -*- 
lexical-binding: t; -*-
 
+;; Copyright (C) 1994-2022 Free Software Foundation, Inc.
+
+;; Author: Per Abrahamsen 
+;; Maintainer: auctex-de...@gnu.org
+;; Created: 1994-01-05
+;; Keywords: tex
+
+;; This file is part of AUCTeX.
+
+;; AUCTeX is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 3, or (at your option)
+;; any later version.
+
+;; AUCTeX is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with AUCTeX; see the file COPYING.  If not, write to the Free
+;; Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
+;; 02110-1301, USA.
+
 ;;; Code:
 
 (require 'tex)
 (require 'latex)
 
+;; Silence the compiler:
+(declare-function font-latex-add-keywords
+  "font-latex"
+  (keywords class))
+(declare-function font-latex-set-syntactic-keywords
+  "font-latex")
+
+(defvar LaTeX-amsart-class-options
+  '("a4paper" "letterpaper" "landscape" "portrait"
+"twoside" "oneside" "draft" "final"
+"8pt" "9pt" "10pt" "11pt" "12pt"
+"titlepage" "notitlepage" "onecolumn" "twocolumn"
+"leqno" "reqno" "centertags" "tbtags" "fleqn"
+"nomath" "noamsfonts" "psamsfonts")
+  "Class options for the amsart class.")
+
 (TeX-add-style-hook
  "amsart"
- (function
-  (lambda ()
-(TeX-run-style-hooks "amsmath" "amsthm")
-(LaTeX-add-environments "abstract")))
+ (lambda ()
+
+   ;; Load amsmath.el if the option nomath isn't given:
+   (unless (LaTeX-provided-class-options-member "amsart" "nomath")
+ (TeX-run-style-hooks "amsmath"))
+   ;; Same for amsfonts.el:
+   (unless (LaTeX-provided-class-options-member "amsart" "noamsfonts")
+ (TeX-run-style-hooks "amsfonts"))
+   ;; amsthm is built-in:
+   (TeX-run-style-hooks "amsthm")
+
+   (TeX-add-symbols
+'("address" 1)
+'("author" ["Short author(s)"] (LaTeX-arg-author "Long author(s)"))
+'("curraddr" 1)
+'("dedicatory" 1)
+'("email" 1)
+'("keywords" 1)
+'("subjclass" ["Year"] "List of subjects")
+'("title" ["Short Title"] "Title")
+'("urladdr" 1))
+
+   (LaTeX-add-environments "abstract")
+
+   (LaTeX-largest-level-set "section")
+   (LaTeX-add-counters "part" "section" "subsection" "subsubsection"
+   "paragraph" "subparagraph"
+   "figure" "table")
+   (LaTeX-add-pagestyles "headings" "myheadings")
+
+   ;; Tell AUCTeX about \specialsection:
+   (LaTeX-section-list-add-locally '("specialsection" 2))
+   (LaTeX-paragraph-commands-add-locally "specialsection")
+   (add-to-list (make-local-variable 'LaTeX-section-label)
+'("specialsection" . "sec:")
+t)
+
+   ;; Tell RefTeX about \specialsection and append the entry to
+   ;; `reftex-section-levels':
+   (when (boundp 'reftex-section-levels)
+ (add-to-list (make-local-variable 'reftex-section-levels)
+  '("specialsection" . 2)
+  t))
+
+   ;; These macros will contain links etc., so treat the argument
+   ;; verbatim:
+   (add-to-list 'LaTeX-verbatim-macros-with-braces-local "email")
+   (add-to-list 'LaTeX-verbatim-macros-with-braces-local "urladdr")
+
+   ;; Fontification
+   (when (and (featurep 'font-latex)
+  (eq TeX-install-font-lock 'font-latex-setup))
+ (font-latex-add-keywords '(("author"  "[{")
+("contrib" "[{")
+("curraddr""{")
+("dedicatory"  "{")
+("keywords""{")
+("subjclass"   "[{")
+("title"   "[{")
+("email"   "")
+("urladdr" ""))
+  'textual)
+ (font-latex-add-keywords '(("specialsection" "{"))
+  'sectioning-2)
+ (font-latex-set-syntactic-keywords)))
  TeX-dialect)
 
 ;;; amsart

[elpa] externals/auctex 4004dc6b8f 09/23: Simplify the function `LaTeX-array-update-column-letters'

[Tassilo Horn]

branch: externals/auctex
commit 4004dc6b8f61d45ebdc9dc750e25c6fe024b855e
Author: Arash Esbati 
Commit: Arash Esbati 

Simplify the function `LaTeX-array-update-column-letters'

* style/array.el (LaTeX-array-update-column-letters): Simplify by
using seq-functions.  Fix docstring.
---
 style/array.el | 15 +--
 1 file changed, 5 insertions(+), 10 deletions(-)

diff --git a/style/array.el b/style/array.el
index be7baf3610..b564e055e3 100644
--- a/style/array.el
+++ b/style/array.el
@@ -1,6 +1,6 @@
 ;;; array.el --- AUCTeX style for `array.sty'  -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2013-2021  Free Software Foundation, Inc.
+;; Copyright (C) 2013-2022  Free Software Foundation, Inc.
 
 ;; Author: Mads Jensen 
 ;; Maintainer: auctex-de...@gnu.org
@@ -56,16 +56,11 @@ package.")
 (LaTeX-array-update-column-letters)))
 
 (defun LaTeX-array-update-column-letters ()
-  "Update and uniquify the value of `LaTeX-array-column-letters'
-and make it buffer local. "
+  "Update and uniquify the local value of `LaTeX-array-column-letters'."
   (set (make-local-variable 'LaTeX-array-column-letters)
-   (mapconcat #'identity
-  (TeX-delete-duplicate-strings
-   (split-string
-(concat LaTeX-array-column-letters
-(mapconcat #'car (LaTeX-array-newcolumntype-list) 
""))
-"" t))
-  "")))
+   (let* ((newtypes (mapconcat #'car (LaTeX-array-newcolumntype-list) ""))
+  (alltypes (concat LaTeX-array-column-letters newtypes)))
+ (seq-concatenate 'string (seq-uniq alltypes #'=)
 
 (add-hook 'TeX-auto-prepare-hook #'LaTeX-array-auto-prepare t)
 (add-hook 'TeX-auto-cleanup-hook #'LaTeX-array-auto-cleanup t)

[elpa] externals/auctex d58f4fdd7e 05/23: Don't use RESULT arg of dolist.

[Tassilo Horn]

branch: externals/auctex
commit d58f4fdd7efc031cbd9251864ca375e53f3e1a77
Author: Tassilo Horn 
Commit: Tassilo Horn 

Don't use RESULT arg of dolist.

* tex-bar.el (menu-strings-buttons-alist): Don't use RESULT arg of
dolist.
---
 tex-bar.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/tex-bar.el b/tex-bar.el
index 024a268d30..810509bb14 100644
--- a/tex-bar.el
+++ b/tex-bar.el
@@ -454,10 +454,10 @@ format of the argument MEANING-ALIST in the mentioned 
function."
   (cons (cons menu-str (list menu-buttons))
 menu-strings-alist-temp)))
(list-strings (let* ((list-str-temp))
-   (dolist (i menu-strings-buttons-alist
-  (nreverse list-str-temp))
+   (dolist (i menu-strings-buttons-alist)
  (setq list-str-temp (cons (car i)
-   list-str-temp))
+   list-str-temp)))
+   (nreverse list-str-temp
   (defvar LaTeX-symbols-toolbar-visible-flag nil
 "Non-nil means that the LaTeX symbols on toolbar are visible.
 Internal variable.")

[nongnu] elpa/sweeprolog a6eac1467d: ENHANCED: load and initialize sweep-module just-in-time

[ELPA Syncer]

branch: elpa/sweeprolog
commit a6eac1467d9a53b67e3bed05ad0366cce7b95c88
Author: Eshel Yaron 
Commit: Eshel Yaron 

ENHANCED: load and initialize sweep-module just-in-time

Instead of loading sweep-module and initializing Prolog as part of
loading sweeprolog.el (subject to the user option
sweeprolog-init-on-load), this commit introduces just-in-time loading
and initialization of Prolog.  Suggested by Stefan Monnier.

* sweeprolog.el: (sweeprolog--open-query): new function, wraps
sweeprolog-open-query and initializes Prolog on the first call. Used
in place of sweeprolog-open-query throughout.
(sweeprolog-init-on-load): make variable obsolete.
---
 NEWS.org  |  16 +
 README.org|  19 +++---
 sweep.pl  |   2 +-
 sweeprolog.el | 197 +-
 4 files changed, 139 insertions(+), 95 deletions(-)

diff --git a/NEWS.org b/NEWS.org
index 4f589361af..0284cfd43e 100644
--- a/NEWS.org
+++ b/NEWS.org
@@ -11,6 +11,22 @@ SWI-Prolog in Emacs.
 For further details, please consult the manual:
 .
 
+* Version 0.7.2 on 2022-10-20
+
+** ~sweep-module~ is now loaded on-demand
+
+Previously, loading =sweeprolog.el= with e.g. ~(require 'sweeprolog)~
+would cause Emacs to also load =sweep-module= immediately, unless the
+user option ~sweeprolog-init-on-load~ had been explicitly set by the
+user to nil.  This version implements lazy loading of =sweep-module=,
+which makes loading =sweeprolog.el= a lot faster and circumvents
+potential problems with byte-compiling Elisp files that depend on
+=sweeprolog.el= but do not have =sweep-module= available at compile time.
+
+** Newly deprecated user option ~sweeprolog-init-on-load~
+
+The embedded Prolog is now loaded and initiated lazily, regardless of
+the value of ~sweeprolog-init-on-load~, which is now obsolete.
 
 * Version 0.7.1 on 2022-10-19
 
diff --git a/README.org b/README.org
index 28fc8cf995..d5b65968f7 100644
--- a/README.org
+++ b/README.org
@@ -141,10 +141,11 @@ line arguments, where the first argument to 
=sweeprolog-initialize=
 corresponds to =argv[0]=.
 
 #+VINDEX: sweeprolog-init-args
-By default, =sweeprolog.el= will initialize Prolog automatically when it is
-loaded into Emacs.  The arguments used to initialize Prolog in that
-case are determined by the value of the user-option =sweeprolog-init-args=
-which the user is free to extend with e.g.:
+~sweep~ loads and initializes Prolog on-demand at the first invocation
+of a command that requires the embedded Prolog.  The arguments used to
+initialize Prolog in case are determined by the value of the
+user-option ~sweeprolog-init-args~ which the user is free to extend with
+e.g.:
 
 #+begin_src emacs-lisp
   (add-to-list 'sweeprolog-init-args "--stack-limit=512m")
@@ -155,15 +156,11 @@ The default value of ~sweeprolog-init-args~ is set to 
load the Prolog
 helper library =sweep.pl= and to create a boolean Prolog flag ~sweep~, set
 to ~true~, which indicates to SWI-Prolog that it is running under ~sweep~.
 
-#+VINDEX: sweeprolog-init-on-load
-To inhibit =sweeprolog= from initializing Prolog on load, set the user-option
-=sweeprolog-init-on-load= to nil.
-
 #+FINDEX: sweeprolog-restart
 The embedded Prolog runtime can be reset using the command
-=sweeprolog-restart=.  This command cleans up the the Prolog state and
+~sweeprolog-restart~.  This command cleans up the the Prolog state and
 resources, and starts it anew.  When called with a prefix argument
-(=C-u M-x sweeprolog-restart=), this command prompts the user for
+(~C-u M-x sweeprolog-restart~), this command prompts the user for
 additional initialization arguments to pass to the embedded Prolog
 runtime on startup.
 
@@ -1332,7 +1329,7 @@ there some further improvements that we want to pursue:
 
 - Provide right-click (~mouse-3~) menus with ~context-menu-mode~ :: To
   accommodate users who prefer a mouse-based workflow, ~sweeprolog-mode~
-  should provide right-click context-aware menus by integrating with
+  should provide context-aware right-click menus by integrating with
   ~context-menu-mode~.
 
 - Provide descriptions for tokens by setting their ~help-echo~ propety :: We
diff --git a/sweep.pl b/sweep.pl
index 4699803c66..27b169daf9 100644
--- a/sweep.pl
+++ b/sweep.pl
@@ -142,8 +142,8 @@ sweep_colourise_buffer_(Path0, Contents, []) :-
 set_stream(Contents, encoding(utf8)),
 set_stream(Contents, file_name(Path)),
 get_time(Time),
-asserta(sweep_open(Path, Contents), Ref0),
 asserta(sweep_source_time(Path, Time), Ref1),
+asserta(sweep_open(Path, Contents), Ref0),
 xref_source(Path, [comments(store)]),
 seek(Contents, 0, bof, _),
 retractall(sweep_current_comment(_, _, _)),
diff --git a/sweeprolog.el b/sweeprolog.el
index 3c1d9d7be7..54812e25f3 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Eshel Yaron <~eshel/d...@lists.sr.ht>
 ;; Keywords: prolog languages

[nongnu] elpa/xah-fly-keys e24ea8b680 2/3: changed repeat key to backspace, was -, for repeatable commands xah-reformat-to-sentence-lines, xah-cycle-hyphen-lowline-space

[ELPA Syncer]

branch: elpa/xah-fly-keys
commit e24ea8b680d4844e3efafd7026e761f3b54bc84d
Author: Xah Lee 
Commit: Xah Lee 

changed repeat key to backspace, was -, for repeatable commands 
xah-reformat-to-sentence-lines, xah-cycle-hyphen-lowline-space

new var xah-repeat-key if not defined.

key space return is now back to execute-extended-command, not 
execute-extended-command-for-buffer (the buffer one does not allow you to call 
other commands (e.g. vc-diff, useful in lots programing language modes), make 
it much less useful, because you need to know which command is or is not for 
current major mode etc. it seems actually slower too)

now C-y is undo-redo of emacs 28.

removed alias execute-extended-command-for-buffer for 
execute-extended-command for emacs less that 28. (since we no longer use 
execute-extended-command-for-buffer. the code was incorrect anyway. The version 
comparison code was incorrect.)
---
 xah-fly-keys.el | 37 ++---
 1 file changed, 22 insertions(+), 15 deletions(-)

diff --git a/xah-fly-keys.el b/xah-fly-keys.el
index 0064c9256a..1eccc2bcc0 100644
--- a/xah-fly-keys.el
+++ b/xah-fly-keys.el
@@ -4,7 +4,7 @@
 
 ;; Author: Xah Lee ( http://xahlee.info/ )
 ;; Maintainer: Xah Lee 
-;; Version: 18.2.20221004113716
+;; Version: 18.3.20221020112604
 ;; Created: 10 Sep 2013
 ;; Package-Requires: ((emacs "24.1"))
 ;; Keywords: convenience, emulations, vim, ergoemacs
@@ -174,6 +174,10 @@
   "If nil, no change to any key in isearch (`isearch-forward'). Otherwise, 
arrow keys are for moving between occurrences, and C-v is paste."
   :type 'boolean)
 
+(when (not (boundp 'xah-repeat-key))
+  (defvar xah-repeat-key nil "A key that some xah command use as a key to 
repeat the command, pressed right after command call. Value should be the same 
format that `kbd' returns. e.g. (kbd \"DEL\")")
+  (if xah-repeat-key nil (setq xah-repeat-key (kbd "DEL"
+
 (defun xah-get-bounds-of-block ()
   "Return the boundary (START . END) of current block.
 Version: 2021-08-12"
@@ -1228,7 +1232,7 @@ Version: 2021-07-05 2021-08-13 2022-03-12 2022-05-16"
 (defun xah-reformat-to-sentence-lines ()
   "Reformat current block or selection into multiple lines by ending period.
 Move cursor to the beginning of next text block.
-After this command is called, press - to repeat it.
+After this command is called, press `xah-repeat-key' to repeat it (default to 
DEL (backspace)).
 
 URL `http://xahlee.info/emacs/emacs/elisp_reformat_to_sentence_lines.html'
 Version: 2020-12-02 2022-03-22"
@@ -1250,7 +1254,8 @@ Version: 2020-12-02 2022-03-22"
   (goto-char (point-max))
   (while (eq (char-before) 32) (delete-char -1
   (re-search-forward "\n+" nil 1)
-  (set-transient-map (let (($kmap (make-sparse-keymap))) (define-key $kmap 
(kbd "-") this-command) $kmap)))
+(set-transient-map (let (($kmap (make-sparse-keymap))) (define-key $kmap (or 
xah-repeat-key (kbd "DEL")) this-command) $kmap))
+  (set-transient-map (let (($kmap (make-sparse-keymap))) (define-key $kmap 
(kbd "DEL") this-command) $kmap)))
 
 (defun xah-space-to-newline ()
   "Replace space sequence to a newline char in current block or selection.
@@ -1543,14 +1548,14 @@ Version: 2016-10-04 2019-11-24 2022-05-16"
 
 (defun xah-cycle-hyphen-lowline-space (&optional Begin End)
   "Cycle hyphen/lowline/space chars in selection or inside quote/bracket or 
line, in that order.
-After this command is called, press - to repeat it.
+After this command is called, press `xah-repeat-key' to repeat it (default to 
DEL (backspace)).
 The region to work on is by this order:
  1. if there is a selection, use that.
  2. If cursor is string quote or any type of bracket, and is within current 
line, work on that region.
  3. else, work on current line.
 
 URL `http://xahlee.info/emacs/emacs/elisp_change_space-hyphen_underscore.html'
-Version: 2019-02-12 2021-08-20 2022-03-22"
+Version: 2019-02-12 2021-08-20 2022-03-22 2022-10-20"
   (interactive)
   ;; this function sets a property 'state. Possible values are 0 to length of 
$charArray.
   (let* ($p1
@@ -1581,7 +1586,7 @@ Version: 2019-02-12 2021-08-20 2022-03-22"
   (set-mark $p1)
   (setq deactivate-mark nil))
 (put 'xah-cycle-hyphen-lowline-space 'state (% (+ $nowState 1) $n)))
-  (set-transient-map (let (($kmap (make-sparse-keymap))) (define-key $kmap 
(kbd "-") this-command) $kmap)))
+  (set-transient-map (let (($kmap (make-sparse-keymap))) (define-key $kmap (or 
xah-repeat-key (kbd "DEL")) this-command) $kmap)))
 
 (defun xah-copy-file-path (&optional DirPathOnlyQ)
   "Copy current buffer file path or dired path.
@@ -1919,7 +1924,7 @@ The commpand will prompt for a start char, and number of 
chars to insert.
 The start char can be any char in Unicode.
 
 URL `http://xahlee.info/emacs/emacs/emacs_insert-alphabets.html'
-Version: 2019-03-07"
+Version: 2013-06-12 2019-03-07"
   (interactive)
   (let (
 ($startChar (string-to-char (read-string "Star

[nongnu] elpa/xah-fly-keys updated (e7c77fa733 -> 8e811fe727)

[ELPA Syncer]

elpasync pushed a change to branch elpa/xah-fly-keys.

  from  e7c77fa733 - better docstring in some commands. - xah-move-block-up 
removed the key - to repeat. - xah-move-block-down removed the key - to repeat.
   new  e24ea8b680 changed repeat key to backspace, was -, for repeatable 
commands xah-reformat-to-sentence-lines, xah-cycle-hyphen-lowline-space
   new  b245505f71 changed repeat key to backspace, was -, for repeatable 
commands xah-reformat-to-sentence-lines, xah-cycle-hyphen-lowline-space new var 
xah-repeat-key if not defined. key space return is now back to 
execute-extended-command, not execute-extended-command-for-buffer (the buffer 
one does not allow you to call other commands (e.g. vc-diff, useful in lots 
programing language modes), make it much less useful, because you need to know 
which command is or is not for current  [...]
   new  8e811fe727 Merge branch 'master' of 
https://github.com/xahlee/xah-fly-keys


Summary of changes:
 xah-fly-keys.el | 37 ++---
 1 file changed, 22 insertions(+), 15 deletions(-)

[nongnu] elpa/xah-fly-keys b245505f71 1/3: changed repeat key to backspace, was -, for repeatable commands xah-reformat-to-sentence-lines, xah-cycle-hyphen-lowline-space new var xah-repeat-key if not

[ELPA Syncer]

branch: elpa/xah-fly-keys
commit b245505f7133a6e6c739ffc70cf5cf33839dfb99
Author: Xah Lee 
Commit: Xah Lee 

changed repeat key to backspace, was -, for repeatable commands 
xah-reformat-to-sentence-lines, xah-cycle-hyphen-lowline-space new var 
xah-repeat-key if not defined. key space return is now back to 
execute-extended-command, not execute-extended-command-for-buffer (the buffer 
one does not allow you to call other commands (e.g. vc-diff, useful in lots 
programing language modes), make it much less useful, because you need to know 
which command is or is not for current major mode etc. it  [...]
---
 xah-fly-keys.el | 37 ++---
 1 file changed, 22 insertions(+), 15 deletions(-)

diff --git a/xah-fly-keys.el b/xah-fly-keys.el
index 0064c9256a..1eccc2bcc0 100644
--- a/xah-fly-keys.el
+++ b/xah-fly-keys.el
@@ -4,7 +4,7 @@
 
 ;; Author: Xah Lee ( http://xahlee.info/ )
 ;; Maintainer: Xah Lee 
-;; Version: 18.2.20221004113716
+;; Version: 18.3.20221020112604
 ;; Created: 10 Sep 2013
 ;; Package-Requires: ((emacs "24.1"))
 ;; Keywords: convenience, emulations, vim, ergoemacs
@@ -174,6 +174,10 @@
   "If nil, no change to any key in isearch (`isearch-forward'). Otherwise, 
arrow keys are for moving between occurrences, and C-v is paste."
   :type 'boolean)
 
+(when (not (boundp 'xah-repeat-key))
+  (defvar xah-repeat-key nil "A key that some xah command use as a key to 
repeat the command, pressed right after command call. Value should be the same 
format that `kbd' returns. e.g. (kbd \"DEL\")")
+  (if xah-repeat-key nil (setq xah-repeat-key (kbd "DEL"
+
 (defun xah-get-bounds-of-block ()
   "Return the boundary (START . END) of current block.
 Version: 2021-08-12"
@@ -1228,7 +1232,7 @@ Version: 2021-07-05 2021-08-13 2022-03-12 2022-05-16"
 (defun xah-reformat-to-sentence-lines ()
   "Reformat current block or selection into multiple lines by ending period.
 Move cursor to the beginning of next text block.
-After this command is called, press - to repeat it.
+After this command is called, press `xah-repeat-key' to repeat it (default to 
DEL (backspace)).
 
 URL `http://xahlee.info/emacs/emacs/elisp_reformat_to_sentence_lines.html'
 Version: 2020-12-02 2022-03-22"
@@ -1250,7 +1254,8 @@ Version: 2020-12-02 2022-03-22"
   (goto-char (point-max))
   (while (eq (char-before) 32) (delete-char -1
   (re-search-forward "\n+" nil 1)
-  (set-transient-map (let (($kmap (make-sparse-keymap))) (define-key $kmap 
(kbd "-") this-command) $kmap)))
+(set-transient-map (let (($kmap (make-sparse-keymap))) (define-key $kmap (or 
xah-repeat-key (kbd "DEL")) this-command) $kmap))
+  (set-transient-map (let (($kmap (make-sparse-keymap))) (define-key $kmap 
(kbd "DEL") this-command) $kmap)))
 
 (defun xah-space-to-newline ()
   "Replace space sequence to a newline char in current block or selection.
@@ -1543,14 +1548,14 @@ Version: 2016-10-04 2019-11-24 2022-05-16"
 
 (defun xah-cycle-hyphen-lowline-space (&optional Begin End)
   "Cycle hyphen/lowline/space chars in selection or inside quote/bracket or 
line, in that order.
-After this command is called, press - to repeat it.
+After this command is called, press `xah-repeat-key' to repeat it (default to 
DEL (backspace)).
 The region to work on is by this order:
  1. if there is a selection, use that.
  2. If cursor is string quote or any type of bracket, and is within current 
line, work on that region.
  3. else, work on current line.
 
 URL `http://xahlee.info/emacs/emacs/elisp_change_space-hyphen_underscore.html'
-Version: 2019-02-12 2021-08-20 2022-03-22"
+Version: 2019-02-12 2021-08-20 2022-03-22 2022-10-20"
   (interactive)
   ;; this function sets a property 'state. Possible values are 0 to length of 
$charArray.
   (let* ($p1
@@ -1581,7 +1586,7 @@ Version: 2019-02-12 2021-08-20 2022-03-22"
   (set-mark $p1)
   (setq deactivate-mark nil))
 (put 'xah-cycle-hyphen-lowline-space 'state (% (+ $nowState 1) $n)))
-  (set-transient-map (let (($kmap (make-sparse-keymap))) (define-key $kmap 
(kbd "-") this-command) $kmap)))
+  (set-transient-map (let (($kmap (make-sparse-keymap))) (define-key $kmap (or 
xah-repeat-key (kbd "DEL")) this-command) $kmap)))
 
 (defun xah-copy-file-path (&optional DirPathOnlyQ)
   "Copy current buffer file path or dired path.
@@ -1919,7 +1924,7 @@ The commpand will prompt for a start char, and number of 
chars to insert.
 The start char can be any char in Unicode.
 
 URL `http://xahlee.info/emacs/emacs/emacs_insert-alphabets.html'
-Version: 2019-03-07"
+Version: 2013-06-12 2019-03-07"
   (interactive)
   (let (
 ($startChar (string-to-char (read-string "Start char: " "a")))
@@ -2232,13 +2237,13 @@ Version: 2017-11-01 2022-04-05"
 Similar to `kill-buffer', with the following addition:
 
 • Prompt user to save if the buffer has been modified even if the buffer is 
not associated with a file.
-• If the buffer is editing a source file in an `org-mode' file, prompt the 
user to save befo

[nongnu] elpa/xah-fly-keys 8e811fe727 3/3: Merge branch 'master' of https://github.com/xahlee/xah-fly-keys

[ELPA Syncer]

branch: elpa/xah-fly-keys
commit 8e811fe7274e44545a8b5359c103daf03d9c2cd6
Merge: e24ea8b680 b245505f71
Author: Xah Lee 
Commit: Xah Lee 

Merge branch 'master' of https://github.com/xahlee/xah-fly-keys

[elpa] externals/consult 3226c1a01e: Expand docstring of consult-customize

[ELPA Syncer]

branch: externals/consult
commit 3226c1a01e0a2a4352b2c885b8f4eb22610d99af
Author: Daniel Mendler 
Commit: Daniel Mendler 

Expand docstring of consult-customize
---
 consult.el | 9 ++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/consult.el b/consult.el
index 1f0d360a1c..87bb070347 100644
--- a/consult.el
+++ b/consult.el
@@ -544,9 +544,12 @@ We use invalid characters outside the Unicode range.")
 
 (defmacro consult-customize (&rest args)
   "Set properties of commands or sources.
-ARGS is a list of commands or sources followed by the list of keyword-value
-pairs."
-  (let ((setter))
+ARGS is a list of commands or sources followed by the list of
+keyword-value pairs. For `consult-customize' to succeed, the
+customized sources and commands must exist. When a command is
+invoked, the value of `this-command' is used to lookup the
+corresponding customization options."
+  (let (setter)
 (while args
   (let ((cmds (seq-take-while (lambda (x) (not (keywordp x))) args)))
 (setq args (seq-drop-while (lambda (x) (not (keywordp x))) args))

[elpa] externals/hyperbole c1c7b8acd9: Use defvar for hyperb:dir (#285)

[ELPA Syncer]

branch: externals/hyperbole
commit c1c7b8acd969b000ec313f1d99be9879ffd0df8f
Author: Mats Lidell 
Commit: GitHub 

Use defvar for hyperb:dir (#285)
---
 ChangeLog |  4 
 hload-path.el | 16 
 2 files changed, 12 insertions(+), 8 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 0291e24e48..2a6d34c16d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2022-10-20  Mats Lidell  
+
+* hload-path.el (hyperb:dir): Use defvar. Thanks to Stefan Monnier.
+
 2022-10-16  Mats Lidell  
 
 * kotl/kview.el (kview:insert-contents): Don't use global name for
diff --git a/hload-path.el b/hload-path.el
index 259af2fa00..7fc8b40bca 100644
--- a/hload-path.el
+++ b/hload-path.el
@@ -3,7 +3,7 @@
 ;; Author:   Bob Weiner
 ;;
 ;; Orig-Date:29-Jun-16 at 14:39:33
-;; Last-Mod: 25-Jul-22 at 17:50:26 by Mats Lidell
+;; Last-Mod: 20-Oct-22 at 23:20:50 by Mats Lidell
 ;;
 ;; Copyright (C) 1992-2022  Free Software Foundation, Inc.
 ;; See the "HY-COPY" file for license information.
@@ -34,13 +34,13 @@ Use `hyperb:wsl-os-p' to test if running under WSL.")
 ;;; Hyperbole Directory Setting (dynamically computed)
 ;;; 
 
-(defconst hyperb:dir (or (file-name-directory
- (or (and (stringp load-file-name) load-file-name)
- (locate-file "hmouse-tag.el" load-path)
- (hyperb:path-being-loaded)
- ""))
-(error
- "(Hyperbole): Failed to set hyperb:dir.  Try setting 
it manually"))
+(defvar hyperb:dir (or (file-name-directory
+   (or (and (stringp load-file-name) load-file-name)
+   (locate-file "hmouse-tag.el" load-path)
+   (hyperb:path-being-loaded)
+   ""))
+  (error
+   "(Hyperbole): Failed to set hyperb:dir.  Try setting it 
manually"))
   "Directory where the Hyperbole executable code is kept.
 Valid values end with a directory separator character.")
 

[nongnu] elpa/geiser 4ab96cb80a 1/2: geiser-doc: untabbify and lexical binding

[ELPA Syncer]

branch: elpa/geiser
commit 4ab96cb80ad1fce1297776bc0fc6dc5093a41bd5
Author: jao 
Commit: jao 

geiser-doc: untabbify and lexical binding
---
 elisp/geiser-doc.el | 8 
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/elisp/geiser-doc.el b/elisp/geiser-doc.el
index 8aca591a23..8c70d5f118 100644
--- a/elisp/geiser-doc.el
+++ b/elisp/geiser-doc.el
@@ -1,4 +1,4 @@
-;;; geiser-doc.el -- accessing scheme-provided documentation
+;;; geiser-doc.el -- accessing scheme-provided documentation  -*- 
lexical-binding: t; -*-
 
 ;; Copyright (C) 2009-2016, 2021-2022 Jose Antonio Ortega Ruiz
 
@@ -195,9 +195,9 @@ help (e.g. browse an HTML page) implementing this method.")
   (let ((label (if manual "[manual]" "[source]"))
 (help (if manual "Look up in Scheme manual" "Go to definition")))
 (insert-text-button label
-   :type 'geiser-doc--xbutton
-   'help-echo help
-   'x-kind (if manual 'manual 'source
+:type 'geiser-doc--xbutton
+'help-echo help
+'x-kind (if manual 'manual 'source
 
 (defun geiser-doc--insert-xbuttons (impl)
   (when (geiser-impl--method 'external-help impl)

[nongnu] elpa/geiser 2174f90b64 2/2: more tweaks to regexp signature finding

[ELPA Syncer]

branch: elpa/geiser
commit 2174f90b64343c1af76c8e5469d5e4b69d709c08
Author: jao 
Commit: jao 

more tweaks to regexp signature finding

and its use in autodoc (for instance, skip it when in the REPL).
---
 elisp/geiser-autodoc.el |  3 ++-
 elisp/geiser-edit.el| 19 ++-
 readme.org  |  1 -
 3 files changed, 16 insertions(+), 7 deletions(-)

diff --git a/elisp/geiser-autodoc.el b/elisp/geiser-autodoc.el
index 924fadb8c4..f18a6edf03 100644
--- a/elisp/geiser-autodoc.el
+++ b/elisp/geiser-autodoc.el
@@ -185,7 +185,8 @@ you can set this variable to nil to avoid them."
   (s))
   (while (and p (not s))
 (setq s (or (cdr (assoc (car p) signs))
-(cdr (geiser-edit--find-def (car p)
+(and geiser-mode
+ (cdr (geiser-edit--find-def (car p) t)
 (unless s (setq p (car path) path (cdr path
   (cond ((stringp s) s)
 (s (geiser-autodoc--str p s)))
diff --git a/elisp/geiser-edit.el b/elisp/geiser-edit.el
index f2ed57af13..06340fb560 100644
--- a/elisp/geiser-edit.el
+++ b/elisp/geiser-edit.el
@@ -89,7 +89,10 @@ or following links in error buffers.")
 
 (defsubst geiser-edit--def-re (thing)
   (let ((sx (regexp-quote (format "%s" thing
-(format "(%s[[:space:]]+\\((%s\\_>[^)]*)\\|\\(\\_<%s\\_>\\) 
*\\([^\n]*\\))\\)"
+(format (concat "(%s[[:space:]]+\\("
+"(%s\\_>[^)]*)\\|"
+"\\(\\_<%s\\_>\\) *\\([^\n]*?\\)[)\n]"
+"\\)")
 geiser-edit--def-re sx sx)))
 
 (defsubst geiser-edit--def-re* (thing)
@@ -97,15 +100,21 @@ or following links in error buffers.")
   geiser-edit--def-re*
   (regexp-quote (format "%s" thing
 
-(defun geiser-edit--find-def (symbol)
+(defun geiser-edit--find-def (symbol &optional args)
   (save-excursion
 (goto-char (point-min))
 (when (or (re-search-forward (geiser-edit--def-re symbol) nil t)
   (re-search-forward (geiser-edit--def-re* symbol) nil t))
   (cons (match-beginning 0)
-(if (match-string 2)
-(concat (match-string 2) " => " (match-string 3))
-  (match-string 1))
+(and args
+ (if (match-string 2)
+ (let* ((v (or (match-string 3) ""))
+(v (and (not (string-blank-p v)) v)))
+   (concat (match-string 2)
+   (and v " => ")
+   v
+   (and v (string-prefix-p "(" v) " ...")))
+   (match-string 1)))
 
 (defsubst geiser-edit--symbol-re (thing)
   (format "\\_<%s\\_>" (regexp-quote (format "%s" thing
diff --git a/readme.org b/readme.org
index 22632f199c..e836c36f31 100644
--- a/readme.org
+++ b/readme.org
@@ -45,7 +45,6 @@
   - Stklos 1.50, via 
[[https://gitlab.com/emacs-geiser/stklos][geiser-stklos]]
 
 * Installation
-
 *** Using ELPA
 
 Geiser is available in the ELPA repositories 
[[https://elpa.nongnu.org/nongnu/geiser.html][NonGNU ELPA]]

[nongnu] elpa/geiser updated (3123a38e9e -> 2174f90b64)

[ELPA Syncer]

elpasync pushed a change to branch elpa/geiser.

  from  3123a38e9e fix: don't signal an error when we find module as an 
alternative
   new  4ab96cb80a geiser-doc: untabbify and lexical binding
   new  2174f90b64 more tweaks to regexp signature finding


Summary of changes:
 elisp/geiser-autodoc.el |  3 ++-
 elisp/geiser-doc.el |  8 
 elisp/geiser-edit.el| 19 ++-
 readme.org  |  1 -
 4 files changed, 20 insertions(+), 11 deletions(-)

[nongnu] elpa/geiser 578d112dd9 3/4: fix: long standing bug in regexp recognising columns in error links

[ELPA Syncer]

branch: elpa/geiser
commit 578d112dd959f219d7182ecb184db7aed6d6f7dc
Author: jao 
Commit: jao 

fix: long standing bug in regexp recognising columns in error links
---
 elisp/geiser-edit.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/elisp/geiser-edit.el b/elisp/geiser-edit.el
index 06340fb560..310ef28fd2 100644
--- a/elisp/geiser-edit.el
+++ b/elisp/geiser-edit.el
@@ -172,7 +172,7 @@ or following links in error buffers.")
'help-echo "Go to error location"))
 
 (defconst geiser-edit--default-file-rx
-  "^[ \t]*\\([^<>:\n\"]+\\):\\([0-9]+\\)\\(?:\\([0-9]+\\)\\)?")
+  "^[ \t]*\\([^<>:\n\"]+\\):\\([0-9]+\\)\\(?::\\([0-9]+\\)\\)?")
 
 (defun geiser-edit--buttonize-files (&optional rx no-fill)
   (let ((rx (or rx geiser-edit--default-file-rx))

[nongnu] elpa/geiser 5b6d8202dd 1/4: geiser-debug--debugger-active-p -> geiser-debug--debugger-active

[ELPA Syncer]

branch: elpa/geiser
commit 5b6d8202dd8b07dc4e83ff1040a8de9f0d2b02cb
Author: jao 
Commit: jao 

geiser-debug--debugger-active-p -> geiser-debug--debugger-active
---
 elisp/geiser-debug.el | 12 ++--
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el
index c3968e7cdc..15f963f677 100644
--- a/elisp/geiser-debug.el
+++ b/elisp/geiser-debug.el
@@ -126,7 +126,7 @@ all ANSI sequences."
   (compilation-setup nil)
   (setq buffer-read-only t))
 
-(defvar-local geiser-debug--debugger-active-p nil)
+(defvar-local geiser-debug--debugger-active nil)
 (defvar-local geiser-debug--sender-buffer nil)
 
 (defun geiser-debug--send-dbg (thing)
@@ -138,7 +138,7 @@ all ANSI sequences."
 (geiser-eval--retort-result-str ret nil)))
 
 (defun geiser-debug--send-to-repl (thing)
-  (unless (and geiser-debug--debugger-active-p geiser-debug--sender-buffer)
+  (unless (and geiser-debug--debugger-active geiser-debug--sender-buffer)
 (error "Debugger not active"))
   (save-window-excursion
 (with-current-buffer geiser-debug--sender-buffer
@@ -179,7 +179,7 @@ all ANSI sequences."
 (transient-define-prefix geiser-debug--debugger-transient ()
   "Debugging meta-commands."
   [:description (lambda () (format "%s debugger" (geiser-impl--impl-str)))
-   :if (lambda () geiser-debug--debugger-active-p)
+   :if (lambda () geiser-debug--debugger-active)
["Display"
 ("b" "backtrace" geiser-debug-debugger-backtrace)
 ("e" "error" geiser-debug-debugger-error)
@@ -196,7 +196,7 @@ all ANSI sequences."
   ("Next error location" ((kbd "M-n")) next-error)
   ("Previous error location" ((kbd "M-p")) previous-error)
   ("Debugger command ..." "," geiser-debug--debugger-transient
-   :enable geiser-debug--debugger-active-p)
+   :enable geiser-debug--debugger-active)
   ("Source buffer" ("z" (kbd "C-c C-z")) geiser-debug-switch-to-buffer)
   --
   ("Quit" nil View-quit))
@@ -262,9 +262,9 @@ buffer.")
  (after (geiser-debug--display-after what)))
 (unless debug-entered
   (geiser-debug--with-buffer
-(when (and (not debug) geiser-debug--debugger-active-p)
+(when (and (not debug) geiser-debug--debugger-active)
   (message "Debugger exited"))
-(setq geiser-debug--debugger-active-p debug
+(setq geiser-debug--debugger-active debug
   geiser-debug--sender-buffer buffer
   geiser-impl--implementation impl)
 (erase-buffer)

[nongnu] elpa/geiser-chez d3e7dc7920: collecting and displaying condition locations (file, column)

[ELPA Syncer]

branch: elpa/geiser-chez
commit d3e7dc792069724880356c4e0f8c1749b90ef1bb
Author: jao 
Commit: jao 

collecting and displaying condition locations (file, column)
---
 geiser-chez.el   | 21 +
 src/geiser/geiser.ss | 47 +++
 2 files changed, 40 insertions(+), 28 deletions(-)

diff --git a/geiser-chez.el b/geiser-chez.el
index ef9f29a02b..9491a6543e 100644
--- a/geiser-chez.el
+++ b/geiser-chez.el
@@ -65,10 +65,6 @@ host."
 (define-obsolete-variable-alias 'geiser-chez-debug-on-exception-p
   'geiser-chez-debug-on-exception "0.18")
 
-(geiser-custom--defcustom geiser-chez-show-error-on-debug t
-  "Whether to issue a `show condition' command upon entering the debugger."
-  :type 'boolean)
-
 (defconst geiser-chez-minimum-version "9.4")
 
 ;;; REPL support
@@ -183,15 +179,24 @@ Return its local name."
 (geiser-repl-switch  nil 'chez)
 (compilation-forget-errors)
 (geiser-repl--send "(debug)")
-(when geiser-chez-show-error-on-debug (geiser-repl--send "s"))
 t))
 
 (defun geiser-chez--display-error (_module key msg)
   "Display an error found during evaluation with the given KEY and message 
MSG."
-  (when (stringp msg)
-(save-excursion (insert msg))
+  (when msg
+(save-excursion
+  (insert (car msg))
+  (when-let (loc (cdr msg))
+(let ((file (cdr (assoc "file" loc)))
+  (line (or (cdr (assoc "line" loc)) ""))
+  (col (or (cdr (assoc "column" loc)) (cdr (assoc "char" loc
+  (name (cdr (assoc "name" loc
+  (insert "\n\n" file (format ":%s" line))
+  (when col (insert (format ":%s" col)))
+  (when name (insert (format "   (%s)" name
+(insert "\n")))
 (geiser-edit--buttonize-files)
-(not (zerop (length msg)
+t))
 
 ;;; Keywords and syntax
 
diff --git a/src/geiser/geiser.ss b/src/geiser/geiser.ss
index 0d3928cd5d..f0404131a1 100644
--- a/src/geiser/geiser.ss
+++ b/src/geiser/geiser.ss
@@ -37,6 +37,25 @@
(print-vector-length #t))
   (as-string (pretty-print x
 
+  (define (code-location obj)
+(let* ((i (inspect/object obj))
+   (c (and i (i 'code
+  (if c
+  (let ((name `("name" . ,(or (c 'name) (write-to-string obj)
+(call-with-values (lambda () (c 'source-path))
+  (case-lambda
+((path line col)
+ `(,name ("file" . ,path) ("line" . ,line) ("column" . ,col)))
+((path char)
+ `((,name) ("file" . ,path) ("char" . ,char)))
+(() #f
+  #f)))
+
+  (define (condition-location c)
+(let ((finder (make-object-finder procedure? c 
(collect-maximum-generation
+  (let loop ((obj (finder)))
+(if obj (or (code-location (car obj)) (loop (finder))) '()
+
   (define (call-with-result thunk)
 (let ((output-string (open-output-string)))
   (write
@@ -45,11 +64,12 @@
   (with-exception-handler
   (lambda (e)
 (debug-condition e) ; save the condition for the debugger
-(k `((result "")
- (output . ,(get-output-string output-string))
- (debug 1)
- (error (key . condition)
-(msg . ,(as-string (display-condition e)))
+(let ((loc (or (condition-location e) '()))
+  (desc (as-string (display-condition e
+  (k `((result "")
+   (output . ,(get-output-string output-string))
+   (error (key . condition)
+  (msg . ,(cons desc loc)))
 (lambda ()
   (call-with-values
   (lambda ()
@@ -242,21 +262,8 @@
   (else (map id-autodoc ids
 
   (define (geiser:symbol-location id)
-(let* ([b (try-eval id)]
-   [c (and (not (eq? not-found b))
-   ((inspect/object b) 'code))])
-  (if c
-  (call-with-values (lambda () (c 'source-path))
-(lambda (path line . col)
-  (let ((line (if (null? col) '() line))
-(char (if (null? col) line '()))
-(col (if (null? col) '() (car col
-`(("name" . ,(c 'name))
-  ("file" . ,path)
-  ("line" . ,line)
-  ("column" . ,col)
-  ("char" . ,char)
-  '(
+(let ([b (try-eval id)])
+  (or (and (not (eq? not-found b)) (code-location b)) '(
 
   (define (geiser:module-location id)
 (let ((obj (library-object-filename id)))

[nongnu] elpa/geiser 5bf62132e6 2/4: debug: accept debug msg of any type (e.g., a list with location info)

[ELPA Syncer]

branch: elpa/geiser
commit 5bf62132e676e098ab7ab6332fede2ead8328074
Author: jao 
Commit: jao 

debug: accept debug msg of any type (e.g., a list with location info)
---
 elisp/geiser-debug.el | 7 ---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el
index 15f963f677..dc60fb6e0a 100644
--- a/elisp/geiser-debug.el
+++ b/elisp/geiser-debug.el
@@ -275,7 +275,9 @@ buffer.")
 (when (or err key output)
   (let ((msg (or (geiser-eval--error-msg err) output "")))
 (or (geiser-debug--display-error impl module key msg)
-(insert "\n" (if key (format "Error: %s\n" key) "") msg 
"\n"
+(insert "\n"
+(if key (format "Error: %s\n" key) "")
+(format "%s" (or msg "")) "\n"
 (when after
   (goto-char (point-max))
   (insert "\nExpression evaluated was:\n\n")
@@ -313,10 +315,9 @@ result in the minibuffer."
  (code `(,(if compile :comp :eval) (:scm ,wrapped)))
  (cont (lambda (ret)
  (let ((res (geiser-eval--retort-result-str ret nil))
-   (err (geiser-eval--retort-error ret))
(scstr (geiser-syntax--scheme-str str)))
(when and-go (funcall and-go))
-   (when (not err)
+   (unless (geiser-eval--retort-error ret)
  (save-excursion
(goto-char (/ (+ end start) 2))
(geiser-autodoc--clean-cache))

[nongnu] elpa/geiser updated (2174f90b64 -> 74e4e87820)

[ELPA Syncer]

elpasync pushed a change to branch elpa/geiser.

  from  2174f90b64 more tweaks to regexp signature finding
   new  5b6d8202dd geiser-debug--debugger-active-p -> 
geiser-debug--debugger-active
   new  5bf62132e6 debug: accept debug msg of any type (e.g., a list with 
location info)
   new  578d112dd9 fix: long standing bug in regexp recognising columns in 
error links
   new  74e4e87820 nit: skip eval requests of empty strings


Summary of changes:
 elisp/geiser-connection.el | 11 ++-
 elisp/geiser-debug.el  | 19 ++-
 elisp/geiser-edit.el   |  2 +-
 3 files changed, 17 insertions(+), 15 deletions(-)

[nongnu] elpa/geiser 74e4e87820 4/4: nit: skip eval requests of empty strings

[ELPA Syncer]

branch: elpa/geiser
commit 74e4e87820112ac94bac583ba154dc67bc017a42
Author: jao 
Commit: jao 

nit: skip eval requests of empty strings
---
 elisp/geiser-connection.el | 11 ++-
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/elisp/geiser-connection.el b/elisp/geiser-connection.el
index 268e123d8a..9dcc869957 100644
--- a/elisp/geiser-connection.el
+++ b/elisp/geiser-connection.el
@@ -275,11 +275,12 @@
 (error (geiser-con--request-deactivate req))
 
 (defun geiser-con--send-string/wait (con str cont &optional timeout sbuf)
-  (save-current-buffer
-(let ((proc (and con (geiser-con--connection-process con
-  (unless proc (error "Geiser connection not active"))
-  (let ((req (geiser-con--send-string con str cont sbuf)))
-(geiser-con--wait req timeout)
+  (when (and (stringp str) (not (string-blank-p str)))
+(save-current-buffer
+  (let ((proc (and con (geiser-con--connection-process con
+(unless proc (error "Geiser connection not active"))
+(let ((req (geiser-con--send-string con str cont sbuf)))
+  (geiser-con--wait req timeout))
 
 
 (provide 'geiser-connection)

[elpa] externals/ef-themes d778ec565a 12/13: Add support for writegood-mode

[ELPA Syncer]

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

Add support for writegood-mode
---
 README.org   | 1 +
 ef-themes.el | 4 
 2 files changed, 5 insertions(+)

diff --git a/README.org b/README.org
index 1b5eda791a..37ec103c8f 100644
--- a/README.org
+++ b/README.org
@@ -975,6 +975,7 @@ everything most users need.
 - which-function-mode
 - whitespace-mode
 - widget
+- writegood-mode [Part of {{{development-version}}}.]
 - woman
 
 ** Implicitly supported packages or face groups
diff --git a/ef-themes.el b/ef-themes.el
index 7133aa5e3f..2ad890454a 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -1787,6 +1787,10 @@ Helper function for `ef-themes-preview-colors'."
 `(widget-field ((,c :background ,bg-alt :foreground ,fg-main :extend nil)))
 `(widget-inactive ((,c :inherit shadow :background ,bg-dim)))
 `(widget-single-line-field ((,c :inherit widget-field)))
+ writegood-mode
+`(writegood-duplicates-face ((,c :inherit ef-themes-underline-error)))
+`(writegood-passive-voice-face ((,c :inherit ef-themes-underline-info)))
+`(writegood-weasels-face ((,c :inherit ef-themes-underline-warning)))
  woman
 `(woman-addition ((,c :foreground ,accent-2)))
 `(woman-bold ((,c :inherit bold :foreground ,accent-0)))

[elpa] externals/ef-themes daa63640cc 01/13: ef-autumn: tweak 'warning' mapping

[ELPA Syncer]

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

ef-autumn: tweak 'warning' mapping

Basically, this makes the applicable colour more green than red
(yellow is a combination of red and green), based on how I define the
colour values.
---
 ef-autumn-theme.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ef-autumn-theme.el b/ef-autumn-theme.el
index 4659ece62c..334d4c6989 100644
--- a/ef-autumn-theme.el
+++ b/ef-autumn-theme.el
@@ -146,7 +146,7 @@
 
   ;; Mappings
   (err red-warmer)
-  (warning yellow-warmer)
+  (warning yellow)
   (info green-cooler)
 
   (link yellow)

[elpa] externals/ef-themes c26b0eb6cb 04/13: ef-winter: tweak 'warning' mapping

[ELPA Syncer]

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

ef-winter: tweak 'warning' mapping

Basically, this makes the applicable colour more green than red
(yellow is a combination of red and green), based on how I define the
colour values.
---
 ef-winter-theme.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ef-winter-theme.el b/ef-winter-theme.el
index 9c6a3cf1b2..39a944d34e 100644
--- a/ef-winter-theme.el
+++ b/ef-winter-theme.el
@@ -60,7 +60,7 @@
   (green-warmer"#6aad0f")
   (green-cooler"#00a392")
   (green-faint "#61a06c")
-  (yellow  "#c48052")
+  (yellow  "#b58a52")
   (yellow-warmer   "#d1803f")
   (yellow-cooler   "#df9080")
   (yellow-faint"#c0a38a")
@@ -146,7 +146,7 @@
 
   ;; Mappings
   (err red-warmer)
-  (warning yellow-warmer)
+  (warning yellow)
   (info green)
 
   (link magenta)

[elpa] externals/ef-themes 081d176de4 03/13: ef-trio-dark: tweak 'warning' mapping

[ELPA Syncer]

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

ef-trio-dark: tweak 'warning' mapping

Basically, this makes the applicable colour more green than red
(yellow is a combination of red and green), based on how I define the
colour values.
---
 ef-trio-dark-theme.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ef-trio-dark-theme.el b/ef-trio-dark-theme.el
index 23860e5c11..d90ea92805 100644
--- a/ef-trio-dark-theme.el
+++ b/ef-trio-dark-theme.el
@@ -146,7 +146,7 @@
 
   ;; Mappings
   (err red-warmer)
-  (warning yellow-warmer)
+  (warning yellow)
   (info green)
 
   (link cyan)

[elpa] externals/ef-themes 156b423082 08/13: ef-spring: tweak 'warning' mapping

[ELPA Syncer]

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

ef-spring: tweak 'warning' mapping

Basically, this makes the applicable colour more green than red
(yellow is a combination of red and green), based on how I define the
colour values.
---
 ef-spring-theme.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ef-spring-theme.el b/ef-spring-theme.el
index a0176bb37a..755b831ef1 100644
--- a/ef-spring-theme.el
+++ b/ef-spring-theme.el
@@ -146,7 +146,7 @@
 
   ;; Mappings
   (err red-warmer)
-  (warning yellow-warmer)
+  (warning yellow)
   (info green)
 
   (link cyan-cooler)

[elpa] externals/org deb1517fe9: org-macs.el: Do not compare wall time and file modification time

[ELPA Syncer]

branch: externals/org
commit deb1517fe909fe9ba2b753c0a7fd6146a0550460
Author: Max Nikulin 
Commit: Ihor Radchenko 

org-macs.el: Do not compare wall time and file modification time

* lisp/org-macs.el (org-file-newer-than-p): Recommend passing file
modification time instead of wall time to avoid truncation of timestamp
precision for the sake of filesystems with coarse time resolution.
(org-compile-file): Store file modification time instead of system clock
for later comparison by `org-file-newer-than-p'.
* lisp/org.el (org-babel-load-file): Use `file-newer-than-file-p'
instead of `org-file-newer-than-p' since the former is more suitable
for target-prerequisite relation in the case of equal timestamps.
Improve error reporting when source file does not exist.
Update timestamp after tangling of an org file, not before it.

This is assumed to be a better fix of the problem with change of time
representation in Emacs-29. The problem was reported by Mark Barton
 in
https://list.orgmode.org/bf5b9308-3fef-4dc6-98c9-bff36f19d...@gmail.com
Paul Eggert  committed another variant to Emacs
as 3abb3681b5.  It was ported to Org as commit 56ba22b9df several months
later.

Unchanged timestamp of a file means failure of `org-compile-file' but in
`org-babel-load-file' the target may be considered as up to date if its
timestamp is equal to the one for the prerequisite.
So `org-file-newer-than-p' is not suitable for both cases.  The
difference matters for filesystems with coarse timestamp resolution, for
example HFS+.

Earlier call of `org-babel-load-file' for a non-existing .org file
caused "Bad bounding indices: 0, 2" error.

Update file timestamp (introduced by the commit 1525a5a64e)
after tangling of the file.  Change caused by conflict resolution during
rebasing of the initial version of the patch.  See
https://list.orgmode.org/t75efi$9pv$1...@ciao.gmane.io for an argument
in support of such change.
---
 lisp/org-macs.el | 30 ++
 lisp/org.el  | 22 +++---
 2 files changed, 29 insertions(+), 23 deletions(-)

diff --git a/lisp/org-macs.el b/lisp/org-macs.el
index 2666733d0d..c858f3695a 100644
--- a/lisp/org-macs.el
+++ b/lisp/org-macs.el
@@ -312,17 +312,23 @@ If EXCLUDE-TMP is non-nil, ignore temporary buffers."
 ;;; File
 
 (defun org-file-newer-than-p (file time)
-  "Non-nil if FILE is newer than TIME.
-FILE is a filename, as a string, TIME is a Lisp time value, as
-returned by, e.g., `current-time'."
-  (and (file-exists-p file)
-   ;; Only compare times up to whole seconds as some file-systems
-   ;; (e.g. HFS+) do not retain any finer granularity.  As
-   ;; a consequence, make sure we return non-nil when the two
-   ;; times are equal.
-   (not (time-less-p (org-time-convert-to-integer
- (nth 5 (file-attributes file)))
-(org-time-convert-to-integer time)
+  "Non-nil if FILE modification time is greater than TIME.
+TIME should be obtained earlier for the same FILE name using
+
+  \(file-attribute-modification-time (file-attributes file))
+
+If TIME is nil (file did not exist) then any existing FILE
+is considered as a newer one.  Some file systems have coarse
+timestamp resolution, for example 1 second on HFS+ or 2 seconds on FAT,
+so nil may be returned when file is updated twice within a short period
+of time.  File timestamp and system clock `current-time' may have
+different resolution, so attempts to compare them may give unexpected
+results.
+
+Consider `file-newer-than-file-p' to check up to date state
+in target-prerequisite files relation."
+  (let ((mtime (file-attribute-modification-time (file-attributes file
+(and mtime (or (not time) (time-less-p time mtime)
 
 (defun org-compile-file (source process ext &optional err-msg log-buf spec)
   "Compile a SOURCE file using PROCESS.
@@ -356,7 +362,7 @@ it for output."
 (full-name (file-truename source))
 (out-dir (or (file-name-directory source) "./"))
 (output (expand-file-name (concat base-name "." ext) out-dir))
-(time (current-time))
+(time (file-attribute-modification-time (file-attributes output)))
 (err-msg (if (stringp err-msg) (concat ".  " err-msg) "")))
 (save-window-excursion
   (pcase process
diff --git a/lisp/org.el b/lisp/org.el
index 624163938b..8191f08602 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -254,22 +254,22 @@ optional prefix argument COMPILE, the tangled Emacs Lisp 
file is
 byte-compiled before it is loaded."
   (interactive "fFile to load: \nP")
   (let ((tangled-file (concat (file-name-sans-extension file) ".el")))
-;; Tangle only if the Org file is newer than the Elisp file.
-(unless (org-file-newer-than-p
-tangled-file
-(file-attribute-modification-time
- (file-at

[elpa] externals/ef-themes ba670eb659 07/13: ef-duo-light: tweak 'warning' mapping

[ELPA Syncer]

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

ef-duo-light: tweak 'warning' mapping

Basically, this makes the applicable colour more green than red
(yellow is a combination of red and green), based on how I define the
colour values.
---
 ef-duo-light-theme.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ef-duo-light-theme.el b/ef-duo-light-theme.el
index 4a5c8fdba2..857466c457 100644
--- a/ef-duo-light-theme.el
+++ b/ef-duo-light-theme.el
@@ -150,7 +150,7 @@
 
   ;; Mappings
   (err red)
-  (warning yellow-warmer)
+  (warning yellow)
   (info green)
 
   (link cyan)

[elpa] externals/ef-themes 32803acbaf 06/13: ef-day: tweak 'warning' mapping

[ELPA Syncer]

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

ef-day: tweak 'warning' mapping

Basically, this makes the applicable colour more green than red
(yellow is a combination of red and green), based on how I define the
colour values.
---
 ef-day-theme.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ef-day-theme.el b/ef-day-theme.el
index ae6823da28..4798a46ac0 100644
--- a/ef-day-theme.el
+++ b/ef-day-theme.el
@@ -146,7 +146,7 @@
 
   ;; Mappings
   (err red-warmer)
-  (warning yellow-warmer)
+  (warning yellow)
   (info green)
 
   (link cyan-warmer)

[elpa] externals/ef-themes bb13231e26 11/13: Use correct outline level for one face group

[ELPA Syncer]

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

Use correct outline level for one face group
---
 ef-themes.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ef-themes.el b/ef-themes.el
index daa553b3c5..7133aa5e3f 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -786,7 +786,7 @@ Helper function for `ef-themes-preview-colors'."
 `(consult-key ((,c :inherit ef-themes-key-binding)))
 `(consult-imenu-prefix ((,c :inherit shadow)))
 `(consult-line-number ((,c :inherit shadow)))
-; corfu
+ corfu
 `(corfu-current ((,c :background ,bg-completion)))
 `(corfu-bar ((,c :background ,fg-main)))
 `(corfu-border ((,c :background ,bg-active)))

[elpa] externals/ef-themes 0f4f5456d2 13/13: Add support for auto-dim-other-buffers

[ELPA Syncer]

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

Add support for auto-dim-other-buffers
---
 README.org   | 1 +
 ef-themes.el | 2 ++
 2 files changed, 3 insertions(+)

diff --git a/README.org b/README.org
index 37ec103c8f..16e12aab22 100644
--- a/README.org
+++ b/README.org
@@ -891,6 +891,7 @@ everything most users need.
 - all-the-icons-ibuffer
 - ansi-color
 - auctex
+- auto-dim-other-buffers [Part of {{{development-version}}}.]
 - bongo
 - bookmark
 - calendar and diary
diff --git a/ef-themes.el b/ef-themes.el
index 2ad890454a..83d580dc41 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -709,6 +709,8 @@ Helper function for `ef-themes-preview-colors'."
 `(TeX-error-description-help ((,c :inherit success)))
 `(TeX-error-description-tex-said ((,c :inherit success)))
 `(TeX-error-description-warning ((,c :inherit warning)))
+ auto-dim-other-buffers
+`(auto-dim-other-buffers-face ((,c :background ,bg-inactive)))
  bongo
 `(bongo-album-title (( )))
 `(bongo-artist ((,c :foreground ,rainbow-0)))

[elpa] externals/ef-themes 2044b169a6 10/13: Implement ef-themes-underline-{error, info, warning}

[ELPA Syncer]

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

Implement ef-themes-underline-{error,info,warning}

These faces make it easier to ensure consistency between different
face groups.  It is also easier for users to edit one face and have it
apply to all appropriate contexts.
---
 ef-themes.el | 27 +++
 1 file changed, 19 insertions(+), 8 deletions(-)

diff --git a/ef-themes.el b/ef-themes.el
index e1be30bb2e..daa553b3c5 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -562,6 +562,14 @@ Helper function for `ef-themes-preview-colors'."
:package-version '(ef-themes . "0.9.0")
:group 'ef-themes-faces))
 
+;; This produces `ef-themes-underline-error' and the like
+(dolist (scope '(info error warning))
+  (custom-declare-face
+   (intern (format "ef-themes-underline-%s" scope))
+   nil (format "Face for %s underline (e.g. `flymake', `flyspell')." scope)
+   :package-version '(ef-themes . "0.9.0")
+   :group 'ef-themes-faces))
+
 (defconst ef-themes-faces
   '(
  internal faces
@@ -580,6 +588,9 @@ Helper function for `ef-themes-preview-colors'."
 `(ef-themes-mark-delete ((,c :inherit error :background ,bg-err)))
 `(ef-themes-mark-select ((,c :inherit success :background ,bg-info)))
 `(ef-themes-mark-other ((,c :inherit warning :background ,bg-warning)))
+`(ef-themes-underline-error ((,c :underline (:style wave :color 
,underline-err
+`(ef-themes-underline-info ((,c :underline (:style wave :color 
,underline-info
+`(ef-themes-underline-warning ((,c :underline (:style wave :color 
,underline-warning
  all basic faces
 ; absolute essentials
 `(bold ((,c :weight bold)))
@@ -994,19 +1005,19 @@ Helper function for `ef-themes-preview-colors'."
 `(eww-form-text ((,c :inherit widget-field)))
 `(eww-form-textarea ((,c :inherit eww-form-text)))
  flycheck
-`(flycheck-error ((,c :underline (:style wave :color ,underline-err
+`(flycheck-error ((,c :inherit ef-themes-underline-error)))
 `(flycheck-fringe-error ((,c :inherit ef-themes-mark-delete)))
 `(flycheck-fringe-info ((,c :inherit ef-themes-mark-select)))
 `(flycheck-fringe-warning ((,c :inherit ef-themes-mark-other)))
-`(flycheck-info ((,c :underline (:style wave :color ,underline-info
-`(flycheck-warning ((,c :underline (:style wave :color 
,underline-warning
+`(flycheck-info ((,c :inherit ef-themes-underline-info)))
+`(flycheck-warning ((,c :inherit ef-themes-underline-warning)))
  flymake
-`(flymake-error ((,c :underline (:style wave :color ,underline-err
-`(flymake-note ((,c :underline (:style wave :color ,underline-info
-`(flymake-warning ((,c :underline (:style wave :color 
,underline-warning
+`(flymake-error ((,c :inherit ef-themes-underline-error)))
+`(flymake-note ((,c :inherit ef-themes-underline-info)))
+`(flymake-warning ((,c :inherit ef-themes-underline-warning)))
  flyspell
-`(flyspell-duplicate ((,c :underline (:style wave :color 
,underline-warning
-`(flyspell-incorrect ((,c :underline (:style wave :color ,underline-err
+`(flyspell-duplicate ((,c :inherit ef-themes-underline-warning)))
+`(flyspell-incorrect ((,c :inherit ef-themes-underline-error)))
  font-lock
 `(font-lock-builtin-face ((,c :inherit bold :foreground ,builtin)))
 `(font-lock-comment-delimiter-face ((,c :inherit font-lock-comment-face)))

[elpa] externals/ef-themes 11d5aa4203 09/13: ef-summer: tweak 'warning' mapping

[ELPA Syncer]

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

ef-summer: tweak 'warning' mapping

Basically, this makes the applicable colour more green than red
(yellow is a combination of red and green), based on how I define the
colour values.
---
 ef-summer-theme.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ef-summer-theme.el b/ef-summer-theme.el
index 5e2b3292ba..94a79238a5 100644
--- a/ef-summer-theme.el
+++ b/ef-summer-theme.el
@@ -146,7 +146,7 @@
 
   ;; Mappings
   (err red-warmer)
-  (warning yellow-warmer)
+  (warning yellow)
   (info green-cooler)
 
   (link blue)

[nongnu] elpa/geiser-guile updated (8f0ffecb43 -> d8fae2d194)

[ELPA Syncer]

elpasync pushed a change to branch elpa/geiser-guile.

  from  8f0ffecb43 obsolete names of boolean customization flags ending in 
-p
   new  413f16c4fa formatting and whitespace
   new  d8fae2d194 let's not use deprecated variables


Summary of changes:
 geiser-guile.el  | 38 +-
 readme.org   |  2 +-
 src/geiser/emacs.scm |  6 +++---
 3 files changed, 25 insertions(+), 21 deletions(-)

[elpa] externals/ef-themes 90ec0d2f6a 02/13: ef-dark: tweak warning mapping; refine yellow hue

[ELPA Syncer]

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

ef-dark: tweak warning mapping; refine yellow hue

Basically, this makes the applicable colour more green than red
(yellow is a combination of red and green).
---
 ef-dark-theme.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ef-dark-theme.el b/ef-dark-theme.el
index de06d6bd54..417c6ec24c 100644
--- a/ef-dark-theme.el
+++ b/ef-dark-theme.el
@@ -60,7 +60,7 @@
   (green-warmer"#6aad0f")
   (green-cooler"#00a692")
   (green-faint "#61a06c")
-  (yellow  "#c48032")
+  (yellow  "#bf9032")
   (yellow-warmer   "#d1843f")
   (yellow-cooler   "#df8a5a")
   (yellow-faint"#cf9f8f")
@@ -146,7 +146,7 @@
 
   ;; Mappings
   (err red-warmer)
-  (warning yellow-warmer)
+  (warning yellow)
   (info green)
 
   (link cyan)

[elpa] externals/ef-themes updated (404a54dc9e -> 0f4f5456d2)

[ELPA Syncer]

elpasync pushed a change to branch externals/ef-themes.

  from  404a54dc9e ef-duo-light: tweak mail-3 mapping
   new  daa63640cc ef-autumn: tweak 'warning' mapping
   new  90ec0d2f6a ef-dark: tweak warning mapping; refine yellow hue
   new  081d176de4 ef-trio-dark: tweak 'warning' mapping
   new  c26b0eb6cb ef-winter: tweak 'warning' mapping
   new  3c29958617 Update contrast ratios for ef-dark, ef-winter
   new  32803acbaf ef-day: tweak 'warning' mapping
   new  ba670eb659 ef-duo-light: tweak 'warning' mapping
   new  156b423082 ef-spring: tweak 'warning' mapping
   new  11d5aa4203 ef-summer: tweak 'warning' mapping
   new  2044b169a6 Implement ef-themes-underline-{error,info,warning}
   new  bb13231e26 Use correct outline level for one face group
   new  d778ec565a Add support for writegood-mode
   new  0f4f5456d2 Add support for auto-dim-other-buffers


Summary of changes:
 README.org|  2 ++
 contrast-ratios.org   |  4 ++--
 ef-autumn-theme.el|  2 +-
 ef-dark-theme.el  |  4 ++--
 ef-day-theme.el   |  2 +-
 ef-duo-light-theme.el |  2 +-
 ef-spring-theme.el|  2 +-
 ef-summer-theme.el|  2 +-
 ef-themes.el  | 35 ++-
 ef-trio-dark-theme.el |  2 +-
 ef-winter-theme.el|  4 ++--
 11 files changed, 40 insertions(+), 21 deletions(-)

[elpa] externals/ef-themes 3c29958617 05/13: Update contrast ratios for ef-dark, ef-winter

[ELPA Syncer]

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

Update contrast ratios for ef-dark, ef-winter

See commits c26b0eb, 90ec0d2.
---
 contrast-ratios.org | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/contrast-ratios.org b/contrast-ratios.org
index 63cb177542..03be6638e2 100644
--- a/contrast-ratios.org
+++ b/contrast-ratios.org
@@ -187,7 +187,7 @@ C1 and C2 are color values written in hexadecimal RGB."
 | green-warmer   | #6aad0f |7.60 |6.30 |5.12 |7.08 |
 | green-cooler   | #00a692 |6.87 |5.69 |4.63 |6.40 |
 | green-faint| #61a06c |6.75 |5.60 |4.55 |6.29 |
-| yellow | #c48032 |6.48 |5.37 |4.37 |6.04 |
+| yellow | #bf9032 |7.25 |6.01 |4.89 |6.75 |
 | yellow-warmer  | #d1843f |7.08 |5.87 |4.78 |6.60 |
 | yellow-cooler  | #df8f5a |8.21 |6.81 |5.54 |7.65 |
 | yellow-faint   | #cf9f8f |9.01 |7.47 |6.07 |8.39 |
@@ -1189,7 +1189,7 @@ overall design of the project.
 | green-warmer   | #6aad0f |7.04 |6.32 |5.67 |6.72 |
 | green-cooler   | #00a392 |6.17 |5.54 |4.97 |5.88 |
 | green-faint| #61a06c |6.26 |5.62 |5.04 |5.97 |
-| yellow | #c48052 |6.08 |5.46 |4.89 |5.80 |
+| yellow | #b58a52 |6.23 |5.60 |5.02 |5.94 |
 | yellow-warmer  | #d1803f |6.37 |5.72 |5.13 |6.07 |
 | yellow-cooler  | #df8a88 |7.53 |6.77 |6.07 |7.19 |
 | yellow-faint   | #c0a38a |8.20 |7.37 |6.60 |7.82 |

[nongnu] elpa/geiser-guile d8fae2d194 2/2: let's not use deprecated variables

[ELPA Syncer]

branch: elpa/geiser-guile
commit d8fae2d194b1dde1a60f1f09e854a3a21047615f
Author: jao 
Commit: jao 

let's not use deprecated variables
---
 geiser-guile.el | 26 +++---
 1 file changed, 15 insertions(+), 11 deletions(-)

diff --git a/geiser-guile.el b/geiser-guile.el
index 750aa900dc..818e4dee2a 100644
--- a/geiser-guile.el
+++ b/geiser-guile.el
@@ -62,7 +62,7 @@ good candidate for an entry in your project's .dir-locals.el."
 (geiser-custom--defcustom geiser-guile-init-file "~/.guile-geiser"
   "Initialization file with user code for the Guile REPL.
 If all you want is to load ~/.guile, set
-`geiser-guile-load-init-file-p' instead."
+`geiser-guile-load-init-file' instead."
   :type 'string)
 
 (geiser-custom--defcustom geiser-guile-load-init-file nil
@@ -154,10 +154,14 @@ effect on new REPLs.  For existing ones, use the command
 (define-obsolete-variable-alias
   'geiser-guile-case-sensitive-p 'geiser-guile-case-sensitive "0.26.2")
 
-(geiser-custom--defcustom geiser-guile-manual-lookup-other-window-p nil
+(geiser-custom--defcustom geiser-guile-manual-lookup-other-window nil
   "Non-nil means pop up the Info buffer in another window."
   :type 'boolean)
 
+(define-obsolete-variable-alias
+  'geiser-guile-manual-lookup-other-window-p
+  'geiser-guile-manual-lookup-other-window "0.26.2")
+
 (geiser-custom--defcustom geiser-guile-manual-lookup-nodes
 '("Guile" "guile-2.0")
   "List of info nodes that, when present, are used for manual lookups."
@@ -246,7 +250,7 @@ This function uses `geiser-guile-init-file' if it exists."
 (c-flags (when geiser-guile--conn-address
`(,(format "--listen=%s"
   (geiser-guile--get-connection-address t)
-(q-flags (and (not geiser-guile-load-init-file-p) '("-q"
+(q-flags (and (not geiser-guile-load-init-file) '("-q"
 `(,@(and (listp geiser-guile-binary) (cdr geiser-guile-binary))
   ,@q-flags "-L" ,(geiser-guile-ensure-scheme-dir) ,@c-flags
   ,@(apply 'append (mapcar (lambda (p) (list "-L" p))
@@ -271,7 +275,7 @@ This function uses `geiser-guile-init-file' if it exists."
   (mapconcat 'identity args " "))
 
 (defun geiser-guile--debug-cmd (args)
-  (let ((args (if (and geiser-guile-debug-show-full-bt-p
+  (let ((args (if (and geiser-guile-debug-show-full-bt
(string= (car args) "backtrace"))
   '("backtrace" "#:full?" "#t")
 args)))
@@ -391,7 +395,7 @@ This function uses `geiser-guile-init-file' if it exists."
 
 (defun geiser-guile--enter-debugger ()
   "Tell Geiser to interact with the debugger."
-  (when geiser-guile-show-debug-help-p
+  (when geiser-guile-show-debug-help
 (message "Debugger active. Press , for commands."))
   nil)
 
@@ -524,8 +528,8 @@ it spawn a server thread."
 
 (defun geiser-guile--set-up-declarative-modules ()
   "Set up Guile to (not) use declarative modules.
-See `geiser-guile-use-declarative-modules-p'."
-  (unless geiser-guile-use-declarative-modules-p
+See `geiser-guile-use-declarative-modules'."
+  (unless geiser-guile-use-declarative-modules
 (let ((code '(begin (eval-when (expand) (user-modules-declarative? :f)) 
'ok)))
   (geiser-eval--send/wait code
 
@@ -541,7 +545,7 @@ See `geiser-guile-use-declarative-modules-p'."
 (defun geiser-guile--startup (remote)
   "Startup function, for a remote connection if REMOTE is t."
   (geiser-guile--set-up-error-links)
-  (let ((geiser-log-verbose-p t)
+  (let ((geiser-log-verbose t)
 (g-load-path (buffer-local-value 'geiser-guile-load-path
  (or geiser-repl--last-scm-buffer
  (current-buffer)
@@ -585,9 +589,9 @@ See `geiser-guile-use-declarative-modules-p'."
 
 (defun geiser-guile--manual-look-up (id _mod)
   "Look for ID in the Guile manuals."
-  (let ((info-lookup-other-window-flag 
geiser-guile-manual-lookup-other-window-p))
+  (let ((info-lookup-other-window-flag 
geiser-guile-manual-lookup-other-window))
 (geiser-guile--info-lookup id)
-(when geiser-guile-manual-lookup-other-window-p
+(when geiser-guile-manual-lookup-other-window
   (switch-to-buffer-other-window "*info*"
 
 
@@ -613,7 +617,7 @@ See `geiser-guile-use-declarative-modules-p'."
   (external-help geiser-guile--manual-look-up)
   (check-buffer geiser-guile--guess)
   (keywords geiser-guile--keywords)
-  (case-sensitive geiser-guile-case-sensitive-p))
+  (case-sensitive geiser-guile-case-sensitive))
 
 ;;;###autoload
 (geiser-activate-implementation 'guile)

[nongnu] elpa/geiser-guile 413f16c4fa 1/2: formatting and whitespace

[ELPA Syncer]

branch: elpa/geiser-guile
commit 413f16c4fa045f268eea3f94e3f64d9e7b322553
Author: jao 
Commit: jao 

formatting and whitespace
---
 geiser-guile.el  | 12 ++--
 readme.org   |  2 +-
 src/geiser/emacs.scm |  6 +++---
 3 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/geiser-guile.el b/geiser-guile.el
index 6db40fa057..750aa900dc 100644
--- a/geiser-guile.el
+++ b/geiser-guile.el
@@ -1,4 +1,4 @@
-;;; geiser-guile.el --- Guile's implementation of the geiser protocols  -*- 
lexical-binding: t; -*-
+;;; geiser-guile.el --- Guile and Geiser talk to each other  -*- 
lexical-binding: t; -*-
 
 ;; Copyright (C) 2009-2022 Jose Antonio Ortega Ruiz
 ;; Start date: Sun Mar 08, 2009 23:03
@@ -39,7 +39,7 @@
(require 'tramp))
 
 
-;;; Customization:
+;;; Customization
 
 (defgroup geiser-guile nil
   "Customization for Geiser's Guile flavour."
@@ -164,7 +164,7 @@ effect on new REPLs.  For existing ones, use the command
   :type '(repeat string))
 
 
-;;; REPL support:
+;;; REPL support
 
 (defun geiser-guile--binary ()
   "Return the name of the Guile binary to execute."
@@ -265,7 +265,7 @@ This function uses `geiser-guile-init-file' if it exists."
   "\\(\nEntering a new prompt.  Type `,bt' for [^\n]+\\.$\\)"))
 
 
-;;; Evaluation support:
+;;; Evaluation support
 (defsubst geiser-guile--linearize-args (args)
   "Concatenate the list ARGS."
   (mapconcat 'identity args " "))
@@ -379,7 +379,7 @@ This function uses `geiser-guile-init-file' if it exists."
 (and (stringp f) (list f
 
 
-;;; Error display
+;;; Error display and debugger
 
 (defun geiser-guile--set-up-error-links ()
   (setq-local compilation-error-regexp-alist
@@ -403,7 +403,7 @@ This function uses `geiser-guile-init-file' if it exists."
   (not (zerop (length msg
 
 
-;;; Trying to ascertain whether a buffer is Guile Scheme:
+;;; Trying to ascertain whether a buffer is Guile Scheme
 
 (defconst geiser-guile--guess-re
   (format "\\(%s\\|#! *.+\\(/\\| \\)guile\\( *\\)?\\)"
diff --git a/readme.org b/readme.org
index 538be89a34..79e6fd952f 100644
--- a/readme.org
+++ b/readme.org
@@ -12,7 +12,7 @@ This package provides support for using 
[[https://www.gnu.org/software/guile/][G
 
 Provided [[https://gitlab.com/emacs-geiser/geiser][geiser]] is installed in 
your system, if this package's
 directory is in your load path, just add ~(require 'geiser-guile)~ to
-your initialisation files and then ~M-x run-guile~ to start a REPL.
+your initialisation files and then ~M-x geiser-guile~ to start a REPL.
 Scheme files with a Guile module declaration should be automatically
 recognised as Guile-flavoured Geiser buffers.
 
diff --git a/src/geiser/emacs.scm b/src/geiser/emacs.scm
index 4ef58d5923..c116968add 100644
--- a/src/geiser/emacs.scm
+++ b/src/geiser/emacs.scm
@@ -38,9 +38,9 @@ Meta-command used by Geiser to evaluate and compile code."
   (let ((args (syntax->datum args))
 (mod (syntax->datum mod)))
 (if (null? args)
-   (call-with-error-handling
-(lambda () (ge:compile form mod)))
-   (let ((proc (eval form this-module)))
+(call-with-error-handling
+ (lambda () (ge:compile form mod)))
+(let ((proc (eval form this-module)))
   (ge:eval `(,proc ,@args) mod)
 
 (define-meta-command ((geiser-load-file geiser) repl file)

[elpa] externals/org ee3dbb0fdb 1/2: ob-java: Define the list of all supported header arguments

[ELPA Syncer]

branch: externals/org
commit ee3dbb0fdb6e119207f13a165e90b878b741cf49
Author: Rudolf Adamkovič 
Commit: Ihor Radchenko 

ob-java: Define the list of all supported header arguments

* lisp/ob-java.el (org-babel-header-args:java): Complete the list of
header arguments supported for Java source blocks.
* testing/lisp/test-ob-java.el (ob-java/lint-header-arguments): Test
that the linter approves of all the supported arguments.
---
 lisp/ob-java.el  |  8 +++-
 testing/lisp/test-ob-java.el | 17 +
 2 files changed, 24 insertions(+), 1 deletion(-)

diff --git a/lisp/ob-java.el b/lisp/ob-java.el
index 832214f5c4..395dbd20dc 100644
--- a/lisp/ob-java.el
+++ b/lisp/ob-java.el
@@ -53,7 +53,13 @@ directory, so we keep that as the default behavior.
 
 [1] https://orgmode.org/manual/Results-of-Evaluation.html";)
 
-(defconst org-babel-header-args:java '((imports . :any))
+(defconst org-babel-header-args:java
+  '((dir   . :any)
+(classname . :any)
+(imports   . :any)
+(cmpflag   . :any)
+(cmdline   . :any)
+(cmdarg. :any))
   "Java-specific header arguments.")
 
 (defcustom org-babel-java-command "java"
diff --git a/testing/lisp/test-ob-java.el b/testing/lisp/test-ob-java.el
index 215f1cb515..a62d66557b 100644
--- a/testing/lisp/test-ob-java.el
+++ b/testing/lisp/test-ob-java.el
@@ -21,9 +21,26 @@
 ;; along with this program.  If not, see .
 
 ;;; Code:
+
 (require 'org-test "../testing/org-test")
 (require 'ob-core)
 
+;;; No Java required
+
+(ert-deftest ob-java/lint-header-arguments ()
+  (org-test-with-temp-text "
+#+header: :dir /tmp
+#+header: :classname com.example.Example
+#+header: :imports com.example.OtherExample
+#+header: :cmpflag -classpath .:/tmp/example/
+#+header: :cmdline -classpath .:/tmp/example/
+#+header: :cmdarg -verbose
+#+begin_src java
+#+end_src"
+(should-not (org-lint '(wrong-header-argument)
+
+;;; Java required
+
 (org-test-for-executable "java")
 (org-test-for-executable "javac")
 (unless (featurep 'ob-java)