[elpa] externals/agitate 27abc812e5: Update copyright years

2024-01-12 Thread ELPA Syncer
branch: externals/agitate
commit 27abc812e555eeccf00d559b56f77f5e25df2391
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update copyright years
---
 agitate.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/agitate.el b/agitate.el
index 3da20a8359..2fbfcf383a 100644
--- a/agitate.el
+++ b/agitate.el
@@ -1,6 +1,6 @@
 ;;; agitate.el --- Extras for diff-mode, vc-git, log-edit, log-view -*- 
lexical-binding: t -*-
 
-;; Copyright (C) 2022-2023  Free Software Foundation, Inc.
+;; Copyright (C) 2022-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Agitate Development <~protesilaos/agit...@lists.sr.ht>



[elpa] externals/altcaps b1577423a0: Update copyright years

2024-01-12 Thread ELPA Syncer
branch: externals/altcaps
commit b1577423a0ae046ac0bb67550a7f42229998a3f5
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update copyright years
---
 altcaps.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/altcaps.el b/altcaps.el
index b8d76be965..81d545b927 100644
--- a/altcaps.el
+++ b/altcaps.el
@@ -1,6 +1,6 @@
 ;;; altcaps.el --- Apply alternating letter casing to convey sarcasm or 
mockery -*- lexical-binding: t -*-
 
-;; Copyright (C) 2022-2023  Free Software Foundation, Inc.
+;; Copyright (C) 2022-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Altcaps Development <~protesilaos/general-iss...@lists.sr.ht>



[elpa] externals/beframe 185a341466: Update copyright years

2024-01-12 Thread ELPA Syncer
branch: externals/beframe
commit 185a34146600aca2faa024fb58c90dbcc7095721
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update copyright years
---
 beframe.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/beframe.el b/beframe.el
index 7febd9abd5..9bfb177c16 100644
--- a/beframe.el
+++ b/beframe.el
@@ -1,6 +1,6 @@
 ;;; beframe.el --- Isolate buffers per frame -*- lexical-binding: t -*-
 
-;; Copyright (C) 2023  Free Software Foundation, Inc.
+;; Copyright (C) 2023-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Protesilaos Stavrou General Issues 
<~protesilaos/general-iss...@lists.sr.ht>



[elpa] externals/cursory 3488ecc783: Update copyright years

2024-01-12 Thread ELPA Syncer
branch: externals/cursory
commit 3488ecc783d2b1ac52dc2c0b12afdfba26d178c9
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update copyright years
---
 cursory.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cursory.el b/cursory.el
index 2a309cdebe..7827793b6f 100644
--- a/cursory.el
+++ b/cursory.el
@@ -1,6 +1,6 @@
 ;;; cursory.el --- Manage cursor styles using presets -*- lexical-binding: t 
-*-
 
-;; Copyright (C) 2022-2023  Free Software Foundation, Inc.
+;; Copyright (C) 2022-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Cursory Development <~protesilaos/curs...@lists.sr.ht>



[elpa] externals/denote 728a7769b1 2/2: Merge branch 'main' of github.com:protesilaos/denote

2024-01-12 Thread ELPA Syncer
branch: externals/denote
commit 728a7769b16d0f6ffecb34be1589523836ea3de8
Merge: afc5f71217 87518c2468
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Merge branch 'main' of github.com:protesilaos/denote
---
 README.org   | 22 +-
 denote-journal-extras.el |  2 +-
 denote-silo-extras.el|  6 +++---
 denote.el| 37 +++--
 tests/denote-test.el | 10 ++
 5 files changed, 54 insertions(+), 23 deletions(-)

diff --git a/README.org b/README.org
index 9aa4c8f50d..745c3b9ff9 100644
--- a/README.org
+++ b/README.org
@@ -863,6 +863,7 @@ read the video's path when called from there (e.g. by using 
Emacs'
 
 [[#h:15719799-a5ff-4e9a-9f10-4ca03ef8f6c5][Maintain separate directory silos 
for notes]].
 
+#+vindex: denote-user-enforced-denote-directory
 There are cases where the user (i) wants to maintain multiple silos
 and (ii) prefers an interactive way to switch between them without
 going through Dired.  Since this is specific to the user's workflow,
