[elpa] externals/async cff2bd0be3: Fix emacs bug#71401 with dired-vc-rename-file

[ELPA Syncer]

branch: externals/async
commit cff2bd0be3c78a2eb76717eed60302972fe9b8c5
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Fix emacs bug#71401 with dired-vc-rename-file

Make child emacs aware of its value.
---
 dired-async.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/dired-async.el b/dired-async.el
index 0d768540fd..43dcfdc04a 100644
--- a/dired-async.el
+++ b/dired-async.el
@@ -387,6 +387,7 @@ ESC or `q' to not overwrite any of the remaining files,
  (dired-copy-preserve-time
   ,dired-copy-preserve-time)
  (dired-create-destination-dirs ',create-dir)
+ (dired-vc-rename-file ,dired-vc-rename-file)
  auth-source-save-behavior)
  (setq overwrite-backup-query nil)
  ;; Inline `backup-file' as long as it is not

[nongnu] elpa/org-transclusion-http d80fa9faeb: Fix: Require url.el for byte compilation

[ELPA Syncer]

branch: elpa/org-transclusion-http
commit d80fa9faeb9678016bfe5c1e65e470ad633dc4e0
Author: Joseph Turner 
Commit: Joseph Turner 

Fix: Require url.el for byte compilation

Suggested-by: Chris Rayner 
---
 org-transclusion-http.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/org-transclusion-http.el b/org-transclusion-http.el