@@ -899,7 +900,7 @@ added to the user's Denote configuration:
  (intern (completing-read
   "Run command in silo: "
   my-denote-commands-for-silos nil t
-  (let ((denote-directory silo))
+  (let ((denote-user-enforced-denote-directory silo))
 (call-interactively command)))
 #+end_src
 
@@ -907,12 +908,15 @@ With this in place, =M-x 
my-denote-pick-silo-then-command= will use
 minibuffer completion to select a silo among the predefined options
 and then ask for the command to run in that context.
 
-Note that =let= binding ~denote-directory~ can be used in custom
-commands and other wrapper functions to override the global default
-value of ~denote-directory~ to select silos.
+Note the use of the variable ~user-enforced-denote-directory~. This
+variable is specially meant for custom commands to select silos. When
+it is set, it overrides the global default value of ~denote-directory~
+as well as the value provided by the =.dir-locals.el= file. Use it
+only when writing wrapper functions like
+~my-denote-pick-silo-then-command~.
 
-To see another example of a wrapper function that =let= binds
-~denote-directory~, see:
+To see another example of a wrapper function that uses
+~user-enforced-denote-directory~, see:
 
 [[#h:d0c7cb79-21e5-4176-a6af-f4f68578c8dd][Extending Denote: Split an Org 
subtree into its own note]].
 
@@ -2827,7 +2831,7 @@ Delete the original subtree."
(heading (org-get-heading :no-tags :no-todo :no-priority 
:no-comment)))
   (let ((element (org-element-at-point))
 (tags (org-get-tags))
-(denote-directory silo))
+(denote-user-enforced-denote-directory silo))
 (delete-region (org-entry-beginning-position)
(save-excursion (org-end-of-subtree t) (point)))
 (denote heading
@@ -3787,8 +3791,8 @@ might change them without further notice.
   ~denote-directory~ as a proper directory, also because it accepts a
   directory-local value for what we internally refer to as "silos"
   ([[#h:15719799-a5ff-4e9a-9f10-4ca03ef8f6c5][Maintain separate directories 
for notes]]).  Custom Lisp code can
-  ~let~ bind the value of the variable ~denote-directory~ to override
-  what this function returns.
+  ~let~ bind the value of the variable ~denote-user-enforced-denote-directory~
+  to override what this function returns.
 
 #+findex: denote-directory-files
 + Function ~denote-directory-files~ :: Return list of absolute file
diff --git a/denote-journal-extras.el b/denote-journal-extras.el
index d1fd2bdec6..fdf7d9e785 100644
--- a/denote-journal-extras.el
+++ b/denote-journal-extras.el
@@ -161,7 +161,7 @@ that covered in the documentation of the `denote' function. 
 It
 is internally processed by `denote-journal-extras--get-date'."
   (interactive (list (when current-prefix-arg (denote-date-prompt
   (let ((internal-date (denote-journal-extras--get-date date))
-(denote-directory (denote-journal-extras-directory)))
+(denote-user-enforced-denote-directory 
(denote-journal-extras-directory)))
 (denote
  (denote-journal-extras-daily--title-format internal-date)
  `(,denote-journal-extras-keyword)
diff --git a/denote-silo-extras.el b/denote-silo-extras.el
index 92e0c27da9..a84fbea8b3 100644
--- a/denote-silo-extras.el
+++ b/denote-silo-extras.el
@@ -70,7 +70,7 @@ SILO is a file path from `denote-silo-extras-directories'."
(list
 (when current-prefix-arg
   (denote-silo-extras--directory-prompt
-  (let ((denote-directory silo))
+  (let ((denote-user-enforced-denote-directory silo))
 (call-interactively #'denote)))
 
 ;;;###autoload
@@ -81,7 +81,7 @@ SILO is a file path from `denote-silo-extras-directories'."
(list
 (when current-prefix-arg
   (denote-silo-extras--directory-prompt
-  (let ((denote-directory silo))
+  (let ((denote-user-enforced-denote-directory silo))
 (c

[elpa] externals/denote afc5f71217 1/2: Update copyright years

2024-01-12 Thread ELPA Syncer
branch: externals/denote
commit afc5f712178eac0704626fd3cc3cd0f29ac4ffcd
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update copyright years
---
 denote-journal-extras.el | 2 +-
 denote-org-dblock.el | 2 +-
 denote-rename-buffer.el  | 2 +-
 denote-silo-extras.el| 2 +-
 denote-sort.el   | 2 +-
 denote.el| 2 +-
 6 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/denote-journal-extras.el b/denote-journal-extras.el
index 3de7ea48c4..d1fd2bdec6 100644
--- a/denote-journal-extras.el
+++ b/denote-journal-extras.el
@@ -1,6 +1,6 @@
 ;;; denote-journal-extras.el --- Convenience functions for daily journaling  
-*- lexical-binding: t; -*-
 
-;; Copyright (C) 2023  Free Software Foundation, Inc.
+;; Copyright (C) 2023-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Denote Development <~protesilaos/den...@lists.sr.ht>
diff --git a/denote-org-dblock.el b/denote-org-dblock.el
index ff6c05dfff..9889fccb43 100644
--- a/denote-org-dblock.el
+++ b/denote-org-dblock.el
@@ -1,6 +1,6 @@
 ;;; denote-org-dblock.el --- Denote Org Dynamic blocks -*- lexical-binding: t 
-*-
 
-;; Copyright (C) 2022-2023  Free Software Foundation, Inc.
+;; Copyright (C) 2022-2024  Free Software Foundation, Inc.
 
 ;; Authors: Elias Storms ,
 ;;  Protesilaos Stavrou 
diff --git a/denote-rename-buffer.el b/denote-rename-buffer.el
index 352bfb73fa..01ecbd1cd1 100644
--- a/denote-rename-buffer.el
+++ b/denote-rename-buffer.el
@@ -1,6 +1,6 @@
 ;;; denote-rename-buffer.el --- Rename Denote buffers to be shorter and easier 
to read -*- lexical-binding: t -*-
 
-;; Copyright (C) 2023  Free Software Foundation, Inc.
+;; Copyright (C) 2023-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Denote Development <~protesilaos/den...@lists.sr.ht>
diff --git a/denote-silo-extras.el b/denote-silo-extras.el
index 7dda51876b..92e0c27da9 100644
--- a/denote-silo-extras.el
+++ b/denote-silo-extras.el
@@ -1,6 +1,6 @@
 ;;; denote-silo-extras.el --- Convenience functions for using Denote in 
multiple silos  -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2023  Free Software Foundation, Inc.
+;; Copyright (C) 2023-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Denote Development <~protesilaos/den...@lists.sr.ht>
diff --git a/denote-sort.el b/denote-sort.el
index 3e75b3e628..a6be9f1192 100644
--- a/denote-sort.el
+++ b/denote-sort.el
@@ -1,6 +1,6 @@
 ;;; denote-sort.el ---  Sort Denote files based on a file name component -*- 
lexical-binding: t -*-
 
-;; Copyright (C) 2023  Free Software Foundation, Inc.
+;; Copyright (C) 2023-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Denote Development <~protesilaos/den...@lists.sr.ht>
diff --git a/denote.el b/denote.el
index e35d0be8b6..acc2264dfb 100644
--- a/denote.el
+++ b/denote.el
@@ -1,6 +1,6 @@
 ;;; denote.el --- Simple notes with an efficient file-naming scheme -*- 
lexical-binding: t -*-
 
-;; Copyright (C) 2022-2023  Free Software Foundation, Inc.
+;; Copyright (C) 2022-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Denote Development <~protesilaos/den...@lists.sr.ht>



[elpa] externals/dired-preview 3a12d660b7: Update copyright years

2024-01-12 Thread ELPA Syncer
branch: externals/dired-preview
commit 3a12d660b75469b1d59f52ec5f61dc9f1cb1b0eb
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update copyright years
---
 dired-preview.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/dired-preview.el b/dired-preview.el
index a95378df3e..30e330c3d5 100644
--- a/dired-preview.el
+++ b/dired-preview.el
@@ -1,6 +1,6 @@
 ;;; dired-preview.el --- Automatically preview file at point in Dired -*- 
lexical-binding: t -*-
 
-;; Copyright (C) 2023  Free Software Foundation, Inc.
+;; Copyright (C) 2023-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Protesilaos Stavrou <~protesilaos/general-iss...@lists.sr.ht>



[elpa] externals/ef-themes 26cad139ba: Update copyright years

2024-01-12 Thread ELPA Syncer
branch: externals/ef-themes
commit 26cad139ba05fbdc59a02d37f2b46bc0caea6b7d
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update copyright years
---
 ef-arbutus-theme.el| 2 +-
 ef-autumn-theme.el | 2 +-
 ef-bio-theme.el| 2 +-
 ef-cherie-theme.el | 2 +-
 ef-cyprus-theme.el | 2 +-
 ef-dark-theme.el   | 2 +-
 ef-day-theme.el| 2 +-
 ef-deuteranopia-dark-theme.el  | 2 +-
 ef-deuteranopia-light-theme.el | 2 +-
 ef-duo-dark-theme.el   | 2 +-
 ef-duo-light-theme.el  | 2 +-
 ef-elea-dark-theme.el  | 2 +-
 ef-elea-light-theme.el | 2 +-
 ef-frost-theme.el  | 2 +-
 ef-kassio-theme.el | 2 +-
 ef-light-theme.el  | 2 +-
 ef-maris-dark-theme.el | 2 +-
 ef-maris-light-theme.el| 2 +-
 ef-melissa-dark-theme.el   | 2 +-
 ef-melissa-light-theme.el  | 2 +-
 ef-night-theme.el  | 2 +-
 ef-rosa-theme.el   | 2 +-
 ef-spring-theme.el | 2 +-
 ef-summer-theme.el | 2 +-
 ef-symbiosis-theme.el  | 2 +-
 ef-themes.el   | 2 +-
 ef-trio-dark-theme.el  | 2 +-
 ef-trio-light-theme.el | 2 +-
 ef-tritanopia-dark-theme.el| 2 +-
 ef-tritanopia-light-theme.el   | 2 +-
 ef-winter-theme.el | 2 +-
 31 files changed, 31 insertions(+), 31 deletions(-)

diff --git a/ef-arbutus-theme.el b/ef-arbutus-theme.el
index 7fb20eed1b..05010ab0ac 100644
--- a/ef-arbutus-theme.el
+++ b/ef-arbutus-theme.el
@@ -1,6 +1,6 @@
 ;;; ef-arbutus-theme.el --- Legible light theme with red and green colors -*- 
lexical-binding:t -*-
 
-;; Copyright (C) 2022-2023  Free Software Foundation, Inc.
+;; Copyright (C) 2022-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Ef-Themes Development <~protesilaos/ef-the...@lists.sr.ht>
diff --git a/ef-autumn-theme.el b/ef-autumn-theme.el
index 37c4c1cf01..db666725be 100644
--- a/ef-autumn-theme.el
+++ b/ef-autumn-theme.el
@@ -1,6 +1,6 @@
 ;;; ef-autumn-theme.el --- Legible dark theme with warm, varied colors (red, 
yellow, green, teal) -*- lexical-binding:t -*-
 
-;; Copyright (C) 2022-2023  Free Software Foundation, Inc.
+;; Copyright (C) 2022-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Ef-Themes Development <~protesilaos/ef-the...@lists.sr.ht>
diff --git a/ef-bio-theme.el b/ef-bio-theme.el
index d1b55d0d81..8a17b53314 100644
--- a/ef-bio-theme.el
+++ b/ef-bio-theme.el
@@ -1,6 +1,6 @@
 ;;; ef-bio-theme.el --- Legible dark theme with green, teal, blue, purple 
colors -*- lexical-binding:t -*-
 
-;; Copyright (C) 2022-2023  Free Software Foundation, Inc.
+;; Copyright (C) 2022-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Ef-Themes Development <~protesilaos/ef-the...@lists.sr.ht>
diff --git a/ef-cherie-theme.el b/ef-cherie-theme.el
index ceac236e47..ab68703d5a 100644
--- a/ef-cherie-theme.el
+++ b/ef-cherie-theme.el
@@ -1,6 +1,6 @@
 ;;; ef-cherie-theme.el --- Legible dark theme with warm colors (mostly pink, 
magenta, gold) -*- lexical-binding:t -*-
 
-;; Copyright (C) 2022-2023  Free Software Foundation, Inc.
+;; Copyright (C) 2022-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Ef-Themes Development <~protesilaos/ef-the...@lists.sr.ht>
diff --git a/ef-cyprus-theme.el b/ef-cyprus-theme.el
index 6581df1cc8..38c2dc3477 100644
--- a/ef-cyprus-theme.el
+++ b/ef-cyprus-theme.el
@@ -1,6 +1,6 @@
 ;;; ef-cyprus-theme.el --- Legible light theme with green, yellow, teal, red 
colors -*- lexical-binding:t -*-
 
-;; Copyright (C) 2022-2023  Free Software Foundation, Inc.
+;; Copyright (C) 2022-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Ef-Themes Development <~protesilaos/ef-the...@lists.sr.ht>
diff --git a/ef-dark-theme.el b/ef-dark-theme.el
index 726bfc8624..97d380d4bf 100644
--- a/ef-dark-theme.el
+++ b/ef-dark-theme.el
@@ -1,6 +1,6 @@
 ;;; ef-dark-theme.el --- Legible dark theme with blue, magenta, cyan, purple 
colors -*- lexical-binding:t -*-
 
-;; Copyright (C) 2022-2023  Free Software Foundation, Inc.
+;; Copyright (C) 2022-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Ef-Themes Development <~protesilaos/ef-the...@lists.sr.ht>
diff --git a/ef-day-theme.el b/ef-day-theme.el
index 27082a42a9..cd871ce1e7 100644
--- a/ef-day-theme.el
+++ b/ef-day-theme.el
@@ -1,6 +1,6 @@
 ;;; ef-day-theme.el --- Legible light theme with warm, varied colors (yellow, 
red, green, purple) -*- lexical-binding:t -*-
 
-;; Copyright (C) 2022-2023  Free Software Foundation, Inc.
+;; Copyright (C) 2022-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Ef-Themes Development <~protesilaos/ef-the...@lists.sr.ht>
diff --git a/ef-deuteranopia-dark-theme.el b/ef-deuteranopia-dark-theme.el
index e

[elpa] externals/fontaine 518cbbaaad: Update copyright years

2024-01-12 Thread ELPA Syncer
branch: externals/fontaine
commit 518cbbaaad872b486d2b7ee2d4a554c94a73febd
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update copyright years
---
 fontaine.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fontaine.el b/fontaine.el
index a7399b0474..04eb091b95 100644
--- a/fontaine.el
+++ b/fontaine.el
@@ -1,6 +1,6 @@
 ;;; fontaine.el --- Set font configurations using presets -*- lexical-binding: 
t -*-
 
-;; Copyright (C) 2022-2023  Free Software Foundation, Inc.
+;; Copyright (C) 2022-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Fontaine Development <~protesilaos/fonta...@lists.sr.ht>



[elpa] externals/lin 6edda7b47b: Update copyright years

2024-01-12 Thread ELPA Syncer
branch: externals/lin
commit 6edda7b47b09ba0007458a7a66baf94513d740d8
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update copyright years
---
 lin.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lin.el b/lin.el
index f4037993a9..f440b32c4c 100644
--- a/lin.el
+++ b/lin.el
@@ -1,6 +1,6 @@
 ;;; lin.el --- Make `hl-line-mode' more suitable for selection UIs -*- 
lexical-binding: t -*-
 
-;; Copyright (C) 2021-2023  Free Software Foundation, Inc.
+;; Copyright (C) 2021-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Lin Development <~protesilaos/l...@lists.sr.ht>



[elpa] externals/logos 5456777732: Update copyright years

2024-01-12 Thread ELPA Syncer
branch: externals/logos
commit 5456328eb134642fef6a875df5053f98f8f6
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update copyright years
---
 logos.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/logos.el b/logos.el
index f5df196ead..1c398ebf38 100644
--- a/logos.el
+++ b/logos.el
@@ -1,6 +1,6 @@
 ;;; logos.el --- Simple focus mode and extras -*- lexical-binding: t -*-
 
-;; Copyright (C) 2022-2023  Free Software Foundation, Inc.
+;; Copyright (C) 2022-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Logos Development <~protesilaos/lo...@lists.sr.ht>



[elpa] externals/modus-themes 2de70fa128: Update copyright years

2024-01-12 Thread ELPA Syncer
branch: externals/modus-themes
commit 2de70fa128cd1bdcf7be841b96a73f236d8498f1
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update copyright years
---
 modus-operandi-deuteranopia-theme.el | 2 +-
 modus-operandi-theme.el  | 2 +-
 modus-operandi-tinted-theme.el   | 2 +-
 modus-operandi-tritanopia-theme.el   | 2 +-
 modus-themes.el  | 2 +-
 modus-vivendi-deuteranopia-theme.el  | 2 +-
 modus-vivendi-theme.el   | 2 +-
 modus-vivendi-tinted-theme.el| 2 +-
 modus-vivendi-tritanopia-theme.el| 2 +-
 9 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/modus-operandi-deuteranopia-theme.el 
b/modus-operandi-deuteranopia-theme.el
index 2754e33d1a..a343f42ac2 100644
--- a/modus-operandi-deuteranopia-theme.el
+++ b/modus-operandi-deuteranopia-theme.el
@@ -1,6 +1,6 @@
 ;;; modus-operandi-deuteranopia-theme.el --- Deuteranopia-optimized theme with 
a white background -*- lexical-binding:t -*-
 
-;; Copyright (C) 2019-2023  Free Software Foundation, Inc.
+;; Copyright (C) 2019-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Modus-Themes Development <~protesilaos/modus-the...@lists.sr.ht>
diff --git a/modus-operandi-theme.el b/modus-operandi-theme.el
index a6f2e062df..1509fd1297 100644
--- a/modus-operandi-theme.el
+++ b/modus-operandi-theme.el
@@ -1,6 +1,6 @@
 ;;; modus-operandi-theme.el --- Elegant, highly legible theme with a white 
background -*- lexical-binding:t -*-
 
-;; Copyright (C) 2019-2023  Free Software Foundation, Inc.
+;; Copyright (C) 2019-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Modus-Themes Development <~protesilaos/modus-the...@lists.sr.ht>
diff --git a/modus-operandi-tinted-theme.el b/modus-operandi-tinted-theme.el
index 86e0796428..c395dc3c7d 100644
--- a/modus-operandi-tinted-theme.el
+++ b/modus-operandi-tinted-theme.el
@@ -1,6 +1,6 @@
 ;;; modus-operandi-tinted-theme.el --- Elegant, highly legible theme with a 
light ochre background -*- lexical-binding:t -*-
 
-;; Copyright (C) 2019-2023  Free Software Foundation, Inc.
+;; Copyright (C) 2019-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Modus-Themes Development <~protesilaos/modus-the...@lists.sr.ht>
diff --git a/modus-operandi-tritanopia-theme.el 
b/modus-operandi-tritanopia-theme.el
index df787bfcb8..b2e208bff5 100644
--- a/modus-operandi-tritanopia-theme.el
+++ b/modus-operandi-tritanopia-theme.el
@@ -1,6 +1,6 @@
 ;;; modus-operandi-tritanopia-theme.el --- Tritanopia-optimized theme with a 
white background -*- lexical-binding:t -*-
 
-;; Copyright (C) 2019-2023  Free Software Foundation, Inc.
+;; Copyright (C) 2019-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Modus-Themes Development <~protesilaos/modus-the...@lists.sr.ht>
diff --git a/modus-themes.el b/modus-themes.el
index db1f608fa6..57a676ee91 100644
--- a/modus-themes.el
+++ b/modus-themes.el
@@ -1,6 +1,6 @@
 ;;; modus-themes.el --- Elegant, highly legible and customizable themes -*- 
lexical-binding:t -*-
 
-;; Copyright (C) 2019-2023  Free Software Foundation, Inc.
+;; Copyright (C) 2019-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Modus-Themes Development <~protesilaos/modus-the...@lists.sr.ht>
diff --git a/modus-vivendi-deuteranopia-theme.el 
b/modus-vivendi-deuteranopia-theme.el
index 4b136eef87..7cd9c679c0 100644
--- a/modus-vivendi-deuteranopia-theme.el
+++ b/modus-vivendi-deuteranopia-theme.el
@@ -1,6 +1,6 @@
 ;;; modus-vivendi-deuteranopia-theme.el --- Deuteranopia-optimized theme with 
a black background -*- lexical-binding:t -*-
 
-;; Copyright (C) 2019-2023  Free Software Foundation, Inc.
+;; Copyright (C) 2019-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Modus-Themes Development <~protesilaos/modus-the...@lists.sr.ht>
diff --git a/modus-vivendi-theme.el b/modus-vivendi-theme.el
index 5f827fb287..67e5b38774 100644
--- a/modus-vivendi-theme.el
+++ b/modus-vivendi-theme.el
@@ -1,6 +1,6 @@
 ;;; modus-vivendi-theme.el --- Elegant, highly legible theme with a black 
background -*- lexical-binding:t -*-
 
-;; Copyright (C) 2019-2023  Free Software Foundation, Inc.
+;; Copyright (C) 2019-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Modus-Themes Development <~protesilaos/modus-the...@lists.sr.ht>
diff --git a/modus-vivendi-tinted-theme.el b/modus-vivendi-tinted-theme.el
index 9c8a2651a2..37971c7dfc 100644
--- a/modus-vivendi-tinted-theme.el
+++ b/modus-vivendi-tinted-theme.el
@@ -1,6 +1,6 @@
 ;;; modus-vivendi-tinted-theme.el --- Elegant, highly legible theme with a 
night sky background -*- lexical-binding:t -*-
 
-;; Copyright (C) 2019-2023  Free Software Foundation, Inc.
+;; Copyright (C) 2019-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Modus-Themes Developm

[elpa] externals/mct 525c74e6cf: Update copyright years

2024-01-12 Thread ELPA Syncer
branch: externals/mct
commit 525c74e6cfc21a2e3c621e15e757870d27597c54
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update copyright years
---
 mct.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mct.el b/mct.el
index 7917f7296f..38bae6b9e4 100644
--- a/mct.el
+++ b/mct.el
@@ -1,6 +1,6 @@
 ;;; mct.el --- Minibuffer Confines Transcended -*- lexical-binding: t -*-
 
-;; Copyright (C) 2021-2023  Free Software Foundation, Inc.
+;; Copyright (C) 2021-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; URL: https://git.sr.ht/~protesilaos/mct



[elpa] externals/notmuch-indicator 538b8d2ea5 1/2: Update copyright years

2024-01-12 Thread ELPA Syncer
branch: externals/notmuch-indicator
commit 538b8d2ea5a53db1eac57cd7f7162a170b2133c7
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update copyright years
---
 notmuch-indicator.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/notmuch-indicator.el b/notmuch-indicator.el
index 5afe429767..04f288f049 100644
--- a/notmuch-indicator.el
+++ b/notmuch-indicator.el
@@ -1,6 +1,6 @@
 ;;; notmuch-indicator.el --- Display mode line indicator with notmuch-count(1) 
output -*- lexical-binding: t -*-
 
-;; Copyright (C) 2022-2023  Free Software Foundation, Inc.
+;; Copyright (C) 2022-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: notmuch-indicator Development 
<~protesilaos/general-iss...@lists.sr.ht>



[elpa] externals/notmuch-indicator 8b7d8297e6 2/2: Merge branch 'main' of github.com:protesilaos/notmuch-indicator

2024-01-12 Thread ELPA Syncer
branch: externals/notmuch-indicator
commit 8b7d8297e6e05e4a78d87641f641bfdfe003bbd6
Merge: 538b8d2ea5 72abc677a0
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Merge branch 'main' of github.com:protesilaos/notmuch-indicator
---
 README.org   |  4 ++--
 notmuch-indicator.el | 11 ++-
 2 files changed, 8 insertions(+), 7 deletions(-)

diff --git a/README.org b/README.org
index e8659931e5..ad55a57bb2 100644
--- a/README.org
+++ b/README.org
@@ -318,8 +318,8 @@ of help matters.
 
 + Author/maintainer :: Protesilaos Stavrou.
 
-+ Contributions to code or user feedback :: Henrik Kjerringvåg, Stefan
-  Monnier, Yusef Aslam.
++ Contributions to code or user feedback :: Henrik Kjerringvåg, MikeS,
+  Mohamed Suliman, Stefan Monnier, Yusef Aslam.
 
 * GNU Free Documentation License
 :PROPERTIES:
diff --git a/notmuch-indicator.el b/notmuch-indicator.el
index 04f288f049..0bf91bc5c5 100644
--- a/notmuch-indicator.el
+++ b/notmuch-indicator.el
@@ -224,11 +224,12 @@ example that uses the `tab-bar-mode'."
   "Run shell command for `notmuch-count(1)' with TERMS."
   (replace-regexp-in-string
"\n" ""
-   (shell-command-to-string
-(format "%s --config=%S count %s"
-notmuch-indicator-notmuch-binary
-notmuch-indicator-notmuch-config-file
-terms
+   (let ((default-directory "~"))
+ (shell-command-to-string
+  (format "%s --config=%S count %s"
+  notmuch-indicator-notmuch-binary
+  notmuch-indicator-notmuch-config-file
+  terms)
 
 (declare-function
  notmuch-search "notmuch"



[elpa] externals/pulsar c176c84e93: Update copyright years

2024-01-12 Thread ELPA Syncer
branch: externals/pulsar
commit c176c84e932215a4c6bbb2d5ba5a67b5bee1099e
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update copyright years
---
 pulsar.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pulsar.el b/pulsar.el
index 442eb26281..145826d7b3 100644
--- a/pulsar.el
+++ b/pulsar.el
@@ -1,6 +1,6 @@
 ;;; pulsar.el --- Pulse highlight on demand or after select functions -*- 
lexical-binding: t -*-
 
-;; Copyright (C) 2022-2023  Free Software Foundation, Inc.
+;; Copyright (C) 2022-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Pulsar Development <~protesilaos/pul...@lists.sr.ht>



[elpa] externals/spacious-padding c07e583fb8: Update copyright years

2024-01-12 Thread ELPA Syncer
branch: externals/spacious-padding
commit c07e583fb87d7d761bf7e063533f04362edc0e44
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update copyright years
---
 spacious-padding.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/spacious-padding.el b/spacious-padding.el
index 78a7f123aa..13b61a2b80 100644
--- a/spacious-padding.el
+++ b/spacious-padding.el
@@ -1,6 +1,6 @@
 ;;; spacious-padding.el --- Increase the padding/spacing of frames and windows 
-*- lexical-binding: t -*-
 
-;; Copyright (C) 2023  Free Software Foundation, Inc.
+;; Copyright (C) 2023-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Protesilaos Stavrou General Issues 
<~protesilaos/general-iss...@lists.sr.ht>



[elpa] externals/substitute 1ac6d16a10: Update copyright years

2024-01-12 Thread ELPA Syncer
branch: externals/substitute
commit 1ac6d16a105030e34eca1ef09a8270fcadf86a4b
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update copyright years
---
 substitute.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/substitute.el b/substitute.el
index ce723e1834..fdf94474d5 100644
--- a/substitute.el
+++ b/substitute.el
@@ -1,6 +1,6 @@
 ;;; substitute.el --- Efficiently replace targets in the buffer or context -*- 
lexical-binding: t -*-
 
-;; Copyright (C) 2023  Free Software Foundation, Inc.
+;; Copyright (C) 2023-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Protesilaos Stavrou General Issues 
<~protesilaos/general-iss...@lists.sr.ht>



[elpa] externals/standard-themes d4586d08f5: Update copyright years

2024-01-12 Thread ELPA Syncer
branch: externals/standard-themes
commit d4586d08f5694d6865ef35685f702234b9a96d3b
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update copyright years
---
 standard-dark-theme.el  | 2 +-
 standard-light-theme.el | 2 +-
 standard-themes.el  | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/standard-dark-theme.el b/standard-dark-theme.el
index db2be8e99f..846e0e5e23 100644
--- a/standard-dark-theme.el
+++ b/standard-dark-theme.el
@@ -1,6 +1,6 @@
 ;;; standard-dark-theme.el --- Like the unthemed dark Emacs, but more 
consistent -*- lexical-binding:t -*-
 
-;; Copyright (C) 2022-2023  Free Software Foundation, Inc.
+;; Copyright (C) 2022-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Standard-Themes Development 
<~protesilaos/standard-the...@lists.sr.ht>
diff --git a/standard-light-theme.el b/standard-light-theme.el
index c2808c16bd..2a39be89b7 100644
--- a/standard-light-theme.el
+++ b/standard-light-theme.el
@@ -1,6 +1,6 @@
 ;;; standard-light-theme.el --- Like the unthemed light Emacs, but more 
consistent -*- lexical-binding:t -*-
 
-;; Copyright (C) 2022-2023  Free Software Foundation, Inc.
+;; Copyright (C) 2022-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Standard-Themes Development 
<~protesilaos/standard-the...@lists.sr.ht>
diff --git a/standard-themes.el b/standard-themes.el
index d9c73742e1..e46be36815 100644
--- a/standard-themes.el
+++ b/standard-themes.el
@@ -1,6 +1,6 @@
 ;;; standard-themes.el --- Like the default theme but more consistent -*- 
lexical-binding:t -*-
 
-;; Copyright (C) 2022-2023  Free Software Foundation, Inc.
+;; Copyright (C) 2022-2024  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Standard-Themes Development 
<~protesilaos/standard-the...@lists.sr.ht>



[elpa] externals/org dea7780d6d: org-fast-tag-selection: Limit the number of displayed tags

2024-01-12 Thread ELPA Syncer
branch: externals/org
commit dea7780d6da9534d8af3df6ed6df5c7c5dced464
Author: stardiviner 
Commit: Ihor Radchenko 

org-fast-tag-selection: Limit the number of displayed tags

* lisp/org.el (org-fast-tag-selection): Do not print tags without
explicit bindings and tags outside groups when the number of displayed
tags exceeds new customization.
* lisp/org.el (org-fast-tag-selection-maximum-tags): Add new custom
option to set maximum tags number for fast tag selection.
(org--fast-tag-selection-keys): New internal variable holding keys
available for auto-assigning tag bindings.
* doc/org-manual.org (org-fast-tag-selection-maximum-tags): Add new
custom option documentation.
* etc/ORG-NEWS: Declare this new custom option.

Co-Authored-by: Ihor Radchenko 
Link: 
https://list.orgmode.org/orgmode/CAL1eYuK7GUx_=47e8+n5jh+zjndexy+cdmujpjjhnmcmivv...@mail.gmail.com/
---
 doc/org-manual.org |  5 
 etc/ORG-NEWS   |  5 
 lisp/org.el| 73 +-
 3 files changed, 66 insertions(+), 17 deletions(-)

diff --git a/doc/org-manual.org b/doc/org-manual.org
index 8c5fa65b4a..2ff7068c15 100644
--- a/doc/org-manual.org
+++ b/doc/org-manual.org
@@ -5090,6 +5090,11 @@ effect: start selection with {{{kbd(C-c C-c C-c)}}} 
instead of
 the special window is not even shown for single-key tag selection, it
 comes up only when you press an extra {{{kbd(C-c)}}}.
 
+#+vindex: org-fast-tag-selection-maximum-tags
+The number of tags displayed in the fast tag selection interface is
+limited by ~org-fast-tag-selection-maximum-tags~ to avoid running out
+of keyboard keys.  You can customize this variable.
+
 ** Tag Hierarchy
 :PROPERTIES:
 :DESCRIPTION: Create a hierarchy of tags.
diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS
index b808357d82..847ddf6145 100644
--- a/etc/ORG-NEWS
+++ b/etc/ORG-NEWS
@@ -371,6 +371,11 @@ The change is breaking when ~org-use-property-inheritance~ 
is set to ~t~.
 
 The =TEST= parameter is better served by Emacs debugging tools.
 ** New and changed options
+*** New option ~org-fast-tag-selection-maximum-tags~
+
+You can now limit the total number of tags displayed in the fast tag
+selection interface.  Useful in buffers with huge number of tags.
+
 *** New variable ~org-clock-out-removed-last-clock~
 
 The variable is intended to be used by ~org-clock-out-hook~.  It is a
diff --git a/lisp/org.el b/lisp/org.el
index cf9abafac9..0f97f097ab 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -2790,6 +2790,25 @@ displaying the tags menu is not even shown, until you 
press `C-c' again."
  (const :tag "Yes" t)
  (const :tag "Expert" expert)))
 
+(defvar org--fast-tag-selection-keys
+  (string-to-list "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~")
+  "List of chars to be used as bindings by `org-fast-tag-selection'.")
+
+(defcustom org-fast-tag-selection-maximum-tags (length 
org--fast-tag-selection-keys)
+  "Set the maximum tags number for fast tag selection.
+This variable only affects tags without explicit key bindings outside
+tag groups.  All the tags with user bindings and all the tags
+corresponding to tag groups are always displayed.
+
+When the number of tags with bindings + tags inside tag groups is
+smaller than `org-fast-tag-selection-maximum-tags', tags without
+explicit bindings will be assigned a binding and displayed up to the
+limit."
+  :package-version '(Org . "9.7")
+  :group 'org-tags
+  :type 'number
+  :safe #'numberp)
+
 (defvar org-fast-tag-selection-include-todo nil
   "Non-nil means fast tags selection interface will also offer TODO states.
 This is an undocumented feature, you should not rely on it.")
@@ -11983,9 +12002,8 @@ Returns the new tags string, or nil to not change the 
current settings."
 (inherited-face 'org-done)
 (current-face 'org-todo)
  ;; Characters available for auto-assignment.
- (tag-binding-char-list
-  (eval-when-compile
-(string-to-list 
"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~")))
+ (tag-binding-char-list org--fast-tag-selection-keys)
+ (tag-binding-chars-left org-fast-tag-selection-maximum-tags)
  field-number ; current tag column in the completion buffer.
  tag-binding-spec ; Alist element.
  current-tag current-tag-char auto-tag-char
@@ -11995,6 +12013,22 @@ Returns the new tags string, or nil to not change the 
current settings."
 (exit-after-next org-fast-tag-selection-single-key)
 (done-keywords org-done-keywords)
 groups ingroup intaggroup)
+;; Calculate the number of tags with explicit user bindings + tags in 
groups.
+;; These tags will be displayed unconditionally.  Other tags will
+;; be displayed only when there are free bindings left according
+;; to `org-fast-tag-selection-maximum-tags'.
+(dolist (tag-binding-spec tag-alist)
+  (pcase tag-binding-spec
+(`(

[elpa] externals/dape 2b54df1d25 02/10: Fix startDebugging request for debugpy process start

2024-01-12 Thread ELPA Syncer
branch: externals/dape
commit 2b54df1d2521b428b4e99ae886bd85690b364072
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Fix startDebugging request for debugpy process start
---
 dape.el | 96 ++---
 1 file changed, 51 insertions(+), 45 deletions(-)

diff --git a/dape.el b/dape.el
index d098cb6520..0e6c63f467 100644
--- a/dape.el
+++ b/dape.el
@@ -1386,13 +1386,20 @@ Starts a new adapter CONNs from ARGUMENTS."
 (cl-defmethod dape-handle-request (conn (_command (eql startDebugging)) 
arguments)
   "Handle adapter CONNs startDebugging requests with ARGUMENTS.
 Starts a new adapter connection as per request of the debug adapter."
-  (let ((config (plist-get arguments :configuration)))
+  (let ((config (plist-get arguments :configuration))
+(request (plist-get arguments :request)))
 (cl-loop for (key value) on (dape--config conn) by 'cddr
  unless (or (keywordp key)
 (eq key 'command))
  do (plist-put config key value))
-(setq dape--connection (dape--create-connection config conn))
-(dape--start-debugging dape--connection))
+(when request
+  (plist-put config :request request))
+(let ((new-connection
+   (dape--create-connection config (or (dape--parent conn)
+   conn
+  (unless (dape--thread-id conn)
+(setq dape--connection new-connection))
+  (dape--start-debugging new-connection)))
   nil)
 
 
@@ -1538,35 +1545,31 @@ Prints exit code from BODY."
 (cl-defmethod dape-handle-event (conn (_event (eql terminated)) _body)
   "Handle adapter CONNs terminated events.
 Killing the adapter and it's CONN."
-  (dape--remove-stack-pointers)
-  (when-let ((parent (dape--parent conn)))
-;; Prevent double printing of terminated, caused by
-;; parent termination
-(setf (dape--state parent) 'terminated))
-  (unless (eq (dape--state conn) 'terminated)
-;; Prevent double priniting of terminated, caused by
-;; adapter responding to `dape-kill' "disconnect" request.
-(dape--repl-message "* Session terminated *"))
   (dape--update-state conn 'terminated)
-  (unless (dape--restart-in-progress-p conn)
-(dape-kill conn)))
+  (let ((child-conn-p (dape--parent conn)))
+(dape-kill conn
+   (and (not child-conn-p)
+(lambda ()
+  (dape--repl-message "* Session terminated *")))
+   nil
+   child-conn-p)))
 
 
 ;;; Startup/Setup
 
 (defun dape--start-debugging (conn)
   "Preform some cleanup and start debugging with CONN."
-  (dape--remove-stack-pointers)
-  ;; FIXME Cleanup source buffers in a nicer way
-  (cl-loop for (_ buffer) on dape--source-buffers by 'cddr
-   do (when (buffer-live-p buffer)
-(kill-buffer buffer)))
-  (setq dape--connection conn
-dape--source-buffers nil
-dape--repl-insert-text-guard nil
-dape--mode-line-active t)
-  (dape--update-state conn 'starting)
-  (run-hook-with-args 'dape-update-ui-hooks conn)
+  (unless (dape--parent conn)
+(dape--remove-stack-pointers)
+;; FIXME Cleanup source buffers in a nicer way
+(cl-loop for (_ buffer) on dape--source-buffers by 'cddr
+ do (when (buffer-live-p buffer)
+  (kill-buffer buffer)))
+(setq dape--source-buffers nil
+  dape--repl-insert-text-guard nil
+  dape--mode-line-active t)
+(dape--update-state conn 'starting)
+(run-hook-with-args 'dape-update-ui-hooks conn))
   (dape--initialize conn))
 
 (defun dape--create-connection (config &optional parent)
@@ -1682,16 +1685,15 @@ symbol `dape-connection'."
(dape--repl-message (buffer-string)
'error
  ;; cleanup server process
- (when-let ((server-process
- (dape--server-process conn)))
-   (delete-process server-process)
-   (while (process-live-p server-process)
- (accept-process-output nil nil 0.1)))
- ;; cleanup parent
- (when-let ((parent (dape--parent conn)))
-   (jsonrpc-shutdown parent))
+ (if-let ((parent (dape--parent conn)))
+ (setq dape--connection parent)
+   (dape--remove-stack-pointers)
+   (when-let ((server-process
+   (dape--server-process conn)))
+ (delete-process server-process)
+ (while (process-live-p server-process)
+   (accept-process-output nil nil 0.1
  ;; ui
- (dape--remove-stack-pointers)
  (run-with-timer 1 nil (lambda ()
 

[elpa] externals/dape 3d01c5f3b6 09/10: Add filename completion to read config

2024-01-12 Thread ELPA Syncer
branch: externals/dape
commit 3d01c5f3b66802261dba4f84fcbb9018738a856d
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Add filename completion to read config
---
 dape.el | 69 +
 1 file changed, 44 insertions(+), 25 deletions(-)

diff --git a/dape.el b/dape.el
index 5b2d07b1df..7717ce3ab3 100644
--- a/dape.el
+++ b/dape.el
@@ -3595,36 +3595,52 @@ If SIGNAL is non nil raises an `user-error'."
 
 (defun dape--config-completion-at-point ()
   "Function for `completion-at-point' fn for `dape--read-config'."
-  (pcase-let ((`(,key . ,args) (ignore-errors
- (read (format "(%s)" (thing-at-point 
'line)
-  (symbol-bounds (bounds-of-thing-at-point 'symbol))
-  (line-bounds (bounds-of-thing-at-point 'line))
-  (whitespace-bounds (bounds-of-thing-at-point 'whitespace)))
+  (let (key args args-bounds last-p)
+(save-excursion
+  (goto-char (minibuffer-prompt-end))
+  (setq key
+(ignore-errors (read (current-buffer
+  (ignore-errors
+(while t
+  (setq last-p (point))
+  (push (read (current-buffer))
+args)
+  (push (cons last-p (point))
+args-bounds
+(setq args (nreverse args)
+  args-bounds (nreverse args-bounds))
 (cond
  ;; Complete config key
  ((or (not key)
-  (and (not args) symbol-bounds))
-  (let ((bounds (or line-bounds (cons (point) (point)
-(list (car bounds) (cdr bounds)
+  (and (not args)
+   (thing-at-point 'symbol)))
+  (pcase-let ((`(,start . ,end)
+   (or (bounds-of-thing-at-point 'symbol)
+   (cons (point) (point)
+(list start end
   (mapcar (lambda (suggestion) (format "%s " suggestion))
   dape--minibuffer-suggestions
  ;; Complete config args
  ((and (alist-get key dape-configs)
-   (or (and (not (dape--plistp args))
-symbol-bounds)
-   (and (dape--plistp args)
-whitespace-bounds)))
-  (let ((args (if symbol-bounds
-  (nreverse (cdr (nreverse args)))
-args))
-(bounds (or symbol-bounds (cons (point) (point
-(base-config (append (alist-get key dape-configs)
- (cons 'compile nil
-(list (car bounds) (cdr bounds)
-  (cl-loop for (key _) on base-config by 'cddr
-   unless (plist-member args key)
-   when (or (eq key 'compile) (keywordp key))
-   collect (format "%s " key
+   (or (and (plistp args)
+(thing-at-point 'whitespace))
+   (cl-loop with p = (point)
+for ((start . end) _) on args-bounds by 'cddr
+when (and (<= start p) (<= p end))
+return t
+finally return nil)))
+  (pcase-let ((`(,start . ,end)
+   (or (bounds-of-thing-at-point 'symbol)
+   (cons (point) (point)
+(list start end
+  (cl-loop with plist = (append (alist-get key dape-configs)
+'(compile nil))
+   for (key _) on plist by 'cddr
+   collect (format "%s " key)
+ (t
+  (list (point) (point)
+nil
+:exclusive 'no)
 
 (defun dape--read-config ()
   "Read config from minibuffer.
@@ -3659,8 +3675,11 @@ See `dape--config-mode-p' how \"valid\" is defined."
 (minibuffer-with-setup-hook
 (lambda ()
   (setq-local dape--minibuffer-suggestions
-  (append from-dape-commands suggested-configs))
+  (append from-dape-commands suggested-configs)
+  comint-completion-addsuffix nil)
   (set-syntax-table emacs-lisp-mode-syntax-table)
+  (add-hook 'completion-at-point-functions
+'comint-filename-completion nil t)
   (add-hook 'completion-at-point-functions
 #'dape--config-completion-at-point nil t))
   (pcase-let* ((str
@@ -3669,7 +3688,7 @@ See `dape--config-mode-p' how \"valid\" is defined."
 initial-contents
 (let ((map (make-sparse-keymap)))
   (set-keymap-parent map 
minibuffer-local-map)
-  (define-key map "C-M-i" 
#'completion-at-point)
+  (define-key map (kbd "C-M-i") 
#'completion-at-point)
   (define-key map "\t" 
#'completion-at-point)
  

[elpa] externals/dape d730e3f4f2 06/10: Improve look of config barf on error

2024-01-12 Thread ELPA Syncer
branch: externals/dape
commit d730e3f4f2cdff9b37bb22ae09a2e520b4eacedb
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Improve look of config barf on error
---
 dape.el | 7 +++
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/dape.el b/dape.el
index 827024ecbf..3ddfaf28f1 100644
--- a/dape.el
+++ b/dape.el
@@ -1680,10 +1680,9 @@ symbol `dape-connection'."
; barf config
(dape--repl-message
 (format "With adapter request:\n%s"
-(pp-to-string
- (cl-loop for (key value) on (dape--config 
conn) by 'cddr
-  when (keywordp key)
-  append (list key value
+(cl-loop for (key value) on (dape--config 
conn) by 'cddr
+ when (keywordp key)
+ concat (format "%s %S\n" key value)))
 'error)
;; barf connection stderr
(when-let* ((proc (jsonrpc--process conn))



[elpa] externals/dape 3673a55dd3 10/10: Fix stacktrace face

2024-01-12 Thread ELPA Syncer
branch: externals/dape
commit 3673a55dd3736fcaeb3653aae5346072097d5669
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Fix stacktrace face
---
 dape.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/dape.el b/dape.el
index 7717ce3ab3..758e4765d7 100644
--- a/dape.el
+++ b/dape.el
@@ -516,7 +516,7 @@ The hook is run with one argument, the compilation buffer."
   "Face used to display breakpoint overlays.")
 
 (defface dape-stack-trace
-  '((t :inherit (default) :extend t))
+  '((t :extend t))
   "Face used to display stack trace overlays.")
 
 (defface dape-stack-trace-pointer



[elpa] externals/dape 371e88daec 08/10: Fix issue where stack shows stack trace even if continued

2024-01-12 Thread ELPA Syncer
branch: externals/dape
commit 371e88daec0cf971a39aaaef964565e51713ad2a
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Fix issue where stack shows stack trace even if continued
---
 dape.el | 14 --
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/dape.el b/dape.el
index dceda60b69..5b2d07b1df 100644
--- a/dape.el
+++ b/dape.el
@@ -3051,11 +3051,13 @@ Buffer is specified by MODE and ID."
 (cl-defmethod dape--info-buffer-update (conn (mode (eql dape-info-stack-mode)) 
id)
   "Fetches data for `dape-info-stack-mode' and updates buffer.
 Buffer is specified by MODE and ID."
-  (let ((stack-frames (plist-get (dape--current-thread conn) :stackFrames))
-(current-stack-frame (dape--current-stack-frame conn)))
-(dape--info-buffer-update-1 mode id
-:current-stack-frame current-stack-frame
-:stack-frames stack-frames)))
+  (if (dape--stopped-threads conn)
+  (let ((stack-frames (plist-get (dape--current-thread conn) :stackFrames))
+(current-stack-frame (dape--current-stack-frame conn)))
+(dape--info-buffer-update-1 mode id
+:current-stack-frame current-stack-frame
+:stack-frames stack-frames))
+(dape--info-buffer-update-1 mode id)))
 
 (cl-defmethod dape--info-buffer-update-contents
   (&context (major-mode dape-info-stack-mode) &key current-stack-frame 
stack-frames)
@@ -3065,7 +3067,7 @@ Updates from CURRENT-STACK-FRAME STACK-FRAMES."
   (cond
((or (not current-stack-frame)
 (not stack-frames))
-(insert "No stopped thread."))
+(insert "No stopped threads."))
(t
 (cl-loop with table = (make-gdb-table)
  for frame in stack-frames



[elpa] externals/dape 552683b9a8 04/10: Add overlay description for exception errors

2024-01-12 Thread ELPA Syncer
branch: externals/dape
commit 552683b9a8dbed539802edbb3f41102091699c89
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Add overlay description for exception errors
---
 dape.el | 39 +--
 1 file changed, 33 insertions(+), 6 deletions(-)

diff --git a/dape.el b/dape.el
index 68b7e87378..3ad8c824ee 100644
--- a/dape.el
+++ b/dape.el
@@ -506,12 +506,17 @@ The hook is run with one argument, the compilation 
buffer."
:height 0.85 :box (:line-width -1)))
   "Face used to display conditional breakpoints.")
 
+(defface dape-exception-description-face
+  '((t :inherit (warning)
+   :height 0.85 :box (:line-width -1)))
+  "Face used to display exception descriptions inline.")
+
 (defface dape-breakpoint-face
   '((t :inherit (font-lock-keyword-face)))
   "Face used to display breakpoint overlays.")
 
 (defface dape-stack-trace
-  '((t :inherit (highlight) :extend t))
+  '((t :inherit (default) :extend t))
   "Face used to display stack trace overlays.")
 
 (defface dape-stack-trace-pointer
@@ -957,6 +962,9 @@ If NOWARN does not error on no active process."
(state
 :accessor dape--state :initform nil
 :documentation "Session state.")
+   (exception-description
+:accessor dape--exception-description :initform nil
+:documentation "Exception description.")
(initialized-p
 :accessor dape--initialized-p :initform nil
 :documentation "If connection has been initialized.")
@@ -1507,14 +1515,14 @@ Sets `dape--thread-id' from BODY and invokes ui refresh 
with
 (plist-get body :allThreadsStopped)
 (dape--callback
  (dape--update conn)))
-  (when-let ((texts
+  (if-let (((equal "exception" (plist-get body :reason)))
+ (texts
   (seq-filter 'stringp
   (list (plist-get body :text)
 (plist-get body :description)
-(dape--repl-message (mapconcat 'identity texts "\n")
-(when (equal "exception"
- (plist-get body :reason))
-  'error)))
+  (setf (dape--exception-description conn)
+(mapconcat 'identity texts ": "))
+(setf (dape--exception-description conn) nil))
   (run-hooks 'dape-on-stopped-hooks))
 
 (cl-defmethod dape-handle-event (conn (_event (eql continued)) body)
@@ -2281,11 +2289,16 @@ See `dape--callback' for expected CB signature."
 (defvar dape--stack-position (make-marker)
   "Dape stack position for marker `overlay-arrow-variable-list'.")
 
+(defvar dape--stack-position-overlay nil
+  "Dape stack position overlay.")
+
 (defun dape--remove-stack-pointers ()
   "Remove stack pointer marker."
   (when-let ((buffer (marker-buffer dape--stack-position)))
 (with-current-buffer buffer
   (dape--remove-eldoc-hook)))
+  (when (overlayp dape--stack-position-overlay)
+(delete-overlay dape--stack-position-overlay))
   (set-marker dape--stack-position nil))
 
 (defun dape--update-stack-pointers (conn &optional skip-stack-pointer-flash)
@@ -2304,6 +2317,20 @@ If SKIP-STACK-POINTER-FLASH is non nil refrain from 
flashing line."
   (dape--add-eldoc-hook)
   (save-excursion
 (goto-char (marker-position marker))
+(setq dape--stack-position-overlay
+  (let ((ov
+ (make-overlay (line-beginning-position)
+   (line-beginning-position 2
+(overlay-put ov 'face 'dape-stack-trace)
+(when-let ((exception-description
+(dape--exception-description conn)))
+  (overlay-put ov 'after-string
+   (concat
+(propertize exception-description
+'face
+
'dape-exception-description-face)
+"\n")))
+ov))
 (set-marker dape--stack-position
 (line-beginning-position
 



[elpa] externals/dape updated (4393b10a53 -> 3673a55dd3)

2024-01-12 Thread ELPA Syncer
elpasync pushed a change to branch externals/dape.

  from  4393b10a53 Infer host in tramp context #16
   new  400082bc9b Fix removal of log and expression breakpoints
   new  2b54df1d25 Fix startDebugging request for debugpy process start
   new  7e184d193a Add option to align variables table
   new  552683b9a8 Add overlay description for exception errors
   new  1ec1b243c9 Improve usability of goto breakpoint in info buffer
   new  d730e3f4f2 Improve look of config barf on error
   new  043cf44d09 `dape-info' now toggles buffers when called as a command
   new  371e88daec Fix issue where stack shows stack trace even if continued
   new  3d01c5f3b6 Add filename completion to read config
   new  3673a55dd3 Fix stacktrace face


Summary of changes:
 dape.el | 315 +++-
 1 file changed, 194 insertions(+), 121 deletions(-)



[elpa] externals/dape 1ec1b243c9 05/10: Improve usability of goto breakpoint in info buffer

2024-01-12 Thread ELPA Syncer
branch: externals/dape
commit 1ec1b243c9ce255a2062c2f6962e79ded1e3e160
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Improve usability of goto breakpoint in info buffer
---
 dape.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/dape.el b/dape.el
index 3ad8c824ee..827024ecbf 100644
--- a/dape.el
+++ b/dape.el
@@ -2838,9 +2838,8 @@ FN is executed on mouse-2 and ?r, BODY is executed inside 
of let stmt."
 (dape--info-buffer-command dape-info-breakpoint-goto (dape--info-breakpoint)
   "Goto breakpoint at line in dape info buffer."
   (when-let* ((buffer (overlay-buffer dape--info-breakpoint)))
-(select-window
- (display-buffer buffer dape-display-source-buffer-action))
-(goto-char (overlay-start dape--info-breakpoint
+(with-selected-window (display-buffer buffer 
dape-display-source-buffer-action)
+  (goto-char (overlay-start dape--info-breakpoint)
 
 (dape--info-buffer-command dape-info-breakpoint-delete (dape--info-breakpoint)
   "Delete breakpoint at line in dape info buffer."



[elpa] externals/dape 043cf44d09 07/10: `dape-info' now toggles buffers when called as a command

2024-01-12 Thread ELPA Syncer
branch: externals/dape
commit 043cf44d091e3a229d539818af2f0b549b25215b
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

`dape-info' now toggles buffers when called as a command
---
 dape.el | 66 ++---
 1 file changed, 39 insertions(+), 27 deletions(-)

diff --git a/dape.el b/dape.el
index 3ddfaf28f1..dceda60b69 100644
--- a/dape.el
+++ b/dape.el
@@ -2793,38 +2793,50 @@ FN is executed on mouse-2 and ?r, BODY is executed 
inside of let stmt."
   (dolist (buffer (dape--info-buffer-list))
 (dape--info-update conn buffer)))
 
-(defun dape-info ()
-  "Update and display *dape-info* buffers."
-  (interactive)
-  ;; Open breakpoints if not group-1 buffer displayed
-  (unless (seq-find (lambda (buffer)
-  (and (get-buffer-window buffer)
-   (with-current-buffer buffer
+(defun dape-info (&optional maybe-close)
+  "Update and display *dape-info* buffers.
+When called interactively MAYBE-CLOSE is non nil.
+When optional MAYBE-CLOSE is non nil close buffers if all *dape-info*
+buffers are already displayed."
+  (interactive (list t))
+  (let (buffer-displayed-p)
+;; Open breakpoints if not group-1 buffer displayed
+(unless (seq-find (lambda (buffer)
+(and (get-buffer-window buffer)
+ (with-current-buffer buffer
(or (dape--info-buffer-p 
'dape-info-breakpoints-mode)
(dape--info-buffer-p 
'dape-info-threads-mode)
-(dape--info-buffer-list))
-(dape--display-buffer
- (dape--info-buffer 'dape-info-breakpoints-mode 'skip-update)))
-  ;; Open and update stack buffer
-  (unless (seq-find (lambda (buffer)
-  (and (get-buffer-window buffer)
-   (with-current-buffer buffer
+  (dape--info-buffer-list))
+  (setq buffer-displayed-p t)
+  (dape--display-buffer
+   (dape--info-buffer 'dape-info-breakpoints-mode 'skip-update)))
+;; Open and update stack buffer
+(unless (seq-find (lambda (buffer)
+(and (get-buffer-window buffer)
+ (with-current-buffer buffer
(or (dape--info-buffer-p 'dape-info-stack-mode)
(dape--info-buffer-p 
'dape-info-modules-mode)
(dape--info-buffer-p 
'dape-info-sources-mode)
-(dape--info-buffer-list))
-(dape--display-buffer
- (dape--info-buffer 'dape-info-stack-mode 'skip-update)))
-  ;; Open stack 0 if not group-2 buffer displayed
-  (unless (seq-find (lambda (buffer)
-  (and (get-buffer-window buffer)
-   (with-current-buffer buffer
- (or (dape--info-buffer-p 'dape-info-scope-mode)
- (dape--info-buffer-p 
'dape-info-watch-mode)
-(dape--info-buffer-list))
-(dape--display-buffer
- (dape--info-buffer 'dape-info-scope-mode 0 'skip-update)))
-  (dape-info-update (dape--live-connection t)))
+  (dape--info-buffer-list))
+  (setq buffer-displayed-p t)
+  (dape--display-buffer
+   (dape--info-buffer 'dape-info-stack-mode 'skip-update)))
+;; Open stack 0 if not group-2 buffer displayed
+(unless (seq-find (lambda (buffer)
+(and (get-buffer-window buffer)
+ (with-current-buffer buffer
+   (or (dape--info-buffer-p 'dape-info-scope-mode)
+   (dape--info-buffer-p 
'dape-info-watch-mode)
+  (dape--info-buffer-list))
+  (setq buffer-displayed-p t)
+  (dape--display-buffer
+   (dape--info-buffer 'dape-info-scope-mode 0 'skip-update)))
+(dape-info-update (dape--live-connection t))
+(when (and maybe-close (not buffer-displayed-p))
+  (dolist (buffer (buffer-list))
+(when (with-current-buffer buffer
+(derived-mode-p 'dape-info-parent-mode))
+  (kill-buffer buffer))
 
 
 ;;; Info breakpoints buffer



[elpa] externals/dape 7e184d193a 03/10: Add option to align variables table

2024-01-12 Thread ELPA Syncer
branch: externals/dape
commit 7e184d193a11da3d84274c3fa123c8b44b0bdaa9
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Add option to align variables table
---
 dape.el | 15 ---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/dape.el b/dape.el
index 0e6c63f467..68b7e87378 100644
--- a/dape.el
+++ b/dape.el
@@ -405,6 +405,10 @@ Each element should look like (MIME-TYPE . MODE) where
   "Hide mode line in dape info buffers."
   :type 'boolean)
 
+(defcustom dape-info-variable-table-aligned nil
+  "Align columns in variable tables."
+  :type 'boolean)
+
 (defcustom dape-info-variable-table-row-config `((name . 20)
  (value . 50)
  (type . 20))
@@ -3299,7 +3303,10 @@ Updates from CURRENT-STACK-FRAME STACK-FRAMES."
  (type  . ,type)
  (value . ,value
 (setcar row (concat prefix (car row)))
-(gdb-table-add-row table row
+(gdb-table-add-row table
+   (if dape-info-variable-table-aligned
+   row
+ (list (mapconcat 'identity row " ")))
(list 'dape--info-variable object
  'dape--info-path path
  'dape--info-ref ref))
@@ -3344,7 +3351,8 @@ Buffer is specified by MODE and ID."
 (dape--info-group-2-related-buffers scopes))
   (cl-loop with table = (make-gdb-table)
for object in (plist-get scope :variables)
-   initially (setf (gdb-table-right-align table) t)
+   initially (setf (gdb-table-right-align table)
+   dape-info-variable-table-aligned)
do
(dape--info-scope-add-variable table
   object
@@ -3410,7 +3418,8 @@ Buffer is specified by MODE and ID."
   (insert "No watched variable.")
 (cl-loop with table = (make-gdb-table)
  for watch in dape--watched
- initially (setf (gdb-table-right-align table) t)
+ initially (setf (gdb-table-right-align table)
+ dape-info-variable-table-aligned)
  do
  (dape--info-scope-add-variable table watch
 'watch



[elpa] externals/dape 400082bc9b 01/10: Fix removal of log and expression breakpoints

2024-01-12 Thread ELPA Syncer
branch: externals/dape
commit 400082bc9b85261d3c5adf4fda0303bf2b594723
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Fix removal of log and expression breakpoints
---
 dape.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/dape.el b/dape.el
index 368398ab7b..d098cb6520 100644
--- a/dape.el
+++ b/dape.el
@@ -1843,7 +1843,7 @@ Expressions within `{}` are interpolated."
   (when-let ((prev-log-breakpoint (seq-find (lambda (ov)
   (overlay-get ov 
'dape-log-message))
 (dape--breakpoints-at-point
-(dape--breakpoint-remove prev-log-breakpoint t))
+(dape--breakpoint-remove prev-log-breakpoint))
   (unless (string-empty-p log-message)
 (dape--breakpoint-place log-message)))
 
@@ -1862,7 +1862,7 @@ When EXPR-MESSAGE is evaluated as true threads will pause 
at current line."
   (seq-find (lambda (ov)
   (overlay-get ov 'dape-expr-message))
 (dape--breakpoints-at-point
-(dape--breakpoint-remove prev-expr-breakpoint t))
+(dape--breakpoint-remove prev-expr-breakpoint))
   (unless (string-empty-p expr-message)
 (dape--breakpoint-place nil expr-message)))
 



[elpa] externals/org updated (dea7780d6d -> 77a1ddd39f)

2024-01-12 Thread ELPA Syncer
elpasync pushed a change to branch externals/org.

  from  dea7780d6d org-fast-tag-selection: Limit the number of displayed 
tags
   new  dda435773f doc/org-manual.org (Citations): Add more examples
   new  77a1ddd39f lisp/org-element-ast.el: Fix typos in top comment


Summary of changes:
 doc/org-manual.org  | 6 ++
 lisp/org-element-ast.el | 6 +++---
 2 files changed, 9 insertions(+), 3 deletions(-)



[elpa] externals/org 77a1ddd39f 2/2: lisp/org-element-ast.el: Fix typos in top comment

2024-01-12 Thread ELPA Syncer
branch: externals/org
commit 77a1ddd39f25eed8ee0e0d4809e3970e3affc124
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

lisp/org-element-ast.el: Fix typos in top comment
---
 lisp/org-element-ast.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/org-element-ast.el b/lisp/org-element-ast.el
index af2a7cc1bd..24f0ac62e8 100644
--- a/lisp/org-element-ast.el
+++ b/lisp/org-element-ast.el
@@ -24,7 +24,7 @@
 
 ;; This file implements Org abstract syntax tree (AST) data structure.
 ;;
-;; Only the most generic aspect of the syntax tree are considered
+;; Only the most generic aspects of the syntax tree are considered
 ;; below.  The fine details of Org syntax are implemented elsewhere.
 ;;
 ;; Org AST is composed of nested syntax nodes.
@@ -85,7 +85,7 @@
 ;; `:secondary' holds a list of properties that may contain extra AST
 ;; nodes, in addition to the node contents.
 ;;
-;; `deferred' property describes how to update not-yet-calculated
+;; `:deferred' property describes how to update not-yet-calculated
 ;; properties on request.
 ;;
 ;;
@@ -170,7 +170,7 @@
 ;; inside `:title' property.  Note that `:title' is listed in
 ;; `:secondary' value.
 ;;
-;; The following example illustrates an example AST for Org document:
+;; The following example illustrates AST structure for an Org document:
 ;;
 ;;  Org document 
 ;; * Heading with *bold* text



[elpa] externals/org dda435773f 1/2: doc/org-manual.org (Citations): Add more examples

2024-01-12 Thread ELPA Syncer
branch: externals/org
commit dda435773f3b9d5bb870baa8a64028da9187ce85
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

doc/org-manual.org (Citations): Add more examples
---
 doc/org-manual.org | 6 ++
 1 file changed, 6 insertions(+)

diff --git a/doc/org-manual.org b/doc/org-manual.org
index 2ff7068c15..dc56f640ef 100644
--- a/doc/org-manual.org
+++ b/doc/org-manual.org
@@ -17268,15 +17268,21 @@ identifying a reference in the bibliography.
 
 - Each key starts with the character =@=.
 
+  : [cite:@key]
+
 - Each key can be qualified by a /prefix/ (e.g.\nbsp{}"see ") and/or
   a /suffix/ (e.g.\nbsp{}"p.\nbsp{}123"), giving information useful or 
necessary
   for the comprehension of the citation but not included in the
   reference.
 
+  : [cite:see @key p. 123]
+
 - A single citation can cite more than one reference ; the keys are
   separated by semicolons ; the formatting of such citation groups is
   specified by the style.
 
+  : [cite:@key1;@key2;@key3]
+
 - One can also specify a stylistic variation for the citations by
   inserting a =/= and a style name between the =cite= keyword and the
   colon; this usually makes sense only for the author-year styles.



[elpa] main 640b170e4f: EXWM has moved to https://github.com/emacs-exwm/exwm

2024-01-12 Thread Stefan Monnier via
branch: main
commit 640b170e4fbe4ad7cce50fae0931e2545d490ead
Author: Daniel Mendler 
Commit: Stefan Monnier 

EXWM has moved to https://github.com/emacs-exwm/exwm

See https://github.com/ch11ng/exwm/issues/942 for the background
regarding the move.
---
 elpa-packages | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/elpa-packages b/elpa-packages
index d1e720a271..a18eb8e37e 100644
--- a/elpa-packages
+++ b/elpa-packages
@@ -300,7 +300,7 @@
  (expand-region:url 
"https://github.com/magnars/expand-region.el";)
  (expreg:url "https://github.com/casouri/expreg.git";)
  (external-completion   :core "lisp/external-completion.el")
- (exwm :url "https://github.com/ch11ng/exwm.git";)
+ (exwm :url "https://github.com/emacs-exwm/exwm.git";)
  (f90-interface-browser :url nil) ;; Was "https://github.com/wence-/f90-iface";
  (face-shift:url "https://git.sr.ht/~pkal/face-shift";)
  (filladapt:url nil)
@@ -793,7 +793,7 @@
  (xclip:url nil)
  (xeft  :url "https://git.sr.ht/~casouri/xeft";
   :ignored-files ("*.gif"))
- (xelb :url "https://github.com/ch11ng/xelb.git";)
+ (xelb :url "https://github.com/emacs-exwm/xelb.git";)
  (xpm  :url nil)
  (xr   :url "https://github.com/mattiase/xr";
   :ignored-files ("Makefile" ".github" "*-test.el*"))



[elpa] externals/compat f94ddcc168: Update copyright years

2024-01-12 Thread ELPA Syncer
branch: externals/compat
commit f94ddcc1680089121e6476ae55a506a72b18a68c
Author: Daniel Mendler 
Commit: Daniel Mendler 

Update copyright years
---
 Makefile| 2 +-
 compat-25.el| 2 +-
 compat-26.el| 2 +-
 compat-27.el| 2 +-
 compat-28.el| 2 +-
 compat-29.el| 2 +-
 compat-macs.el  | 2 +-
 compat-tests.el | 2 +-
 compat.el   | 2 +-
 compat.texi | 2 +-
 10 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/Makefile b/Makefile
index 0044904f2d..3c59494187 100644
--- a/Makefile
+++ b/Makefile
@@ -1,6 +1,6 @@
 ### Makefile
 
-# Copyright (C) 2021-2023 Free Software Foundation, Inc.
+# Copyright (C) 2021-2024 Free Software Foundation, Inc.
 
 # 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
diff --git a/compat-25.el b/compat-25.el
index 7901091b13..182f5a352b 100644
--- a/compat-25.el
+++ b/compat-25.el
@@ -1,6 +1,6 @@
 ;;; compat-25.el --- Functionality added in Emacs 25.1 -*- lexical-binding: t; 
-*-
 
-;; Copyright (C) 2021-2023 Free Software Foundation, Inc.
+;; Copyright (C) 2021-2024 Free Software Foundation, Inc.
 
 ;; 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
diff --git a/compat-26.el b/compat-26.el
index 9d3d7b9eac..c91a486636 100644
--- a/compat-26.el
+++ b/compat-26.el
@@ -1,6 +1,6 @@
 ;;; compat-26.el --- Functionality added in Emacs 26.1 -*- lexical-binding: t; 
-*-
 
-;; Copyright (C) 2021-2023 Free Software Foundation, Inc.
+;; Copyright (C) 2021-2024 Free Software Foundation, Inc.
 
 ;; 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
diff --git a/compat-27.el b/compat-27.el
index 3ff075ddd0..3de78a49dc 100644
--- a/compat-27.el
+++ b/compat-27.el
@@ -1,6 +1,6 @@
 ;;; compat-27.el --- Functionality added in Emacs 27.1 -*- lexical-binding: t; 
-*-
 
-;; Copyright (C) 2021-2023 Free Software Foundation, Inc.
+;; Copyright (C) 2021-2024 Free Software Foundation, Inc.
 
 ;; 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
diff --git a/compat-28.el b/compat-28.el
index 9bf0ed2de7..a2b9f4ca3f 100644
--- a/compat-28.el
+++ b/compat-28.el
@@ -1,6 +1,6 @@
 ;;; compat-28.el --- Functionality added in Emacs 28.1 -*- lexical-binding: t; 
-*-
 
-;; Copyright (C) 2021-2023 Free Software Foundation, Inc.
+;; Copyright (C) 2021-2024 Free Software Foundation, Inc.
 
 ;; 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
diff --git a/compat-29.el b/compat-29.el
index 3db94c944b..cd012106ff 100644
--- a/compat-29.el
+++ b/compat-29.el
@@ -1,6 +1,6 @@
 ;;; compat-29.el --- Functionality added in Emacs 29.1 -*- lexical-binding: t; 
-*-
 
-;; Copyright (C) 2021-2023 Free Software Foundation, Inc.
+;; Copyright (C) 2021-2024 Free Software Foundation, Inc.
 
 ;; 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
diff --git a/compat-macs.el b/compat-macs.el
index 93e0f228fb..f5fc8ac6ff 100644
--- a/compat-macs.el
+++ b/compat-macs.el
@@ -1,6 +1,6 @@
 ;;; compat-macs.el --- Compatibility Macros -*- lexical-binding: t; 
no-byte-compile: t; -*-
 
-;; Copyright (C) 2021-2023 Free Software Foundation, Inc.
+;; Copyright (C) 2021-2024 Free Software Foundation, Inc.
 
 ;; 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
diff --git a/compat-tests.el b/compat-tests.el
index 6a1534c2ab..4616b8cbf8 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -1,6 +1,6 @@
 ;;; compat-tests.el --- Tests for Compat -*- lexical-binding: t; 
no-byte-compile: t; -*-
 
-;; Copyright (C) 2021-2023 Free Software Foundation, Inc.
+;; Copyright (C) 2021-2024 Free Software Foundation, Inc.
 
 ;; 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
diff --git a/compat.el b/compat.el
index 48c752e055..2d2234cc35 100644
--- a/compat.el
+++ b/compat.el
@@ -1,6 +1,6 @@
 ;;; compat.el --- Emacs Lisp Compatibility Library -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2021-2023 Free Software Foundation, Inc.
+;; Copyright (C) 2021-2024 Free Software Foundation, Inc.
 
 ;; Author: Philip Kaludercic , Daniel Mendler 

 ;; Maintainer: Compat Development <~pkal/compat-de...@lists.sr.ht>
diff --git a/compat.texi b/compat.texi
index eeed845d25..078f47aef7 100644
--- a/compat.texi
+++ b/compat.texi
@@ -7,7 +7,7 @@
 @c %**end of header
 
 @copying
-Copyright @copyright{} 2022-2023 Free Software Foundation, Inc.
+Copyright @copyright{} 2022-2024 Free Software Foundation, Inc.
 
 @quot

[elpa] externals/dape 8632214a6b: Cleanup processes on test failure

2024-01-12 Thread ELPA Syncer
branch: externals/dape
commit 8632214a6badeb84554810685e95c0bafbf9a40a
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Cleanup processes on test failure
---
 dape-tests.el | 45 +
 1 file changed, 25 insertions(+), 20 deletions(-)

diff --git a/dape-tests.el b/dape-tests.el
index 86c1444b9a..0d9d938ec7 100644
--- a/dape-tests.el
+++ b/dape-tests.el
@@ -92,25 +92,30 @@ Helper for `dape-test--with-files'."
   (unless dape-test--skip-cleanup
 (advice-add 'yes-or-no-p :around (defun always-yes (&rest _) t))
 (dape-quit)
-(setq dape--info-expanded-p
-  (make-hash-table :test 'equal))
-(setq dape--watched nil)
-(dape-test--should
- (not (dape--live-connection t)) 10)
-(dape-test--should
- (not (seq-find (lambda (buffer)
-  (and (not (equal (buffer-name buffer)
-   "*dape-connection events*"))
-   (string-match-p "\\*dape-.+\\*"
-   (buffer-name buffer
-(buffer-list
-(dape-test--should
- (not (process-list)) 10)
-(advice-remove 'yes-or-no-p 'always-yes)
-(dolist (buffer buffers)
-  (kill-buffer buffer))
-;; clean up files
-(delete-directory temp-dir t)
+(unwind-protect
+;; Post test asserts
+(progn
+  (dape-test--should
+   (not (dape--live-connection t)) 10)
+  (dape-test--should
+   (not (seq-find (lambda (buffer)
+(and (not (equal (buffer-name buffer)
+ "*dape-connection events*"))
+ (string-match-p "\\*dape-.+\\*"
+ (buffer-name buffer
+  (buffer-list
+  (dape-test--should
+   (not (process-list)) 10))
+  (advice-remove 'yes-or-no-p 'always-yes)
+  (setq dape--info-expanded-p
+(make-hash-table :test 'equal))
+  (setq dape--watched nil)
+  (dolist (process (process-list))
+(delete-process process))
+  (dolist (buffer buffers)
+(kill-buffer buffer))
+  ;; clean up files
+  (delete-directory temp-dir t))
 
 (defun dape-test--apply-to-match (regex fn)
   "Apply FN to match of REGEX in the current buffer."
@@ -215,7 +220,7 @@ Expects line with string \"breakpoint\" in source."
  (and (dape-test--stopped-p)
   (equal (line-number-at-pos)
  (dape-test--line-at-regex "breakpoint"
-(sleep-for 2) ;; FIXME Regression dape messes up current live connection
+(sleep-for 3) ;; FIXME Regression dape messes up current live connection
   ;; on fast restarts
 ;; restart
 (goto-char (point-min))



[elpa] externals/exwm 588cfc7790 8/9: Add new maintainers: Steven Allen (@stebalien) and Daniel Mendler (@minad)

2024-01-12 Thread ELPA Syncer
branch: externals/exwm
commit 588cfc77908de8db4a7acb0ccff55c04eabc68a7
Author: Daniel Mendler 
Commit: Daniel Mendler 

Add new maintainers: Steven Allen (@stebalien) and Daniel Mendler (@minad)
---
 exwm.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/exwm.el b/exwm.el
index d421a22ef5..319168a91c 100644
--- a/exwm.el
+++ b/exwm.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2015-2024 Free Software Foundation, Inc.
 
 ;; Author: Chris Feng 
-;; Maintainer: Adrián Medraño Calvo 
+;; Maintainer: Adrián Medraño Calvo , Steven Allen 
, Daniel Mendler 
 ;; Version: 0.28
 ;; Package-Requires: ((emacs "26.1") (xelb "0.18"))
 ;; Keywords: unix



[elpa] externals/exwm 4a3feec76f 9/9: ; Add LICENSE to .elpaignore

2024-01-12 Thread ELPA Syncer
branch: externals/exwm
commit 4a3feec76f94a2688e885e4742b600a76b6fa8af
Author: Daniel Mendler 
Commit: Daniel Mendler 

; Add LICENSE to .elpaignore
---
 .elpaignore | 1 +
 1 file changed, 1 insertion(+)

diff --git a/.elpaignore b/.elpaignore
index b43bf86b50..f0f644ee08 100644
--- a/.elpaignore
+++ b/.elpaignore
@@ -1 +1,2 @@
+LICENSE
 README.md



[elpa] externals/exwm 22aa38b0cd 3/9: ; Use two spaces after sentence

2024-01-12 Thread ELPA Syncer
branch: externals/exwm
commit 22aa38b0cda9b58865ec2d59dc89bc32884ffc76
Author: Daniel Mendler 
Commit: Daniel Mendler 

; Use two spaces after sentence

I follow this convention in Elisp files only.
---
 exwm-background.el | 2 +-
 exwm-input.el  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/exwm-background.el b/exwm-background.el
index 701e577d83..fa663d8fe6 100644
--- a/exwm-background.el
+++ b/exwm-background.el
@@ -27,7 +27,7 @@
 ;;   (require 'exwm-background)
 ;;   (exwm-background-enable)
 ;;
-;; By default, this will apply the theme's background color. However, that
+;; By default, this will apply the theme's background color.  However, that
 ;; color can be customized via the `exwm-background-color' setting.
 
 ;;; Code:
diff --git a/exwm-input.el b/exwm-input.el
index 366fd624d9..147638be72 100644
--- a/exwm-input.el
+++ b/exwm-input.el
@@ -762,7 +762,7 @@ Current buffer must be an `exwm-mode' buffer."
 (defun exwm-input--on-ButtonPress-line-mode (buffer button-event)
   "Handle button events in line mode.
 BUFFER is the `exwm-mode' buffer the event was generated
-on. BUTTON-EVENT is the X event converted into an Emacs event.
+on.  BUTTON-EVENT is the X event converted into an Emacs event.
 
 The return value is used as event_mode to release the original
 button event."



[elpa] externals/exwm 2e79830e39 4/9: ; First line of docstring should be a full sentence

2024-01-12 Thread ELPA Syncer
branch: externals/exwm
commit 2e79830e3942f1c3c71c43d973b248b7bbbcd686
Author: Daniel Mendler 
Commit: Daniel Mendler 

; First line of docstring should be a full sentence
---
 exwm-floating.el | 8 
 exwm-input.el| 3 +--
 exwm.el  | 4 ++--
 3 files changed, 7 insertions(+), 8 deletions(-)

diff --git a/exwm-floating.el b/exwm-floating.el
index ebf39c4a5c..c4e29dece4 100644
--- a/exwm-floating.el
+++ b/exwm-floating.el
@@ -35,13 +35,13 @@
   :group 'exwm)
 
 (defcustom exwm-floating-setup-hook nil
-  "Normal hook run when an X window has been made floating, in the
-context of the corresponding buffer."
+  "Normal hook run when an X window has been made floating.
+This hook runs in the context of the corresponding buffer."
   :type 'hook)
 
 (defcustom exwm-floating-exit-hook nil
-  "Normal hook run when an X window has exited floating state, in the
-context of the corresponding buffer."
+  "Normal hook run when an X window has exited floating state.
+This hook runs in the context of the corresponding buffer."
   :type 'hook)
 
 (defcustom exwm-floating-border-color "navy"
diff --git a/exwm-input.el b/exwm-input.el
index 147638be72..bb97adc623 100644
--- a/exwm-input.el
+++ b/exwm-input.el
@@ -107,8 +107,7 @@ defined in `exwm-mode-map' here."
   read-key-sequence-vector
   read-key-sequence
   read-event)
-  "Low-level functions that read events and need to be exempted from
-EXWM's input handling.")
+  "Low-level read functions that must be exempted from EXWM input handling.")
 
 (defvar exwm-input--during-command nil
   "Indicate whether between `pre-command-hook' and `post-command-hook'.")
diff --git a/exwm.el b/exwm.el
index 1929b7a60c..a9deb5cd8d 100644
--- a/exwm.el
+++ b/exwm.el
@@ -115,8 +115,8 @@
   "Name of the subordinate Emacs server.")
 
 (defvar exwm--server-timeout 1
-  "Number of seconds to wait for the subordinate Emacs server to exit before
-killing it.")
+  "Number of seconds to wait for the subordinate Emacs server to exit.
+After this time, the server will be killed.")
 
 (defvar exwm--server-process nil "Process of the subordinate Emacs server.")
 



[elpa] externals/exwm 2c5dcadfab 7/9: ; Update repository URLs

2024-01-12 Thread ELPA Syncer
branch: externals/exwm
commit 2c5dcadfabd70a16913d9dfcab7733c0f8811b1a
Author: Daniel Mendler 
Commit: Daniel Mendler 

; Update repository URLs
---
 README.md | 8 
 exwm.el   | 6 +++---
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/README.md b/README.md
index b17db2fece..404f3228fc 100644
--- a/README.md
+++ b/README.md
@@ -1,7 +1,7 @@
 # Emacs X Window Manager
 
 EXWM (Emacs X Window Manager) is a full-featured tiling X window manager
-for Emacs built on top of [XELB](https://github.com/ch11ng/xelb).
+for Emacs built on top of [XELB](https://github.com/emacs-exwm/xelb).
 It features:
 + Fully keyboard-driven operations
 + Hybrid layout modes (tiling & stacking)
@@ -13,9 +13,9 @@ It features:
 + (Optional) Background setting support
 
 Please check out the
-[screenshots](https://github.com/ch11ng/exwm/wiki/Screenshots)
-to get an overview of what EXWM is capable of,
-and the [user guide](https://github.com/ch11ng/exwm/wiki)
+[screenshots](https://github.com/emacs-exwm/exwm/wiki/Screenshots)
+to get an overview of what EXWM is capable of, and the
+[user guide](https://github.com/emacs-exwm/exwm/wiki)
 for a detailed explanation of its usage.
 
 **Note**: If you install EXWM from source, it's recommended to install
diff --git a/exwm.el b/exwm.el
index 3561cf27ac..d421a22ef5 100644
--- a/exwm.el
+++ b/exwm.el
@@ -7,7 +7,7 @@
 ;; Version: 0.28
 ;; Package-Requires: ((emacs "26.1") (xelb "0.18"))
 ;; Keywords: unix
-;; URL: https://github.com/ch11ng/exwm
+;; URL: https://github.com/emacs-exwm/exwm
 
 ;; This file is part of GNU Emacs.
 
@@ -29,7 +29,7 @@
 ;; Overview
 ;; 
 ;; EXWM (Emacs X Window Manager) is a full-featured tiling X window manager
-;; for Emacs built on top of [XELB](https://github.com/ch11ng/xelb).
+;; for Emacs built on top of [XELB](https://github.com/emacs-exwm/xelb).
 ;; It features:
 ;; + Fully keyboard-driven operations
 ;; + Hybrid layout modes (tiling & stacking)
@@ -56,7 +56,7 @@
 ;;xinit -- vt01
 ;;
 ;; You should additionally hide the menu-bar, tool-bar, etc to increase the
-;; usable space.  Please check the wiki (https://github.com/ch11ng/exwm/wiki)
+;; usable space.  Please check the wiki 
(https://github.com/emacs-exwm/exwm/wiki)
 ;; for more detailed instructions on installation, configuration, usage, etc.
 
 ;; References:



[elpa] externals/exwm updated (798dc60a9b -> 4a3feec76f)

2024-01-12 Thread ELPA Syncer
elpasync pushed a change to branch externals/exwm.

  from  798dc60a9b ; Shorten docstrings
   new  262aa04855 ; README and commentary: Mention background and xim 
features
   new  b51389ce8f ; exwm-background: Wrap docstrings to avoid compiler 
warnings
   new  22aa38b0cd ; Use two spaces after sentence
   new  2e79830e39 ; First line of docstring should be a full sentence
   new  c069e8195d exwm-blocking-subrs: x-* functions may be missing on 
some Emacs builds
   new  dc26c38af7 Remove obsolete functions and variables
   new  2c5dcadfab ; Update repository URLs
   new  588cfc7790 Add new maintainers: Steven Allen (@stebalien) and 
Daniel Mendler (@minad)
   new  4a3feec76f ; Add LICENSE to .elpaignore


Summary of changes:
 .elpaignore|  1 +
 README.md  |  9 +
 exwm-background.el | 10 +-
 exwm-floating.el   |  8 
 exwm-input.el  | 10 ++
 exwm-randr.el  |  7 ---
 exwm.el| 19 +++
 7 files changed, 28 insertions(+), 36 deletions(-)



[elpa] externals/exwm c069e8195d 5/9: exwm-blocking-subrs: x-* functions may be missing on some Emacs builds

2024-01-12 Thread ELPA Syncer
branch: externals/exwm
commit c069e8195dfdd81f458e4a0dac4d9589077321e3
Author: Daniel Mendler 
Commit: Daniel Mendler 

exwm-blocking-subrs: x-* functions may be missing on some Emacs builds

Avoid compiler warnings. Follow-up of 
https://github.com/ch11ng/exwm/pull/937.
---
 exwm.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/exwm.el b/exwm.el
index a9deb5cd8d..3561cf27ac 100644
--- a/exwm.el
+++ b/exwm.el
@@ -100,8 +100,9 @@
   :type 'hook)
 
 (defcustom exwm-blocking-subrs
-  (list #'x-file-dialog #'x-popup-dialog #'x-select-font
-#'message-box #'message-or-box)
+  ;; `x-file-dialog' and `x-select-font' are missing on some Emacs builds, for
+  ;; example on the X11 Lucid build.
+  '(x-file-dialog x-popup-dialog x-select-font message-box message-or-box)
   "Subrs (primitives) that would normally block EXWM."
   :type '(repeat function))
 



[elpa] externals/exwm dc26c38af7 6/9: Remove obsolete functions and variables

2024-01-12 Thread ELPA Syncer
branch: externals/exwm
commit dc26c38af7fc65fc2cb59c5083cd14e0ef7cc7b0
Author: Daniel Mendler 
Commit: Daniel Mendler 

Remove obsolete functions and variables

These functions and variables have been marked as obsolete over five years 
ago.

* exwm-input.el (exwm-input-set-simulation-keys): Remove obsolete function.
* exwm-randr.el (exwm-randr--refresh, exwm-randr-workspace-output-plist): 
Remove
obsolete aliases.
---
 exwm-input.el | 5 -
 exwm-randr.el | 7 ---
 2 files changed, 12 deletions(-)

diff --git a/exwm-input.el b/exwm-input.el
index bb97adc623..5767f13978 100644
--- a/exwm-input.el
+++ b/exwm-input.el
@@ -984,11 +984,6 @@ multiple keys.  If END-KEY is non-nil, stop sending keys 
if it's pressed."
#'exwm-input-send-simulation-key
exwm-input--simulation-keys))
 
-(defun exwm-input-set-simulation-keys (simulation-keys)
-  "Please customize or set `exwm-input-simulation-keys' instead."
-  (declare (obsolete nil "26"))
-  (exwm-input--set-simulation-keys simulation-keys))
-
 (defcustom exwm-input-simulation-keys nil
   "Simulation keys.
 
diff --git a/exwm-randr.el b/exwm-randr.el
index abfa84fe81..e98074fecb 100644
--- a/exwm-randr.el
+++ b/exwm-randr.el
@@ -91,10 +91,6 @@ corresponding monitors whenever the monitors are active.
   \\='(1 \"HDMI-1\" 3 \"DP-1\")"
   :type '(plist :key-type integer :value-type string))
 
-(with-no-warnings
-  (define-obsolete-variable-alias 'exwm-randr-workspace-output-plist
-'exwm-randr-workspace-monitor-plist "27.1"))
-
 (defvar exwm-randr--last-timestamp 0 "Used for debouncing events.")
 
 (defvar exwm-randr--prev-screen-change-seqnum nil
@@ -269,9 +265,6 @@ In a mirroring setup some monitors overlap and should be 
treated as one."
   (xcb:flush exwm--connection)
   (run-hooks 'exwm-randr-refresh-hook
 
-(define-obsolete-function-alias 'exwm-randr--refresh #'exwm-randr-refresh
-  "27.1")
-
 (defun exwm-randr--on-ScreenChangeNotify (data _synthetic)
   "Handle `ScreenChangeNotify' event.
 



[elpa] externals/exwm 262aa04855 1/9: ; README and commentary: Mention background and xim features

2024-01-12 Thread ELPA Syncer
branch: externals/exwm
commit 262aa0485576912626f77ce4c08f149e5e87c24a
Author: Daniel Mendler 
Commit: Daniel Mendler 

; README and commentary: Mention background and xim features
---
 README.md | 1 +
 exwm.el   | 2 ++
 2 files changed, 3 insertions(+)

diff --git a/README.md b/README.md
index 6d7e0dd1ff..b17db2fece 100644
--- a/README.md
+++ b/README.md
@@ -10,6 +10,7 @@ It features:
 + (Optional) RandR (multi-monitor) support
 + (Optional) Builtin system tray
 + (Optional) Builtin input method
++ (Optional) Background setting support
 
 Please check out the
 [screenshots](https://github.com/ch11ng/exwm/wiki/Screenshots)
diff --git a/exwm.el b/exwm.el
index d2a0a625a6..1929b7a60c 100644
--- a/exwm.el
+++ b/exwm.el
@@ -37,6 +37,8 @@
 ;; + ICCCM/EWMH compliance
 ;; + (Optional) RandR (multi-monitor) support
 ;; + (Optional) Built-in system tray
+;; + (Optional) Builtin input method
+;; + (Optional) Background setting support
 
 ;; Installation & configuration
 ;; 



[elpa] externals/exwm b51389ce8f 2/9: ; exwm-background: Wrap docstrings to avoid compiler warnings

2024-01-12 Thread ELPA Syncer
branch: externals/exwm
commit b51389ce8f8650766a2fdee95c4d3d4ffa72ad88
Author: Daniel Mendler 
Commit: Daniel Mendler 

; exwm-background: Wrap docstrings to avoid compiler warnings
---
 exwm-background.el | 8 
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/exwm-background.el b/exwm-background.el
index 44fa5d0377..701e577d83 100644
--- a/exwm-background.el
+++ b/exwm-background.el
@@ -47,13 +47,13 @@
 
 (defconst exwm-background--properties '("_XROOTPMAP_ID" "_XSETROOT_ID" 
"ESETROOT_PMAP_ID")
   "The background properties to set.
-We can't need to set these so that compositing window managers can correctly 
display the background
-color.")
+We can't need to set these so that compositing window managers
+can correctly display the background color.")
 
 (defvar exwm-background--connection nil
   "The X connection used for setting the background.
-We use a separate connection as other background-setting tools may kill this 
connection when they
-replace it.")
+We use a separate connection as other background-setting tools
+may kill this connection when they replace it.")
 
 (defvar exwm-background--pixmap nil
   "Cached background pixmap.")



[elpa] externals/xelb f35a653a20 4/5: ; Update copyright year to 2024

2024-01-12 Thread ELPA Syncer
branch: externals/xelb
commit f35a653a20cc7cedf919445504dfe7a38af307d1
Author: Daniel Mendler 
Commit: Daniel Mendler 

; Update copyright year to 2024
---
 el_client.el   | 4 ++--
 xcb-bigreq.el  | 2 +-
 xcb-composite.el   | 2 +-
 xcb-cursor.el  | 2 +-
 xcb-damage.el  | 2 +-
 xcb-debug.el   | 2 +-
 xcb-dpms.el| 2 +-
 xcb-dri2.el| 2 +-
 xcb-dri3.el| 2 +-
 xcb-ewmh.el| 2 +-
 xcb-ge.el  | 2 +-
 xcb-glx.el | 2 +-
 xcb-icccm.el   | 2 +-
 xcb-keysyms.el | 2 +-
 xcb-present.el | 2 +-
 xcb-randr.el   | 2 +-
 xcb-record.el  | 2 +-
 xcb-render.el  | 2 +-
 xcb-renderutil.el  | 2 +-
 xcb-res.el | 2 +-
 xcb-screensaver.el | 2 +-
 xcb-shape.el   | 2 +-
 xcb-shm.el | 2 +-
 xcb-sync.el| 2 +-
 xcb-systemtray.el  | 2 +-
 xcb-types.el   | 2 +-
 xcb-xc_misc.el | 2 +-
 xcb-xembed.el  | 2 +-
 xcb-xevie.el   | 2 +-
 xcb-xf86dri.el | 2 +-
 xcb-xf86vidmode.el | 2 +-
 xcb-xfixes.el  | 2 +-
 xcb-xim.el | 2 +-
 xcb-xinerama.el| 2 +-
 xcb-xinput.el  | 2 +-
 xcb-xkb.el | 2 +-
 xcb-xlib.el| 2 +-
 xcb-xprint.el  | 2 +-
 xcb-xproto.el  | 2 +-
 xcb-xselinux.el| 2 +-
 xcb-xtest.el   | 2 +-
 xcb-xv.el  | 2 +-
 xcb-xvmc.el| 2 +-
 xcb.el | 2 +-
 xelb.el| 2 +-
 45 files changed, 46 insertions(+), 46 deletions(-)

diff --git a/el_client.el b/el_client.el
index c8ea09c820..14c35b938b 100644
--- a/el_client.el
+++ b/el_client.el
@@ -1,6 +1,6 @@
 ;;; el_client.el --- XELB Code Generator  -*- lexical-binding: t -*-
 
-;; Copyright (C) 2015-2019 Free Software Foundation, Inc.
+;; Copyright (C) 2015-2024 Free Software Foundation, Inc.
 
 ;; Author: Chris Feng 
 
@@ -198,7 +198,7 @@ an `xelb-auto-padding' attribute."
   (princ (format "\
 ;;; xcb-%s.el --- X11 %s  -*- lexical-binding: t -*-
 
-;; Copyright (C) 2015-2019 Free Software Foundation, Inc.
+;; Copyright (C) 2015-2024 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
 
diff --git a/xcb-bigreq.el b/xcb-bigreq.el
index 80eef1e4f5..c15f3ba50c 100644
--- a/xcb-bigreq.el
+++ b/xcb-bigreq.el
@@ -1,6 +1,6 @@
 ;;; xcb-bigreq.el --- X11 BigRequests extension  -*- lexical-binding: t -*-
 
-;; Copyright (C) 2015-2019 Free Software Foundation, Inc.
+;; Copyright (C) 2015-2024 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
 
diff --git a/xcb-composite.el b/xcb-composite.el
index 20fa0ffbf9..31c007d8d4 100644
--- a/xcb-composite.el
+++ b/xcb-composite.el
@@ -1,6 +1,6 @@
 ;;; xcb-composite.el --- X11 Composite extension  -*- lexical-binding: t -*-
 
-;; Copyright (C) 2015-2019 Free Software Foundation, Inc.
+;; Copyright (C) 2015-2024 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
 
diff --git a/xcb-cursor.el b/xcb-cursor.el
index 85dfb6f4fc..f0a3243df9 100644
--- a/xcb-cursor.el
+++ b/xcb-cursor.el
@@ -1,6 +1,6 @@
 ;;; xcb-cursor.el --- Port of Xcursor  -*- lexical-binding: t -*-
 
-;; Copyright (C) 2015-2019 Free Software Foundation, Inc.
+;; Copyright (C) 2015-2024 Free Software Foundation, Inc.
 
 ;; Author: Chris Feng 
 
diff --git a/xcb-damage.el b/xcb-damage.el
index 6289caa5a0..30ef56d30e 100644
--- a/xcb-damage.el
+++ b/xcb-damage.el
@@ -1,6 +1,6 @@
 ;;; xcb-damage.el --- X11 Damage extension  -*- lexical-binding: t -*-
 
-;; Copyright (C) 2015-2019 Free Software Foundation, Inc.
+;; Copyright (C) 2015-2024 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
 
diff --git a/xcb-debug.el b/xcb-debug.el
index d9d017f082..ee54239aaa 100644
--- a/xcb-debug.el
+++ b/xcb-debug.el
@@ -1,6 +1,6 @@
 ;;; xcb-debug.el --- Debugging helpers for XELB  -*- lexical-binding: t -*-
 
-;; Copyright (C) 2018-2019 Free Software Foundation, Inc.
+;; Copyright (C) 2018-2024 Free Software Foundation, Inc.
 
 ;; Author: Adrián Medraño Calvo 
 
diff --git a/xcb-dpms.el b/xcb-dpms.el
index a195d96ff2..0e2a166418 100644
--- a/xcb-dpms.el
+++ b/xcb-dpms.el
@@ -1,6 +1,6 @@
 ;;; xcb-dpms.el --- X11 DPMS extension  -*- lexical-binding: t -*-
 
-;; Copyright (C) 2015-2019 Free Software Foundation, Inc.
+;; Copyright (C) 2015-2024 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
 
diff --git a/xcb-dri2.el b/xcb-dri2.el
index b41fed1348..7bbbe4fa15 100644
--- a/xcb-dri2.el
+++ b/xcb-dri2.el
@@ -1,6 +1,6 @@
 ;;; xcb-dri2.el --- X11 DRI2 extension  -*- lexical-binding: t -*-
 
-;; Copyright (C) 2015-2019 Free Software Foundation, Inc.
+;; Copyright (C) 2015-2024 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
 
diff --git a/xcb-dri3.el b/xcb-dri3.el
index befd78ef75..2993eb5fcf 100644
--- a/xcb-dri3.el
+++ b/xcb-dri3.el
@@ -1,6 +1,6 @@
 ;;; xcb-dri3.el --- X11 DRI3 extension  -*- lexical-binding: t -*-
 
-;; Copyright (C) 2015-2019 Free Software Foundation, Inc.
+;; Copyright (C) 2015-2024 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
 
diff --git a/xcb-ewm

[elpa] externals/xelb 28351a853f 2/5: Update Maintainers package header

2024-01-12 Thread ELPA Syncer
branch: externals/xelb
commit 28351a853ff6754686e6fba4776822a9b0bda18a
Author: Daniel Mendler 
Commit: Daniel Mendler 

Update Maintainers package header
---
 xelb.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/xelb.el b/xelb.el
index f551e2877f..5e0ef13b0b 100644
--- a/xelb.el
+++ b/xelb.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2015-2019 Free Software Foundation, Inc.
 
 ;; Author: Chris Feng 
-;; Maintainer: Chris Feng 
+;; Maintainer: Adrián Medraño Calvo , Steven Allen 
, Daniel Mendler 
 ;; Version: 0.18
 ;; Package-Requires: ((emacs "24.4") (cl-generic "0.2"))
 ;; Keywords: unix



[elpa] externals/xelb 60d468716c 1/5: ; Add LICENSE file

2024-01-12 Thread ELPA Syncer
branch: externals/xelb
commit 60d468716ccf5a83afbeccffa966a75caa7b55dd
Author: Daniel Mendler 
Commit: Daniel Mendler 

; Add LICENSE file
---
 .elpaignore |   1 +
 LICENSE | 674 
 2 files changed, 675 insertions(+)

diff --git a/.elpaignore b/.elpaignore
index b43bf86b50..f0f644ee08 100644
--- a/.elpaignore
+++ b/.elpaignore
@@ -1 +1,2 @@
+LICENSE
 README.md
diff --git a/LICENSE b/LICENSE
new file mode 100644
index 00..9cecc1d466
--- /dev/null
+++ b/LICENSE
@@ -0,0 +1,674 @@
+GNU GENERAL PUBLIC LICENSE
+   Version 3, 29 June 2007
+
+ Copyright (C) 2007 Free Software Foundation, Inc. 
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+Preamble
+
+  The GNU General Public License is a free, copyleft license for
+software and other kinds of works.
+
+  The licenses for most software and other practical works are designed
+to take away your freedom to share and change the works.  By contrast,
+the GNU General Public License is intended to guarantee your freedom to
+share and change all versions of a program--to make sure it remains free
+software for all its users.  We, the Free Software Foundation, use the
+GNU General Public License for most of our software; it applies also to
+any other work released this way by its authors.  You can apply it to
+your programs, too.
+
+  When we speak of free software, we are referring to freedom, not
+price.  Our General Public Licenses are designed to make sure that you
+have the freedom to distribute copies of free software (and charge for
+them if you wish), that you receive source code or can get it if you
+want it, that you can change the software or use pieces of it in new
+free programs, and that you know you can do these things.
+
+  To protect your rights, we need to prevent others from denying you
+these rights or asking you to surrender the rights.  Therefore, you have
+certain responsibilities if you distribute copies of the software, or if
+you modify it: responsibilities to respect the freedom of others.
+
+  For example, if you distribute copies of such a program, whether
+gratis or for a fee, you must pass on to the recipients the same
+freedoms that you received.  You must make sure that they, too, receive
+or can get the source code.  And you must show them these terms so they
+know their rights.
+
+  Developers that use the GNU GPL protect your rights with two steps:
+(1) assert copyright on the software, and (2) offer you this License
+giving you legal permission to copy, distribute and/or modify it.
+
+  For the developers' and authors' protection, the GPL clearly explains
+that there is no warranty for this free software.  For both users' and
+authors' sake, the GPL requires that modified versions be marked as
+changed, so that their problems will not be attributed erroneously to
+authors of previous versions.
+
+  Some devices are designed to deny users access to install or run
+modified versions of the software inside them, although the manufacturer
+can do so.  This is fundamentally incompatible with the aim of
+protecting users' freedom to change the software.  The systematic
+pattern of such abuse occurs in the area of products for individuals to
+use, which is precisely where it is most unacceptable.  Therefore, we
+have designed this version of the GPL to prohibit the practice for those
+products.  If such problems arise substantially in other domains, we
+stand ready to extend this provision to those domains in future versions
+of the GPL, as needed to protect the freedom of users.
+
+  Finally, every program is threatened constantly by software patents.
+States should not allow patents to restrict development and use of
+software on general-purpose computers, but in those that do, we wish to
+avoid the special danger that patents applied to a free program could
+make it effectively proprietary.  To prevent this, the GPL assures that
+patents cannot be used to render the program non-free.
+
+  The precise terms and conditions for copying, distribution and
+modification follow.
+
+   TERMS AND CONDITIONS
+
+  0. Definitions.
+
+  "This License" refers to version 3 of the GNU General Public License.
+
+  "Copyright" also means copyright-like laws that apply to other kinds of
+works, such as semiconductor masks.
+
+  "The Program" refers to any copyrightable work licensed under this
+License.  Each licensee is addressed as "you".  "Licensees" and
+"recipients" may be individuals or organizations.
+
+  To "modify" a work means to copy from or adapt all or part of the work
+in a fashion requiring copyright permission, other than the making of an
+exact copy.  The resulting work is called a "modified version" of the
+earlier work or a work "based on" the earlier work.
+
+  A "covered work" means e

[elpa] externals/xelb 2f29a7fb44 5/5: ; Update repository URLs

2024-01-12 Thread ELPA Syncer
branch: externals/xelb
commit 2f29a7fb44356411e515b4a57ad94464090f510e
Author: Daniel Mendler 
Commit: Daniel Mendler 

; Update repository URLs
---
 README.md | 2 +-
 xelb.el   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/README.md b/README.md
index a0719bd62e..617c1978eb 100644
--- a/README.md
+++ b/README.md
@@ -4,7 +4,7 @@ XELB (X protocol Emacs Lisp Binding) is a pure Elisp 
implementation of X11
 protocol based on the XML description files from XCB project.
 It features an object-oriented API and permits a certain degree of concurrency.
 It should enable you to implement some low-level X11 applications.
-Please refer to [xelb.el](https://github.com/ch11ng/xelb/blob/master/xelb.el)
+Please refer to 
[xelb.el](https://github.com/emacs-exwm/xelb/blob/master/xelb.el)
 for more details.
 
 **Note to Emacs 24 users**:
diff --git a/xelb.el b/xelb.el
index cd432b6559..8dcf5dbdeb 100644
--- a/xelb.el
+++ b/xelb.el
@@ -7,7 +7,7 @@
 ;; Version: 0.18
 ;; Package-Requires: ((emacs "26.1"))
 ;; Keywords: unix
-;; URL: https://github.com/ch11ng/xelb
+;; URL: https://github.com/emacs-exwm/xelb
 
 ;; This file is part of GNU Emacs.
 



[elpa] externals/xelb updated (df102a5773 -> 2f29a7fb44)

2024-01-12 Thread ELPA Syncer
elpasync pushed a change to branch externals/xelb.

  from  df102a5773 Speed up large string to by conversions
   new  60d468716c ; Add LICENSE file
   new  28351a853f Update Maintainers package header
   new  eba93cab6f Require Emacs 26.1
   new  f35a653a20 ; Update copyright year to 2024
   new  2f29a7fb44 ; Update repository URLs


Summary of changes:
 .elpaignore|   1 +
 LICENSE| 674 +
 README.md  |   2 +-
 el_client.el   |   4 +-
 xcb-bigreq.el  |   2 +-
 xcb-composite.el   |   2 +-
 xcb-cursor.el  |   2 +-
 xcb-damage.el  |   2 +-
 xcb-debug.el   |   2 +-
 xcb-dpms.el|   2 +-
 xcb-dri2.el|   2 +-
 xcb-dri3.el|   2 +-
 xcb-ewmh.el|   2 +-
 xcb-ge.el  |   2 +-
 xcb-glx.el |   2 +-
 xcb-icccm.el   |   2 +-
 xcb-keysyms.el |   2 +-
 xcb-present.el |   2 +-
 xcb-randr.el   |   2 +-
 xcb-record.el  |   2 +-
 xcb-render.el  |   2 +-
 xcb-renderutil.el  |   2 +-
 xcb-res.el |   2 +-
 xcb-screensaver.el |   2 +-
 xcb-shape.el   |   2 +-
 xcb-shm.el |   2 +-
 xcb-sync.el|   2 +-
 xcb-systemtray.el  |   2 +-
 xcb-types.el   |   2 +-
 xcb-xc_misc.el |   2 +-
 xcb-xembed.el  |   2 +-
 xcb-xevie.el   |   2 +-
 xcb-xf86dri.el |   2 +-
 xcb-xf86vidmode.el |   2 +-
 xcb-xfixes.el  |   2 +-
 xcb-xim.el |   2 +-
 xcb-xinerama.el|   2 +-
 xcb-xinput.el  |   2 +-
 xcb-xkb.el |   2 +-
 xcb-xlib.el|   2 +-
 xcb-xprint.el  |   2 +-
 xcb-xproto.el  |   2 +-
 xcb-xselinux.el|   2 +-
 xcb-xtest.el   |   2 +-
 xcb-xv.el  |   2 +-
 xcb-xvmc.el|   2 +-
 xcb.el |   2 +-
 xelb.el|   8 +-
 48 files changed, 725 insertions(+), 50 deletions(-)
 create mode 100644 LICENSE



[elpa] externals/xelb eba93cab6f 3/5: Require Emacs 26.1

2024-01-12 Thread ELPA Syncer
branch: externals/xelb
commit eba93cab6f3f17ed393ca07f620e92617774e11c
Author: Daniel Mendler 
Commit: Daniel Mendler 

Require Emacs 26.1

EXWM requires 26.1 since commit 6eaa0301f17898449827c778d52456800f776e65.
---
 xelb.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/xelb.el b/xelb.el
index 5e0ef13b0b..e1af3dcd03 100644
--- a/xelb.el
+++ b/xelb.el
@@ -5,7 +5,7 @@
 ;; Author: Chris Feng 
 ;; Maintainer: Adrián Medraño Calvo , Steven Allen 
, Daniel Mendler 
 ;; Version: 0.18
-;; Package-Requires: ((emacs "24.4") (cl-generic "0.2"))
+;; Package-Requires: ((emacs "26.1"))
 ;; Keywords: unix
 ;; URL: https://github.com/ch11ng/xelb
 



[nongnu] elpa/xah-fly-keys d3f95185de: xah-run-current-file output buffer is now *xah-run output*. was *xah-run*.

2024-01-12 Thread ELPA Syncer
branch: elpa/xah-fly-keys
commit d3f95185de11b2f4dac6195cc0f0b6df3706e444
Author: Xah Lee 
Commit: Xah Lee 

xah-run-current-file output buffer is now *xah-run output*. was *xah-run*.
xah-cycle-hyphen-lowline-space internal code change.
---
 xah-fly-keys.el | 37 -
 1 file changed, 20 insertions(+), 17 deletions(-)

diff --git a/xah-fly-keys.el b/xah-fly-keys.el
index 8cd7734203..e37630d496 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: 24.19.20240101152046
+;; Version: 24.19.20240112095825
 ;; Created: 2013-09-10
 ;; Package-Requires: ((emacs "27"))
 ;; Keywords: convenience, vi, vim, ergoemacs, keybinding
@@ -1581,24 +1581,27 @@ Version: 2017-01-11 2023-11-02"
   (replace-match "\"" t t))
 
 (defun xah-cycle-hyphen-lowline-space (&optional Begin End)
-  "Cycle hyphen/lowline/space chars in selection or inside quote/bracket or 
line, in that order.
-After this command is called, press `xah-repeat-key' to repeat it.
+  "Cycle {hyphen lowline space} chars.
+
 The region to work on is by this order:
  1. if there is a selection, use that.
- 2. If cursor is string quote or any type of bracket, and is within current 
line, work on that region.
+ 2. If cursor is in a string quote or any type of bracket, and is within 
current line, work on that region.
  3. else, work on current line.
 
+After this command is called, press `xah-repeat-key' to repeat it.
+
 URL `http://xahlee.info/emacs/emacs/elisp_change_space-hyphen_underscore.html'
-Version: 2019-02-12 2022-10-20 2023-07-16"
+Version: 2019-02-12 2023-07-16 2024-01-04"
   (interactive)
   ;; this function sets a property 'state. Possible values are 0 to length of 
xcharArray.
-  (let* (xp1
- xp2
- (xcharArray ["-" "_" " "])
- (xn (length xcharArray))
- (xregionWasActive-p (region-active-p))
- (xnowState (if (eq last-command this-command) (get 
'xah-cycle-hyphen-lowline-space 'state) 0))
- (xchangeTo (elt xcharArray xnowState)))
+  (let (xp1 xp2 xlen
+(xcharArray ["-" "_" " "])
+(xregionWasActive-p (region-active-p))
+(xnowState (if (eq last-command this-command) (get 
'xah-cycle-hyphen-lowline-space 'state) 0))
+xchangeTo)
+(setq
+ xlen (length xcharArray)
+ xchangeTo (elt xcharArray xnowState))
 (if (and Begin End)
 (setq xp1 Begin xp2 End)
   (if (region-active-p)
@@ -1613,13 +1616,13 @@ Version: 2019-02-12 2022-10-20 2023-07-16"
   (save-restriction
 (narrow-to-region xp1 xp2)
 (goto-char (point-min))
-(while (re-search-forward (elt xcharArray (% (+ xnowState 2) xn)) 
(point-max) 1)
+(while (re-search-forward (elt xcharArray (% (+ xnowState 2) xlen)) 
(point-max) 1)
   (replace-match xchangeTo t t
 (when (or (string-equal xchangeTo " ") xregionWasActive-p)
   (goto-char xp2)
   (push-mark xp1)
   (setq deactivate-mark nil))
-(put 'xah-cycle-hyphen-lowline-space 'state (% (+ xnowState 1) xn)))
+(put 'xah-cycle-hyphen-lowline-space 'state (% (+ xnowState 1) xlen)))
   (set-transient-map (let ((xkmap (make-sparse-keymap))) (define-key xkmap (or 
xah-repeat-key (kbd "DEL")) this-command) xkmap)))
 
 (defun xah-copy-file-path (&optional DirPathOnlyQ)
@@ -2550,7 +2553,7 @@ You can customize this alist.")
 (defun xah-run-current-file ()
   "Execute the current file.
 For example, if the current buffer is x.py, then it'll call python x.py in a 
shell.
-Output is printed to buffer “*xah-run*”.
+Output is printed to buffer “*xah-run output*”.
 File suffix is used to determine which program to run, set in the variable 
`xah-run-current-file-map'.
 
 When `universal-argument' is called first, prompt user to enter command line 
options.
@@ -2558,14 +2561,14 @@ When `universal-argument' is called first, prompt user 
to enter command line opt
 If the file is modified or not saved, save it automatically before run.
 
 URL `http://xahlee.info/emacs/emacs/elisp_run_current_file.html'
-Version: 2020-09-24 2023-12-30 2023-12-31"
+Version: 2020-09-24 2023-12-31 2024-01-06"
   (interactive)
   ;; (setenv "NO_COLOR" "1") ; 2022-09-10 for deno. default color has yellow 
parts, hard to see
   (when (not buffer-file-name) (user-error "Buffer is not file. Save it 
first."))
   (when (buffer-modified-p) (save-buffer))
   (let (xoutBuffer xextAppMap xfname xfExt xappCmdStr xcmdStr)
 (setq
- xoutBuffer (get-buffer-create "*xah-run*" t)
+ xoutBuffer (get-buffer-create "*xah-run output*" t)
  xextAppMap xah-run-current-file-map
  xfname buffer-file-name
  xfExt (file-name-extension buffer-file-name)



[elpa] externals/eev 91dcf84cf5: New section: (find-templates-intro "7. let* macros").

2024-01-12 Thread ELPA Syncer
branch: externals/eev
commit 91dcf84cf56ac8d3ad5ccf4d89016ad80d3865d8
Author: Eduardo Ochs 
Commit: Eduardo Ochs 

New section: (find-templates-intro "7. let* macros").
---
 ChangeLog |  22 +
 VERSION   |   4 +-
 eev-intro.el  | 152 +++---
 eev-qrl.el|   1 +
 eev-tlinks.el |  56 +-
 5 files changed, 195 insertions(+), 40 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index f41a9b0c39..cd2cf8ca57 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,25 @@
+2024-01-12  Eduardo Ochs  
+
+   * eev-intro.el (find-templates-intro): new section: "7. let*
+   macros".
+   (find-intro-intro): replace the `(cadr (ee-intro-sexp-here))' by
+   an `(eval-defun nil)'.
+   (find-intro-dual): replace the `(eval (ee-intro-sexp-here))' by an
+   `(eval-defun nil)'.
+   (ee-sexp-at, ee-intro-sexp-end-re, ee-intro-sexp-here): commented
+   out.
+   (ee-this-line0): deleted.
+   (ee-this-line): use `ee-kl-line'.
+
+   * eev-tlinks.el (ee-show2-do-with-fname0): renamed to
+   `ee-let*-macro-show2-use'.
+
+2024-01-11  Eduardo Ochs  
+
+   * eev-tlinks.el (find-let*-macro-links): new function.
+   (ee-find-1stclassvideo-do-with-c): renamed to
+   `ee-let*-macro-1stclassvideo-c'.
+
 2024-01-07  Eduardo Ochs  
 
* eev-tlinks.el (ee-find-1stclassvideo-links): added an "LSubs:"
diff --git a/VERSION b/VERSION
index a4f3460d61..103aa028b7 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Sun Jan  7 06:30:21 GMT 2024
-Sun Jan  7 03:30:21 -03 2024
+Fri Jan 12 18:15:15 GMT 2024
+Fri Jan 12 15:15:15 -03 2024
diff --git a/eev-intro.el b/eev-intro.el
index 7f54ba0afe..34d3284afd 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author: Eduardo Ochs 
 ;; Maintainer: Eduardo Ochs 
-;; Version:20240106
+;; Version:20240112
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://anggtwu.net/eev-current/eev-intro.el>
@@ -141,22 +141,21 @@
   (interactive)
   ;; The hackish functions begin here and end at the line with a single ")".
 
-;; Test: (ee-sexp-at "2)")
-;; (+  1  2)
-(defun ee-sexp-at (re)
-  (save-excursion (re-search-forward re) (ee-last-sexp)))
-(setq ee-intro-sexp-end-re "\\(rest\\|pos-spec-list\\")
-(defun ee-intro-sexp-here ()
-  "Go to the end of the defun around point and `read' it.
-Only works for \"(defun find-xxx-intro ...)s\".
-Returns a list like this: (defun find-xxx-intro ...)."
-  (read (ee-sexp-at ee-intro-sexp-end-re)))
+;; ;; Test: (ee-sexp-at "2)")
+;; ;; (+  1  2)
+;; (defun ee-sexp-at (re)
+;;   (save-excursion (re-search-forward re) (ee-last-sexp)))
+;;
+;; (setq ee-intro-sexp-end-re "\\(rest\\|pos-spec-list\\")
+;; (defun ee-intro-sexp-here ()
+;;   "Go to the end of the defun around point and `read' it.
+;; Only works for \"(defun find-xxx-intro ...)s\".
+;; Returns a list like this: (defun find-xxx-intro ...)."
+;;   (read (ee-sexp-at ee-intro-sexp-end-re)))
 
 (defun ee-bad-line (str) (string-match "[\\\"]" str))
-(defun ee-this-line0 ()
-  (buffer-substring-no-properties (ee-bol) (ee-eol)))
 (defun ee-this-line ()
-  (let ((line (ee-this-line0)))
+  (let ((line (ee-kl-line)))
 (if (ee-bad-line line)
(error "Current line contains evil characters")
   line)))
@@ -166,7 +165,7 @@ Returns a list like this: (defun find-xxx-intro ...)."
 (defun find-intro-intro ()
 "If we're in the defun for `find-foo-intro' run (find-foo-intro 
(ee-this-line))."
   (interactive)
-  (funcall (cadr (ee-intro-sexp-here)) (ee-this-line)))
+  (funcall (eval-defun nil) (ee-this-line)))
 
 (defun find-intro-source ()
 "If we're in a buffer \"*(find-foo-intro)*\" go to the source for 
`find-foo-intro'.
@@ -183,7 +182,7 @@ Actually go to: (find-eev \"eev-intro.el\" 
\"find-foo-intro\" (ee-last-kill))."
 (defun find-intro-dual ()
   (interactive)
   (if (ee-intro-sourcep)
-  (progn (eval (ee-intro-sexp-here))
+  (progn (eval-defun nil)
 (find-c2b nil '(find-intro-intro)))
 (find-c2a '(find-intro-source) nil)))
 
@@ -10731,7 +10730,7 @@ functions to other files after they become minimally 
useful.
 ===
 The third argument to `find-find-links-links-new' is a list of
 local variables in a `let*'. Compare the temporary buffers
-generated by:
+generated by the three sexps below (hint: use `M-2 M-e'):
 
   (find-find-links-links-new \"mytaskC\" \"foo bar\" \"\")
   (find-find-links-links-new \"mytaskC\" \"foo bar\" \"plic\")
@@ -10762,10 +10761,107 @@ added to the `defun's by hand. For examples, see:
 
 
 
+7. 

[elpa] externals/emms updated (c5040a3402 -> 66baf98e5d)

2024-01-12 Thread ELPA Syncer
elpasync pushed a change to branch externals/emms.

  from  c5040a3402 * emms-playlist-mode.el: 
emms-playlist-mode-shift-track-up/down
   new  d8162f649c * emms-player-mpv.el: remove long-deprecated 
--input-file=fifo support
   new  a107112d0a * emms-player-mpv.el: remove 
emms-player-mpv-ipc-conn-emacs-26.1-workaround
   new  66baf98e5d * emms-player-mpv.el: fix unnecessary overuse of \\=' 
quoting in docstrings


Summary of changes:
 emms-player-mpv.el | 323 +++--
 1 file changed, 92 insertions(+), 231 deletions(-)



[elpa] externals/emms a107112d0a 2/3: * emms-player-mpv.el: remove emms-player-mpv-ipc-conn-emacs-26.1-workaround

2024-01-12 Thread ELPA Syncer
branch: externals/emms
commit a107112d0a06a643a1ad022c9f8280897d9c2088
Author: Mike Kazantsev 
Commit: fraggod@malediction 

* emms-player-mpv.el: remove emms-player-mpv-ipc-conn-emacs-26.1-workaround

Emms should support emacs 28-29 series, and 26 is way out of date by now.
And that workaround was only needed for bug in initial 26.1 release there.
---
 emms-player-mpv.el | 47 ---
 1 file changed, 16 insertions(+), 31 deletions(-)

diff --git a/emms-player-mpv.el b/emms-player-mpv.el
index 0dc7b09096..0db807b7de 100644
--- a/emms-player-mpv.el
+++ b/emms-player-mpv.el
@@ -178,7 +178,7 @@ if it refuses to exit cleanly on 
`emms-player-mpv-proc-stop'.")
 instance.")
 
 (defvar emms-player-mpv-ipc-buffer " *emms-player-mpv-ipc*"
-   "Buffer to associate with `emms-player-mpv-ipc-proc' socket process.")
+  "Buffer to associate with `emms-player-mpv-ipc-proc' socket process.")
 
 (defvar emms-player-mpv-ipc-connect-timer nil
   "Timer for connection attempts to JSON IPC unix socket.")
@@ -243,14 +243,6 @@ to indicate that playback should stop instead of switching 
to next track.")
   "Delay before issuing `emms-player-stopped\\=' when mpv unexpectedly goes 
idle.")
 
 
-(defvar emms-player-mpv-ipc-conn-emacs-26.1-workaround
-  (and (= emacs-major-version 26)
-   (= emacs-minor-version 1))
-  "Non-nil to enable workaround for issue #31901 in emacs 26.1.
-Emacs 26.1 fails to indicate missing socket file error for unix socket
-network processes that were started with :nowait t, so blocking connections
-are used there instead.")
-
 (make-obsolete 'emms-player-mpv-ipc-method nil "Emms 18")
 
 (defcustom emms-player-mpv-ipc-method nil
@@ -415,29 +407,22 @@ MEDIA-ARGS are used instead of --idle, if specified."
 (cdr DELAYS) gets passed to next connection attempt,
 so it can be rescheduled further until function runs out of DELAYS values.
 Sets `emms-player-mpv-ipc-proc' value to resulting process on success."
-  ;; Note - emacs handles missing unix socket files in different ways between 
versions:
-  ;;  emacs <26 returns nil, emacs 26.1 leaves process in a stuck 'open
-  ;;  state (see issue #31901), emacs 26.2+ sets 'file-missing status.
-  ;;  None of these cases call sentinel function, so status must also be 
checked here.
   (emms-player-mpv-debug-msg "ipc: connect-delay %s" (car delays))
-  (let ((use-nowait (not emms-player-mpv-ipc-conn-emacs-26.1-workaround)))
-(setq emms-player-mpv-ipc-proc
-  (condition-case nil
-  (make-network-process
-   :name "emms-player-mpv-ipc"
-   :family 'local
-   :service emms-player-mpv-ipc-socket
-   :nowait use-nowait
-   :coding '(utf-8 . utf-8)
-   :buffer (get-buffer-create emms-player-mpv-ipc-buffer)
-   :noquery t
-   :filter #'emms-player-mpv-ipc-filter
-   :sentinel #'emms-player-mpv-ipc-sentinel)
-(file-error nil)))
-(unless (process-live-p emms-player-mpv-ipc-proc)
-  (setq emms-player-mpv-ipc-proc nil))
-(when (and emms-player-mpv-ipc-proc (not use-nowait))
-  (emms-player-mpv-ipc-sentinel emms-player-mpv-ipc-proc 'open)))
+  (setq emms-player-mpv-ipc-proc
+(condition-case nil
+(make-network-process
+ :name "emms-player-mpv-ipc"
+ :family 'local
+ :service emms-player-mpv-ipc-socket
+ :nowait t
+ :coding '(utf-8 . utf-8)
+ :buffer (get-buffer-create emms-player-mpv-ipc-buffer)
+ :noquery t
+ :filter #'emms-player-mpv-ipc-filter
+ :sentinel #'emms-player-mpv-ipc-sentinel)
+  (file-error nil)))
+  (unless (process-live-p emms-player-mpv-ipc-proc)
+(setq emms-player-mpv-ipc-proc nil))
   (when (and (not emms-player-mpv-ipc-proc)
  delays)
 (run-at-time (car delays)



[elpa] externals/emms d8162f649c 1/3: * emms-player-mpv.el: remove long-deprecated --input-file=fifo support

2024-01-12 Thread ELPA Syncer
branch: externals/emms
commit d8162f649c18cdd3dae93aaa6c6b3831d666d556
Author: Mike Kazantsev 
Commit: fraggod@malediction 

* emms-player-mpv.el: remove long-deprecated --input-file=fifo support
---
 emms-player-mpv.el | 228 -
 1 file changed, 52 insertions(+), 176 deletions(-)

diff --git a/emms-player-mpv.el b/emms-player-mpv.el
index 4b7b9084fc..0dc7b09096 100644
--- a/emms-player-mpv.el
+++ b/emms-player-mpv.el
@@ -1,6 +1,6 @@
 ;;; emms-player-mpv.el --- mpv support for EMMS  -*- lexical-binding: t; -*-
 ;;
-;; Copyright (C) 2018-2022 Free Software Foundation, Inc.
+;; Copyright (C) 2018-2024 Free Software Foundation, Inc.
 
 ;; Authors: Mike Kazantsev 
 
@@ -25,15 +25,8 @@
 ;;
 ;; This code provides EMMS backend for using mpv player.
 ;;
-;; It works in one of two modes, depending on `emms-player-mpv-ipc-method'
-;; customizable value or installed mpv version:
-;;
-;;  - Using long-running mpv instance and JSON IPC interface to switch tracks
-;;and receive player feedback/metadata - for mpv 0.7.0 2014-10-16 and 
later.
-;;
-;;  - Starting new mpv instance for each track, using its exit
-;;as "next track" signal and --input-file interface for pause/seek.
-;;Used as a fallback for any older mpv versions (supported in all of them).
+;; It works using long-running mpv instance and its JSON IPC interface
+;; to switch tracks and receive player feedback/metadata.
 ;;
 ;; In default configuration, mpv will read its configuration files
 ;; (see its manpage for locations), and can display window for
@@ -107,25 +100,10 @@ Adding nil as an element to this list will discard emacs
 in the list."
   :type '(repeat (choice string (const :tag "Start from blank environment" 
nil
 
-(defcustom emms-player-mpv-ipc-method nil
-  "Switch for which IPC method to use with mpv.
-Possible symbols: detect, ipc-server, unix-socket, file.
-Defaults to nil value, which will cause `emms-player-mpv-ipc-detect\\='
-to pick one based on mpv --version output.
-Using JSON-IPC variants (ipc-server and unix-socket) enables
-support for various feedback and metadata options from mpv.
-Use of \\='file value here is deprecated and will be removed in the future."
-  :type '(choice
-  (const :tag "Auto-detect from mpv --version" nil)
-  (const :tag "Use --input-ipc-server JSON IPC (v0.17.0 2016-04-11)" 
ipc-server)
-  (const :tag "Use --input-unix-socket JSON IPC (v0.7.0 2014-10-16)" 
unix-socket)
-  (const :tag "Use --input-file FIFO (removed in v0.33.0 2020-11-22)" 
file)))
-
 (defcustom emms-player-mpv-ipc-socket
   (concat (file-name-as-directory emms-directory)
   "mpv-ipc.sock")
-  "Unix IPC socket or FIFO to use with mpv --input-* options,
-depending on `emms-player-mpv-ipc-method' value and/or mpv version."
+  "Unix socket path to use with mpv --input-ipc-socket= option."
   :type 'file)
 
 (defvar emms-player-mpv-ipc-proc nil) ; to avoid warnings while keeping useful 
defs at the top
@@ -179,12 +157,12 @@ example.  Uses `emms-player-mpv-event-connect-hook' and
   value)))
 
 (defcustom emms-player-mpv-use-playlist-option nil
-   "Use --playlist option and loadlist mpv command for playlist files and 
URLs.
+  "Use --playlist option and loadlist mpv command for playlist files and URLs.
 
 Use of this option is explicitly discouraged by mpv documentation for security
 reasons, and should be unnecessary in most common cases with modern mpv.
 Make sure to check mpv manpage for --playlist option before enabling this."
-   :type 'boolean)
+  :type 'boolean)
 
 
 (defvar emms-player-mpv-proc nil
@@ -200,7 +178,7 @@ if it refuses to exit cleanly on 
`emms-player-mpv-proc-stop'.")
 instance.")
 
 (defvar emms-player-mpv-ipc-buffer " *emms-player-mpv-ipc*"
-  "Buffer to associate with `emms-player-mpv-ipc-proc' socket/pipe process.")
+   "Buffer to associate with `emms-player-mpv-ipc-proc' socket process.")
 
 (defvar emms-player-mpv-ipc-connect-timer nil
   "Timer for connection attempts to JSON IPC unix socket.")
@@ -273,6 +251,13 @@ Emacs 26.1 fails to indicate missing socket file error for 
unix socket
 network processes that were started with :nowait t, so blocking connections
 are used there instead.")
 
+(make-obsolete 'emms-player-mpv-ipc-method nil "Emms 18")
+
+(defcustom emms-player-mpv-ipc-method nil
+  "Unused obsolete value. It was used for selecting older IPC methods.
+Haven't been needed since mpv 0.17.0 (2016-04-11), removed in Emms 18+ (2024)."
+  :type 'symbol)
+
 
 ;; - helpers
 
@@ -306,43 +291,6 @@ Strips whitespace from start/end of TPL-OR-MSG and strings 
in TPL-VALUES."
  (- ts emms-player-mpv-debug-ts-offset)
  tpl-values
 
-(defun emms-player-mpv-ipc-fifo-p ()
-  "Returns non-nil if --input-file fifo should be used.
-
-Runs `emms-player-mpv-ipc-detect\\=' to detect/set
-`emms-player-mpv-ipc-method\\=' if necessary."
-  (unless emms-player-mpv-i

[elpa] externals/emms 66baf98e5d 3/3: * emms-player-mpv.el: fix unnecessary overuse of \\=' quoting in docstrings

2024-01-12 Thread ELPA Syncer
branch: externals/emms
commit 66baf98e5dbd51c67fbf0bb5febfcc8ec661ce2f
Author: Mike Kazantsev 
Commit: fraggod@malediction 

* emms-player-mpv.el: fix unnecessary overuse of \\=' quoting in docstrings
---
 emms-player-mpv.el | 52 ++--
 1 file changed, 26 insertions(+), 26 deletions(-)

diff --git a/emms-player-mpv.el b/emms-player-mpv.el
index 0db807b7de..074c750bca 100644
--- a/emms-player-mpv.el
+++ b/emms-player-mpv.el
@@ -212,35 +212,35 @@ Should be fine with both mpv and Emacs, and probably 
never reached anyway.")
   "Internal flag to track when stop command starts/finishes before next 
loadfile.
 Set to either nil, t or the playback start function to call on end-file event
 after stop command.
-This is a workaround for mpv-0.30+ behavior, where \\='stop + loadfile\\=' only
-runs \\='stop\\='.")
+This is a workaround for mpv-0.30+ behavior, where \"stop + loadfile\" only
+runs \"stop\".")
 
 
 (defvar emms-player-mpv-event-connect-hook nil
   "Normal hook run right after establishing new JSON IPC connection to mpv.
-Runs before `emms-player-mpv-ipc-connect-command\\=', if any.
-Best place to send any `observe_property\\=', `request_log_messages\\=',
-`enable_event\\=' commands.
-Use `emms-player-mpv-ipc-id-get\\=' to get unique id values for these.
-See also `emms-player-mpv-event-functions\\='.")
+Runs before `emms-player-mpv-ipc-connect-command', if any.
+Best place to send any `observe_property', `request_log_messages',
+`enable_event' commands.
+Use `emms-player-mpv-ipc-id-get' to get unique id values for these.
+See also `emms-player-mpv-event-functions'.")
 
 (defvar emms-player-mpv-event-functions nil
   "List of functions to call for each event emitted from JSON IPC.
 One argument is passed to each function - JSON line,
-as sent by mpv and decoded by `json-read-from-string\\='.
-See also `emms-player-mpv-event-connect-hook\\='.")
+as sent by mpv and decoded by `json-read-from-string'.
+See also `emms-player-mpv-event-connect-hook'.")
 
 
 (defvar emms-player-mpv-stopped nil
   "Non-nil if playback was stopped by call from emms.
-Similar to `emms-player-stopped-p\\=', but set for future async events,
+Similar to `emms-player-stopped-p', but set for future async events,
 to indicate that playback should stop instead of switching to next track.")
 
 (defvar emms-player-mpv-idle-timer (timer-create)
-  "Timer to delay `emms-player-stopped\\=' when mpv unexpectedly goes idle.")
+  "Timer to delay `emms-player-stopped' when mpv unexpectedly goes idle.")
 
 (defvar emms-player-mpv-idle-delay 0.5
-  "Delay before issuing `emms-player-stopped\\=' when mpv unexpectedly goes 
idle.")
+  "Delay before issuing `emms-player-stopped' when mpv unexpectedly goes 
idle.")
 
 
 (make-obsolete 'emms-player-mpv-ipc-method nil "Emms 18")
@@ -255,10 +255,10 @@ Haven't been needed since mpv 0.17.0 (2016-04-11), 
removed in Emms 18+ (2024)."
 
 (defvar emms-player-mpv-debug nil
   "Enable to print sent/received JSON lines and process
-start/stop events to *Messages* buffer using `emms-player-mpv-debug-msg\\='.")
+start/stop events to *Messages* buffer using `emms-player-mpv-debug-msg'.")
 
 (defvar emms-player-mpv-debug-ts-offset nil
-  "Timestamp offset for `emms-player-mpv-debug-msg\\='.
+  "Timestamp offset for `emms-player-mpv-debug-msg'.
 Set on first use, with intent to both shorten and obfuscate time in logs.")
 
 (defun emms-player-mpv-debug-trim (s)
@@ -267,7 +267,7 @@ Set on first use, with intent to both shorten and obfuscate 
time in logs.")
 s))
 
 (defun emms-player-mpv-debug-msg (tpl-or-msg &rest tpl-values)
-  "Print debug message to *Messages* if `emms-player-mpv-debug\\=' is non-nil.
+  "Print debug message to *Messages* if `emms-player-mpv-debug' is non-nil.
 Message is only formatted if TPL-VALUES is non-empty.
 Strips whitespace from start/end of TPL-OR-MSG and strings in TPL-VALUES."
   (when emms-player-mpv-debug
@@ -287,14 +287,14 @@ Strips whitespace from start/end of TPL-OR-MSG and 
strings in TPL-VALUES."
 ;; - mpv process
 
 (defun emms-player-mpv-proc-playing-p (&optional proc)
-  "Return whether playback in PROC or `emms-player-mpv-proc\\=' is started,
-which is distinct from \\='start-command sent\\=' and \\='process is 
running\\=' states.
-Used to signal emms via `emms-player-started\\=' and `emms-player-stopped\\=' 
calls."
+  "Return whether playback in PROC or `emms-player-mpv-proc' is started,
+which is distinct from \"start-command sent\" and \"process is running\" 
states.
+Used to signal emms via `emms-player-started' and `emms-player-stopped' calls."
   (let ((proc (or proc emms-player-mpv-proc)))
 (and proc (process-get proc 'mpv-playing
 
 (defun emms-player-mpv-proc-playing (state &optional proc)
-  "Set process mpv-playing state flag for `emms-player-mpv-proc-playing-p\\='."
+  "Set process mpv-playing state flag for `emms-player-mpv-proc-playing-p'."
   (let ((proc (or proc emms-player-mpv-proc)))
 (w

[elpa] externals/org 1aa4552e5c: org-indent-drawer, org-indent-block: Update docstring

2024-01-12 Thread ELPA Syncer
branch: externals/org
commit 1aa4552e5c5d6dfde76c1d48b5c6486e6dfa7c1e
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

org-indent-drawer, org-indent-block: Update docstring

* lisp/org.el (org-indent-drawer):
(org-indent-block): Document that an error is signaled when not at a
drawer/block.

Reported-by: gerard.vermeu...@posteo.net
Link: 
https://list.orgmode.org/orgmode/abc9e25cebcba21d941435e5f39e7...@posteo.net/
---
 lisp/org.el | 6 --
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index 0f97f097ab..df482d0f37 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -19631,7 +19631,8 @@ assumed to be significant there."
   (set-marker end nil
 
 (defun org-indent-drawer ()
-  "Indent the drawer at point."
+  "Indent the drawer at point.
+Signal an error when not at a drawer."
   (interactive)
   (let ((element (org-element-at-point)))
 (unless (org-element-type-p element '(drawer property-drawer))
@@ -19642,7 +19643,8 @@ assumed to be significant there."
   (message "Drawer at point indented"))
 
 (defun org-indent-block ()
-  "Indent the block at point."
+  "Indent the block at point.
+Signal an error when not at a block."
   (interactive)
   (let ((element (org-element-at-point)))
 (unless (org-element-type-p



[nongnu] elpa/cyberpunk-theme 5d84638749 3/4: Merge pull request #51 from masscollaborationlabs/masscollaborationlabs-github

2024-01-12 Thread ELPA Syncer
branch: elpa/cyberpunk-theme
commit 5d8463874951ec29d343f54002784d8831076404
Merge: cbd0d7193e 620138bb3b
Author: Nicholas M. Van Horn 
Commit: GitHub 

Merge pull request #51 from 
masscollaborationlabs/masscollaborationlabs-github

License file with GPLv3+
---
 LICENSE | 674 
 1 file changed, 674 insertions(+)

diff --git a/LICENSE b/LICENSE
new file mode 100644
index 00..f288702d2f
--- /dev/null
+++ b/LICENSE
@@ -0,0 +1,674 @@
+GNU GENERAL PUBLIC LICENSE
+   Version 3, 29 June 2007
+
+ Copyright (C) 2007 Free Software Foundation, Inc. 
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+Preamble
+
+  The GNU General Public License is a free, copyleft license for
+software and other kinds of works.
+
+  The licenses for most software and other practical works are designed
+to take away your freedom to share and change the works.  By contrast,
+the GNU General Public License is intended to guarantee your freedom to
+share and change all versions of a program--to make sure it remains free
+software for all its users.  We, the Free Software Foundation, use the
+GNU General Public License for most of our software; it applies also to
+any other work released this way by its authors.  You can apply it to
+your programs, too.
+
+  When we speak of free software, we are referring to freedom, not
+price.  Our General Public Licenses are designed to make sure that you
+have the freedom to distribute copies of free software (and charge for
+them if you wish), that you receive source code or can get it if you
+want it, that you can change the software or use pieces of it in new
+free programs, and that you know you can do these things.
+
+  To protect your rights, we need to prevent others from denying you
+these rights or asking you to surrender the rights.  Therefore, you have
+certain responsibilities if you distribute copies of the software, or if
+you modify it: responsibilities to respect the freedom of others.
+
+  For example, if you distribute copies of such a program, whether
+gratis or for a fee, you must pass on to the recipients the same
+freedoms that you received.  You must make sure that they, too, receive
+or can get the source code.  And you must show them these terms so they
+know their rights.
+
+  Developers that use the GNU GPL protect your rights with two steps:
+(1) assert copyright on the software, and (2) offer you this License
+giving you legal permission to copy, distribute and/or modify it.
+
+  For the developers' and authors' protection, the GPL clearly explains
+that there is no warranty for this free software.  For both users' and
+authors' sake, the GPL requires that modified versions be marked as
+changed, so that their problems will not be attributed erroneously to
+authors of previous versions.
+
+  Some devices are designed to deny users access to install or run
+modified versions of the software inside them, although the manufacturer
+can do so.  This is fundamentally incompatible with the aim of
+protecting users' freedom to change the software.  The systematic
+pattern of such abuse occurs in the area of products for individuals to
+use, which is precisely where it is most unacceptable.  Therefore, we
+have designed this version of the GPL to prohibit the practice for those
+products.  If such problems arise substantially in other domains, we
+stand ready to extend this provision to those domains in future versions
+of the GPL, as needed to protect the freedom of users.
+
+  Finally, every program is threatened constantly by software patents.
+States should not allow patents to restrict development and use of
+software on general-purpose computers, but in those that do, we wish to
+avoid the special danger that patents applied to a free program could
+make it effectively proprietary.  To prevent this, the GPL assures that
+patents cannot be used to render the program non-free.
+
+  The precise terms and conditions for copying, distribution and
+modification follow.
+
+   TERMS AND CONDITIONS
+
+  0. Definitions.
+
+  "This License" refers to version 3 of the GNU General Public License.
+
+  "Copyright" also means copyright-like laws that apply to other kinds of
+works, such as semiconductor masks.
+
+  "The Program" refers to any copyrightable work licensed under this
+License.  Each licensee is addressed as "you".  "Licensees" and
+"recipients" may be individuals or organizations.
+
+  To "modify" a work means to copy from or adapt all or part of the work
+in a fashion requiring copyright permission, other than the making of an
+exact copy.  The resulting work is called a "modified version" of the
+earlier work or a work "based on" the earlier work.
+
+  A "covered work" means either the unmodified Program or a work

[nongnu] elpa/cyberpunk-theme 620138bb3b 1/4: License file with GPLv3+

2024-01-12 Thread ELPA Syncer
branch: elpa/cyberpunk-theme
commit 620138bb3b8434f986664fb258d75fd68b155c1c
Author: Mert Gör 
Commit: Mert Gör 

License file with GPLv3+
---
 LICENSE | 674 
 1 file changed, 674 insertions(+)

diff --git a/LICENSE b/LICENSE
new file mode 100644
index 00..f288702d2f
--- /dev/null
+++ b/LICENSE
@@ -0,0 +1,674 @@
+GNU GENERAL PUBLIC LICENSE
+   Version 3, 29 June 2007
+
+ Copyright (C) 2007 Free Software Foundation, Inc. 
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+Preamble
+
+  The GNU General Public License is a free, copyleft license for
+software and other kinds of works.
+
+  The licenses for most software and other practical works are designed
+to take away your freedom to share and change the works.  By contrast,
+the GNU General Public License is intended to guarantee your freedom to
+share and change all versions of a program--to make sure it remains free
+software for all its users.  We, the Free Software Foundation, use the
+GNU General Public License for most of our software; it applies also to
+any other work released this way by its authors.  You can apply it to
+your programs, too.
+
+  When we speak of free software, we are referring to freedom, not
+price.  Our General Public Licenses are designed to make sure that you
+have the freedom to distribute copies of free software (and charge for
+them if you wish), that you receive source code or can get it if you
+want it, that you can change the software or use pieces of it in new
+free programs, and that you know you can do these things.
+
+  To protect your rights, we need to prevent others from denying you
+these rights or asking you to surrender the rights.  Therefore, you have
+certain responsibilities if you distribute copies of the software, or if
+you modify it: responsibilities to respect the freedom of others.
+
+  For example, if you distribute copies of such a program, whether
+gratis or for a fee, you must pass on to the recipients the same
+freedoms that you received.  You must make sure that they, too, receive
+or can get the source code.  And you must show them these terms so they
+know their rights.
+
+  Developers that use the GNU GPL protect your rights with two steps:
+(1) assert copyright on the software, and (2) offer you this License
+giving you legal permission to copy, distribute and/or modify it.
+
+  For the developers' and authors' protection, the GPL clearly explains
+that there is no warranty for this free software.  For both users' and
+authors' sake, the GPL requires that modified versions be marked as
+changed, so that their problems will not be attributed erroneously to
+authors of previous versions.
+
+  Some devices are designed to deny users access to install or run
+modified versions of the software inside them, although the manufacturer
+can do so.  This is fundamentally incompatible with the aim of
+protecting users' freedom to change the software.  The systematic
+pattern of such abuse occurs in the area of products for individuals to
+use, which is precisely where it is most unacceptable.  Therefore, we
+have designed this version of the GPL to prohibit the practice for those
+products.  If such problems arise substantially in other domains, we
+stand ready to extend this provision to those domains in future versions
+of the GPL, as needed to protect the freedom of users.
+
+  Finally, every program is threatened constantly by software patents.
+States should not allow patents to restrict development and use of
+software on general-purpose computers, but in those that do, we wish to
+avoid the special danger that patents applied to a free program could
+make it effectively proprietary.  To prevent this, the GPL assures that
+patents cannot be used to render the program non-free.
+
+  The precise terms and conditions for copying, distribution and
+modification follow.
+
+   TERMS AND CONDITIONS
+
+  0. Definitions.
+
+  "This License" refers to version 3 of the GNU General Public License.
+
+  "Copyright" also means copyright-like laws that apply to other kinds of
+works, such as semiconductor masks.
+
+  "The Program" refers to any copyrightable work licensed under this
+License.  Each licensee is addressed as "you".  "Licensees" and
+"recipients" may be individuals or organizations.
+
+  To "modify" a work means to copy from or adapt all or part of the work
+in a fashion requiring copyright permission, other than the making of an
+exact copy.  The resulting work is called a "modified version" of the
+earlier work or a work "based on" the earlier work.
+
+  A "covered work" means either the unmodified Program or a work based
+on the Program.
+
+  To "propagate" a work means to do anything with it that, without
+permission, would make you direct

[nongnu] elpa/cyberpunk-theme 1fd5350ddf 4/4: Merge pull request #52 from mplscorwin/patch-1

2024-01-12 Thread ELPA Syncer
branch: elpa/cyberpunk-theme
commit 1fd5350ddfc53c30e6eef82af77c62d7c825df3c
Merge: 5d84638749 b4bfd305bd
Author: Nicholas M. Van Horn 
Commit: GitHub 

Merge pull request #52 from mplscorwin/patch-1

org-{todo,done}: use nil instead none
---
 cyberpunk-theme.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/cyberpunk-theme.el b/cyberpunk-theme.el
index 85bb74a623..22343c76f8 100644
--- a/cyberpunk-theme.el
+++ b/cyberpunk-theme.el
@@ -609,9 +609,9 @@
 :box (:line-width 1 :style 
released-button)
`(org-date ((,class (:foreground ,cyberpunk-blue-7 :underline t
`(org-done ((,class (:bold t :weight bold :foreground ,cyberpunk-green
-  :box (:line-width 1 :style none)
+  :box (:line-width 1 :style nil)
`(org-todo ((,class (:bold t :foreground ,cyberpunk-orange :weight bold
-  :box (:line-width 1 :style none)
+  :box (:line-width 1 :style nil)
`(org-level-1 ((,class (:foreground ,cyberpunk-pink-1
`(org-level-2 ((,class (:foreground ,cyberpunk-yellow
`(org-level-3 ((,class (:foreground ,cyberpunk-blue-5



[nongnu] elpa/cyberpunk-theme b4bfd305bd 2/4: org-todo and org-done faces: use nil instead none

2024-01-12 Thread ELPA Syncer
branch: elpa/cyberpunk-theme
commit b4bfd305bd3666f43d15d9159171fcd1db6be5bc
Author: Corwin 
Commit: GitHub 

org-todo and org-done faces: use nil instead none

Changing none to nil for org-todo and org-done faces enabled me to continue 
using this esteemed them with an Emacs 30.0.60 built this morning.  I did not 
bisect however the theme also loads without complain on older Emacs (e.g. 29.1 
and a less recent built of master from early November, that I have tried).
---
 cyberpunk-theme.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/cyberpunk-theme.el b/cyberpunk-theme.el
index 85bb74a623..22343c76f8 100644
--- a/cyberpunk-theme.el
+++ b/cyberpunk-theme.el
@@ -609,9 +609,9 @@
 :box (:line-width 1 :style 
released-button)
`(org-date ((,class (:foreground ,cyberpunk-blue-7 :underline t
`(org-done ((,class (:bold t :weight bold :foreground ,cyberpunk-green
-  :box (:line-width 1 :style none)
+  :box (:line-width 1 :style nil)
`(org-todo ((,class (:bold t :foreground ,cyberpunk-orange :weight bold
-  :box (:line-width 1 :style none)
+  :box (:line-width 1 :style nil)
`(org-level-1 ((,class (:foreground ,cyberpunk-pink-1
`(org-level-2 ((,class (:foreground ,cyberpunk-yellow
`(org-level-3 ((,class (:foreground ,cyberpunk-blue-5



[nongnu] elpa/cyberpunk-theme updated (cbd0d7193e -> 1fd5350ddf)

2024-01-12 Thread ELPA Syncer
elpasync pushed a change to branch elpa/cyberpunk-theme.

  from  cbd0d7193e Dates
   new  620138bb3b License file with GPLv3+
   new  5d84638749 Merge pull request #51 from 
masscollaborationlabs/masscollaborationlabs-github
   new  b4bfd305bd org-todo and org-done faces: use nil instead none
   new  1fd5350ddf Merge pull request #52 from mplscorwin/patch-1


Summary of changes:
 LICENSE| 674 +
 cyberpunk-theme.el |   4 +-
 2 files changed, 676 insertions(+), 2 deletions(-)
 create mode 100644 LICENSE



[elpa] externals/emms de8d0a3aa8: * emms-player-mpv.el: remove leftover --input-file mentions in docstrings

2024-01-12 Thread ELPA Syncer
branch: externals/emms
commit de8d0a3aa855e1ea319d22671222ca612e31941d
Author: Mike Kazantsev 
Commit: fraggod@malediction 

* emms-player-mpv.el: remove leftover --input-file mentions in docstrings
---
 emms-player-mpv.el | 10 +++---
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/emms-player-mpv.el b/emms-player-mpv.el
index 074c750bca..61462007ea 100644
--- a/emms-player-mpv.el
+++ b/emms-player-mpv.el
@@ -82,8 +82,7 @@
   '("--quiet" "--really-quiet" "--no-audio-display")
   "Extra command-line arguments for started mpv process(es).
 Either a list of strings or function returning such list.
-Extra arguments --idle and --input-file/--input-ipc-server
-are added automatically, depending on mpv version.
+Extra arguments --idle and --input-ipc-server are added automatically.
 Note that unless --no-config option is specified here,
 mpv will also use options from its configuration files.
 For mpv binary path, see `emms-player-mpv-command-name'."
@@ -166,7 +165,7 @@ Make sure to check mpv manpage for --playlist option before 
enabling this."
 
 
 (defvar emms-player-mpv-proc nil
-  "Running mpv process, controlled over --input-ipc-server/--input-file 
sockets.")
+  "Running mpv process, controlled over --input-ipc-server unix socket.")
 
 (defvar emms-player-mpv-proc-kill-delay 5
   "Delay until SIGKILL gets sent to `emms-player-mpv-proc',
@@ -533,10 +532,7 @@ errors, if any."
   (when err (message "emms-player-mpv ipc-error: %s" err)))
 
 (defun emms-player-mpv-ipc-recv (json)
-  "Handler for all JSON lines from mpv process.
-
-Only used with JSON IPC, never called with --input-file as
-there's no feedback there."
+  "Handler for all JSON lines from mpv process."
   (emms-player-mpv-debug-msg "json << %s" json)
   (let*
   ((json-data (json-read-from-string json))



[elpa] externals/llm 97933359cb: Add llm-chat-token-limit

2024-01-12 Thread ELPA Syncer
branch: externals/llm
commit 97933359cb4f1bf4b03ded5ae43ea3360b818e77
Author: Andrew Hyatt 
Commit: Andrew Hyatt 

Add llm-chat-token-limit

We return different token limits based on the different models.
---
 NEWS.org  |  2 ++
 llm-gemini.el |  4 
 llm-gpt4all.el|  4 
 llm-ollama.el |  3 +++
 llm-openai.el | 21 +
 llm-provider-utils.el | 14 ++
 llm-test.el   | 50 +-
 llm-vertex.el | 12 
 llm.el|  8 
 9 files changed, 117 insertions(+), 1 deletion(-)

diff --git a/NEWS.org b/NEWS.org
index a66d21bbfd..12d46bea89 100644
--- a/NEWS.org
+++ b/NEWS.org
@@ -1,3 +1,5 @@
+* Version 0.9
+- Add =llm-chat-token-limit= to find the token limit based on the model.
 * Version 0.8
 - Allow users to change the Open AI URL, to allow for proxies and other 
services that re-use the API.
 - Add =llm-name= and =llm-cancel-request= to the API.
diff --git a/llm-gemini.el b/llm-gemini.el
index f228ece065..07b7aaa093 100644
--- a/llm-gemini.el
+++ b/llm-gemini.el
@@ -125,6 +125,10 @@ You can get this at 
https://makersuite.google.com/app/apikey.";
   "Return the name of PROVIDER."
   "Gemini")
 
+;; From https://ai.google.dev/models/gemini.
+(cl-defmethod llm-chat-token-limit ((provider llm-gemini))
+  (llm-vertex--chat-token-limit (llm-gemini-chat-model provider)))
+
 (provide 'llm-gemini)
 
 ;;; llm-gemini.el ends here
diff --git a/llm-gpt4all.el b/llm-gpt4all.el
index 6019f08f0a..b4f97b3ab3 100644
--- a/llm-gpt4all.el
+++ b/llm-gpt4all.el
@@ -33,6 +33,7 @@
 (require 'llm)
 (require 'llm-request)
 (require 'llm-openai)
+(require 'llm-provider-utils)
 
 (cl-defstruct llm-gpt4all
   "A structure for holding information needed by GPT4All.
@@ -85,6 +86,9 @@ default the default GPT4all port."
   "Return the name of the provider."
   (llm-gpt4all-chat-model provider))
 
+(cl-defmethod llm-chat-token-limit ((provider llm-gpt4all))
+  (llm-provider-utils-model-token-limit (llm-gpt4all-chat-model provider)))
+
 (provide 'llm-gpt4all)
 
 ;;; llm-gpt4all.el ends here
diff --git a/llm-ollama.el b/llm-ollama.el
index ab1b73c09a..101d963d6d 100644
--- a/llm-ollama.el
+++ b/llm-ollama.el
@@ -210,6 +210,9 @@ STREAMING if non-nil, turn on response streaming."
 (cl-defmethod llm-name ((provider llm-ollama))
   (llm-ollama-chat-model provider))
 
+(cl-defmethod llm-chat-token-limit ((provider llm-ollama))
+  (llm-provider-utils-model-token-limit (llm-ollama-chat-model provider)))
+
 (provide 'llm-ollama)
 
 ;;; llm-ollama.el ends here
diff --git a/llm-openai.el b/llm-openai.el
index 00a4b2c0e9..341275c9c8 100644
--- a/llm-openai.el
+++ b/llm-openai.el
@@ -268,6 +268,27 @@ them from 1 to however many are sent.")
 (cl-defmethod llm-name ((_ llm-openai))
   "Open AI")
 
+;; See https://platform.openai.com/docs/models/gpt-4-and-gpt-4-turbo
+;; and https://platform.openai.com/docs/models/gpt-3-5.
+(cl-defmethod llm-chat-token-limit ((provider llm-openai))
+  (let ((model (llm-openai-chat-model provider)))
+(cond
+ ((string-match (rx (seq (or ?- ?_) (group-n 1 (+ digit)) ?k)) model)
+  (let ((n (string-to-number (match-string 1 model
+;; This looks weird but Open AI really has an extra token for 16k
+;; models, but not for 32k models.
+(+ (* n 1024) (if (= n 16) 1 0
+ ((equal model "gpt-4") 8192)
+ ((string-match-p (rx (seq "gpt-4-" (+ ascii) "-preview")) model)
+   128000)
+ ((string-match-p (rx (seq "gpt-4-" (+ digit))) model)
+  8192)
+ ((string-match-p (rx (seq "gpt-3.5-turbo-1" (+ digit))) model)
+  16385)
+ ((string-match-p (rx (seq "gpt-3.5-turbo" (opt "-instruct"))) model)
+  4096)
+ (t 4096
+
 (provide 'llm-openai)
 
 ;;; llm-openai.el ends here
diff --git a/llm-provider-utils.el b/llm-provider-utils.el
index 9059ad5291..7365eebcff 100644
--- a/llm-provider-utils.el
+++ b/llm-provider-utils.el
@@ -100,6 +100,20 @@ things.  Providers should probably issue a warning when 
using this."
  "\n\nThe current conversation follows:\n\n"
  (llm-chat-prompt-interaction-content (car (last 
(llm-chat-prompt-interactions prompt))
 
+(defun llm-provider-utils-model-token-limit (model)
+  "Return the token limit for MODEL."
+  (let ((model (downcase model)))
+   (cond
+((string-match-p "mistral-7b" model) 8192)
+((string-match-p "mistral" model) 8192)
+((string-match-p "mixtral-45b" model) 131072)
+((string-match-p "mixtral" model) 131072)
+((string-match-p "falcon" model) 2048)
+((string-match-p "orca 2" model) 4096)
+((string-match-p "orca" model) 2048)
+((string-match-p "llama\s*2" model) 4096)
+((string-match-p "llama" model) 2048)
+((string-match-p "starcoder" model) 8192
 
 (provide 'llm-provider-utils)
 ;;; llm-provider-utils.el ends here
diff --git a/llm-test.el b/llm-test.el

[nongnu] elpa/git-commit ddeaa2d69a: magit-repository-local-delete: Support acting on all repositories

2024-01-12 Thread ELPA Syncer
branch: elpa/git-commit
commit ddeaa2d69aac4c89e95ab60cf216c4c389db1a02
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

magit-repository-local-delete: Support acting on all repositories
---
 lisp/magit-mode.el | 15 ++-
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/lisp/magit-mode.el b/lisp/magit-mode.el
index 0f8152690a..11d93cab0c 100644
--- a/lisp/magit-mode.el
+++ b/lisp/magit-mode.el
@@ -1348,11 +1348,16 @@ Unless specified, REPOSITORY is the current buffer's 
repository."
 (defun magit-repository-local-delete (key &optional repository)
   "Delete the repository-local value for KEY.
 
-Unless specified, REPOSITORY is the current buffer's repository."
-  (when-let ((cache (assoc (or repository
-   (magit-repository-local-repository))
-   magit-repository-local-cache)))
-(setf cache (compat-call assoc-delete-all key cache
+Unless specified, REPOSITORY is the current buffer's repository.
+If REPOSITORY is `all', then delete the value for KEY for all
+repositories."
+  (if (eq repository 'all)
+  (dolist (cache magit-repository-local-cache)
+(setf cache (compat-call assoc-delete-all key cache)))
+(when-let ((cache (assoc (or repository
+ (magit-repository-local-repository))
+ magit-repository-local-cache)))
+  (setf cache (compat-call assoc-delete-all key cache)
 
 (defmacro magit--with-repository-local-cache (key &rest body)
   (declare (indent 1) (debug (form body)))



[nongnu] elpa/magit updated (c3b7fd7dc4 -> ddeaa2d69a)

2024-01-12 Thread ELPA Syncer
elpasync pushed a change to branch elpa/magit.

  from  c3b7fd7dc4 magit-status-setup-buffer: Ensure correct position when 
narrowed
  adds  ddeaa2d69a magit-repository-local-delete: Support acting on all 
repositories

No new revisions were added by this update.

Summary of changes:
 lisp/magit-mode.el | 15 ++-
 1 file changed, 10 insertions(+), 5 deletions(-)



[nongnu] elpa/magit-section updated (c3b7fd7dc4 -> ddeaa2d69a)

2024-01-12 Thread ELPA Syncer
elpasync pushed a change to branch elpa/magit-section.

  from  c3b7fd7dc4 magit-status-setup-buffer: Ensure correct position when 
narrowed
  adds  ddeaa2d69a magit-repository-local-delete: Support acting on all 
repositories

No new revisions were added by this update.

Summary of changes:
 lisp/magit-mode.el | 15 ++-
 1 file changed, 10 insertions(+), 5 deletions(-)



[nongnu] elpa/reformatter 7f853d4447 1/2: chore(deps): bump cachix/install-nix-action from 24 to 25

2024-01-12 Thread ELPA Syncer
branch: elpa/reformatter
commit 7f853d44476c49412936573191c5e9ecc97b309e
Author: dependabot[bot] <49699333+dependabot[bot]@users.noreply.github.com>
Commit: GitHub 

chore(deps): bump cachix/install-nix-action from 24 to 25

Bumps 
[cachix/install-nix-action](https://github.com/cachix/install-nix-action) from 
24 to 25.
- [Release notes](https://github.com/cachix/install-nix-action/releases)
- [Commits](https://github.com/cachix/install-nix-action/compare/v24...v25)

---
updated-dependencies:
- dependency-name: cachix/install-nix-action
  dependency-type: direct:production
  update-type: version-update:semver-major
...

Signed-off-by: dependabot[bot] 
---
 .github/workflows/test.yml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
index 33927b9793..dd6ea8addf 100644
--- a/.github/workflows/test.yml
+++ b/.github/workflows/test.yml
@@ -35,7 +35,7 @@ jobs:
   - 29.1
   - snapshot
 steps:
-- uses: cachix/install-nix-action@v24
+- uses: cachix/install-nix-action@v25
   with:
 nix_path: nixpkgs=channel:nixos-unstable
 - uses: purcell/setup-emacs@master



[nongnu] elpa/reformatter 76315e32a1 2/2: Merge pull request #48 from purcell/dependabot/github_actions/cachix/install-nix-action-25

2024-01-12 Thread ELPA Syncer
branch: elpa/reformatter
commit 76315e32a1c075d943184fe7b32f1cef98a8272a
Merge: 8040d6bf1e 7f853d4447
Author: Steve Purcell 
Commit: GitHub 

Merge pull request #48 from 
purcell/dependabot/github_actions/cachix/install-nix-action-25

chore(deps): bump cachix/install-nix-action from 24 to 25
---
 .github/workflows/test.yml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
index 33927b9793..dd6ea8addf 100644
--- a/.github/workflows/test.yml
+++ b/.github/workflows/test.yml
@@ -35,7 +35,7 @@ jobs:
   - 29.1
   - snapshot
 steps:
-- uses: cachix/install-nix-action@v24
+- uses: cachix/install-nix-action@v25
   with:
 nix_path: nixpkgs=channel:nixos-unstable
 - uses: purcell/setup-emacs@master



[elpa] externals/eev fb09b2d7c9: Added (find-lua-tutorial-intro).

2024-01-12 Thread ELPA Syncer
branch: externals/eev
commit fb09b2d7c9bd67859d7fac6636318ef96d137309
Author: Eduardo Ochs 
Commit: Eduardo Ochs 

Added (find-lua-tutorial-intro).
---
 ChangeLog|   5 ++
 VERSION  |   4 +-
 eev-intro.el | 175 ---
 eev-template0.el |   8 +--
 eev-tlinks.el| 139 +++
 5 files changed, 318 insertions(+), 13 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index cd2cf8ca57..0a1795b021 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2024-01-12  Eduardo Ochs  
 
+   * eev-intro.el (find-lua-tutorial-intro): new function.
+
+   * eev-tlinks.el (find-luainit-links, find-luaso-links): new
+   functions.
+
* eev-intro.el (find-templates-intro): new section: "7. let*
macros".
(find-intro-intro): replace the `(cadr (ee-intro-sexp-here))' by
diff --git a/VERSION b/VERSION
index 103aa028b7..4b809ddbe9 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Fri Jan 12 18:15:15 GMT 2024
-Fri Jan 12 15:15:15 -03 2024
+Sat Jan 13 04:46:14 GMT 2024
+Sat Jan 13 01:46:14 -03 2024
diff --git a/eev-intro.el b/eev-intro.el
index 34d3284afd..284fb49cf1 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author: Eduardo Ochs 
 ;; Maintainer: Eduardo Ochs 
-;; Version:20240112
+;; Version:20240113
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://anggtwu.net/eev-current/eev-intro.el>
@@ -100,6 +100,7 @@
 ;; «.find-edit-index-intro»(to "find-edit-index-intro")
 ;; «.find-rstdoc-intro»(to "find-rstdoc-intro")
 ;; «.find-show2-intro» (to "find-show2-intro")
+;; «.find-lua-tutorial-intro»  (to "find-lua-tutorial-intro")
 
 ;; Videos:
 ;; «.find-three-main-keys-intro»   (to "find-three-main-keys-intro")
@@ -2867,18 +2868,19 @@ These ones explain advanced features that require extra 
setup:
   33. (find-edit-index-intro)
   34. (find-rstdoc-intro)
   35. (find-show2-intro)
-  36. (find-prepared-intro)
-  37. (find-bounded-intro)
-  38. (find-channels-intro)
+  36. (find-lua-tutorial-intro)
+  37. (find-prepared-intro)
+  38. (find-bounded-intro)
+  39. (find-channels-intro)
 
 This one was used in a video:
 
-  39. (find-three-main-keys-intro)
+  40. (find-three-main-keys-intro)
 
 These ones are obsolete:
 
-  40. (find-emacs-intro)
-  41. (find-defun-intro)
+  41. (find-emacs-intro)
+  42. (find-defun-intro)
 
 For an index of the videos, run:
 
@@ -17275,6 +17277,165 @@ To be written! See:
 
 
 
+;;;  _   _ _ _   _ 
+;;; | |_   _  __ _  | |_ _   _| |_ ___  _ __(_) __ _| |
+;;; | | | | |/ _` |_| __| | | | __/ _ \| '__| |/ _` | |
+;;; | | |_| | (_| |_| |_| |_| | || (_) | |  | | (_| | |
+;;; |_|\__,_|\__,_|  \__|\__,_|\__\___/|_|  |_|\__,_|_|
+;;;
+;; «find-lua-tutorial-intro»  (to ".find-lua-tutorial-intro")
+;; Skel: (find-intro-links "lua-tutorial")
+;; Test: (find-lua-tutorial-intro)
+
+(defun find-lua-tutorial-intro (&rest pos-spec-list) (interactive)
+  (let ((ee-buffer-name "*(find-lua-tutorial-intro)*"))
+(apply 'find-eintro "\
+\(Re)generate: (find-lua-tutorial-intro)
+Source code:  (find-efunction 'find-lua-tutorial-intro)
+More intros:  (find-eev-quick-intro)
+  (find-eev-intro)
+  (find-eepitch-intro)
+This buffer is _temporary_ and _editable_.
+It is meant as both a tutorial and a sandbox.
+
+
+This is a work in progress that
+is in a very early stage!
+
+This intro
+
+  (find-show2-intro)
+
+explains how to install Lua and how to test the programs that I
+presented in the EmacsConf2023, but it doesn't say where someone
+who would like to learn Lua can learn the basics...
+
+
+
+1. Installation
+===
+Run the instructions in this section:
+
+  (find-show2-intro \"2. Dependencies\")
+
+Here are the instructions - in video - for how to run them:
+
+  (find-eev2023replsbvideo \"05:23\" \"Then, to try the demo people have to\")
+  (find-eev2023replsblsubs \"05:23\" \"Then, to try the demo people have to\")
+
+and copy the `code-brappend's to your ~/.emacs (without the red stars).
+
+
+
+2. LUA_INIT
+===
+Run this
+
+  (find-luainit-links \"/tmp/\")
+
+to download my init file for Lua in /tmp/ and test it there. Then
+run this
+
+  (find-luainit-links \"~/LUA/\")
+
+to download it in ~/LUA/ and test it there.
+Then copy these three lines to your ~/.emacs:
+
+  ;; See: (find-lua-tutorial-intro \"2. LUA_INIT\")
+  ;;  (find-fline \"~/LUA/lua50init.lua\")
+  (setenv \"LUA_INIT\" (concat \"@\" (ee-expand \"~/LUA/lua50init.lua\")))
+
+
+
+
+3. The C API
+==