index 7904a7385f..e6c718d179 100644
--- a/org-transclusion-http.el
+++ b/org-transclusion-http.el
@@ -44,6 +44,7 @@
 (require 'org-transclusion-html)
 (require 'cl-lib)
 (require 'pcase)
+(require 'url)
 (require 'plz)
 
  Functions

[nongnu] elpa/evil 18962ce543: Use evil-first-non-blank instead of back-to-indentation for insert

[ELPA Syncer]

branch: elpa/evil
commit 18962ce543530527d95b9fc3e7712c0d21c23e54
Author: Tom Dalziel 
Commit: Tom Dalziel 

Use evil-first-non-blank instead of back-to-indentation for insert

Improves consistency
---
 evil-commands.el | 20 ++--
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/evil-commands.el b/evil-commands.el
index a75bead9ae..6e2849f38b 100644
--- a/evil-commands.el
+++ b/evil-commands.el
@@ -2803,7 +2803,7 @@ or the beginning of visual line.  The insertion will be 
repeated COUNT times.
 If VCOUNT is non nil it should be number > 0. The insertion will be repeated
 in the next VCOUNT - 1 lines below the current one."
   (push (point) buffer-undo-list)
-  (let ((move-fn (if non-blank-p #'back-to-indentation 
#'evil-beginning-of-line)))
+  (let ((move-fn (if non-blank-p #'evil-first-non-blank 
#'evil-beginning-of-line)))
 (if (and visual-line-mode
  evil-respect-visual-line-mode)
 (goto-char
@@ -2813,15 +2813,15 @@ in the next VCOUNT - 1 lines below the current one."
   (save-excursion
 (beginning-of-visual-line)
 (point
-  (funcall move-fn)))
-  (setq evil-insert-count count
-evil-insert-lines nil
-evil-insert-vcount
-(and vcount
- (> vcount 1)
- (list (line-number-at-pos)
-   (if non-blank-p #'evil-first-non-blank 
#'evil-beginning-of-line)
-   vcount)))
+  (funcall move-fn))
+(setq evil-insert-count count
+  evil-insert-lines nil
+  evil-insert-vcount
+  (and vcount
+   (> vcount 1)
+   (list (line-number-at-pos)
+ move-fn
+ vcount
   (evil-insert-state 1))
 
 (defun evil-insert-line (count &optional vcount)

[nongnu] elpa/undo-fu ea902716f3: Add error checking to the with-advice macro

[ELPA Syncer]

branch: elpa/undo-fu
commit ea902716f39c725db1b90dbb285b44404b3bd6df
Author: Campbell Barton 
Commit: Campbell Barton 

Add error checking to the with-advice macro
---
 undo-fu.el | 62 --
 1 file changed, 36 insertions(+), 26 deletions(-)

diff --git a/undo-fu.el b/undo-fu.el
index 997a7129ec..b6dd528fbd 100644
--- a/undo-fu.el
+++ b/undo-fu.el
@@ -122,29 +122,39 @@ This allows the initial boundary to be crossed when 
redoing."
 
 Advice are triplets of (SYMBOL HOW FUNCTION),
 see `advice-add' documentation."
-  (declare (indent 3))
-  (let ((body-let nil)
+  (declare (indent 1))
+  (let ((advice-list advice)
+(body-let nil)
 (body-advice-add nil)
 (body-advice-remove nil)
 (item nil))
-(while (setq item (pop advice))
-  (let ((fn-sym (gensym))
-(fn-advise (pop item))
-(fn-advice-ty (pop item))
-(fn-body (pop item)))
-;; Build the calls for each type.
-(push (list fn-sym fn-body) body-let)
-(push (list 'advice-add fn-advise fn-advice-ty fn-sym) body-advice-add)
-(push (list 'advice-remove fn-advise fn-sym) body-advice-remove)))
-(setq body-let (nreverse body-let))
-(setq body-advice-add (nreverse body-advice-add))
-;; Compose the call.
-`(let ,body-let
-   (unwind-protect
-   (progn
- ,@body-advice-add
- ,@body)
- ,@body-advice-remove
+(unless (listp advice-list)
+  (error "Advice must be a list"))
+(cond
+ ((null advice-list)
+  (error "Advice must be a list containing at least one item"))
+ (t
+  (while (setq item (pop advice-list))
+(unless (and (listp item) (eq 3 (length item)))
+  (error "Each advice must be a list of 3 items"))
+(let ((fn-sym (gensym))
+  (fn-advise (pop item))
+  (fn-advice-ty (pop item))
+  (fn-body (pop item)))
+  ;; Build the calls for each type.
+  (push (list fn-sym fn-body) body-let)
+  (push (list 'advice-add fn-advise fn-advice-ty fn-sym) 
body-advice-add)
+  (push (list 'advice-remove fn-advise fn-sym) body-advice-remove)))
+  (setq body-let (nreverse body-let))
+  (setq body-advice-add (nreverse body-advice-add))
+
+  ;; Compose the call.
+  `(let ,body-let
+ (unwind-protect
+ (progn
+   ,@body-advice-add
+   ,@body)
+   ,@body-advice-remove))
 
 (defmacro undo-fu--with-message-suffix (suffix &rest body)
   "Add text after the message output.
@@ -156,7 +166,7 @@ Optional argument BODY runs with the message suffix."
(lambda (fn-orig arg &rest args)
  (apply fn-orig
 (append (list (concat arg "%s")) args 
(list ,suffix))
-   ,@body))
+ ,@body))
 
 (defmacro undo-fu--with-messages-as-non-repeating-list (message-list &rest 
body)
   "Run BODY adding any message call to the MESSAGE-LIST list."
@@ -169,11 +179,11 @@ Optional argument BODY runs with the message suffix."
  (let ((message-text (apply #'format-message 
args)))
(unless (equal message-text (car 
temp-message-list))
  (push message-text 
temp-message-list)))
- (unwind-protect
- (progn
-   ,@body)
-   ;; Protected.
-   (setq ,message-list (append ,message-list (reverse 
temp-message-list)))
+   (unwind-protect
+   (progn
+ ,@body)
+ ;; Protected.
+ (setq ,message-list (append ,message-list (reverse 
temp-message-list)))
 
 (defun undo-fu--undo-enabled-or-error ()
   "Raise a user error when undo is disabled."

[elpa] externals/org b7b188e233: lisp/org-compat.el: Allow using imenu to visit non-leaf headlines

[ELPA Syncer]

branch: externals/org
commit b7b188e233b76b0fa5116b099f5b5e324a2beac3
Author: Morgan Smith 
Commit: Ihor Radchenko 

lisp/org-compat.el: Allow using imenu to visit non-leaf headlines

* lisp/org-compat.el (org-imenu-get-tree): Add the current headline to
the tree as a simple item even if it isn't a leaf.

With a file like this:

* headline 1
** headline 2

We currently produce an imenu tree that looks like this:

'(("headline 1" ("headline 2" . marker-2)))

imenu has no clue where "headline 1" is located and thus the user
can't navigate to it.  With this patch installed imenu knows where
non-leaf headlines are as the tree will now look like this:

'(("headline 1" . marker-1)
  ("headline 1" ("headline 2" . marker-2)))

Quirks:

With the default `imenu-flatten' value of nil, it is still impossible
to visit non-leaf headlines and no change is perceived.

Setting `imenu-flatten' to 'group works as expected with the quirk
that top level headlines don't end up in the group.

Ex:
* Headline 1
Group is "*"
Setting the group to "Headline 1" somehow might be nice but would
require upstream changes in imenu.
** Headline 2
Group is "Headline 1"
*** Headline 3
Group is "Headline 1:Headline 2"

Everything seems to work as expected when `imenu-flatten' is set to
'prefix or 'annotation.

Link: 
https://orgmode.org/list/ch3pr84mb34241ff78d2a1d8653fe6056c5...@ch3pr84mb3424.namprd84.prod.outlook.com
---
 lisp/org-compat.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/org-compat.el b/lisp/org-compat.el
index 41c26ad72f..a1b1bff47d 100644
--- a/lisp/org-compat.el
+++ b/lisp/org-compat.el
@@ -1458,8 +1458,8 @@ This also applied for speedbar access."
   (let* ((m (point-marker))
  (item (propertize headline 'org-imenu-marker m 'org-imenu t)))
 (push m org-imenu-markers)
-(if (>= level last-level)
-(push (cons item m) (aref subs level))
+ (push (cons item m) (aref subs level))
+ (unless (>= level last-level)
   (push (cons item
   (cl-mapcan #'identity (cl-subseq subs (1+ level
 (aref subs level))

[elpa] externals-release/org d0b1729ad5 2/3: Merge branch 'km/from-emacs-master' into bugfix

[ELPA Syncer]

branch: externals-release/org
commit d0b1729ad553ba6655dcb6d8422c514ac7b1397c
Merge: 008c28426d 8a82a06bec
Author: Kyle Meyer 
Commit: Kyle Meyer 

Merge branch 'km/from-emacs-master' into bugfix
---
 etc/ORG-NEWS | 16 
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS
index b76fdc3e2d..edeb7d3ab6 100644
--- a/etc/ORG-NEWS
+++ b/etc/ORG-NEWS
@@ -285,7 +285,7 @@ passing universal argument.
 
 When using this feature, IDs should not include =::=, which is used in
 links to indicate the start of the search string.  For backwards
-compability, existing IDs including =::= will still be matched (but
+compatibility, existing IDs including =::= will still be matched (but
 cannot be used together with search option).  A new org-lint checker
 has been added to warn about this.
 
@@ -426,8 +426,8 @@ in the dynamic block.
 A global default formatting function for =colview= dynamic blocks can
 be set via the new option ~org-columns-dblock-formatter~ which
 defaults to the new function ~org-columns-dblock-write-default~, that
-implements the previous (fixed) formatting behaviour. Hence, the
-default behaviour is identical to previous versions.
+implements the previous (fixed) formatting behavior. Hence, the
+default behavior is identical to previous versions.
 
 The global default function can be overridden for any given =colview=
 dynamic block individually by specifying a custom formatter function
@@ -893,7 +893,7 @@ order to remain backward-compatible.
 
 Before, a ClojureScript source block used the same backend as Clojure,
 configured in ~org-babel-clojure-backend~ and relied on an undocumented
-~:target~ paramter.
+~:target~ parameter.
 
 Now, there's ~org-babel-clojurescript-backend~ to determine the
 backend used for evaluation of ClojureScript.
@@ -971,7 +971,7 @@ manner with ~run-python~.
 
 *** New hook option ~org-indent-post-buffer-init-functions~
 
-This allows to run functions after ~org-indent~ intializes a buffer to
+This allows to run functions after ~org-indent~ initializes a buffer to
 enrich its properties.
 *** New option ~org-agenda-start-with-archives-mode~
 
@@ -1034,7 +1034,7 @@ of the dynamic block. This new option can be used to set 
the global
 default formatting function that will be used for =colview= dynamic
 blocks that do not specify any ~:formatter~ parameter. Its default
 value (the new function ~org-columns-dblock-write-default~) yields the
-previous (fixed) formatting behaviour.
+previous (fixed) formatting behavior.
 
 *** New allowed value of ~org-md-headline-style~ to mix ATX and Setext style 
headlines
 
@@ -1578,12 +1578,12 @@ is initiated only when user explicitly executes 
R/Julia-mode commands
 that trigger session interactions (requires ESS 24.01.0 or newer).
 The same session will remain available in the context of Org babel.
 
-*** ~org-store-link~ behaviour storing additional =CUSTOM_ID= links has changed
+*** ~org-store-link~ behavior storing additional =CUSTOM_ID= links has changed
 
 Previously, when storing =id:= link, ~org-store-link~ stored an
 additional "human readable" link using a node's =CUSTOM_ID= property.
 
-This behaviour has been expanded to store an additional =CUSTOM_ID=
+This behavior has been expanded to store an additional =CUSTOM_ID=
 link when storing any type of external link type in an Org file, not
 just =id:= links.
 

[elpa] externals-release/org 165319f584 3/3: ob-core: Revert recent indentation change

[ELPA Syncer]

branch: externals-release/org
commit 165319f5847e6f1c9e868e1ca98ec853d50496c6
Author: Kyle Meyer 
Commit: Kyle Meyer 

ob-core: Revert recent indentation change

* lisp/ob-core.el (org-babel-insert-result): Fix indentation change
from e4902995a.
---
 lisp/ob-core.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/ob-core.el b/lisp/ob-core.el
index 0b329266a5..db75f1f0ad 100644
--- a/lisp/ob-core.el
+++ b/lisp/ob-core.el
@@ -2762,7 +2762,7 @@ INFO may provide the values of these header arguments (in 
the
   ;; In this case `table-align' does the work
   ;; for us.
   (not (and (listp result)
-  (member "append" result-params
+(member "append" result-params
  (indent-rigidly beg end indent))
 (unless noninteractive
   (let ((time-info

[elpa] externals-release/org updated (008c28426d -> 165319f584)

[ELPA Syncer]

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

  from  008c28426d ob-clojure-cli-command: Fix :type declaration
   new  8a82a06bec ORG-NEWS: Backport commit 77d0eed74 from Emacs
   new  d0b1729ad5 Merge branch 'km/from-emacs-master' into bugfix
   new  165319f584 ob-core: Revert recent indentation change


Summary of changes:
 etc/ORG-NEWS| 16 
 lisp/ob-core.el |  2 +-
 2 files changed, 9 insertions(+), 9 deletions(-)

[elpa] externals-release/org 8a82a06bec 1/3: ORG-NEWS: Backport commit 77d0eed74 from Emacs

[ELPA Syncer]

branch: externals-release/org
commit 8a82a06bec0c369cfb5c5944f9fca5456e3bd426
Author: Stefan Kangas 
Commit: Kyle Meyer 

ORG-NEWS: Backport commit 77d0eed74 from Emacs

; Fix typos
77d0eed74e1d934e28f364cb3adb06365e71335e
Stefan Kangas
Mon Jun 10 00:40:26 2024 +0200

[km] This should have been included with 2a6a0480d.
---
 etc/ORG-NEWS | 16 
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS
index 26f927d424..32e56cba82 100644
--- a/etc/ORG-NEWS
+++ b/etc/ORG-NEWS
@@ -276,7 +276,7 @@ passing universal argument.
 
 When using this feature, IDs should not include =::=, which is used in
 links to indicate the start of the search string.  For backwards
-compability, existing IDs including =::= will still be matched (but
+compatibility, existing IDs including =::= will still be matched (but
 cannot be used together with search option).  A new org-lint checker
 has been added to warn about this.
 
@@ -417,8 +417,8 @@ in the dynamic block.
 A global default formatting function for =colview= dynamic blocks can
 be set via the new option ~org-columns-dblock-formatter~ which
 defaults to the new function ~org-columns-dblock-write-default~, that
-implements the previous (fixed) formatting behaviour. Hence, the
-default behaviour is identical to previous versions.
+implements the previous (fixed) formatting behavior. Hence, the
+default behavior is identical to previous versions.
 
 The global default function can be overridden for any given =colview=
 dynamic block individually by specifying a custom formatter function
@@ -884,7 +884,7 @@ order to remain backward-compatible.
 
 Before, a ClojureScript source block used the same backend as Clojure,
 configured in ~org-babel-clojure-backend~ and relied on an undocumented
-~:target~ paramter.
+~:target~ parameter.
 
 Now, there's ~org-babel-clojurescript-backend~ to determine the
 backend used for evaluation of ClojureScript.
@@ -962,7 +962,7 @@ manner with ~run-python~.
 
 *** New hook option ~org-indent-post-buffer-init-functions~
 
-This allows to run functions after ~org-indent~ intializes a buffer to
+This allows to run functions after ~org-indent~ initializes a buffer to
 enrich its properties.
 *** New option ~org-agenda-start-with-archives-mode~
 
@@ -1025,7 +1025,7 @@ of the dynamic block. This new option can be used to set 
the global
 default formatting function that will be used for =colview= dynamic
 blocks that do not specify any ~:formatter~ parameter. Its default
 value (the new function ~org-columns-dblock-write-default~) yields the
-previous (fixed) formatting behaviour.
+previous (fixed) formatting behavior.
 
 *** New allowed value of ~org-md-headline-style~ to mix ATX and Setext style 
headlines
 
@@ -1569,12 +1569,12 @@ is initiated only when user explicitly executes 
R/Julia-mode commands
 that trigger session interactions (requires ESS 24.01.0 or newer).
 The same session will remain available in the context of Org babel.
 
-*** ~org-store-link~ behaviour storing additional =CUSTOM_ID= links has changed
+*** ~org-store-link~ behavior storing additional =CUSTOM_ID= links has changed
 
 Previously, when storing =id:= link, ~org-store-link~ stored an
 additional "human readable" link using a node's =CUSTOM_ID= property.
 
-This behaviour has been expanded to store an additional =CUSTOM_ID=
+This behavior has been expanded to store an additional =CUSTOM_ID=
 link when storing any type of external link type in an Org file, not
 just =id:= links.
 

[nongnu] elpa/evil afb3788d69: Add :view and :sview ex commands

[ELPA Syncer]

branch: elpa/evil
commit afb3788d69db9f4c13d0ee8e1d0c85807a0676d8
Author: Tom Dalziel 
Commit: Tom Dalziel <33435574+tomd...@users.noreply.github.com>

Add :view and :sview ex commands
---
 evil-commands.el | 23 ---
 evil-maps.el |  2 ++
 2 files changed, 22 insertions(+), 3 deletions(-)

diff --git a/evil-commands.el b/evil-commands.el
index 6e2849f38b..3fd984f12d 100644
--- a/evil-commands.el
+++ b/evil-commands.el
@@ -3334,7 +3334,18 @@ If no FILE is specified, reload the current buffer from 
disk."
   (interactive "")
   (if file
   (find-file file)
-(revert-buffer bang (or bang (not (buffer-modified-p))) t)))
+(revert-buffer bang (or bang (not (buffer-modified-p))) t)
+(read-only-mode -1)))
+
+(evil-define-command evil-view (file &optional bang)
+  "Open FILE but don't allow changes.
+If no FILE is specified, reload the current buffer from disk as read-only."
+  :repeat nil
+  (interactive "")
+  (if file
+  (find-file-read-only file)
+(revert-buffer bang (or bang (not (buffer-modified-p))) t)
+(read-only-mode +1)))
 
 (evil-define-command evil-read (count file)
   "Insert the contents of FILE below the current line or line COUNT."
@@ -4517,7 +4528,7 @@ the deleted window's parent window are rebalanced."
 ;; any further children (then rebalancing is not necessary anyway)
 (ignore-errors (balance-windows p))
 
-(evil-define-command evil-window-split (&optional count file)
+(evil-define-command evil-window-split (&optional count file read-only)
   "Split the current window horizontally, COUNT lines height,
 editing a certain FILE. The new window will be created below
 when `evil-split-window-below' is non-nil. If COUNT and
@@ -4531,7 +4542,13 @@ of the parent of the splitted window are rebalanced."
   (when (and (not count) evil-auto-balance-windows)
 (balance-windows (window-parent)))
   (when file
-(evil-edit file)))
+(funcall (if read-only #'evil-view #'evil-edit) file)))
+
+(evil-define-command evil-window-split-view (&optional count file)
+  "As with `evil-window-split' but the file is opened read-only."
+  :repeat nil
+  (interactive "")
+  (evil-window-split count file t))
 
 (evil-define-command evil-window-vsplit (&optional count file)
   "Split the current window vertically, COUNT columns width,
diff --git a/evil-maps.el b/evil-maps.el
index 4b81472158..0dfa85dd47 100644
--- a/evil-maps.el
+++ b/evil-maps.el
@@ -508,6 +508,7 @@ included in `evil-insert-state-bindings' by default."
 (define-key evil-motion-state-map "!" 'evil-shell-command)
 
 (evil-ex-define-cmd "e[dit]" 'evil-edit)
+(evil-ex-define-cmd "vie[w]" 'evil-view)
 (evil-ex-define-cmd "w[rite]" 'evil-write)
 (evil-ex-define-cmd "up[date]" 'evil-update)
 (evil-ex-define-cmd "wa[ll]" 'evil-write-all)
@@ -538,6 +539,7 @@ included in `evil-insert-state-bindings' by default."
 (evil-ex-define-cmd "ri[ght]" 'evil-align-right)
 (evil-ex-define-cmd "ce[nter]" 'evil-align-center)
 (evil-ex-define-cmd "sp[lit]" 'evil-window-split)
+(evil-ex-define-cmd "sv[iew]" 'evil-window-split-view)
 (evil-ex-define-cmd "vs[plit]" 'evil-window-vsplit)
 (evil-ex-define-cmd "new" 'evil-window-new)
 (evil-ex-define-cmd "ene[w]" 'evil-buffer-new)

[elpa] externals/modus-themes 4f7fa199d2: Remove references to non-existent Modus face

[ELPA Syncer]

branch: externals/modus-themes
commit 4f7fa199d2d355d9cb50a327d66ebda341c405ec
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Remove references to non-existent Modus face
---
 modus-themes.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/modus-themes.el b/modus-themes.el
index c8dceeebca..389a1e2493 100644
--- a/modus-themes.el
+++ b/modus-themes.el
@@ -1768,7 +1768,7 @@ FG and BG are the main colors."
 `(font-latex-italic-face ((,c :inherit italic)))
 `(font-latex-math-face ((,c :inherit font-lock-constant-face)))
 `(font-latex-script-char-face ((,c :inherit font-lock-builtin-face)))
-`(font-latex-sectioning-5-face ((,c :inherit (bold 
modus-themes-variable-pitch) :foreground ,fg-alt)))
+`(font-latex-sectioning-5-face ((,c :inherit bold :foreground ,fg-alt)))
 `(font-latex-sedate-face ((,c :inherit font-lock-keyword-face)))
 `(font-latex-slide-title-face ((,c :inherit modus-themes-heading-1)))
 `(font-latex-string-face ((,c :inherit font-lock-string-face)))
@@ -3686,9 +3686,9 @@ FG and BG are the main colors."
 `(telega-username ((,c :foreground ,cyan-cooler)))
 `(telega-webpage-chat-link ((,c :background ,bg-inactive)))
 `(telega-webpage-fixed ((,c :inherit modus-themes-fixed-pitch :height 
0.85)))
-`(telega-webpage-header ((,c :inherit modus-themes-variable-pitch :height 
1.3)))
+`(telega-webpage-header ((,c :height 1.3)))
 `(telega-webpage-preformatted ((,c :inherit modus-themes-fixed-pitch 
:background ,bg-inactive)))
-`(telega-webpage-subheader ((,c :inherit modus-themes-variable-pitch 
:height 1.15)))
+`(telega-webpage-subheader ((,c :height 1.15)))
 ; terraform-mode
 `(terraform--resource-name-face ((,c :foreground ,keyword)))
 `(terraform--resource-type-face ((,c :foreground ,type)))

[elpa] externals-release/org e666660c7d: ob-shell: Fix header arg definitions for specific shells

[ELPA Syncer]

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

ob-shell: Fix header arg definitions for specific shells

* lisp/ob-shell.el (org-babel-shell-initialize): Assign default value
from `org-babel-default-header-args:shell' and
`org-babel-header-args:shell' for specific shell variables.

Reported-by: Suhail Singh 
Link: https://orgmode.org/list/87frtczgu6@gmail.com
---
 lisp/ob-shell.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/ob-shell.el b/lisp/ob-shell.el
index 35d9e93761..2304c7ec9c 100644
--- a/lisp/ob-shell.el
+++ b/lisp/ob-shell.el
@@ -92,10 +92,10 @@ variables."
  name))
 (funcall (if (fboundp 'defvar-1) #'defvar-1 #'set) ;Emacs-29
  (intern (concat "org-babel-default-header-args:" name))
- nil)
+ org-babel-default-header-args:shell)
 (funcall (if (fboundp 'defvar-1) #'defvar-1 #'set) ;Emacs-29
  (intern (concat "org-babel-header-args:" name))
- nil)))
+ org-babel-header-args:shell)))
 
 (defcustom org-babel-shell-names
   '("sh" "bash" "zsh" "fish" "csh" "ash" "dash" "ksh" "mksh" "posh")

[elpa] externals/org 7393803716 2/3: Merge branch 'bugfix'

[ELPA Syncer]

branch: externals/org
commit 739380371609a09bed238ec21dd484d52dcd86c3
Merge: 84f9d81abc e60c7d
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

Merge branch 'bugfix'
---
 etc/ORG-NEWS| 16 
 lisp/ob-clojure.el  |  2 +-
 lisp/ob-core.el |  2 +-
 lisp/ob-lilypond.el |  2 +-
 lisp/ob-shell.el|  4 ++--
 lisp/org-element.el | 28 ++--
 lisp/org-persist.el |  4 ++--
 lisp/org-src.el |  4 ++--
 lisp/ox.el  |  2 +-
 9 files changed, 32 insertions(+), 32 deletions(-)

diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS
index 483a1c0c73..e2cacb4012 100644
--- a/etc/ORG-NEWS
+++ b/etc/ORG-NEWS
@@ -360,7 +360,7 @@ passing universal argument.
 
 When using this feature, IDs should not include =::=, which is used in
 links to indicate the start of the search string.  For backwards
-compability, existing IDs including =::= will still be matched (but
+compatibility, existing IDs including =::= will still be matched (but
 cannot be used together with search option).  A new org-lint checker
 has been added to warn about this.
 
@@ -501,8 +501,8 @@ in the dynamic block.
 A global default formatting function for =colview= dynamic blocks can
 be set via the new option ~org-columns-dblock-formatter~ which
 defaults to the new function ~org-columns-dblock-write-default~, that
-implements the previous (fixed) formatting behaviour. Hence, the
-default behaviour is identical to previous versions.
+implements the previous (fixed) formatting behavior. Hence, the
+default behavior is identical to previous versions.
 
 The global default function can be overridden for any given =colview=
 dynamic block individually by specifying a custom formatter function
@@ -968,7 +968,7 @@ order to remain backward-compatible.
 
 Before, a ClojureScript source block used the same backend as Clojure,
 configured in ~org-babel-clojure-backend~ and relied on an undocumented
-~:target~ paramter.
+~:target~ parameter.
 
 Now, there's ~org-babel-clojurescript-backend~ to determine the
 backend used for evaluation of ClojureScript.
@@ -1046,7 +1046,7 @@ manner with ~run-python~.
 
 *** New hook option ~org-indent-post-buffer-init-functions~
 
-This allows to run functions after ~org-indent~ intializes a buffer to
+This allows to run functions after ~org-indent~ initializes a buffer to
 enrich its properties.
 *** New option ~org-agenda-start-with-archives-mode~
 
@@ -1109,7 +1109,7 @@ of the dynamic block. This new option can be used to set 
the global
 default formatting function that will be used for =colview= dynamic
 blocks that do not specify any ~:formatter~ parameter. Its default
 value (the new function ~org-columns-dblock-write-default~) yields the
-previous (fixed) formatting behaviour.
+previous (fixed) formatting behavior.
 
 *** New allowed value of ~org-md-headline-style~ to mix ATX and Setext style 
headlines
 
@@ -1653,12 +1653,12 @@ is initiated only when user explicitly executes 
R/Julia-mode commands
 that trigger session interactions (requires ESS 24.01.0 or newer).
 The same session will remain available in the context of Org babel.
 
-*** ~org-store-link~ behaviour storing additional =CUSTOM_ID= links has changed
+*** ~org-store-link~ behavior storing additional =CUSTOM_ID= links has changed
 
 Previously, when storing =id:= link, ~org-store-link~ stored an
 additional "human readable" link using a node's =CUSTOM_ID= property.
 
-This behaviour has been expanded to store an additional =CUSTOM_ID=
+This behavior has been expanded to store an additional =CUSTOM_ID=
 link when storing any type of external link type in an Org file, not
 just =id:= links.
 
diff --git a/lisp/ob-clojure.el b/lisp/ob-clojure.el
index 4a54acc51b..c7e95e 100644
--- a/lisp/ob-clojure.el
+++ b/lisp/ob-clojure.el
@@ -130,7 +130,7 @@
 (defcustom ob-clojure-cli-command (when-let (cmd (executable-find "clojure"))
 (concat cmd " -M"))
   "Clojure CLI command used by the Clojure `clojure-cli' backend."
-  :type 'string
+  :type '(choice string (const nil))
   :group 'org-babel
   :package-version '(Org . "9.7"))
 
diff --git a/lisp/ob-core.el b/lisp/ob-core.el
index 0b329266a5..db75f1f0ad 100644
--- a/lisp/ob-core.el
+++ b/lisp/ob-core.el
@@ -2762,7 +2762,7 @@ INFO may provide the values of these header arguments (in 
the
   ;; In this case `table-align' does the work
   ;; for us.
   (not (and (listp result)
-  (member "append" result-params
+(member "append" result-params
  (indent-rigidly beg end indent))
 (unless noninteractive
   (let ((time-info
diff --git a/lisp/ob-lilypond.el b/lisp/ob-lilypond.el
index 35df76fc96..a8d85ce7c8 100644
--- a/lisp/ob-lilypond.el
+++ b/lisp/ob-lilypond.el
@@ -41,7 +41,7 @@
 (declare-function org-fold-show-all "org-fold" (&optional types))

[elpa] externals/org updated (b7b188e233 -> 5b366a731b)

[ELPA Syncer]

elpasync pushed a change to branch externals/org.

  from  b7b188e233 lisp/org-compat.el: Allow using imenu to visit non-leaf 
headlines
   new  84f9d81abc org-update-checkbox-count: Do not move point beyond 
current heading
  adds  55fd660b4e org-element: Auto-undefer deferred properties that 
depend on buffer positions
  adds  1387e36135 Update version number for the 9.7.4 release
  adds  be39e61c4e Use emacs-internal coding system to read/write Elisp data
  adds  a9a05dab81 lisp/org-src.el (org-src-lang-modes): Fix :type 
definition
  adds  12243b9910 lisp/ob-lilypond.el (org-src-lang-modes): Fix alist value
  adds  008c28426d ob-clojure-cli-command: Fix :type declaration
  adds  8a82a06bec ORG-NEWS: Backport commit 77d0eed74 from Emacs
  adds  d0b1729ad5 Merge branch 'km/from-emacs-master' into bugfix
  adds  165319f584 ob-core: Revert recent indentation change
   new  e60c7d ob-shell: Fix header arg definitions for specific shells
   new  7393803716 Merge branch 'bugfix'
   new  5b366a731b org-babel-shell-initialize: Define session API backend 
for all the shells


Summary of changes:
 etc/ORG-NEWS| 16 
 lisp/ob-clojure.el  |  2 +-
 lisp/ob-core.el |  2 +-
 lisp/ob-lilypond.el |  2 +-
 lisp/ob-shell.el| 22 --
 lisp/org-element.el | 28 ++--
 lisp/org-list.el|  3 ++-
 lisp/org-persist.el |  4 ++--
 lisp/org-src.el |  4 ++--
 lisp/ox.el  |  2 +-
 10 files changed, 52 insertions(+), 33 deletions(-)

[elpa] externals/org 84f9d81abc 1/3: org-update-checkbox-count: Do not move point beyond current heading

[ELPA Syncer]

branch: externals/org
commit 84f9d81abceb8e260892bd8bd132b2e0a399e9c4
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

org-update-checkbox-count: Do not move point beyond current heading

* lisp/org-list.el (org-update-checkbox-count): Do not move point
before current heading when point is already on heading.

Reported-by: Bruno Cardoso 
Link: https://orgmode.org/list/878qz49an7@gmail.com
---
 lisp/org-list.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/org-list.el b/lisp/org-list.el
index 45a07a7154..564bc31bc1 100644
--- a/lisp/org-list.el
+++ b/lisp/org-list.el
@@ -106,6 +106,7 @@
 
 (declare-function org-at-heading-p "org" (&optional invisible-ok))
 (declare-function org-back-to-heading "org" (&optional invisible-ok))
+(declare-function org-back-to-heading-or-point-min "org" (&optional 
invisible-ok))
 (declare-function org-before-first-heading-p "org" ())
 (declare-function org-current-level "org" ())
 (declare-function org-element-at-point "org-element" (&optional pom 
cached-only))
@@ -2582,7 +2583,7 @@ portion of the buffer."
 ;; Move to start.
 (cond (all (goto-char (point-min)))
  (within-inlinetask (org-back-to-heading t))
- (t (org-with-limited-levels (outline-previous-heading
+ (t (org-with-limited-levels (org-back-to-heading-or-point-min 
t
 ;; Build an alist for each cookie found.  The key is the position
 ;; at beginning of cookie and values ending position, format of
 ;; cookie, number of checked boxes to report and total number of

[elpa] externals/pabbrev d5f120c523 2/2: Merge pull request #9 from sirikid/take

[ELPA Syncer]

branch: externals/pabbrev
commit d5f120c523ddce2e8dea1868150248cd188d8ad8
Merge: bf8a498f2d ab8519bca7
Author: Arthur Miller 
Commit: GitHub 

Merge pull request #9 from sirikid/take

Replace pabbrev-suggestions-subseq with seq-take
---
 pabbrev.el | 11 +++
 1 file changed, 3 insertions(+), 8 deletions(-)

diff --git a/pabbrev.el b/pabbrev.el
index cc76847fb8..73aa4483b3 100644
--- a/pabbrev.el
+++ b/pabbrev.el
@@ -986,14 +986,10 @@ The command `pabbrev-show-previous-binding' prints this 
out."
 (defvar pabbrev-suggestions-done-suggestions nil)
 (defvar pabbrev-suggestions-best-suggestion nil)
 
-(defsubst pabbrev-suggestions-subseq(sequence from to)
-  "Return subsequence from SEQUENCE starting FROM and ending with TO."
-  (cl-subseq sequence (min 0 from) (min (length sequence) to)))
-
 (defsubst pabbrev-suggestions-limit-alpha-sort (suggestions)
   "Limit suggestions and sort."
   (delq nil
-(sort (pabbrev-suggestions-subseq suggestions 0 10)
+(sort (seq-take suggestions 10)
   (lambda(a b)
 (string< (car a) (car b))
 
@@ -1084,8 +1080,7 @@ matching substring, while 
\\[pabbrev-suggestions-delete-window] just deletes the
   (interactive)
   (pabbrev-suggestions-insert
;;(try-completion "" pabbrev-suggestions-done-suggestions)))
-   (try-completion
-"" (pabbrev-suggestions-subseq pabbrev-suggestions-done-suggestions 0 
10
+   (try-completion "" (seq-take pabbrev-suggestions-done-suggestions 10
 
 (defun pabbrev-suggestions-insert(insertion)
   "Actually insert the suggestion."
@@ -1388,7 +1383,7 @@ This can be rather slow."
 Toggling `pabbrev-mode' will tend to turn them on again, as
 will `pabbrev-debug-restart-idle-timer'."
   (interactive)
-  (when pabbrev-short-idle-timer  
+  (when pabbrev-short-idle-timer
   (cancel-timer pabbrev-short-idle-timer)
   (setq pabbrev-short-idle-timer nil))
   (when pabbrev-long-idle-timer

[elpa] externals/org 5b366a731b 3/3: org-babel-shell-initialize: Define session API backend for all the shells

[ELPA Syncer]

branch: externals/org
commit 5b366a731b2baf5ee88dab395f1a4dac1c78c3ee
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

org-babel-shell-initialize: Define session API backend for all the shells

* lisp/ob-shell.el (org-babel-shell-initialize): Define
org-babel-prep-session: and
org-babel--initiate-session functions.

Without this, `org-babel-switch-to-session' does not work for ob-shell
blocks.
---
 lisp/ob-shell.el | 18 ++
 1 file changed, 18 insertions(+)

diff --git a/lisp/ob-shell.el b/lisp/ob-shell.el
index 2304c7ec9c..8d93eb8d9d 100644
--- a/lisp/ob-shell.el
+++ b/lisp/ob-shell.el
@@ -85,6 +85,24 @@ is modified outside the Customize interface."
 (shell-file-name name))
(org-babel-execute:shell body params
   (put fname 'definition-name 'org-babel-shell-initialize))
+(let ((fname (intern (concat "org-babel-prep-session:" name
+  (defalias fname
+(lambda (session params)
+ (:documentation
+   (format "Prepare %s SESSION according to the header arguments 
specified in PARAMS." name))
+ (let ((explicit-shell-file-name name)
+(shell-file-name name))
+   (org-babel-prep-session:shell session params
+  (put fname 'definition-name 'org-babel-shell-initialize))
+(let ((fname (intern (format "org-babel-%s-initiate-session" name
+  (defalias fname
+(lambda (session _params)
+ (:documentation
+   (format "Initiate %s session named SESSION." name))
+ (let ((explicit-shell-file-name name)
+(shell-file-name name))
+   (org-babel-sh-initiate-session session
+  (put fname 'definition-name 'org-babel-shell-initialize))
 (defalias (intern (concat "org-babel-variable-assignments:" name))
   #'org-babel-variable-assignments:shell
   (format "Return list of %s statements assigning to the block's \

[elpa] externals/pabbrev ab8519bca7 1/2: Replace pabbrev-suggestions-subseq with seq-take

[ELPA Syncer]

branch: externals/pabbrev
commit ab8519bca704ac957447deba4b8198eb1636409e
Author: Ivan Sokolov 
Commit: Ivan Sokolov 

Replace pabbrev-suggestions-subseq with seq-take

`pabbrev-suggestions-subseq' has always been used to take the first N
elements of the list, so it can be replaced with `seq-take'.
---
 pabbrev.el | 11 +++
 1 file changed, 3 insertions(+), 8 deletions(-)

diff --git a/pabbrev.el b/pabbrev.el
index cc76847fb8..73aa4483b3 100644
--- a/pabbrev.el
+++ b/pabbrev.el
@@ -986,14 +986,10 @@ The command `pabbrev-show-previous-binding' prints this 
out."
 (defvar pabbrev-suggestions-done-suggestions nil)
 (defvar pabbrev-suggestions-best-suggestion nil)
 
-(defsubst pabbrev-suggestions-subseq(sequence from to)
-  "Return subsequence from SEQUENCE starting FROM and ending with TO."
-  (cl-subseq sequence (min 0 from) (min (length sequence) to)))
-
 (defsubst pabbrev-suggestions-limit-alpha-sort (suggestions)
   "Limit suggestions and sort."
   (delq nil
-(sort (pabbrev-suggestions-subseq suggestions 0 10)
+(sort (seq-take suggestions 10)
   (lambda(a b)
 (string< (car a) (car b))
 
@@ -1084,8 +1080,7 @@ matching substring, while 
\\[pabbrev-suggestions-delete-window] just deletes the
   (interactive)
   (pabbrev-suggestions-insert
;;(try-completion "" pabbrev-suggestions-done-suggestions)))
-   (try-completion
-"" (pabbrev-suggestions-subseq pabbrev-suggestions-done-suggestions 0 
10
+   (try-completion "" (seq-take pabbrev-suggestions-done-suggestions 10
 
 (defun pabbrev-suggestions-insert(insertion)
   "Actually insert the suggestion."
@@ -1388,7 +1383,7 @@ This can be rather slow."
 Toggling `pabbrev-mode' will tend to turn them on again, as
 will `pabbrev-debug-restart-idle-timer'."
   (interactive)
-  (when pabbrev-short-idle-timer  
+  (when pabbrev-short-idle-timer
   (cancel-timer pabbrev-short-idle-timer)
   (setq pabbrev-short-idle-timer nil))
   (when pabbrev-long-idle-timer

[nongnu] elpa/evil 491da1a1be: Add c-ts-mode to evil-jump-item c major modes

[ELPA Syncer]

branch: elpa/evil
commit 491da1a1be2cf380a2174b5d3a282f9d1b9f8ac0
Author: Tom Dalziel 
Commit: Tom Dalziel <33435574+tomd...@users.noreply.github.com>

Add c-ts-mode to evil-jump-item c major modes

Fixes #1908
---
 evil-commands.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/evil-commands.el b/evil-commands.el
index 3fd984f12d..5605f146d6 100644
--- a/evil-commands.el
+++ b/evil-commands.el
@@ -462,7 +462,7 @@ and jump to the corresponding one."
((and (not (eolp)) (evil-looking-at-end-comment t))
 (forward-comment -1))
((and
- (memq major-mode '(c-mode c++-mode))
+ (memq major-mode '(c-mode c++-mode c-ts-mode c++-ts-mode))
  (require 'hideif nil t)
  (with-no-warnings
(let* ((hif-else-regexp (concat hif-cpp-prefix "\\(?:else\\|elif[ 
\t]+\\)"))

[nongnu] elpa/helm updated (59c593b553 -> ed4221793b)

[ELPA Syncer]

elpasync pushed a change to branch elpa/helm.

  from  59c593b553 Simplify helm-list-directory
   new  5c3d3975a6 Rename helm-list-directory-function to 
helm-list-remote-directory-fn
   new  ed4221793b Use helm-read-answer in HFF quick delete


Summary of changes:
 helm-files.el | 63 ---
 helm-help.el  |  4 ++--
 2 files changed, 36 insertions(+), 31 deletions(-)

[nongnu] elpa/helm ed4221793b 2/2: Use helm-read-answer in HFF quick delete

[ELPA Syncer]

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

Use helm-read-answer in HFF quick delete
---
 helm-files.el | 48 +---
 1 file changed, 25 insertions(+), 23 deletions(-)

diff --git a/helm-files.el b/helm-files.el
index 0e1029e6e5..58f1363b0f 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -6111,29 +6111,31 @@ When a prefix arg is given, meaning of
(helm-ff--trashed-files
 (and trash (helm-ff-trash-list (helm-trash-directory)
   (unwind-protect
-   (cl-loop for c in marked do
-(progn (helm-preselect
-(format helm-ff-last-expanded-candidate-regexp
-(regexp-quote
- (if (and 
helm-ff-transformer-show-only-basename
-  (not (helm-ff-dot-file-p c)))
- (helm-basename c) c
-   (when (y-or-n-p
-  (format "Really %s file `%s'? "
-  (if trash "Trash" "Delete")
-  (abbreviate-file-name c)))
- (helm-acase (helm-delete-file
-  c helm-ff-signal-error-on-dot-files 
'synchro trash)
-   (skip
-;; This happens only when trying to
-;; trash a file already trashed.
-(helm-delete-visible-mark 
(helm-this-visible-mark))
-(if (helm-end-of-source-p)
-(helm-previous-line)
-  (helm-next-line)))
-   (t (helm-delete-current-selection)))
- (message nil)
- (helm--remove-marked-and-update-mode-line c
+   (helm-read-answer-dolist-with-action
+(concat (format "Really %s file"
+(if trash "Trash" "Delete"))
+" `%s'")
+marked
+(lambda (c)
+  (helm-preselect
+   (format helm-ff-last-expanded-candidate-regexp
+   (regexp-quote
+(if (and helm-ff-transformer-show-only-basename
+ (not (helm-ff-dot-file-p c)))
+(helm-basename c) c
+  (helm-acase (helm-delete-file
+   c helm-ff-signal-error-on-dot-files 'synchro trash)
+(skip
+ ;; This happens only when trying to
+ ;; trash a file already trashed.
+ (helm-delete-visible-mark (helm-this-visible-mark))
+ (if (helm-end-of-source-p)
+ (helm-previous-line)
+   (helm-next-line)))
+(t (helm-delete-current-selection)))
+  (message nil)
+  (helm--remove-marked-and-update-mode-line c))
+#'abbreviate-file-name)
 (setq helm-marked-candidates nil
   helm-visible-mark-overlays nil)
 (helm-force-update

[nongnu] elpa/helm 5c3d3975a6 1/2: Rename helm-list-directory-function to helm-list-remote-directory-fn

[ELPA Syncer]

branch: elpa/helm
commit 5c3d3975a68248e058cd3f34aff6412f98f09491
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Rename helm-list-directory-function to helm-list-remote-directory-fn

make obsolete helm-list-directory-function.
---
 helm-files.el | 15 +--
 helm-help.el  |  4 ++--
 2 files changed, 11 insertions(+), 8 deletions(-)

diff --git a/helm-files.el b/helm-files.el
index 92907cf364..0e1029e6e5 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -594,7 +594,10 @@ command on remote (and/or locally if you want to trash as 
root).
 On Ubuntu-based distributions it is \\='trash-cli'."
   :type 'boolean)
 
-(defcustom helm-list-directory-function
+(defvaralias 'helm-list-directory-function 'helm-list-remote-directory-fn)
+(make-obsolete-variable 'helm-list-directory-function 
'helm-list-remote-directory-fn "4.0")
+
+(defcustom helm-list-remote-directory-fn
   (cl-case system-type
 (gnu/linux #'helm-list-dir-external)
 (berkeley-unix #'helm-list-dir-lisp)
@@ -3609,19 +3612,19 @@ debugging purpose."
 (defun helm-list-directory (directory &optional sel)
   "List directory DIRECTORY.
 
-If DIRECTORY is remote use `helm-list-directory-function',
+If DIRECTORY is remote use `helm-list-remote-directory-fn',
 otherwise use `directory-files'.
 SEL argument is only here for debugging purpose, it default to
 `helm-get-selection'."
   (let* ((remote (file-remote-p directory 'method))
- (helm-list-directory-function
+ (helm-list-remote-directory-fn
   (helm-acase remote
 ("ftp" #'helm-list-dir-lisp)
 ("adb" #'helm-list-dir-adb)
-(t helm-list-directory-function)))
+(t helm-list-remote-directory-fn)))
  (use-ext-remote-fn
   (and remote
-   (eq helm-list-directory-function 'helm-list-dir-external)))
+   (eq helm-list-remote-directory-fn 'helm-list-dir-external)))
  (sort-method (helm-acase helm-ff-initial-sort-method
 (newest (if use-ext-remote-fn
 "-t" #'file-newer-than-file-p))
@@ -3632,7 +3635,7 @@ SEL argument is only here for debugging purpose, it 
default to
#'helm-group-candidates-by)
 (if remote
 (ignore-errors
-  (funcall helm-list-directory-function directory sort-method))
+  (funcall helm-list-remote-directory-fn directory sort-method))
   (helm-acase helm-ff-initial-sort-method
 ((newest size)
  (sort (helm-local-directory-files
diff --git a/helm-help.el b/helm-help.el
index 49c2bc544b..0666b98233 100644
--- a/helm-help.el
+++ b/helm-help.el
@@ -1040,9 +1040,9 @@ Starting at helm version 2.9.7 it is somewhat possible to
 colorize fnames by listing files without loosing performances with
 external commands (ls and awk) if your system is compatible.
 For this you can use `helm-list-dir-external' as value
-for `helm-list-directory-function'.
+for `helm-list-remote-directory-fn'.
 
-See `helm-list-directory-function' documentation for more infos.
+See `helm-list-remote-directory-fn' documentation for more infos.
 
  Completing host
 

[nongnu] elpa/helm-core updated (59c593b553 -> ed4221793b)

[ELPA Syncer]

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

  from  59c593b553 Simplify helm-list-directory
  adds  5c3d3975a6 Rename helm-list-directory-function to 
helm-list-remote-directory-fn
  adds  ed4221793b Use helm-read-answer in HFF quick delete

No new revisions were added by this update.

Summary of changes:
 helm-files.el | 63 ---
 helm-help.el  |  4 ++--
 2 files changed, 36 insertions(+), 31 deletions(-)

[elpa] externals/orgalist d0297aefc2: Fix unwanted deletion of radio lists.

[Nicolas Goaziou via]

branch: externals/orgalist
commit d0297aefc2a99772ccf489ec88e552118ee0afd4
Author: Nicolas Goaziou 
Commit: Nicolas Goaziou 

Fix unwanted deletion of radio lists.

* orgalist.el: Bump required minimal version for emacs.  Fix a wrong
S-exp.
---
 orgalist.el | 8 ++--
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/orgalist.el b/orgalist.el
index f4fd067949..37578af509 100644
--- a/orgalist.el
+++ b/orgalist.el
@@ -5,7 +5,7 @@
 ;; Author: Nicolas Goaziou 
 ;; Maintainer: Nicolas Goaziou 
 ;; Keywords: convenience
-;; Package-Requires: ((emacs "24.4"))
+;; Package-Requires: ((emacs "26.1"))
 ;; Version: 1.14
 
 ;; This program is free software; you can redistribute it and/or modify
@@ -1126,11 +1126,7 @@ for this list."
   (match-beginning 0)))
(plain-list (save-excursion
  (goto-char top-point)
- ;; FIXME: Compatibility layer.  Remove when
- ;; we require at least Emacs 26.1.
- (funcall (if (fboundp 'org-list-to-lisp)
-  'org-list-to-lisp)
-  'org-list-parse-list
+ (funcall 'org-list-to-lisp
   (unless (fboundp transform)
 (error "No such transformation function %s" transform))
   (let ((txt (funcall transform plain-list)))

[elpa] externals/orgalist 6b97873be7: orgalist: Release 1.15.

[Nicolas Goaziou via]

branch: externals/orgalist
commit 6b97873be78dba574f4753104c8f2da3c8bfb5ee
Author: Nicolas Goaziou 
Commit: Nicolas Goaziou 

orgalist: Release 1.15.

* orgalist.el: Bump version to 1.15.
---
 orgalist.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/orgalist.el b/orgalist.el
index 37578af509..ca45f9e8f9 100644
--- a/orgalist.el
+++ b/orgalist.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Nicolas Goaziou 
 ;; Keywords: convenience
 ;; Package-Requires: ((emacs "26.1"))
-;; Version: 1.14
+;; Version: 1.15
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by

[elpa] externals/dape 5ff199325b: Use overlay-arrow-variable-list for displaying stack pointer #117

[ELPA Syncer]

branch: externals/dape
commit 5ff199325bf70db4aec0f612a5375494378a1dda
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Use overlay-arrow-variable-list for displaying stack pointer #117

* Use set-fringe-bitmap-face to color arrow based on (non zero index
bt frame selected, if breakpoint on current line)
* Add dape owned fringe bitmap to be able to set face freely
---
 dape.el | 57 -
 1 file changed, 28 insertions(+), 29 deletions(-)

diff --git a/dape.el b/dape.el
index c983b722d8..91dda4c5a6 100644
--- a/dape.el
+++ b/dape.el
@@ -3142,20 +3142,27 @@ See `dape-request' for expected CB signature."
 
 ;;; Stack pointers
 
-(defvar dape--stack-position (make-overlay 0 0)
-  "Dape stack position overlay for arrow.")
+(define-fringe-bitmap 'dape-right-triangle
+  "\xe0\xf0\xf8\xfc\xfc\xf8\xf0\xe0")
+
+(defvar dape--overlay-arrow-position (make-marker)
+  "Dape stack position marker.")
+
+(add-to-list 'overlay-arrow-variable-list 'dape--overlay-arrow-position)
 
 (defvar dape--stack-position-overlay nil
   "Dape stack position overlay for line.")
 
 (defun dape--remove-stack-pointers ()
   "Remove stack pointer marker."
-  (when-let ((buffer (overlay-buffer dape--stack-position)))
+  (when-let ((buffer (marker-buffer dape--overlay-arrow-position)))
 (with-current-buffer buffer
+  (setq fringe-indicator-alist
+(delete '(overlay-arrow . dape-right-triangle) 
fringe-indicator-alist))
   (dape--remove-eldoc-hook)))
   (when (overlayp dape--stack-position-overlay)
 (delete-overlay dape--stack-position-overlay))
-  (delete-overlay dape--stack-position))
+  (set-marker dape--overlay-arrow-position nil))
 
 (defun dape--update-stack-pointers (conn &optional
  skip-stack-pointer-flash skip-display)
@@ -3165,8 +3172,8 @@ If SKIP-DISPLAY is non nil refrain from going to selected 
stack."
   (when-let (((dape--stopped-threads conn))
  (frame (dape--current-stack-frame conn)))
 (dape--remove-stack-pointers)
-(let ((deepest-p (eq frame (car (plist-get (dape--current-thread conn)
-   :stackFrames)
+(let ((deepest-p
+   (eq frame (car (plist-get (dape--current-thread conn) 
:stackFrames)
   (dape--with-request (dape--source-ensure conn frame)
 (when-let ((marker (dape--object-to-marker conn frame)))
   (unless skip-display
@@ -3191,9 +3198,8 @@ If SKIP-DISPLAY is non nil refrain from going to selected 
stack."
 (save-excursion
   (goto-char (marker-position marker))
   (setq dape--stack-position-overlay
-(let ((ov
-   (make-overlay (line-beginning-position)
- (line-beginning-position 2
+(let ((ov (make-overlay (line-beginning-position)
+(line-beginning-position 2
   (overlay-put ov 'face 'dape-stack-trace-face)
   (when deepest-p
 (when-let ((exception-description
@@ -3205,25 +3211,18 @@ If SKIP-DISPLAY is non nil refrain from going to 
selected stack."
 
'dape-exception-description-face)
 "\n"
   ov))
-  ;; HACK I don't believe that it's defined
-  ;;  behavior in which order fringe bitmaps
-  ;;  are displayed in, maybe it's the order
-  ;;  of overlay creation?
-  (setq dape--stack-position
-(make-overlay (line-beginning-position)
-  (line-beginning-position)))
-  (dape--overlay-icon dape--stack-position
-  overlay-arrow-string
-  'right-triangle
-  (cond
-   ((seq-filter (lambda (ov)
-  (overlay-get ov :breakpoint))
-(dape--breakpoints-at-point))
-'dape-breakpoint-face)
-   (deepest-p
-'default)
-   (t
-'shadow))
+  (add-to-list 'fringe-indicator-alist
+   '(overlay-arrow . dape-right-triangle))
+  ;; Set face of overlay-arrow before updating marker
+  (set-fringe-bitmap-face
+   'dape-right-triangle
+   (cond
+((cl-find-if (lambda (ov) (overlay-get ov :breakpoint))
+ (dape--breakpoints-at-point))
+ 'dape-breakpoint-face)
+  

[elpa] externals/org 102181e030: org-plot: Make data-file stable for replot-on-resize

[ELPA Syncer]

branch: externals/org
commit 102181e0304eabfc0ed052bc001703c656db7c87
Author: Visuwesh 
Commit: Ihor Radchenko 

org-plot: Make data-file stable for replot-on-resize

* lisp/org-plot.el (org-plot/gnuplot): Use a stable data-file to make
replot-on-resize in GUI terminals work.

Reported-by: Visuwesh 
Link: https://orgmode.org/list/87mso7sl6g@gmail.com
---
 lisp/org-plot.el | 12 
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/lisp/org-plot.el b/lisp/org-plot.el
index 283d99380d..83483b2227 100644
--- a/lisp/org-plot.el
+++ b/lisp/org-plot.el
@@ -662,8 +662,7 @@ line directly before or after the table."
   (looking-at "[[:space:]]*#\\+"))
 (setf params (org-plot/collect-options params
 ;; collect table and table information
-(let* ((data-file (make-temp-file "org-plot"))
-   (table (let ((tbl (save-excursion
+(let* ((table (let ((tbl (save-excursion
(org-plot/goto-nearest-table)
(org-table-to-lisp
(when (pcase (plist-get params :transpose)
@@ -681,12 +680,11 @@ line directly before or after the table."
   (nth 0 table
   (type (assoc (plist-get params :plot-type)
org-plot/preset-plot-types))
-   gnuplot-script)
+   gnuplot-script data-file)
 
   (unless type
(user-error "Org-plot type `%s' is undefined" (plist-get params 
:plot-type)))
 
-  (run-with-idle-timer 0.1 nil #'delete-file data-file)
   (when (eq (cadr table) 'hline)
(setf params
  (plist-put params :labels (car table))) ; headers to labels
@@ -697,6 +695,12 @@ line directly before or after the table."
(setf params (org-plot/collect-options params
   ;; Dump table to datafile
   (let ((dump-func (plist-get type :data-dump)))
+;; Use a stable temporary file to ensure that 'replot' upon
+;; resizing a GUI gnuplot terminal window works.
+(setq data-file (org-babel-temp-stable-file
+ (list (or dump-func 'org-plot/gnuplot-to-data)
+   table num-cols params)
+ "org-plot"))
 (if dump-func
(funcall dump-func table data-file num-cols params)
  (org-plot/gnuplot-to-data table data-file params)))

[nongnu] elpa/gptel updated (6e7b6a2ecb -> 57a0814878)

[ELPA Syncer]

elpasync pushed a change to branch elpa/gptel.

  from  6e7b6a2ecb gptel: Include backend in process info plist
   new  975a5377fd gptel-privategpt: Add support for PrivateGPT
   new  525ab4b7fa gptel-privategpt: Add usage instructions to README
   new  57a0814878 README: Fix formatting


Summary of changes:
 README.org  |  70 --
 gptel-privategpt.el | 163 
 2 files changed, 216 insertions(+), 17 deletions(-)
 create mode 100644 gptel-privategpt.el

[nongnu] elpa/gptel 57a0814878 3/3: README: Fix formatting

[ELPA Syncer]

branch: elpa/gptel
commit 57a0814878cb18580181f402c2ce4b5a589e5eba
Author: Karthik Chikmagalur 
Commit: Karthik Chikmagalur 

README: Fix formatting
---
 README.org | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/README.org b/README.org
index 5329fad04f..20487c5f0b 100644
--- a/README.org
+++ b/README.org
@@ -558,6 +558,7 @@ The above code makes the backend available to select.  If 
you want it to be the
 #+end_src
 
 #+html: 
+#+html: 
  PrivateGPT
 #+html: 
 
@@ -594,8 +595,6 @@ The above code makes the backend available to select.  If 
you want it to be the
 
 #+html: 
 
-
-
 ** Usage
 
 (This is also a [[https://www.youtube.com/watch?v=bsRnh_brggM][video demo]] 
showing various uses of gptel.)

[nongnu] elpa/gptel 525ab4b7fa 2/3: gptel-privategpt: Add usage instructions to README

[ELPA Syncer]

branch: elpa/gptel
commit 525ab4b7fa0108d837734771d8148eac130ff57d
Author: Michael Werner 
Commit: karthink 

gptel-privategpt: Add usage instructions to README

README: Add instructions for using PrivateGPT.
---
 README.org | 71 +++---
 1 file changed, 54 insertions(+), 17 deletions(-)

diff --git a/README.org b/README.org
index d57bcbc170..5329fad04f 100644
--- a/README.org
+++ b/README.org
@@ -4,23 +4,24 @@
 
 gptel is a simple Large Language Model chat client for Emacs, with support for 
multiple models and backends.
 
-| LLM Backend| Supports | Requires  |
-|+--+---|
-| ChatGPT| ✓  | 
[[https://platform.openai.com/account/api-keys][API key]]   |
-| Azure  | ✓  | Deployment and API key|
-| Ollama | ✓  | [[https://ollama.ai/][Ollama running locally]] 
   |
-| GPT4All| ✓  | [[https://gpt4all.io/index.html][GPT4All 
running locally]]   |
-| Gemini | ✓  | 
[[https://makersuite.google.com/app/apikey][API key]]   |
-| Llama.cpp  | ✓  | 
[[https://github.com/ggerganov/llama.cpp/tree/master/examples/server#quick-start][Llama.cpp
 running locally]] |
-| Llamafile  | ✓  | 
[[https://github.com/Mozilla-Ocho/llamafile#quickstart][Local Llamafile 
server]]|
-| Kagi FastGPT   | ✓  | [[https://kagi.com/settings?p=api][API key]]   
|
-| Kagi Summarizer| ✓  | [[https://kagi.com/settings?p=api][API key]]   
|
-| together.ai| ✓  | 
[[https://api.together.xyz/settings/api-keys][API key]]   |
-| Anyscale   | ✓  | [[https://docs.endpoints.anyscale.com/][API 
key]]   |
-| Perplexity | ✓  | 
[[https://docs.perplexity.ai/docs/getting-started][API key]]   |
-| Anthropic (Claude) | ✓  | [[https://www.anthropic.com/api][API key]] 
  |
-| Groq   | ✓  | [[https://console.groq.com/keys][API key]] 
 |
-| OpenRouter | ✓  | [[https://openrouter.ai/keys][API key]]
  |
+| LLM Backend| Supports | Requires   |
+|+--+|
+| ChatGPT| ✓| 
[[https://platform.openai.com/account/api-keys][API key]]|
+| Azure  | ✓| Deployment and API key |
+| Ollama | ✓| [[https://ollama.ai/][Ollama running 
locally]] |
+| GPT4All| ✓| [[https://gpt4all.io/index.html][GPT4All 
running locally]]|
+| Gemini | ✓| 
[[https://makersuite.google.com/app/apikey][API key]]|
+| Llama.cpp  | ✓| 
[[https://github.com/ggerganov/llama.cpp/tree/master/examples/server#quick-start][Llama.cpp
 running locally]]  |
+| Llamafile  | ✓| 
[[https://github.com/Mozilla-Ocho/llamafile#quickstart][Local Llamafile 
server]] |
+| Kagi FastGPT   | ✓| [[https://kagi.com/settings?p=api][API key]] 
   |
+| Kagi Summarizer| ✓| [[https://kagi.com/settings?p=api][API key]] 
   |
+| together.ai| ✓| 
[[https://api.together.xyz/settings/api-keys][API key]]|
+| Anyscale   | ✓| [[https://docs.endpoints.anyscale.com/][API 
key]]|
+| Perplexity | ✓| 
[[https://docs.perplexity.ai/docs/getting-started][API key]]
|
+| Anthropic (Claude) | ✓| [[https://www.anthropic.com/api][API key]]   
 |
+| Groq   | ✓| [[https://console.groq.com/keys][API key]]   
 |
+| OpenRouter | ✓| [[https://openrouter.ai/keys][API key]]  
  |
+| PrivateGPT | ✓| 
[[https://github.com/zylon-ai/private-gpt#-documentation][PrivateGPT running 
locally]] |
 
 *General usage*: ([[https://www.youtube.com/watch?v=bsRnh_brggM][YouTube 
Demo]])
 
@@ -63,6 +64,7 @@ gptel uses Curl if available, but falls back to url-retrieve 
to work without ext
   - [[#anthropic-claude][Anthropic (Claude)]]
   - [[#groq][Groq]]
   - [[#openrouter][OpenRouter]]
+  - [[#privategpt][PrivateGPT]]
   - [[#usage][Usage]]
 - [[#in-any-buffer][In any buffer:]]
 - [[#in-a-dedicated-chat-buffer][In a dedicated chat buffer:]]
@@ -556,6 +558,41 @@ The above code makes the backend available to select.  If 
you want it to be the
 #+end_src
 
 #+html: 
+ PrivateGPT
+#+html: 
+
+Register a backend with
+#+begin_src emacs-lisp
+(gptel-make-privategpt "privateGPT"   ;Any name you want
+  :protocol "http"
+  :host "localhost:8001"
+  :stream t
+  :context t;Use context provided by 

[nongnu] elpa/gptel 975a5377fd 1/3: gptel-privategpt: Add support for PrivateGPT

[ELPA Syncer]

branch: elpa/gptel
commit 975a5377fd93ea68e7a95398494710cd0925d6a7
Author: Michael Werner 
Commit: karthink 

gptel-privategpt: Add support for PrivateGPT

gptel-privategpt.el (gptel-privategpt,
gptel--privategpt-parse-sources, gptel-make-privategpt,
gptel--parse-response, gptel-curl--parse-stream): Add support for
privateGPT based on the openai-API, including support for context
and parsing of sources.
---
 gptel-privategpt.el | 163 
 1 file changed, 163 insertions(+)

diff --git a/gptel-privategpt.el b/gptel-privategpt.el
new file mode 100644
index 00..e46c4f37e4
--- /dev/null
+++ b/gptel-privategpt.el
@@ -0,0 +1,163 @@
+;;; gptel-privategpt.el ---  Privategpt AI suppport for gptel  -*- 
lexical-binding: t; -*-
+
+;; Copyright (C) 2023  Karthik Chikmagalur
+
+;; Author: Karthik Chikmagalur 
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program 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 this program.  If not, see .
+
+;;; Commentary:
+
+;; This file adds support for Privategpt's Messages API to gptel
+
+;;; Code:
+(require 'cl-generic)
+(eval-when-compile
+  (require 'cl-lib))
+(require 'map)
+(require 'gptel)
+
+(defvar json-object-type)
+
+(declare-function prop-match-value "text-property-search")
+(declare-function text-property-search-backward "text-property-search")
+(declare-function json-read "json" ())
+
+
+
+;;; Privategpt (Messages API)
+(cl-defstruct (gptel-privategpt (:constructor gptel--make-privategpt)
+   (:copier nil)
+   (:include gptel-openai))
+  context sources)
+
+(defun gptel--privategpt-parse-sources (response)
+  (cl-loop with source-alist
+   for source across (map-nested-elt response '(:choices 0 :sources))
+   for name = (map-nested-elt source '(:document :doc_metadata 
:file_name))
+   for page = (map-nested-elt source '(:document :doc_metadata 
:page_label))
+   do (push page (alist-get name source-alist nil nil #'equal))
+   finally return
+   (cl-loop for (file-name . file-pages) in source-alist
+for pages = (delete-dups (delq nil file-pages))
+if pages
+collect (format "- %s (page %s)" file-name (mapconcat 
#'identity pages ", "))
+into source-items
+else collect (format "- %s" file-name) into source-items
+finally return (mapconcat #'identity (cons "\n\nSources:" 
source-items) "\n"
+
+(cl-defmethod gptel-curl--parse-stream ((_backend gptel-privategpt) info)
+  (let* ((content-strs))
+(condition-case nil
+(while (re-search-forward "^data:" nil t)
+  (save-match-data
+(if (looking-at " *\\[DONE\\]")
+(when-let ((sources-string (plist-get info :sources)))
+  (push sources-string content-strs))
+  (let ((response (gptel--json-read)))
+   (unless (or (plist-get info :sources)
+(not (gptel-privategpt-sources (plist-get info 
:backend
+  (plist-put info :sources (gptel--privategpt-parse-sources 
response)))
+   (let* ((delta (map-nested-elt response '(:choices 0 :delta)))
+  (content (plist-get delta :content)))
+ (push content content-strs))
+(error
+ (goto-char (match-beginning 0
+  (apply #'concat (nreverse content-strs
+
+(cl-defmethod gptel--parse-response ((_backend gptel-privategpt) response info)
+  (let ((response-string (map-nested-elt response '(:choices 0 :message 
:content)))
+(sources-string (and (gptel-privategpt-sources (plist-get info 
:backend))
+ (gptel--privategpt-parse-sources response
+(concat response-string sources-string)))
+
+(cl-defmethod gptel--request-data ((_backend gptel-privategpt) prompts)
+  "JSON encode PROMPTS for sending to ChatGPT."
+  (let ((prompts-plist
+ `(:model ,gptel-model
+  :messages [,@prompts]
+  :use_context ,(or (gptel-privategpt-context gptel-backend) 
:json-false)
+  :include_sources ,(or (gptel-privategpt-sources gptel-backend) 
:json-false)
+   :stream ,(or (and gptel-stream gptel-use-curl
+ (gptel-backend-stream gptel-backend))
+ :json-false
+(when gptel-tempe

[nongnu] elpa/xah-fly-keys 147ef9d2d7: xah-smart-delete minor fix. thx to maxwestrom.

[ELPA Syncer]

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

xah-smart-delete minor fix. thx to maxwestrom.
---
 xah-fly-keys.el | 27 +++
 1 file changed, 15 insertions(+), 12 deletions(-)

diff --git a/xah-fly-keys.el b/xah-fly-keys.el
index b08e5186f1..1fbc44a471 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: 25.8.20240615211050
+;; Version: 25.8.20240617101148
 ;; Created: 2013-09-10
 ;; Package-Requires: ((emacs "27"))
 ;; Keywords: convenience, vi, vim, ergoemacs, keybinding
@@ -694,11 +694,11 @@ Behavior depends on what's left char, and current 
`major-mode'.
 If `xah-smart-delete-dispatch' match, call the matched function instead.
 If region active, delete region.
 If cursor left is space tab newline, delete them.
+If cursor left is bracket, delete the whole bracket block.
 If cursor left is string quote, delete the string.
-If cursor left is bracket, delete the bracketed text.
 Else just delete one char to the left.
 
-If `universal-argument' is called first, do not delete bracket's inner text.
+If `universal-argument' is called first, do not delete bracket's innertext.
 
 In elisp code, arg BracketOnly if true, do not delete innertext. SkipDispatch 
if true, skip checking `xah-smart-delete-dispatch'.
 
@@ -727,7 +727,7 @@ Version: 2024-06-05"
   (cond
;; unmatched bracket, just delete it
((not (condition-case nil (scan-sexps (point) -1) (scan-error nil)))
-(warn "There was unmatched bracket, no properly paired opening bracket 
on left of cursor")
+(warn "There was unmatched bracket: no paired opening bracket on left 
of cursor")
 (delete-char -1))
;; delete just the brackets
(BracketOnly
@@ -738,7 +738,8 @@ Version: 2024-06-05"
   (goto-char xp0)
   (delete-char -1)
   (goto-char xp1)
-  (delete-char 1)))
+  (delete-char 1)
+  (goto-char (- xp0 2
;; delete the bracket block
(t
 (let ((xp0 (point)) xp1 xp2)
@@ -755,7 +756,7 @@ Version: 2024-06-05"
((save-excursion
   (backward-char)
   (not (condition-case nil (scan-sexps (point) 1) (scan-error nil
-(warn "There was unmatched bracket, no properly paired closing bracket 
on right of cursor")
+(warn "There was unmatched bracket: no paired closing bracket on right 
of cursor")
 (delete-char -1))
;; delete just the brackets
(BracketOnly
@@ -1856,12 +1857,14 @@ Version: 2024-03-19"
 (defun xah-insert-seperator ()
   "Insert a seperator line. "
   (interactive)
-  (insert "\n---\n")
-  (backward-char)
-  (comment-line 1)
-  (forward-char)
-  ;; (comment-region (region-beginning) (region-end) )
-  )
+  (cond
+   ((and buffer-file-name (string-equal "html" (file-name-extension 
buffer-file-name))) (insert "\n"))
+   ((not comment-start)
+(insert "\n---\n"))
+   (t (insert "\n---\n")
+  (backward-char)
+  (comment-line 1)
+  (forward-char
 
 (defvar xah-unicode-list nil
  "A alist.

[elpa] externals/dape 5aa2a3bd75 2/2: Fix support for Emacs built without fringe.c symbols

[ELPA Syncer]

branch: externals/dape
commit 5aa2a3bd7585893498b95a726ebca9b83a2bd74f
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Fix support for Emacs built without fringe.c symbols
---
 dape.el | 24 ++--
 1 file changed, 14 insertions(+), 10 deletions(-)

diff --git a/dape.el b/dape.el
index d92288d493..b27cb1fb00 100644
--- a/dape.el
+++ b/dape.el
@@ -3213,16 +3213,20 @@ If SKIP-DISPLAY is non nil refrain from going to 
selected stack."
   ov))
   (add-to-list 'fringe-indicator-alist
'(overlay-arrow . dape-right-triangle))
-  ;; Set face of overlay-arrow before updating marker
-  (set-fringe-bitmap-face
-   'dape-right-triangle
-   (cond
-((cl-find-if (lambda (ov) (overlay-get ov :breakpoint))
- (dape--breakpoints-at-point))
- 'dape-breakpoint-face)
-(deepest-p 'default)
-('shadow)))
-  (move-marker dape--overlay-arrow-position 
(line-beginning-position)
+  ;; If Emacs is compiled without without windows
+  ;; `set-fringe-bitmap-face' is not defined
+  (when (window-system)
+;; Set face of overlay-arrow before updating marker
+(set-fringe-bitmap-face
+ 'dape-right-triangle
+ (cond
+  ((cl-find-if (lambda (ov) (overlay-get ov :breakpoint))
+   (dape--breakpoints-at-point))
+   'dape-breakpoint-face)
+  (deepest-p 'default)
+  ('shadow
+  (move-marker dape--overlay-arrow-position
+   (line-beginning-position)
 
 ;;; Info Buffers
 

[elpa] externals/dape 19a0c6dc54 1/2: Remove unnecessary comment

[ELPA Syncer]

branch: externals/dape
commit 19a0c6dc54b47ddb83313305833c85bc786cc22a
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Remove unnecessary comment
---
 dape.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/dape.el b/dape.el
index 91dda4c5a6..d92288d493 100644
--- a/dape.el
+++ b/dape.el
@@ -2835,7 +2835,7 @@ contents."
   (when-let ((buffer (overlay-buffer overlay)))
 (let ((before-string
(cond
-((and (window-system) ;; running in term
+((and (window-system)
   (not (eql (frame-parameter (selected-frame) 'left-fringe) 
0)))
  (propertize " " 'display
  `(left-fringe ,bitmap ,face)))

[elpa] externals/dape updated (5ff199325b -> 5aa2a3bd75)

[ELPA Syncer]

elpasync pushed a change to branch externals/dape.

  from  5ff199325b Use overlay-arrow-variable-list for displaying stack 
pointer #117
   new  19a0c6dc54 Remove unnecessary comment
   new  5aa2a3bd75 Fix support for Emacs built without fringe.c symbols


Summary of changes:
 dape.el | 26 +++---
 1 file changed, 15 insertions(+), 11 deletions(-)

[elpa] externals/auctex-label-numbers 27f39efe3d 1/2: FSF copyright

[ELPA Syncer]

branch: externals/auctex-label-numbers
commit 27f39efe3d724efda3ae408a88a2a232f77245c2
Author: Paul Nelson 
Commit: Paul Nelson 

FSF copyright
---
 auctex-label-numbers.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/auctex-label-numbers.el b/auctex-label-numbers.el
index bef6813e91..c755932b35 100644
--- a/auctex-label-numbers.el
+++ b/auctex-label-numbers.el
@@ -1,6 +1,6 @@
 ;;; auctex-label-numbers.el --- Numbering for LaTeX previews and folds  -*- 
lexical-binding: t; -*-
 
-;; Copyright (C) 2024  Paul D. Nelson
+;; Copyright (C) 2024  Free Software Foundation, Inc.
 
 ;; Author: Paul D. Nelson 
 ;; Version: 0.1

[elpa] externals/auctex-cont-latexmk updated (a769d92a2c -> afcf9d2117)

[ELPA Syncer]

elpasync pushed a change to branch externals/auctex-cont-latexmk.

  from  a769d92a2c rename: tex-continuous -> auctex-cont-latexmk
   new  a368adb9ca FSF copyright assignment
   new  afcf9d2117 bump version to 0.2


Summary of changes:
 auctex-cont-latexmk.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

[elpa] externals/auctex-cont-latexmk afcf9d2117 2/2: bump version to 0.2

[ELPA Syncer]

branch: externals/auctex-cont-latexmk
commit afcf9d21170010a47f692ac6c48c3515c52bb62e
Author: Paul Nelson 
Commit: Paul Nelson 

bump version to 0.2
---
 auctex-cont-latexmk.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/auctex-cont-latexmk.el b/auctex-cont-latexmk.el
index 58d0860aa0..442972475d 100644
--- a/auctex-cont-latexmk.el
+++ b/auctex-cont-latexmk.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2023, 2024  Free Software Foundation, Inc.
 
 ;; Author: Paul D. Nelson 
-;; Version: 0.1
+;; Version: 0.2
 ;; URL: https://github.com/ultronozm/auctex-cont-latexmk.el
 ;; Package-Requires: ((emacs "29.3") (auctex "14.0.5"))
 ;; Keywords: tex

[elpa] externals/auctex-label-numbers updated (92d855b4ef -> 202e49bb9f)

[ELPA Syncer]

elpasync pushed a change to branch externals/auctex-label-numbers.

  from  92d855b4ef Add note of  externaldocument shortcoming
   new  27f39efe3d FSF copyright
   new  202e49bb9f bump version to 0.2


Summary of changes:
 auctex-label-numbers.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

[elpa] externals/auctex-label-numbers 202e49bb9f 2/2: bump version to 0.2

[ELPA Syncer]

branch: externals/auctex-label-numbers
commit 202e49bb9f754bc647deb112bd2c35f9a583b942
Author: Paul Nelson 
Commit: Paul Nelson 

bump version to 0.2
---
 auctex-label-numbers.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/auctex-label-numbers.el b/auctex-label-numbers.el
index c755932b35..f5516b8f5a 100644
--- a/auctex-label-numbers.el
+++ b/auctex-label-numbers.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2024  Free Software Foundation, Inc.
 
 ;; Author: Paul D. Nelson 
-;; Version: 0.1
+;; Version: 0.2
 ;; URL: https://github.com/ultronozm/auctex-label-numbers.el
 ;; Package-Requires: ((emacs "27.1") (auctex "14.0.5"))
 ;; Keywords: tex

[elpa] externals/auctex-cont-latexmk a368adb9ca 1/2: FSF copyright assignment

[ELPA Syncer]

branch: externals/auctex-cont-latexmk
commit a368adb9ca78631467f81ebcc1c0335421b040a8
Author: Paul Nelson 
Commit: Paul Nelson 

FSF copyright assignment
---
 auctex-cont-latexmk.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/auctex-cont-latexmk.el b/auctex-cont-latexmk.el
index 37b4bcc475..58d0860aa0 100644
--- a/auctex-cont-latexmk.el
+++ b/auctex-cont-latexmk.el
@@ -1,6 +1,6 @@
 ;;; auctex-cont-latexmk.el --- run latexmk continuously, report errors via 
Flymake  -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2023  Paul D. Nelson
+;; Copyright (C) 2023, 2024  Free Software Foundation, Inc.
 
 ;; Author: Paul D. Nelson 
 ;; Version: 0.1

[elpa] externals/preview-auto 401e667431 2/2: bump version to 0.3

[ELPA Syncer]

branch: externals/preview-auto
commit 401e66743103baedc96ad3b63dfa2f1f39e4fa60
Author: Paul Nelson 
Commit: Paul Nelson 

bump version to 0.3
---
 preview-auto.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/preview-auto.el b/preview-auto.el
index 2cb5ba0a08..a2b85ba6c2 100644
--- a/preview-auto.el
+++ b/preview-auto.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2024  Free Software Foundation, Inc.
 
 ;; Author: Paul D. Nelson 
-;; Version: 0.2
+;; Version: 0.3
 ;; URL: https://github.com/ultronozm/preview-auto.el
 ;; Package-Requires: ((emacs "29.3") (auctex "14.0.5"))
 ;; Keywords: tex, convenience

[elpa] externals/preview-auto updated (0d8ccac798 -> 401e667431)

[ELPA Syncer]

elpasync pushed a change to branch externals/preview-auto.

  from  0d8ccac798 fix typo
   new  43f44b85bd FSF copyright
   new  401e667431 bump version to 0.3


Summary of changes:
 preview-auto.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

[elpa] externals/preview-auto 43f44b85bd 1/2: FSF copyright

[ELPA Syncer]

branch: externals/preview-auto
commit 43f44b85bd35132b17bc5b7b9686ec2bd8b0ae41
Author: Paul Nelson 
Commit: Paul Nelson 

FSF copyright
---
 preview-auto.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/preview-auto.el b/preview-auto.el
index 963e58de37..2cb5ba0a08 100644
--- a/preview-auto.el
+++ b/preview-auto.el
@@ -1,6 +1,6 @@
 ;;; preview-auto.el --- Automatic previews in AUCTeX -*- lexical-binding: 
t; -*-
 
-;; Copyright (C) 2024  Paul D. Nelson
+;; Copyright (C) 2024  Free Software Foundation, Inc.
 
 ;; Author: Paul D. Nelson 
 ;; Version: 0.2

[elpa] externals/preview-tailor b61313e3c2 4/6: tweak readme

[ELPA Syncer]

branch: externals/preview-tailor
commit b61313e3c2268ae4952ac5caf36ef585b16ac316
Author: Paul Nelson 
Commit: Paul Nelson 

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

diff --git a/README.org b/README.org
index 59074014d4..5c192ad999 100644
--- a/README.org
+++ b/README.org
@@ -2,7 +2,7 @@
 #+author: Paul Nelson
 
 * Overview
-The 
[[https://www.gnu.org/software/auctex/manual/preview-latex/preview-latex.html][preview]]
 feature of [[https://www.gnu.org/software/auctex/][AUCTeX]] provides live 
rendering of TeX code at a user-specified preview scale.  The appropriate scale 
depends on your monitor and text scale.  This package makes the preview scale 
vary in a natural way with the text scale and the monitor.  It provides the 
command =M-x preview-tailor-set-multiplier= that allows you to adjust the 
preview scale for [...]
+The 
[[https://www.gnu.org/software/auctex/manual/preview-latex/preview-latex.html][preview]]
 feature of [[https://www.gnu.org/software/auctex/][AUCTeX]] provides live 
rendering of TeX code at a user-specified preview scale.  This package makes 
the preview scale vary in a natural way with the text scale and the monitor.  
In particular, it provides the command =M-x preview-tailor-set-multiplier= that 
allows you to adjust the preview scale for a given monitor.
 
 * Configuration
 Download this repository, install using =M-x package-install-file= (or 
package-vc-install, straight, elpaca, ...), and add something like the 
following to your [[https://www.emacswiki.org/emacs/InitFile][init file]]:

[elpa] externals/preview-tailor bb92fac553 6/6: bump version to 0.2

[ELPA Syncer]

branch: externals/preview-tailor
commit bb92fac553c8ddb87f64f4c9829762b58764c1ff
Author: Paul Nelson 
Commit: Paul Nelson 

bump version to 0.2
---
 preview-tailor.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/preview-tailor.el b/preview-tailor.el
index 2c8550f5fa..db1912ec8d 100644
--- a/preview-tailor.el
+++ b/preview-tailor.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2024  Free Software Foundation, Inc.
 
 ;; Author: Paul D. Nelson 
-;; Version: 0.1
+;; Version: 0.2
 ;; URL: https://github.com/ultronozm/preview-tailor.el
 ;; Package-Requires: ((emacs "29.1") (auctex))
 ;; Keywords: tex, multimedia

[elpa] externals/preview-tailor a0afea231e 3/6: tweak readme

[ELPA Syncer]

branch: externals/preview-tailor
commit a0afea231ef24f43a902655f4f92260563909742
Author: Paul Nelson 
Commit: Paul Nelson 

tweak readme
---
 README.org | 1 -
 1 file changed, 1 deletion(-)

diff --git a/README.org b/README.org
index 284ea5b273..59074014d4 100644
--- a/README.org
+++ b/README.org
@@ -8,7 +8,6 @@ The 
[[https://www.gnu.org/software/auctex/manual/preview-latex/preview-latex.htm
 Download this repository, install using =M-x package-install-file= (or 
package-vc-install, straight, elpaca, ...), and add something like the 
following to your [[https://www.emacswiki.org/emacs/InitFile][init file]]:
 #+begin_src elisp
 (use-package preview-tailor
-  :after preview
   :demand
   :config
   (preview-tailor-init)

[elpa] externals/preview-tailor updated (0904a48f72 -> bb92fac553)

[ELPA Syncer]

elpasync pushed a change to branch externals/preview-tailor.

  from  0904a48f72 some docs added
   new  5edd89fe65 update docs
   new  be0dd57dca Save only when initialized
   new  a0afea231e tweak readme
   new  b61313e3c2 tweak readme
   new  b44c0bcb26 FSF copyright
   new  bb92fac553 bump version to 0.2


Summary of changes:
 README.org| 34 +++---
 preview-tailor.el | 17 -
 2 files changed, 27 insertions(+), 24 deletions(-)

[elpa] externals/preview-tailor 5edd89fe65 1/6: update docs

[ELPA Syncer]

branch: externals/preview-tailor
commit 5edd89fe650d40992a7af3b8f49902a06b9cbdb1
Author: Paul Nelson 
Commit: Paul Nelson 

update docs
---
 README.org| 35 ---
 preview-tailor.el |  2 ++
 2 files changed, 18 insertions(+), 19 deletions(-)

diff --git a/README.org b/README.org
index 52066a0ff1..284ea5b273 100644
--- a/README.org
+++ b/README.org
@@ -2,36 +2,33 @@
 #+author: Paul Nelson
 
 * Overview
-The 
[[https://www.gnu.org/software/auctex/manual/preview-latex/preview-latex.html][preview]]
 feature of [[https://www.gnu.org/software/auctex/][AUCTeX]] provides live 
rendering of TeX code.  The rendering occurs at a user-specified preview scale. 
 The appropriate scale to use depends upon your monitor and your text scale.  
This package makes the preview scale vary in a natural way with the text scale 
and the monitor.  In particular, it provides the command =M-x 
preview-tailor-set-multipl [...]
+The 
[[https://www.gnu.org/software/auctex/manual/preview-latex/preview-latex.html][preview]]
 feature of [[https://www.gnu.org/software/auctex/][AUCTeX]] provides live 
rendering of TeX code at a user-specified preview scale.  The appropriate scale 
depends on your monitor and text scale.  This package makes the preview scale 
vary in a natural way with the text scale and the monitor.  It provides the 
command =M-x preview-tailor-set-multiplier= that allows you to adjust the 
preview scale for [...]
 
 * Configuration
 Download this repository, install using =M-x package-install-file= (or 
package-vc-install, straight, elpaca, ...), and add something like the 
following to your [[https://www.emacswiki.org/emacs/InitFile][init file]]:
 #+begin_src elisp
 (use-package preview-tailor
-  :after latex
+  :after preview
+  :demand
   :config
-  (preview-tailor-init))
+  (preview-tailor-init)
+  :hook
+  (kill-emacs . preview-tailor-save))
 #+end_src
 The function =preview-tailor-init= sets the customization variable 
=preview-scale-function= to a function internal to this package that provides 
the calculation, so make sure you don't modify that variable elsewhere in your 
init file.
 
 * Usage
-This package calculates the preview scale by multiplying together four factors:
+To adjust the multiplier for the current monitor, use =M-x 
preview-tailor-set-multiplier=.
 
-1. The result of =preview-scale-from-face=.
-2. The current text scale factor (as tweaked via the =text-scale-adjust= 
commands bound by default to =C-x C-+= and =C-x C--=)
-3. A multiplier determined by the current frame's monitor attributes, with 
default value 1.
-4. An additional factor provided by the user customization 
=preview-tailor-additional-factor-function= (which defaults to nil, which means 
to omit this factor).
-5. The buffer-local variable =preview-tailor-local-multiplier= (which defaults 
to 1).
-
-To adjust the multiplier for a given monitor, use =M-x 
preview-tailor-set-multiplier=.  This adjusts the customization variable 
=preview-tailor-multipliers=, which is an association list mapping lists of 
monitor attributes to numbers.  The multiplier is calculated by finding the 
first entry in the list all of whose attributes match the current ones.
-
-* Saving your settings
-The package stores your monitor-specific settings in the dotfile 
".preview-tailor" inside your user-emacs-directory.  This allows you to keep 
your settings separate from your init file, making it easier to sync your Emacs 
configuration across different computers.
+* Implementation details and refinements
+The monitor-specific multipliers are stored in the variable 
=preview-tailor-multipliers=, an association list mapping lists of monitor 
attributes to numbers.  The multiplier is calculated by finding the first entry 
in the list that matches the current monitor's attributes.  These multipliers 
are saved for future sessions in the dotfile =.preview-tailor= inside your 
=user-emacs-directory=.  This separation keeps monitor settings, which may be 
specific to a given computer, independent of y [...]
 
-To save your multipliers for future sessions, use =M-x preview-tailor-save=.  
The package will automatically load the settings from the dotfile when 
initialized.  To make saving automatic, you can add the following to your init 
file:
+The preview scale is determined by multiplying five factors:
 
-#+begin_src elisp
-(add-hook 'kill-emacs-hook #'preview-tailor-save)
-#+end_src
+1. The result of =preview-scale-from-face=.
+2. The current text scale factor (adjusted via the =text-scale-adjust= 
commands, default bindings =C-x C-+= and =C-x C--=).
+3. A multiplier based on the current frame's monitor attributes, set via =M-x 
preview-tailor-set-multiplier=, defaulting to 1.
+4. An additional factor provided by the user customization 
=preview-tailor-additional-factor-function= (default is =nil=, meaning this 
factor is omitted).
+5. The buffer-local variable =preview-tailor-local-multiplier=, which defaults 
to 1.
 
-If you

[elpa] externals/preview-tailor b44c0bcb26 5/6: FSF copyright

[ELPA Syncer]

branch: externals/preview-tailor
commit b44c0bcb26993672c52e646ad28c11d2ee8c5370
Author: Paul Nelson 
Commit: Paul Nelson 

FSF copyright
---
 preview-tailor.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/preview-tailor.el b/preview-tailor.el
index 65701381bd..2c8550f5fa 100644
--- a/preview-tailor.el
+++ b/preview-tailor.el
@@ -1,6 +1,6 @@
 ;;; preview-tailor.el --- Tailor AUCTeX preview scale to monitor/text scale  
-*- lexical-binding: t; -*-
 
-;; Copyright (C) 2024  Paul D. Nelson
+;; Copyright (C) 2024  Free Software Foundation, Inc.
 
 ;; Author: Paul D. Nelson 
 ;; Version: 0.1

[elpa] externals/preview-tailor be0dd57dca 2/6: Save only when initialized

[ELPA Syncer]

branch: externals/preview-tailor
commit be0dd57dca414707415911f53ba7dd0a3b8c5340
Author: Paul Nelson 
Commit: Paul Nelson 

Save only when initialized

* preview-tailor.el (preview-tailor--initialized): New variable.
(preview-tailor-save): Save only when initialized.
---
 preview-tailor.el | 11 ---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/preview-tailor.el b/preview-tailor.el
index acf6eb2b02..65701381bd 100644
--- a/preview-tailor.el
+++ b/preview-tailor.el
@@ -137,19 +137,24 @@ Use SCALE if provided, otherwise prompt for it."
   (insert-file-contents preview-tailor-storage-file)
   (setq preview-tailor-multipliers (read (current-buffer))
 
+(defvar preview-tailor--initialized nil
+  "Non-nil if preview-tailor has been initialized.")
+
 ;;;###autoload
 (defun preview-tailor-init ()
   "Initialize preview-tailor."
   (interactive)
   (preview-tailor-load)
-  (setq preview-scale-function #'preview-tailor--calculate))
+  (setq preview-scale-function #'preview-tailor--calculate)
+  (setq preview-tailor--initialized t))
 
 ;;;###autoload
 (defun preview-tailor-save ()
   "Save preview-tailor customization to a dotfile."
   (interactive)
-  (with-temp-file preview-tailor-storage-file
-(prin1 preview-tailor-multipliers (current-buffer
+  (when preview-tailor--initialized
+(with-temp-file preview-tailor-storage-file
+  (prin1 preview-tailor-multipliers (current-buffer)
 
 (provide 'preview-tailor)
 ;;; preview-tailor.el ends here

[elpa] externals/tex-item f17d2ff713 1/2: FSF copyright assignment

[ELPA Syncer]

branch: externals/tex-item
commit f17d2ff713f7579aa26ad69776f6a5d6c0e3311a
Author: Paul Nelson 
Commit: Paul Nelson 

FSF copyright assignment
---
 tex-item.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tex-item.el b/tex-item.el
index 4d29b79f3e..50253d3491 100644
--- a/tex-item.el
+++ b/tex-item.el
@@ -1,6 +1,6 @@
 ;;; tex-item.el --- Commands for working with tex items  -*- lexical-binding: 
t; -*-
 
-;; Copyright (C) 2024  Paul D. Nelson
+;; Copyright (C) 2024  Free Software Foundation, Inc.
 
 ;; Author: Paul D. Nelson 
 ;; Version: 0.0

[elpa] externals/tex-item updated (5b8ac1b3ff -> ee1957f3bc)

[ELPA Syncer]

elpasync pushed a change to branch externals/tex-item.

  from  5b8ac1b3ff add package header
   new  f17d2ff713 FSF copyright assignment
   new  ee1957f3bc bump version to 0.1


Summary of changes:
 tex-item.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

[elpa] externals/tex-item ee1957f3bc 2/2: bump version to 0.1

[ELPA Syncer]

branch: externals/tex-item
commit ee1957f3bce6ed04627b985e95a17db190781e06
Author: Paul Nelson 
Commit: Paul Nelson 

bump version to 0.1
---
 tex-item.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tex-item.el b/tex-item.el
index 50253d3491..2b7acb645b 100644
--- a/tex-item.el
+++ b/tex-item.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2024  Free Software Foundation, Inc.
 
 ;; Author: Paul D. Nelson 
-;; Version: 0.0
+;; Version: 0.1
 ;; URL: https://github.com/ultronozm/tex-item.el
 ;; Package-Requires: ((emacs "27.1"))
 ;; Keywords: tex, convenience

[elpa] externals/tex-parens updated (6d5ee64608 -> d2f8883265)

[ELPA Syncer]

elpasync pushed a change to branch externals/tex-parens.

  from  6d5ee64608 address issue involving optional begin{...} arguments
   new  a7f7c017a4 tweak docs and formatting
   new  7a2e0016d7 FSF copyright assignment
   new  d2f8883265 bump version to 0.2


Summary of changes:
 tex-parens.el | 51 +--
 1 file changed, 25 insertions(+), 26 deletions(-)

[elpa] externals/tex-parens 7a2e0016d7 2/3: FSF copyright assignment

[ELPA Syncer]

branch: externals/tex-parens
commit 7a2e0016d7c4e02c6b0062def678c2538bb2508a
Author: Paul Nelson 
Commit: Paul Nelson 

FSF copyright assignment
---
 tex-parens.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tex-parens.el b/tex-parens.el
index 100d406529..7db6c32f57 100644
--- a/tex-parens.el
+++ b/tex-parens.el
@@ -1,6 +1,6 @@
 ;;; tex-parens.el --- like lisp.el but for tex  -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2024  Paul D. Nelson
+;; Copyright (C) 2024  Free Software Foundation, Inc.
 
 ;; Author: Paul D. Nelson 
 ;; Version: 0.1

[elpa] externals/tex-parens d2f8883265 3/3: bump version to 0.2

[ELPA Syncer]

branch: externals/tex-parens
commit d2f88832651ae2271b0267dae08b5d01c063cce1
Author: Paul Nelson 
Commit: Paul Nelson 

bump version to 0.2
---
 tex-parens.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tex-parens.el b/tex-parens.el
index 7db6c32f57..f5259380dc 100644
--- a/tex-parens.el
+++ b/tex-parens.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2024  Free Software Foundation, Inc.
 
 ;; Author: Paul D. Nelson 
-;; Version: 0.1
+;; Version: 0.2
 ;; URL: https://github.com/ultronozm/tex-parens.el
 ;; Package-Requires: ((emacs "27.1") (auctex "14.0.5"))
 ;; Keywords: tex, convenience

[elpa] externals/tex-parens a7f7c017a4 1/3: tweak docs and formatting

[ELPA Syncer]

branch: externals/tex-parens
commit a7f7c017a43d9cadfa355cf795cee325be6e5438
Author: Paul Nelson 
Commit: Paul Nelson 

tweak docs and formatting
---
 tex-parens.el | 47 +++
 1 file changed, 23 insertions(+), 24 deletions(-)

diff --git a/tex-parens.el b/tex-parens.el
index 1903ca8ebf..100d406529 100644
--- a/tex-parens.el
+++ b/tex-parens.el
@@ -84,7 +84,7 @@ Here `defun' means top-level environment."
 
 (defcustom tex-parens-solo-delimiters
   '("|" "\\|" "\\vert" "\\Vert")
-  "Delimiters that do come in pairs."
+  "Delimiters that do not come in pairs."
   :type '(repeat string))
 
 (defcustom tex-parens-left-right-modifier-pairs
@@ -286,34 +286,35 @@ defun-based commands."
   :type 'boolean
   :group 'tex-parens)
 
-(defun tex-parens--ignore (m-str m-begin m-end)
-  "Check if M-STR should be ignored.
-M-STR is the string matched by the search, while M-BEGIN and
-M-END delimit the match.  If `tex-parens-ignore-comments' is non-nil,
-then ignore comments; these are detected via
-`font-lock-comment-face'.  If M-STR is a double prime in math
-mode, then ignore it.  If M-STR is a dollar delimiter that does
-not demarcate math mode, then ignore it."
+(defun tex-parens--ignore (str begin end)
+  "Check if STR should be ignored.
+STR is the string matched by the search, while BEGIN and END delimit the
+match.  If `tex-parens-ignore-comments' is non-nil, then ignore
+comments; these are detected via `font-lock-comment-face'.  If STR is a
+double prime in math mode, then ignore it.  If STR is a dollar delimiter
+that does not demarcate math mode, then ignore it."
   (or (and tex-parens-ignore-comments
-   (save-excursion (goto-char m-begin)
+   (save-excursion (goto-char begin)
(tex-parens--comment)))
-  (and (equal m-str "''")
-   (save-excursion (goto-char m-begin)
+  (and (equal str "''")
+   (save-excursion (goto-char begin)
(> (tex-parens--math-face) 0)))
-  (and (member m-str '("$" "$$"))
-   (equal (save-excursion (goto-char (1- m-begin))
+  (and (member str '("$" "$$"))
+   (equal (save-excursion (goto-char (1- begin))
   (tex-parens--math-face))
-  (save-excursion (goto-char m-end)
+  (save-excursion (goto-char end)
   (tex-parens--math-face))
 
 (defun tex-parens--search-forward (regexp bound)
-  "Search forward for REGEXP up to BOUND."
+  "Search forward for REGEXP up to BOUND.
+Ignore matches that should be ignored.  Return the first match string
+found, or nil if none is found."
   (let (success done)
 (while (not done)
   (if (re-search-forward regexp bound t)
   (when (not (tex-parens--ignore (match-string 0)
- (match-beginning 0)
- (match-end 0)))
+ (match-beginning 0)
+ (match-end 0)))
 (setq done t
   success t))
 (setq done t)))
@@ -353,16 +354,14 @@ Assumes that REGEXP-REVERSE is the reverse of REGEXP."
 (defun tex-parens--forward-bound ()
   "Return the default bound for forward search."
   (save-excursion
-(min
- (point-max)
- (+ (point) tex-parens-search-limit
+(min (point-max)
+ (+ (point) tex-parens-search-limit
 
 (defun tex-parens--backward-bound ()
   "Return the default bound for backward search."
   (save-excursion
-(max
- (point-min)
- (- (point) tex-parens-search-limit
+(max (point-min)
+ (- (point) tex-parens-search-limit
 
 (defun tex-parens--forward-delim (&optional bound)
   "Search for the next delimiter up to BOUND.

[nongnu] elpa/clojure-ts-mode 3c0f8be0da 2/3: Update warning when tree-sitter is not supported

[ELPA Syncer]

branch: elpa/clojure-ts-mode
commit 3c0f8be0daf2701e70a2712cd7d5548988121a0a
Author: Danny Freeman 
Commit: GitHub 

Update warning when tree-sitter is not supported
---
 clojure-ts-mode.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/clojure-ts-mode.el b/clojure-ts-mode.el
index 716c09aefc..d4b6acb412 100644
--- a/clojure-ts-mode.el
+++ b/clojure-ts-mode.el
@@ -1016,7 +1016,7 @@ See `clojure-ts--font-lock-settings' for usage of 
MARKDOWN-AVAILABLE."
 ;; nbb scripts are ClojureScript source files
 (add-to-list 'interpreter-mode-alist '("nbb" . 
clojure-ts-clojurescript-mode))
 (clojure-ts--register-novel-modes)))
-  (message "Clojure TS Mode is not activated as tree-sitter support is 
missing."))
+  (message "Clojure TS Mode will not be activated as tree-sitter support is 
missing."))
 
 (defvar clojure-ts--find-ns-query
   (treesit-query-compile

[nongnu] elpa/clojure-ts-mode ee3b619f7f 1/3: Check for tree-sitter before activating clojure-ts-mode

[ELPA Syncer]

branch: elpa/clojure-ts-mode
commit ee3b619f7f4d401782cf841467d008c50b181f44
Author: p4v4n 
Commit: p4v4n 

Check for tree-sitter before activating clojure-ts-mode
---
 clojure-ts-mode.el | 45 -
 1 file changed, 24 insertions(+), 21 deletions(-)

diff --git a/clojure-ts-mode.el b/clojure-ts-mode.el
index 753e97bfc1..716c09aefc 100644
--- a/clojure-ts-mode.el
+++ b/clojure-ts-mode.el
@@ -993,27 +993,30 @@ See `clojure-ts--font-lock-settings' for usage of 
MARKDOWN-AVAILABLE."
   (add-to-list 'auto-mode-alist '("\\.cljd\\'" . clojure-ts-clojuredart-mode))
   (add-to-list 'auto-mode-alist '("\\.jank\\'" . clojure-ts-jank-mode)))
 
-;; Redirect clojure-mode to clojure-ts-mode if clojure-mode is present
-(if (require 'clojure-mode nil 'noerror)
-(progn
-  (add-to-list 'major-mode-remap-alist '(clojure-mode . clojure-ts-mode))
-  (add-to-list 'major-mode-remap-alist '(clojurescript-mode . 
clojure-ts-clojurescript-mode))
-  (add-to-list 'major-mode-remap-alist '(clojurec-mode . 
clojure-ts-clojurec-mode))
-  (clojure-ts--register-novel-modes))
-  ;; Clojure-mode is not present, setup auto-modes ourselves
-  ;; Regular clojure/edn files
-  ;; I believe dtm is for datomic queries and datoms, which are just edn.
-  (add-to-list 'auto-mode-alist
-   '("\\.\\(clj\\|dtm\\|edn\\)\\'" . clojure-ts-mode))
-  (add-to-list 'auto-mode-alist '("\\.cljs\\'" . 
clojure-ts-clojurescript-mode))
-  (add-to-list 'auto-mode-alist '("\\.cljc\\'" . clojure-ts-clojurec-mode))
-  ;; boot build scripts are Clojure source files
-  (add-to-list 'auto-mode-alist '("\\(?:build\\|profile\\)\\.boot\\'" . 
clojure-ts-mode))
-  ;; babashka scripts are Clojure source files
-  (add-to-list 'interpreter-mode-alist '("bb" . clojure-ts-mode))
-  ;; nbb scripts are ClojureScript source files
-  (add-to-list 'interpreter-mode-alist '("nbb" . 
clojure-ts-clojurescript-mode))
-  (clojure-ts--register-novel-modes))
+(if (treesit-available-p)
+;; Redirect clojure-mode to clojure-ts-mode if clojure-mode is present
+(if (require 'clojure-mode nil 'noerror)
+(progn
+  (add-to-list 'major-mode-remap-alist '(clojure-mode . 
clojure-ts-mode))
+  (add-to-list 'major-mode-remap-alist '(clojurescript-mode . 
clojure-ts-clojurescript-mode))
+  (add-to-list 'major-mode-remap-alist '(clojurec-mode . 
clojure-ts-clojurec-mode))
+  (clojure-ts--register-novel-modes))
+  ;; When Clojure-mode is not present, setup auto-modes ourselves
+  (progn
+;; Regular clojure/edn files
+;; I believe dtm is for datomic queries and datoms, which are just edn.
+(add-to-list 'auto-mode-alist
+ '("\\.\\(clj\\|dtm\\|edn\\)\\'" . clojure-ts-mode))
+(add-to-list 'auto-mode-alist '("\\.cljs\\'" . 
clojure-ts-clojurescript-mode))
+(add-to-list 'auto-mode-alist '("\\.cljc\\'" . 
clojure-ts-clojurec-mode))
+;; boot build scripts are Clojure source files
+(add-to-list 'auto-mode-alist '("\\(?:build\\|profile\\)\\.boot\\'" . 
clojure-ts-mode))
+;; babashka scripts are Clojure source files
+(add-to-list 'interpreter-mode-alist '("bb" . clojure-ts-mode))
+;; nbb scripts are ClojureScript source files
+(add-to-list 'interpreter-mode-alist '("nbb" . 
clojure-ts-clojurescript-mode))
+(clojure-ts--register-novel-modes)))
+  (message "Clojure TS Mode is not activated as tree-sitter support is 
missing."))
 
 (defvar clojure-ts--find-ns-query
   (treesit-query-compile

[nongnu] elpa/clojure-ts-mode updated (649bf1120f -> 7b7a4705d1)

[ELPA Syncer]

elpasync pushed a change to branch elpa/clojure-ts-mode.

  from  649bf1120f Improve the package version reporting
   new  ee3b619f7f Check for tree-sitter before activating clojure-ts-mode
   new  3c0f8be0da Update warning when tree-sitter is not supported
   new  7b7a4705d1 Merge pull request #40 from p4v4n/treesitter-check


Summary of changes:
 clojure-ts-mode.el | 45 -
 1 file changed, 24 insertions(+), 21 deletions(-)

[nongnu] elpa/clojure-ts-mode 7b7a4705d1 3/3: Merge pull request #40 from p4v4n/treesitter-check

[ELPA Syncer]

branch: elpa/clojure-ts-mode
commit 7b7a4705d1a952b4414672955e67fb9471213f2a
Merge: 649bf1120f 3c0f8be0da
Author: Danny Freeman 
Commit: GitHub 

Merge pull request #40 from p4v4n/treesitter-check

Check for tree-sitter before activating clojure-ts-mode
---
 clojure-ts-mode.el | 45 -
 1 file changed, 24 insertions(+), 21 deletions(-)

diff --git a/clojure-ts-mode.el b/clojure-ts-mode.el
index d2be3e737c..97abfbb7ed 100644
--- a/clojure-ts-mode.el
+++ b/clojure-ts-mode.el
@@ -994,27 +994,30 @@ See `clojure-ts--font-lock-settings' for usage of 
MARKDOWN-AVAILABLE."
   (add-to-list 'auto-mode-alist '("\\.cljd\\'" . clojure-ts-clojuredart-mode))
   (add-to-list 'auto-mode-alist '("\\.jank\\'" . clojure-ts-jank-mode)))
 
-;; Redirect clojure-mode to clojure-ts-mode if clojure-mode is present
-(if (require 'clojure-mode nil 'noerror)
-(progn
-  (add-to-list 'major-mode-remap-alist '(clojure-mode . clojure-ts-mode))
-  (add-to-list 'major-mode-remap-alist '(clojurescript-mode . 
clojure-ts-clojurescript-mode))
-  (add-to-list 'major-mode-remap-alist '(clojurec-mode . 
clojure-ts-clojurec-mode))
-  (clojure-ts--register-novel-modes))
-  ;; Clojure-mode is not present, setup auto-modes ourselves
-  ;; Regular clojure/edn files
-  ;; I believe dtm is for datomic queries and datoms, which are just edn.
-  (add-to-list 'auto-mode-alist
-   '("\\.\\(clj\\|dtm\\|edn\\)\\'" . clojure-ts-mode))
-  (add-to-list 'auto-mode-alist '("\\.cljs\\'" . 
clojure-ts-clojurescript-mode))
-  (add-to-list 'auto-mode-alist '("\\.cljc\\'" . clojure-ts-clojurec-mode))
-  ;; boot build scripts are Clojure source files
-  (add-to-list 'auto-mode-alist '("\\(?:build\\|profile\\)\\.boot\\'" . 
clojure-ts-mode))
-  ;; babashka scripts are Clojure source files
-  (add-to-list 'interpreter-mode-alist '("bb" . clojure-ts-mode))
-  ;; nbb scripts are ClojureScript source files
-  (add-to-list 'interpreter-mode-alist '("nbb" . 
clojure-ts-clojurescript-mode))
-  (clojure-ts--register-novel-modes))
+(if (treesit-available-p)
+;; Redirect clojure-mode to clojure-ts-mode if clojure-mode is present
+(if (require 'clojure-mode nil 'noerror)
+(progn
+  (add-to-list 'major-mode-remap-alist '(clojure-mode . 
clojure-ts-mode))
+  (add-to-list 'major-mode-remap-alist '(clojurescript-mode . 
clojure-ts-clojurescript-mode))
+  (add-to-list 'major-mode-remap-alist '(clojurec-mode . 
clojure-ts-clojurec-mode))
+  (clojure-ts--register-novel-modes))
+  ;; When Clojure-mode is not present, setup auto-modes ourselves
+  (progn
+;; Regular clojure/edn files
+;; I believe dtm is for datomic queries and datoms, which are just edn.
+(add-to-list 'auto-mode-alist
+ '("\\.\\(clj\\|dtm\\|edn\\)\\'" . clojure-ts-mode))
+(add-to-list 'auto-mode-alist '("\\.cljs\\'" . 
clojure-ts-clojurescript-mode))
+(add-to-list 'auto-mode-alist '("\\.cljc\\'" . 
clojure-ts-clojurec-mode))
+;; boot build scripts are Clojure source files
+(add-to-list 'auto-mode-alist '("\\(?:build\\|profile\\)\\.boot\\'" . 
clojure-ts-mode))
+;; babashka scripts are Clojure source files
+(add-to-list 'interpreter-mode-alist '("bb" . clojure-ts-mode))
+;; nbb scripts are ClojureScript source files
+(add-to-list 'interpreter-mode-alist '("nbb" . 
clojure-ts-clojurescript-mode))
+(clojure-ts--register-novel-modes)))
+  (message "Clojure TS Mode will not be activated as tree-sitter support is 
missing."))
 
 (defvar clojure-ts--find-ns-query
   (treesit-query-compile