[nongnu] elpa/cider 66992f5b60: [Docs] Extend the funding page

[ELPA Syncer]

branch: elpa/cider
commit 66992f5b60b6ae5cdd7b1f38cc3cf1938e9e2f99
Author: Bozhidar Batsov 
Commit: Bozhidar Batsov 

[Docs] Extend the funding page
---
 doc/modules/ROOT/pages/contributing/funding.adoc | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/doc/modules/ROOT/pages/contributing/funding.adoc 
b/doc/modules/ROOT/pages/contributing/funding.adoc
index 4e782dff9f..d5e343eb1e 100644
--- a/doc/modules/ROOT/pages/contributing/funding.adoc
+++ b/doc/modules/ROOT/pages/contributing/funding.adoc
@@ -23,5 +23,7 @@ You can support the development of CIDER, 
https://github.com/clojure-emacs/cloju
 
 === Open Collective
 
+People and companies supporting our collective will be featured on CIDER's 
README.
+
 * https://opencollective.com/cider#backer[Become a backer] (for individuals)
 * https://opencollective.com/cider#sponsor[Become a sponsor] (for companies)

[nongnu] elpa/evil-matchit 6722a76981: drop support for emacs 25.3

[ELPA Syncer]

branch: elpa/evil-matchit
commit 6722a76981efa3994e8436075a7e8fa85a12f0b3
Author: Chen Bin 
Commit: Chen Bin 

drop support for emacs 25.3
---
 .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 a3dbc99b95..4cdb106d53 100644
--- a/.github/workflows/test.yml
+++ b/.github/workflows/test.yml
@@ -9,9 +9,9 @@ jobs:
   fail-fast: false
   matrix:
 emacs_version:
-  - 25.3
   - 26.3
   - 27.1
+  - snapshot
 steps:
 - uses: purcell/setup-emacs@master
   with:

[nongnu] elpa/evil-nerd-commenter ae52c5070a: drop support for emacs 25.3

[ELPA Syncer]

branch: elpa/evil-nerd-commenter
commit ae52c5070a48793e2c24474c9c8dbf20175d18a0
Author: Chen Bin 
Commit: Chen Bin 

drop support for emacs 25.3
---
 .github/workflows/test.yml | 1 -
 README.org | 2 +-
 2 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
index e1f1a74f68..aadc8801b9 100644
--- a/.github/workflows/test.yml
+++ b/.github/workflows/test.yml
@@ -9,7 +9,6 @@ jobs:
   fail-fast: false
   matrix:
 emacs_version:
-  - 25.3
   - 26.3
   - 27.1
   # - snapshot # evil 1.14 has legacy api call of defalias
diff --git a/README.org b/README.org
index a5023273c8..f10138995e 100644
--- a/README.org
+++ b/README.org
@@ -10,7 +10,7 @@ A 
[[http://www.vim.org/scripts/script.php?script_id=1218][Nerd Commenter]] emula
 
 I recommend using it with Evil though Evil is optional.
 
-Tested on Emacs 25, 26, 27, 28
+Tested on Emacs 26, 27, 28
 
 * Why?
 ** A simple use case on the efficiency

[elpa] externals/lex c7d76551cc: Remove debugging messages

[Stefan Monnier via]

branch: externals/lex
commit c7d76551cce66901b9f172f903ce720526c0fb52
Author: Stefan Monnier 
Commit: Stefan Monnier 

Remove debugging messages

* lex.el (lex--debug-level): New var.
(lex--debug): New function.
(lex-optimize, lex-match-string, lex-match-buffer): Use it.

* lex-parse-re.el: Use `lexical-binding`.
---
 lex-parse-re.el |  4 ++--
 lex.el  | 40 +++-
 2 files changed, 25 insertions(+), 19 deletions(-)

diff --git a/lex-parse-re.el b/lex-parse-re.el
index e7efc39a9f..3a33a2ed8a 100644
--- a/lex-parse-re.el
+++ b/lex-parse-re.el
@@ -1,6 +1,6 @@
-;;; lex-parse-re.el --- Parse Emacs regexps using Lex
+;;; lex-parse-re.el --- Parse Emacs regexps using Lex  -*- lexical-binding: t; 
-*-
 
-;; Copyright (C) 2008,2013  Free Software Foundation, Inc.
+;; Copyright (C) 2008-2024  Free Software Foundation, Inc.
 
 ;; Author: Stefan Monnier 
 ;; Keywords:
diff --git a/lex.el b/lex.el
index a1c5194953..a211c61859 100644
--- a/lex.el
+++ b/lex.el
@@ -1,10 +1,10 @@
 ;;; lex.el --- Lexical analyser construction  -*- lexical-binding:t -*-
 
-;; Copyright (C) 2008,2013,2014,2015  Free Software Foundation, Inc.
+;; Copyright (C) 2008-2024  Free Software Foundation, Inc.
 
 ;; Author: Stefan Monnier 
 ;; Keywords:
-;; Version: 1.1
+;; Version: 1.2
 
 ;; 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
@@ -49,14 +49,14 @@
 ;; (join CONT . EXIT)
 ;; Note: we call those things "NFA"s but they're not really NFAs.
 
-;;; Bugs:
+ Bugs:
 
 ;; - `inter' doesn't work right.  Matching `join' to the corresponding `and'
 ;;   is done incorrectly in some cases.
 ;; - since `negate' uses intersections, it doesn't work right either.
 ;; - "(\<)*" leads to a DFA that gets stuck in a cycle.
 
-;;; Todo:
+ Todo:
 
 ;; - dfa "no-fail" simplifier
 ;; - dfa minimization
@@ -71,9 +71,9 @@
 ;;   - match(&search?) backward
 ;;   - agrep
 
-;;; Notes
-
+;;; News:
 
+;;; Notes
 
 ;; Search
 ;; --
@@ -269,6 +269,12 @@ TABLE can be `down', `up', `eqv' or `canon'."
 (defvar lex--states)
 (defvar lex--memoize)
 
+(defvar lex--debug-level 0)
+
+(defun lex--debug (level fmt &rest args)
+  (when (<= level lex--debug-level)
+(apply #'message fmt args)))
+
 (defun lex--set-eq (l1 l2)
   (let ((len (length l2)))
 (setq l2 (copy-sequence l2))
@@ -581,8 +587,8 @@ or (check (not (PREDICATE . ARG))).")
((stringp re)
 (if (null lex--char-equiv-table)
 ;; (Very) minor optimization.
-(nconc (mapcar 'identity re) state)
-  (lex--nfa `(seq ,@(mapcar 'identity re)) state)))
+(nconc (mapcar #'identity re) state)
+  (lex--nfa `(seq ,@(mapcar #'identity re)) state)))
(t
 (pcase (or (car-safe re) re)
   ((or `: `seq `sequence
@@ -698,10 +704,10 @@ or (check (not (PREDICATE . ARG))).")
   (`not-word-boundary `(check (lex--match-not-word-boundary) ,state))
   (`word-boundary `(check (lex--match-not-word-boundary) nil . ,state))
   (`syntax `(check (lex--match-syntax
-. ,(apply 'lex--compile-syntax (cdr re)))
+. ,(apply #'lex--compile-syntax (cdr re)))
,(lex--nfa 'anything state)))
   (`not-syntax `(check (lex--match-syntax
-. ,(apply 'lex--compile-syntax (cdr re)))
+. ,(apply #'lex--compile-syntax (cdr re)))
nil . ,(lex--nfa 'anything state)))
   (`category `(check (lex--match-category
   . ,(lex--compile-category (cadr re)))
@@ -802,7 +808,7 @@ or (check (not (PREDICATE . ARG))).")
 
   ((or `bre `re `ere)
(lex--nfa (lex-parse-re (nth 1 re) (car re)) state))
-  (elem (error "lex.el: unknown RE element %S" elem))
+  (elem (error "lex.el: Unknown RE element %S" elem))
 
 (defun lex--negate-inftail (state howmany)
   ;; We hashcons the infinite tails and store them in the memoize table.
@@ -890,7 +896,7 @@ Returns a new NFA."
 
 (while lex--states
   (dolist (state (prog1 lex--states (setq lex--states nil)))
-(let ((merged (apply 'lex--merge-now state)))
+(let ((merged (apply #'lex--merge-now state)))
   (if (memq (car merged) '(and or orelse))
   ;; The merge could not be performed for some reason:
   ;; let's re-schedule it.
@@ -1051,7 +1057,7 @@ Commentary section."
 (defun lex-optimize (lexer)
   (let ((lex--memoize (make-hash-table :test 'eq)))
 (prog1 (car (lex--optimize lexer))
-  (message "Visited %d states" (hash-table-count lex--memoize)
+  (lex--debug 2 "Visited %d states" (hash-table-count lex--memoize)
 
 (defmacro lex-case (object posvar &rest cases)
   (declare (indent 2))
@@ -1172,7 +1178,7 @@ state of the engine at STOP, which can be passed back to
   (when (eq (car lex) 'stop)
 ;; Don't stop yet, we'

[elpa] externals/dash 5df7605da5: Stricter defexamples checking

[ELPA Syncer]

branch: externals/dash
commit 5df7605da5a080df769d4f260034fb0e5e86a7a4
Author: Basil L. Contovounesios 
Commit: Basil L. Contovounesios 

Stricter defexamples checking

* dev/dash-defs.el (dash--example-to-test): Expand docstring.
(defexamples): Ensure each triple is well-formed.
* dev/examples.el (-intersection): Fix badly parenthesized cases.
---
 dev/dash-defs.el | 18 ++
 dev/examples.el  |  4 ++--
 2 files changed, 12 insertions(+), 10 deletions(-)

diff --git a/dev/dash-defs.el b/dev/dash-defs.el
index 44795f9c73..920d3d0c19 100644
--- a/dev/dash-defs.el
+++ b/dev/dash-defs.el
@@ -53,7 +53,8 @@ differences in implementation between systems.  Used in place 
of
  dash--epsilon)))
 
 (defun dash--example-to-test (example)
-  "Return an ERT assertion form based on EXAMPLE."
+  "Return an ERT assertion form based on EXAMPLE.
+Signal an error if EXAMPLE is malformed."
   (pcase example
 (`(,actual => ,expected) `(should (equal ,actual ,expected)))
 (`(,actual ~> ,expected) `(should (approx= ,actual ,expected)))
@@ -75,13 +76,14 @@ See `dash--groups'."
   "Define a set of EXAMPLES and corresponding ERT tests for FN.
 See `dash--groups'."
   (declare (indent defun))
-  (setq examples (-partition 3 examples))
-  `(progn
- (push (cons ',fn ',examples) dash--groups)
- (ert-deftest ,fn ()
-   ;; Emacs 28.1 complains about an empty `let' body if the test
-   ;; body is empty.
-   ,@(or (mapcar #'dash--example-to-test examples) '(nil)
+  (let (triples tests)
+(while (let ((triple (-take 3 examples)))
+ (push (dash--example-to-test triple) tests)
+ (push triple triples)
+ (setq examples (nthcdr 3 examples
+`(progn
+   (push (cons ',fn ',(nreverse triples)) dash--groups)
+   (ert-deftest ,fn () ,@(nreverse tests)
 
 ;; Added in Emacs 25.1.
 (defvar text-quoting-style)
diff --git a/dev/examples.el b/dev/examples.el
index 4006bad395..291b37dcc5 100644
--- a/dev/examples.el
+++ b/dev/examples.el
@@ -1356,8 +1356,8 @@ related predicates."
 => '(a b)
 (let ((dash--short-list-length 0)) (-intersection '(a b) '(b a a)))
 => '(a b)
-(let ((-compare-fn #'string=)) (-intersection '(a) '("a")) => '(a))
-(let ((-compare-fn #'string=)) (-intersection '("a") '(a)) => '("a")))
+(let ((-compare-fn #'string=)) (-intersection '(a) '("a"))) => '(a)
+(let ((-compare-fn #'string=)) (-intersection '("a") '(a))) => '("a"))
 
   (defexamples -powerset
 (-powerset '()) => '(())

[elpa] externals/greader 8da494631f 12/15: Merge branch 'master' into dictionary

[ELPA Syncer]

branch: externals/greader
commit 8da494631fc87f7ab0121e983f5d1a0de253c918
Merge: 5f6f9ab56a 5411ec99a2
Author: Michelangelo Rodriguez 
Commit: Michelangelo Rodriguez 

Merge branch 'master' into dictionary
---
 greader.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/greader.el b/greader.el
index 7e0374585f..98d0a820d5 100644
--- a/greader.el
+++ b/greader.el
@@ -72,7 +72,7 @@ Functions in this variable don't receive arguments.")
   "Hook run after getting a sentence.
 Functions in this hook take a string as argument, and should modify
   that string that contains the sentence that will be read.
-the function should return modified sentence, or nil if no operation
+the function should return modified sentence, or original text if no operation
   was needed.")
 
 (defun greader--call-functions-after-get-of-sentence (sentence)

[elpa] externals/greader 9ea13c46e8 06/15: Merge branch 'master' into dictionary

[ELPA Syncer]

branch: externals/greader
commit 9ea13c46e8f1fc3314d0ce6284ad35a1d8e7094d
Merge: dd321a252b d083a57aaa
Author: Michelangelo Rodriguez 
Commit: Michelangelo Rodriguez 

Merge branch 'master' into dictionary
---
 t2a.el | 25 -
 1 file changed, 25 deletions(-)

diff --git a/t2a.el b/t2a.el
deleted file mode 100644
index 9cda725533..00
--- a/t2a.el
+++ /dev/null
@@ -1,25 +0,0 @@
-;;; t2a.el --- text to audio conversion.  -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2017-2022  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
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see .
-
-
-;;; Commentary:
-;; 
-
-;;; Code:
-
-(provide 't2a)
-
-;;; t2a.el ends here

[elpa] externals/greader bd0480d354 07/15: greader-dict.el updated.

[ELPA Syncer]

branch: externals/greader
commit bd0480d3546a17c3f4067b341dfe1a292f022832
Author: Michelangelo Rodriguez 
Commit: Michelangelo Rodriguez 

greader-dict.el updated.
---
 greader-dict.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/greader-dict.el b/greader-dict.el
index 8968a4be24..8980d6aa4d 100644
--- a/greader-dict.el
+++ b/greader-dict.el
@@ -234,7 +234,7 @@ to the dictionary."
  ((region-active-p)
   (when (= (count-words(region-beginning) (region-end)) 1)
(setq key (concat (read-string "Original word to substitute:" nil nil
-  (thing-at-point 'word)) 
greader-dict-match-indicator))
+  (thing-at-point 'word)) 
greader-dict-match-indicator))
(setq value (read-string (concat "substitute match " key
 "with:")))
(greader-dict-add key value)))
@@ -282,7 +282,7 @@ as a word definition."
  #'greader-dict--replace-wrapper))
(t
 (remove-hook 'greader-after-get-sentence-functions
-#'greader-dict--replace-wrapper t
+#'greader-dict--replace-wrapper
 
 (provide 'greader-dict)
 ;;

[elpa] externals/greader cc4f13a1b8 01/15: greader: file greader-dict.el added and implementation started.

[ELPA Syncer]

branch: externals/greader
commit cc4f13a1b864714cf4a771224490109e68d3c813
Author: Michelangelo Rodriguez 
Commit: Michelangelo Rodriguez 

greader: file greader-dict.el added and implementation started.
---
 greader-dict.el | 16 
 1 file changed, 16 insertions(+)

diff --git a/greader-dict.el b/greader-dict.el
new file mode 100644
index 00..72a7b624e9
--- /dev/null
+++ b/greader-dict.el
@@ -0,0 +1,16 @@
+;; greader-dict.el - dictionary module for greader. -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2023  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
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see .

[elpa] externals/greader 8a35090cff 04/15: greader-dict.el: package headers added.

[ELPA Syncer]

branch: externals/greader
commit 8a35090cffae8fea2f29613c6f2c572ac7c77d7f
Author: Michelangelo Rodriguez 
Commit: Michelangelo Rodriguez 

greader-dict.el: package headers added.
---
 greader-dict.el | 275 +++-
 1 file changed, 274 insertions(+), 1 deletion(-)

diff --git a/greader-dict.el b/greader-dict.el
index 72a7b624e9..8968a4be24 100644
--- a/greader-dict.el
+++ b/greader-dict.el
@@ -1,6 +1,36 @@
 ;; greader-dict.el - dictionary module for greader. -*- lexical-binding: t; -*-
+;; 
+;; Filename: greader-dict.el
+;; Description: 
+;; Author: Michelangelo Rodriguez
+;; Maintainer: 
+;; Created: Lun Gen  8 09:52:58 2024 (+0100)
+;; Version: 
+;; Package-Requires: ()
+;; Last-Updated: 
+;;   By: 
+;; Update #: 0
+;; URL: 
+;; Doc URL: 
+;; Keywords: 
+;; Compatibility: 
+;; 
+;;
+;; 
+;;; Commentary: 
+;; dictionary module for greader.
+;; This module gives greader the ability to define different wais Of
+;; pronounce a given sequence of characters.
 
-;; Copyright (C) 2023  Free Software Foundation, Inc.
+;; 
+;;
+;; 
+;;; Change Log:
+;; 
+;; 
+;;
+;; 
+;; Copyright (C) 2023, 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
@@ -14,3 +44,246 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program.  If not, see .
+;;
+;; 
+;;; Code:
+(require 'greader)
+(defvar greader-dictionary (make-hash-table :test 'equal))
+(defvar greader-dict-match-indicator "%\*"
+  "Regexp that will be used for match delimiter.")
+
+;; The following two functions deal, respectively, with
+;; replace a dictionary item with the value specified in
+;; `greader-dictionari' and its possible variants.
+;; The `greader-dict-substitute-match' function takes care of substitution
+;; an item even within a word, a sort of partial substitution.
+;; The `greader-dict-substitute-word' function takes care of that instead
+;; replace a dictionary item only if the sequence matches
+;; replace is surrounded by one or more blank class characters.
+;; This will allow the user to specify whether a given rule
+;; pronunciation in the dictionary should be applied more literally,
+;; (for example, a pronunciation rule can be defined such that if a
+;; word contains the sequence "ez" it is replaced with the
+;; sequence "es", for which, for example, "Rodriguez" would be replaced
+;; with "Rodrigues").
+(defun greader-dict-substitute-match (match)
+  "Replace MATCH with the matching value in `greader-dictionary."
+  (let ((normalized-match (string-remove-suffix
+  greader-dict-match-indicator match)))
+(save-excursion
+  (goto-char (point-min))
+  (while (search-forward normalized-match nil t)
+   (replace-match (gethash match greader-dictionary))
+
+(defun greader-dict-substitute-word (match)
+  "substitute match only if it constitutes an entire word."
+  (save-excursion
+(goto-char (point-min))
+(let ((word (concat match "\\W")))
+  (while (re-search-forward word nil t)
+   (setq word (match-string 0))
+   (let ((replacement (concat (gethash match
+   greader-dictionary)
+  (char-to-string (aref word (1- (length 
word)))
+ (replace-match replacement))
+
+;; This function adds to the `greader-dictionary' variable the
+;; key/value pair that you pass as arguments.
+(defcustom greader-dict-save-after-time 30
+  "Amount of idleness to wait before saving dictionary data.
+A value of 0 indicates saving immediately."
+  :type 'number)
+(defvar greader-dict--timer nil)
+(defun greader-dict-add (word replacement)
+  "Add the WORD REPLACEMent pair to `greader-dictionary'.
+If you want to add a partial replacement, you should
+add `\*'to the end of WORD string parameter."
+  (puthash (downcase word) replacement greader-dictionary)
+  (cond
+   ((> greader-dict-save-after-time 0)
+(when (timerp greader-dict--timer)
+  (cancel-timer greader-dict--timer))
+(run-with-idle-timer greader-dict-save-after-time nil 
#'greader-dict-write-file))
+   ((= greader-dict-save-after-time 0)
+(greader-dict-write-file))
+   (t
+nil)))
+
+;; This function removes the association indicated by the key argument.
+(defun greader-dict-remove (key)
+  "Remove the association specified by KEY from the variable
+`greader-dictionary'."
+  (remhash key greader-dictionary))
+
+(defun greader-dict-item-type (key)
+  "Return the type of KEY.
+Possible return values are:
+`word' for a w

[elpa] externals/greader 8edb69936f 08/15: Merge branch 'master' into dictionary

[ELPA Syncer]

branch: externals/greader
commit 8edb69936fa424cdb627b5991aa0706cb686093e
Merge: bd0480d354 3bdd067d61
Author: Michelangelo Rodriguez 
Commit: Michelangelo Rodriguez 

Merge branch 'master' into dictionary
---
 greader.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/greader.el b/greader.el
index 35c3525387..7aa0ee34bc 100644
--- a/greader.el
+++ b/greader.el
@@ -1497,7 +1497,8 @@ If it is a function, it must return a string."
   "This mode causes greader to announce clickable objects.
 To configure the message with which it must be announced
 the element, configure the `greader-enriched-tag' variable."
-  :lighter "rich"
+  :lighter " rich"
+  :global t
   (if greader-enriched-mode
   (progn
(unless greader-mode

[elpa] externals/greader updated (5411ec99a2 -> 4fc65a4e18)

[ELPA Syncer]

elpasync pushed a change to branch externals/greader.

  from  5411ec99a2 greader-after-get-sentence-functions: modified.
   new  cc4f13a1b8 greader: file greader-dict.el added and implementation 
started.
   new  4a1a4fb317 Merge branch 'master' into dictionary
   new  8fcfa5bf26 Merge branch 'master' into dictionary
   new  8a35090cff greader-dict.el: package headers added.
   new  dd321a252b Merge branch 'master' into dictionary
   new  9ea13c46e8 Merge branch 'master' into dictionary
   new  bd0480d354 greader-dict.el updated.
   new  8edb69936f Merge branch 'master' into dictionary
   new  c67e531b6e Version 0.8.1
   new  247aef374d General improvements.
   new  5f6f9ab56a Merge branch 'master' into dictionary
   new  8da494631f Merge branch 'master' into dictionary
   new  04b464caac First working draft of module "greader-dict.el".
   new  9729fcddb0 greader-dict.el: modified.
   new  4fc65a4e18 Version 0.9.0


Summary of changes:
 greader-dict.el | 633 
 greader.el  |   2 +-
 2 files changed, 634 insertions(+), 1 deletion(-)
 create mode 100644 greader-dict.el

[elpa] externals/greader 247aef374d 10/15: General improvements.

[ELPA Syncer]

branch: externals/greader
commit 247aef374d2eeed3864965554ac62bb1a97d315e
Author: Michelangelo Rodriguez 
Commit: Michelangelo Rodriguez 

General improvements.
---
 greader-dict.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/greader-dict.el b/greader-dict.el
index 8980d6aa4d..0fdebc5632 100644
--- a/greader-dict.el
+++ b/greader-dict.el
@@ -279,7 +279,7 @@ as a word definition."
 (when (hash-table-empty-p greader-dictionary)
   (greader-dict-read-from-dict-file))
 (add-hook 'greader-after-get-sentence-functions
- #'greader-dict--replace-wrapper))
+ #'greader-dict--replace-wrapper 1))
(t
 (remove-hook 'greader-after-get-sentence-functions
 #'greader-dict--replace-wrapper

[elpa] externals/greader c67e531b6e 09/15: Version 0.8.1

[ELPA Syncer]

branch: externals/greader
commit c67e531b6eda7e3afd7d155576939bd754e225f3
Author: Michelangelo Rodriguez 
Commit: Michelangelo Rodriguez 

Version 0.8.1
---
 greader.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/greader.el b/greader.el
index 7aa0ee34bc..f633ad689b 100644
--- a/greader.el
+++ b/greader.el
@@ -6,7 +6,7 @@
 ;; Author: Michelangelo Rodriguez 
 ;; Keywords: tools, accessibility
 
-;; Version: 0.8.0
+;; Version: 0.8.1
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by

[elpa] externals/greader 8fcfa5bf26 03/15: Merge branch 'master' into dictionary

[ELPA Syncer]

branch: externals/greader
commit 8fcfa5bf26c1c94b4ed384a267d285c316ab611d
Merge: 4a1a4fb317 9adb4277ef
Author: Michelangelo Rodriguez 
Commit: Michelangelo Rodriguez 

Merge branch 'master' into dictionary
---
 greader-espeak.el  | 2 +-
 greader-mac.el | 2 +-
 greader-speechd.el | 2 +-
 greader.el | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/greader-espeak.el b/greader-espeak.el
index 7d2cb88c56..541fc63faa 100644
--- a/greader-espeak.el
+++ b/greader-espeak.el
@@ -1,5 +1,5 @@
 ; greader-espeak.el
-;; Copyright (C) 2017-2023  Free Software Foundation, Inc.
+;; Copyright (C) 2017-2024  Free Software Foundation, Inc.
 (defgroup greader-espeak
   nil
   "Back-end of espeak for greader."
diff --git a/greader-mac.el b/greader-mac.el
index 2577af3875..a79a339abc 100644
--- a/greader-mac.el
+++ b/greader-mac.el
@@ -1,7 +1,7 @@
 ;;; greader.el --- gnamù reader, send buffer contents to a speech engine. -*- 
lexical-binding: t; -*-
 ;; FIXME: The above line is not right for this file :-(
 
-;; Copyright (C) 2017-2023  Free Software Foundation, Inc.
+;; Copyright (C) 2017-2024  Free Software Foundation, Inc.
 
 ;;; Code:
 
diff --git a/greader-speechd.el b/greader-speechd.el
index 2913cab8bd..07abe1df02 100644
--- a/greader-speechd.el
+++ b/greader-speechd.el
@@ -1,6 +1,6 @@
 ;;; greader-speechd.el --- speech-dispatcher back-end for greader  -*- 
lexical-binding: t; -*-
 
-;; Copyright (C) 2017-2023  Free Software Foundation, Inc.
+;; Copyright (C) 2017-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/greader.el b/greader.el
index 205e0e71b3..5dbaa4e1a2 100644
--- a/greader.el
+++ b/greader.el
@@ -1,6 +1,6 @@
 ;;; greader.el --- gnamù reader, send buffer contents to a speech engine. -*- 
lexical-binding: t; -*-
 
-;; Copyright (C) 2017-2023  Free Software Foundation, Inc.
+;; Copyright (C) 2017-2024  Free Software Foundation, Inc.
 
 ;; package-requires: ((emacs "25"))
 ;; Author: Michelangelo Rodriguez 

[elpa] externals/greader 5f6f9ab56a 11/15: Merge branch 'master' into dictionary

[ELPA Syncer]

branch: externals/greader
commit 5f6f9ab56aa6d7d4071ffbb57c23e9dec5d9d352
Merge: 247aef374d c53edf4f80
Author: Michelangelo Rodriguez 
Commit: Michelangelo Rodriguez 

Merge branch 'master' into dictionary
---
 greader.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/greader.el b/greader.el
index f633ad689b..7e0374585f 100644
--- a/greader.el
+++ b/greader.el
@@ -6,7 +6,7 @@
 ;; Author: Michelangelo Rodriguez 
 ;; Keywords: tools, accessibility
 
-;; Version: 0.8.1
+;; Version: 0.8.2
 
 ;; 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
@@ -82,8 +82,8 @@ Return SENTENCE, eventually modified by the functions."
 (run-hook-wrapped 'greader-after-get-sentence-functions
   (lambda (func)
 (when (fboundp func)
- (setq result (or (funcall func result)
-  sentence)
+ (setq result (funcall func result))
+ nil)))
 result))
 
 (defvar greader-before-read-hook nil

[elpa] externals/greader 4a1a4fb317 02/15: Merge branch 'master' into dictionary

[ELPA Syncer]

branch: externals/greader
commit 4a1a4fb317ebe8485b5385585d3c44aea545fc6a
Merge: cc4f13a1b8 fe5df5a839
Author: Michelangelo Rodriguez 
Commit: Michelangelo Rodriguez 

Merge branch 'master' into dictionary
---
 greader.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/greader.el b/greader.el
index 9ab09be976..205e0e71b3 100644
--- a/greader.el
+++ b/greader.el
@@ -6,7 +6,7 @@
 ;; Author: Michelangelo Rodriguez 
 ;; Keywords: tools, accessibility
 
-;; Version: 0.7.0
+;; Version: 0.8.0
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by

[elpa] externals/greader dd321a252b 05/15: Merge branch 'master' into dictionary

[ELPA Syncer]

branch: externals/greader
commit dd321a252bfacf4abe8535ae3ac041467793a5ee
Merge: 8a35090cff 711aa07129
Author: Michelangelo Rodriguez 
Commit: Michelangelo Rodriguez 

Merge branch 'master' into dictionary
---
 greader.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/greader.el b/greader.el
index 5dbaa4e1a2..35c3525387 100644
--- a/greader.el
+++ b/greader.el
@@ -1490,7 +1490,7 @@ If it is a function, it must return a string."
;; Update the search position taking into account the "link: " string 
we just entered.
 (setq pos (+ pos 6
 ;; Return the modified string if links were found.
-(if modified result nil)))
+(if modified result input-string)))
 
 ;;;###autoload
 (define-minor-mode greader-enriched-mode

[elpa] externals/greader 9729fcddb0 14/15: greader-dict.el: modified.

[ELPA Syncer]

branch: externals/greader
commit 9729fcddb07337109bb2e36843f2c3e64c8f0d74
Author: Michelangelo Rodriguez 
Commit: Michelangelo Rodriguez 

greader-dict.el: modified.

Mapped the key sequence "C-r d k" to `greader-dict-remove-entry'.
---
 greader-dict.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/greader-dict.el b/greader-dict.el
index a4d7b54bfe..bc41f56b7f 100644
--- a/greader-dict.el
+++ b/greader-dict.el
@@ -428,6 +428,7 @@ Please use `greader-dict-save' for that purpose."
 (defvar-keymap greader-dict-mode-map
   :doc "keymap for `greader-dict-mode'."
   "C-r d a" #'greader-dict-add-entry
+  "C-r d k" #'greader-dict-remove-entry
   "C-r d c" #'greader-dict-change-dictionary
   "C-r d s" #'greader-dict-save)
 (defun greader-dict--replace-wrapper (text)

[elpa] externals/greader 4fc65a4e18 15/15: Version 0.9.0

[ELPA Syncer]

branch: externals/greader
commit 4fc65a4e18075082c3eb5f3e0c4c7aa48e56a05b
Author: Michelangelo Rodriguez 
Commit: Michelangelo Rodriguez 

Version 0.9.0
---
 greader.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/greader.el b/greader.el
index 98d0a820d5..bf0089e255 100644
--- a/greader.el
+++ b/greader.el
@@ -6,7 +6,7 @@
 ;; Author: Michelangelo Rodriguez 
 ;; Keywords: tools, accessibility
 
-;; Version: 0.8.2
+;; Version: 0.9.0
 
 ;; 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

[nongnu] elpa/evil-matchit updated (6722a76981 -> 1c4fefa9bb)

[ELPA Syncer]

elpasync pushed a change to branch elpa/evil-matchit.

  from  6722a76981 drop support for emacs 25.3
   new  2d0888423e fixed snapshot ci
   new  9f8d81e5a3 develop raw algorithm to match between forward and 
backward characters
   new  65c2442fd8 clean code
   new  2b4581a086 clean code
   new  1c4fefa9bb 3.0.4 released


Summary of changes:
 evil-matchit-c.el  |  2 +-
 evil-matchit-cmake.el  |  2 +-
 evil-matchit-diff.el   |  2 +-
 evil-matchit-elixir.el |  2 +-
 evil-matchit-fortran.el|  2 +-
 evil-matchit-html.el   |  2 +-
 evil-matchit-indent.el |  9 ++---
 evil-matchit-javascript.el |  2 +-
 evil-matchit-latex.el  |  2 +-
 evil-matchit-markdown.el   |  2 +-
 evil-matchit-octave.el |  2 +-
 evil-matchit-org.el|  7 ++--
 evil-matchit-prog.el   |  2 +-
 evil-matchit-python.el |  4 +--
 evil-matchit-ruby.el   |  2 +-
 evil-matchit-script.el |  2 +-
 evil-matchit-sdk.el| 87 --
 evil-matchit-sh.el |  2 +-
 evil-matchit-simple.el |  8 ++---
 evil-matchit-sql.el|  2 +-
 evil-matchit-template.el   |  2 +-
 evil-matchit-terminal.el   |  2 +-
 evil-matchit-verilog.el|  5 +--
 evil-matchit-yaml.el   |  4 +--
 evil-matchit.el|  6 ++--
 pkg.sh |  2 +-
 26 files changed, 96 insertions(+), 70 deletions(-)

[nongnu] elpa/evil-matchit 65c2442fd8 3/5: clean code

[ELPA Syncer]

branch: elpa/evil-matchit
commit 65c2442fd8fd4618ddbe0f3df736762fbe073313
Author: Chen Bin 
Commit: Chen Bin 

clean code
---
 evil-matchit-indent.el | 2 +-
 evil-matchit-python.el | 2 +-
 evil-matchit-sdk.el| 2 +-
 evil-matchit-yaml.el   | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/evil-matchit-indent.el b/evil-matchit-indent.el
index 63314d427b..087e22958f 100644
--- a/evil-matchit-indent.el
+++ b/evil-matchit-indent.el
@@ -89,7 +89,7 @@ SPACES-PER-TAB defines the number of spaces of one tab 
character."
 
 ;;;###autoload
 (defun evilmi-indent-get-tag ()
-  "Return '(start-position tag-type keyword)."
+  "Return a list containing start-position, tag-type, keyword."
   (let* (rlt
  (cur-line (evilmi-sdk-curline))
  next-line)
diff --git a/evil-matchit-python.el b/evil-matchit-python.el
index 17e2720410..978a7ac55f 100644
--- a/evil-matchit-python.el
+++ b/evil-matchit-python.el
@@ -103,7 +103,7 @@ Only python need this hack."
 
 ;;;###autoload
 (defun evilmi-python-get-tag ()
-  "Return '(start-position tag-type keyword)."
+  "Return a list containing start-position, tag-type, keyword."
   (let ((rlt (evilmi-indent-get-tag)))
 (when evilmi-debug
   (message "evilmi-python-get-tag called. rlt=%s" rlt))
diff --git a/evil-matchit-sdk.el b/evil-matchit-sdk.el
index e779349f16..a4762fc484 100644
--- a/evil-matchit-sdk.el
+++ b/evil-matchit-sdk.el
@@ -692,7 +692,7 @@ The last argument, LENGTH specifies that only LENGTH tokens 
are returned."
   ;; to work properly.  Lets try and move over
   ;; whatever white space we matched to begin
   ;; with.
-  (skip-syntax-forward "-.'" (point-at-eol)))
+  (skip-syntax-forward "-.'" (line-end-position)))
   (if (eq (point) comment-start-point)
   (error "Strange comment syntax prevents lexical analysis"))
   (setq ep (point
diff --git a/evil-matchit-yaml.el b/evil-matchit-yaml.el
index 410dba6c42..046989 100644
--- a/evil-matchit-yaml.el
+++ b/evil-matchit-yaml.el
@@ -34,7 +34,7 @@
 
 ;;;###autoload
 (defun evilmi-yaml-get-tag ()
-  "Return '(start-position tag-type keyword)."
+  "Return a list containing start-position, tag-type, keyword."
   (let* ((evilmi-spaces-per-tab 2)
  (rlt (evilmi-indent-get-tag)))
 (when (and evilmi-debug rlt)

[nongnu] elpa/evil-matchit 1c4fefa9bb 5/5: 3.0.4 released

[ELPA Syncer]

branch: elpa/evil-matchit
commit 1c4fefa9bb11cc4b1d7f10614d2021c12ed12e89
Author: Chen Bin 
Commit: Chen Bin 

3.0.4 released
---
 evil-matchit.el | 4 ++--
 pkg.sh  | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/evil-matchit.el b/evil-matchit.el
index e07552e678..425aee241d 100644
--- a/evil-matchit.el
+++ b/evil-matchit.el
@@ -4,7 +4,7 @@
 
 ;; Author: Chen Bin 
 ;; URL: http://github.com/redguardtoo/evil-matchit
-;; Version: 3.0.3
+;; Version: 3.0.4
 ;; Keywords: matchit vim evil
 ;; Package-Requires: ((emacs "25.1"))
 ;;
@@ -325,7 +325,7 @@ If IS-INNER is t, the region is inner text object."
 (defun evilmi-version()
   "Print version."
   (interactive)
-  (message "3.0.3"))
+  (message "3.0.4"))
 
 ;; initialize evilmi-plugins only once
 (evilmi-init-plugins)
diff --git a/pkg.sh b/pkg.sh
index 35eb0ec4e9..5dd261363a 100755
--- a/pkg.sh
+++ b/pkg.sh
@@ -1,6 +1,6 @@
 #!/bin/bash
 name=evil-matchit
-version=3.0.3
+version=3.0.4
 pkg=$name-$version
 mkdir $pkg
 cp README.org $pkg

[nongnu] elpa/evil-matchit 2b4581a086 4/5: clean code

[ELPA Syncer]

branch: elpa/evil-matchit
commit 2b4581a0865fe96fded9fcd645b6d31d39367d57
Author: Chen Bin 
Commit: Chen Bin 

clean code
---
 evil-matchit-sdk.el | 7 ++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/evil-matchit-sdk.el b/evil-matchit-sdk.el
index a4762fc484..e1f9f2dcf3 100644
--- a/evil-matchit-sdk.el
+++ b/evil-matchit-sdk.el
@@ -431,12 +431,16 @@ Rule is looked up in HOWTOS."
 (line-end-position)
 
 (defun evilmi-sdk-monogamy-p (tag-info)
+  "Test TAG-INFO."
+  ;; "MONOGAMY" means open and closed tags are one to one match
   (and (nth 2 tag-info) (string= (nth 2 tag-info) "MONOGAMY")))
 
 (defun evilmi-sdk-exactly-same-type-p (crt orig)
+  "CRT and ORIG is exactly same type."
   (eq (nth 0 crt) (nth 0 orig)))
 
 (defun evilmi-sdk-same-type (crt orig)
+  "Test if CRT and ORIG are same type."
   (when (and crt orig)
 ;; crt and orig should be at same row if either of them is monogamy
 (if (evilmi-sdk-strictly-type-p crt orig)
@@ -444,8 +448,9 @@ Rule is looked up in HOWTOS."
   t)))
 
 ;;;###autoload
+;; Return '(start-point (row column is-function-exit-point keyword))
 (defun evilmi-sdk-get-tag (match-tags howtos)
-  "Return '(start-point ((row column is-function-exit-point keyword))."
+  "Use MATCH-TAGS and HOWTOS to return information for jump."
   (let* ((cur-line (evilmi-sdk-curline))
  (keyword (evilmi--sdk-extract-keyword cur-line match-tags howtos))
  (tag-info (if keyword (evilmi-sdk-get-tag-info keyword match-tags

[nongnu] elpa/evil-matchit 2d0888423e 1/5: fixed snapshot ci

[ELPA Syncer]

branch: elpa/evil-matchit
commit 2d0888423e9988f02bf497c4f0788c52cbde6772
Author: Chen Bin 
Commit: Chen Bin 

fixed snapshot ci
---
 evil-matchit-c.el  | 2 +-
 evil-matchit-cmake.el  | 2 +-
 evil-matchit-diff.el   | 2 +-
 evil-matchit-elixir.el | 2 +-
 evil-matchit-fortran.el| 2 +-
 evil-matchit-html.el   | 2 +-
 evil-matchit-indent.el | 7 ++-
 evil-matchit-javascript.el | 2 +-
 evil-matchit-latex.el  | 2 +-
 evil-matchit-markdown.el   | 2 +-
 evil-matchit-octave.el | 2 +-
 evil-matchit-org.el| 7 ++-
 evil-matchit-prog.el   | 2 +-
 evil-matchit-python.el | 2 +-
 evil-matchit-ruby.el   | 2 +-
 evil-matchit-script.el | 2 +-
 evil-matchit-sdk.el| 3 ++-
 evil-matchit-sh.el | 2 +-
 evil-matchit-simple.el | 8 +++-
 evil-matchit-sql.el| 2 +-
 evil-matchit-template.el   | 2 +-
 evil-matchit-terminal.el   | 2 +-
 evil-matchit-verilog.el| 5 +++--
 evil-matchit-yaml.el   | 2 +-
 evil-matchit.el| 2 +-
 25 files changed, 32 insertions(+), 38 deletions(-)

diff --git a/evil-matchit-c.el b/evil-matchit-c.el
index 5b1a1cfe07..03b7481d53 100644
--- a/evil-matchit-c.el
+++ b/evil-matchit-c.el
@@ -1,4 +1,4 @@
-;;; evil-matchit-c.el -- C like language (c/c++/perl/java/javascript) plugin 
of evil-matchit
+;;; evil-matchit-c.el -- C like language (c/c++/perl/java/javascript) plugin 
of evil-matchit -*- lexical-binding: t; -*-
 
 ;; Copyright (C) 2014-2020 Chen Bin
 
diff --git a/evil-matchit-cmake.el b/evil-matchit-cmake.el
index 9e3c8696f7..cfb4d1b5d8 100644
--- a/evil-matchit-cmake.el
+++ b/evil-matchit-cmake.el
@@ -1,4 +1,4 @@
-;;; evil-matchit-cmake.el --- cmake plugin of evil-matchit
+;;; evil-matchit-cmake.el --- cmake plugin of evil-matchit -*- 
lexical-binding: t; -*-
 
 ;; Copyright (C) 2014-2020 Chen Bin
 
diff --git a/evil-matchit-diff.el b/evil-matchit-diff.el
index 5a9127e9ab..146c975c78 100644
--- a/evil-matchit-diff.el
+++ b/evil-matchit-diff.el
@@ -1,4 +1,4 @@
-;;; evil-matchit-diff.el -- diff-mode  plugin of evil-matchit
+;;; evil-matchit-diff.el -- diff-mode  plugin of evil-matchit -*- 
lexical-binding: t; -*-
 
 ;; Copyright (C) 2014-2020 Chen Bin
 
diff --git a/evil-matchit-elixir.el b/evil-matchit-elixir.el
index dae0d6a1a7..644b16abd1 100644
--- a/evil-matchit-elixir.el
+++ b/evil-matchit-elixir.el
@@ -1,4 +1,4 @@
-;;; evil-matchit-elixir.el --- elixir plugin of evil-matchit
+;;; evil-matchit-elixir.el --- elixir plugin of evil-matchit -*- 
lexical-binding: t; -*-
 
 ;; Copyright (C) 2018-2020 Chen Bin
 
diff --git a/evil-matchit-fortran.el b/evil-matchit-fortran.el
index e1f6e5cc96..0924e7ea3d 100644
--- a/evil-matchit-fortran.el
+++ b/evil-matchit-fortran.el
@@ -1,4 +1,4 @@
-;;; evil-matchit-fortran.el --- fortran plugin of evil-matchit
+;;; evil-matchit-fortran.el --- fortran plugin of evil-matchit -*- 
lexical-binding: t; -*-
 
 ;; Copyright (C) 2014-2020 Chen Bin
 
diff --git a/evil-matchit-html.el b/evil-matchit-html.el
index 4ff30d9a53..10b39a6812 100644
--- a/evil-matchit-html.el
+++ b/evil-matchit-html.el
@@ -1,4 +1,4 @@
-;;; evil-matchit-html.el --- html plugin of evil-matchit
+;;; evil-matchit-html.el --- html plugin of evil-matchit -*- lexical-binding: 
t; -*-
 
 ;; Copyright (C) 2014-2020 Chen Bin
 
diff --git a/evil-matchit-indent.el b/evil-matchit-indent.el
index e08eb4f612..63314d427b 100644
--- a/evil-matchit-indent.el
+++ b/evil-matchit-indent.el
@@ -1,4 +1,4 @@
-;;; evil-matchit-indent.el --- indent algorithm for evil-matchit
+;;; evil-matchit-indent.el --- indent algorithm for evil-matchit -*- 
lexical-binding: t; -*-
 
 ;; Copyright (C) 2021 Chen Bin
 
@@ -51,9 +51,7 @@ It returns regexp to match the line candidate.")
 
 (defun evilmi-indent-next-nonempty-line ()
   "Return next non-empty line content or nil."
-  (let* ((b (line-beginning-position))
- (e (line-end-position))
- (cur-pos (point))
+  (let* ((e (line-end-position))
  (continue t)
  line
  rlt)
@@ -63,7 +61,6 @@ It returns regexp to match the line candidate.")
 (setq line (evilmi-sdk-curline))
 (cond
  ((string-blank-p line)
-  (setq b (line-beginning-position))
   (setq e (line-end-position))
   (forward-line))
  (t
diff --git a/evil-matchit-javascript.el b/evil-matchit-javascript.el
index b84d7c6086..dd99a76d1b 100644
--- a/evil-matchit-javascript.el
+++ b/evil-matchit-javascript.el
@@ -1,4 +1,4 @@
-;;; evil-matchit-javascript.el --- simple match plugin of evil-matchit
+;;; evil-matchit-javascript.el --- simple match plugin of evil-matchit -*- 
lexical-binding: t; -*-
 
 ;; Copyright (C) 2014-2020 Chen Bin
 
diff --git a/evil-matchit-latex.el b/evil-matchit-latex.el
index 804782357f..39f94e0c75 100644
--- a/evil-matchit-latex.el
+++ b/evil-matchit-latex.el
@@ -1,4 +1,4 @@
-;;; evil-matchit-latex.el --- latex plugin of evil-matchit
+;;; evil-matchit-latex.el --- latex plugin of evil-matchit -*- 
lexica

[nongnu] elpa/evil-matchit 9f8d81e5a3 2/5: develop raw algorithm to match between forward and backward characters

[ELPA Syncer]

branch: elpa/evil-matchit
commit 9f8d81e5a3d4eceda615dd5b21f3c8d257c652a4
Author: Chen Bin 
Commit: Chen Bin 

develop raw algorithm to match between forward and backward characters
---
 evil-matchit-sdk.el | 75 -
 evil-matchit.el |  4 +--
 pkg.sh  |  2 +-
 3 files changed, 54 insertions(+), 27 deletions(-)

diff --git a/evil-matchit-sdk.el b/evil-matchit-sdk.el
index d244c5cdef..e779349f16 100644
--- a/evil-matchit-sdk.el
+++ b/evil-matchit-sdk.el
@@ -34,6 +34,10 @@
 
 (defvar evilmi-debug nil "Debug flag.")
 
+(defvar evilmi-raw-scan-sexps-major-modes
+  '(lisp-interaction-mode)
+  "Major modes which using raw algorithm for forward&backward characters.")
+
 (defvar evilmi-forward-chars (string-to-list "[{("))
 (defvar evilmi-backward-chars (string-to-list "]})"))
 (defvar evilmi-quote-chars (string-to-list "'\"/"))
@@ -150,6 +154,45 @@ If font-face-under-cursor is NOT nil, the quoted string is 
being processed."
 (forward-word)))
 defun-p))
 
+(defun evilmi-sdk-raw-scan-sexps (is-forward character comment-p)
+  "Get the position of matching tag with CHARACTER at point.
+If IS-FORWARD is t, jump forward; or else jump backward.
+Raw algorithm is implemented, no use of native api.
+If COMMENT-P is t, non-comment is ignored.
+If COMMENT-P is nil, comment is ignored."
+  (when evilmi-debug
+(message "evilmi-sdk-raw-scan-sexps called => %s %s %s"
+ is-forward character comment-p))
+
+  (let* ((start-pos (point))
+ (lvl 1)
+ (limit (if is-forward (point-max) (point-min)))
+ (dest-ch (cond
+   ;; {}
+   ((= character 123) 125)
+   ((= character 125) 123)
+   ;; ()
+   ((= character 40) 41)
+   ((= character 41) 40)
+   ;; []
+   ((= character 91) 93)
+   ((= character 93) 91)))
+ (arg (if is-forward 1 -1))
+ rlt)
+(save-excursion
+  (while (and dest-ch (not (= start-pos limit)) (> lvl 0))
+(goto-char (setq start-pos (+ start-pos arg)))
+(when (or (and comment-p (evilmi-sdk-comment-p start-pos))
+  (and (not comment-p) (not (evilmi-sdk-comment-p start-pos
+  (cond
+   ((= (following-char) character)
+(setq lvl (1+ lvl)))
+   ((= (following-char) dest-ch)
+(setq lvl (1- lvl))
+  (when (= lvl 0)
+(setq rlt (+ start-pos (if is-forward 1 0)
+rlt))
+
 (defun evilmi-sdk-scan-sexps (is-forward character)
   "Get the position of matching tag with CHARACTER at point.
 If IS-FORWARD is t, jump forward; or else jump backward."
@@ -158,17 +201,6 @@ If IS-FORWARD is t, jump forward; or else jump backward."
   (let* ((start-pos (if is-forward (point) (+ 1 (point
  (arg (if is-forward 1 -1))
  (limit (if is-forward (point-max) (point-min)))
- (lvl 1)
- (dest-ch (cond
- ;; {}
- ((= character 123) 125)
- ((= character 125) 123)
- ;; ()
- ((= character 40) 41)
- ((= character 41) 40)
- ;; []
- ((= character 91) 93)
- ((= character 93) 91)))
  (rlt start-pos))
 
 (cond
@@ -187,18 +219,13 @@ If IS-FORWARD is t, jump forward; or else jump backward."
   ;; Matching tag in comment.
   ;; Use own algorithm instead of `scan-sexps'
   ;; because `scan-sexps' does not work in some major modes
-  (save-excursion
-(setq start-pos (point))
-(while (and dest-ch (not (= start-pos limit)) (> lvl 0))
-  (goto-char (setq start-pos (+ start-pos arg)))
-  (when (evilmi-sdk-comment-p start-pos)
-(cond
- ((= (following-char) character)
-  (setq lvl (1+ lvl)))
- ((= (following-char) dest-ch)
-  (setq lvl (1- lvl))
-(when (= lvl 0)
-  (setq rlt (+ start-pos (if is-forward 1 0))
+  (setq rlt (evilmi-sdk-raw-scan-sexps is-forward character t)))
+
+ ;; just use raw algorithm to match characters
+ ((and (memq major-mode evilmi-raw-scan-sexps-major-modes)
+   (or (memq character evilmi-forward-chars)
+   (memq character evilmi-backward-chars)))
+  (setq rlt (evilmi-sdk-raw-scan-sexps is-forward character nil)))
 
  (t
   ;; jump inside code and ignore comments
@@ -206,7 +233,7 @@ If IS-FORWARD is t, jump forward; or else jump backward."
 (setq rlt (scan-sexps start-pos arg)
 
 (when evilmi-debug
-  (message "evilmi-sdk-scan-sexps => rlt=%s lvl=%s is-forward=%s" rlt lvl 
is-forward))
+  (message "evilmi-sdk-scan-sexps => rlt=%s is-forward=%s" rlt is-forward))
 rlt))
 
 (defmacro evilmi-sdk-visual-state-p ()
diff --git a/evil-matchit.el b/evil-

[elpa] externals/greader 04b464caac 13/15: First working draft of module "greader-dict.el".

[ELPA Syncer]

branch: externals/greader
commit 04b464caac38e6b1a607df857021e11d3d45ad2a
Author: Michelangelo Rodriguez 
Commit: Michelangelo Rodriguez 

First working draft of module "greader-dict.el".

For more information about of how to use the greader's dictionary
feature, please refer to the commentary of greader-dict.el, the
documentation in "greader-mode", and in the documentation of the
commands exposed by this module.
---
 greader-dict.el | 513 ++--
 1 file changed, 428 insertions(+), 85 deletions(-)

diff --git a/greader-dict.el b/greader-dict.el
index 0fdebc5632..a4d7b54bfe 100644
--- a/greader-dict.el
+++ b/greader-dict.el
@@ -1,28 +1,90 @@
-;; greader-dict.el - dictionary module for greader. -*- lexical-binding: t; -*-
+;;; greader-dict.el --- dictionary module for greader. -*- lexical-binding: t; 
-*-
 ;; 
 ;; Filename: greader-dict.el
-;; Description: 
+;; Description:
 ;; Author: Michelangelo Rodriguez
-;; Maintainer: 
+;; Maintainer:
 ;; Created: Lun Gen  8 09:52:58 2024 (+0100)
-;; Version: 
+;; Version:
 ;; Package-Requires: ()
-;; Last-Updated: 
-;;   By: 
+;; Last-Updated:
+;;   By:
 ;; Update #: 0
-;; URL: 
-;; Doc URL: 
-;; Keywords: 
-;; Compatibility: 
-;; 
+;; URL:
+;; Doc URL:
+;; Keywords:
+;; Compatibility:
+;;
 ;;
 ;; 
-;;; Commentary: 
+;;; Commentary:
 ;; dictionary module for greader.
 ;; This module gives greader the ability to define different wais Of
-;; pronounce a given sequence of characters.
-
-;; 
+;; to pronounce a given sequence of characters.
+;;
+;;
+;; There are two types of items that you can add to
+;; the dictionary:
+;; `word'
+;; This is a substitution where the word to be replaced
+;; constitutes a word as a whole.
+;; For example, the word "dog" will be replaced only if it is
+;; surrounded by characters that do not constitute a word. (what is a
+;; word may change depending on the major-mode
+;; currently in use).
+;; `match'
+;; This is a "literal" substitution, that is, in which it is sufficient
+;; that the word to be replaced is a substring of a word.
+;; For example, if you add the match "dog", it will be replaced
+;; also in the words "dogs", "doggy", ETC.
+;; To add a word of type `word' simply execute the
+;; command `C-r d a" (greader-dict-add-entry).
+;; (when you launch the command, default values ​​will be proposed which
+;; you can consult with the arrow keys.
+;; The `greader-dict-add-entry' command includes  in its defaults
+;; already existing definitions.
+;; In this case, choosing one of these values ​​will change the
+;; replacement to be applied.
+;; To add a word like `match' run the command
+;; `greader-dict-add-entry' with the prefix.
+;; In this case, the proposed alternatives will only be those that
+;; in the dictionary they are classified, precisely, as match.
+;; The command is also useful when selecting text: in this
+;; case, it will be proposed to add a match that includes only the
+;; selected characters.
+;; Matches can also be regular expressions, through
+;; which you can create more refined filters than you can
+;; just do with simple strings.
+;;
+;; visibility of dictionary.
+;;
+;; In general, you can choose between three dictionary visibilities:
+;; `global'
+;; The default dictionary visibility.
+;; `mode'
+;; This visibility is shared by all buffers in which a particular mode is
+;; in effect.
+;; For example, if you are visiting the buffer "foo.txt" in text-mode,
+;; and you choose the visibility `mode', all the buffers in which
+;; `text-mode' is active and in which 'mode' visibility is set, those
+;; buffers all will refer to mode dictionary.
+;; `buffer'
+;; The most local visibility, in which the dictionary is valid only in
+;; the current buffer.
+;; You can set the dictionary visibility for each buffer.
+;; Use `C-r d c" (greader-dict-change-dictionary) to change the
+;; dictionary visibility in the current buffer.
+;; If you instead wish to set a particular visibility in a particular
+;; buffer or mode as default, you can add the following code snippet
+;; in your .emacs file:
+;; Suppose that you want to set dictionary `mode' visibility for
+;; `info-mode':
+;;Just copy the following snippet in your init file without quotes:
+;; "(add-hook 'info-mode-hook
+;; (lambda ()
+;; (greader-dict-mode 1)
+;; (greader-dict--set-file 'mode)))
+;;
 ;;
 ;; 
 ;;; Change Log:
@@ -48,8 +110,8 @@
 ;; 
 ;;; Code:
 (require 'greader)
-(defvar greader-dictionary (make-hash-table :test 'equal))
-(defvar greader-dict-match-indicator "%\*"
+(defvar-local  greader-dictionary nil)
+(defvar greader-dict-match-indicator "\%\*"
   "Regexp that will be used for match delimiter.")
 
 ;; The following two functions deal, respectively, with
@@ -72,20 +134,29 @@
   greader-dict-match-indicator matc

[nongnu] elpa/clojure-ts-mode a923aa83a6: Release 0.2.2

[ELPA Syncer]

branch: elpa/clojure-ts-mode
commit a923aa83a61751a588ed3afc133d45898995762e
Author: Bozhidar Batsov 
Commit: Bozhidar Batsov 

Release 0.2.2
---
 CHANGELOG.md   | 4 +++-
 clojure-ts-mode.el | 2 +-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index 63ea2dd783..2504e4cf2a 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -2,7 +2,9 @@
 
 ## main (unreleased)
 
-- [#37]: Fix derived modes broken with [#36]
+## 0.2.2 (2024-02-16)
+
+- [#37]: Fix derived modes broken with [#36].
 
 ## 0.2.1 (2024-02-14)
 
diff --git a/clojure-ts-mode.el b/clojure-ts-mode.el
index 97a9345832..48a3945e10 100644
--- a/clojure-ts-mode.el
+++ b/clojure-ts-mode.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Danny Freeman 
 ;; URL: http://github.com/clojure-emacs/clojure-ts-mode
 ;; Keywords: languages clojure clojurescript lisp
-;; Version: 0.2.0
+;; Version: 0.2.2
 ;; Package-Requires: ((emacs "29.1"))
 
 ;; This file is not part of GNU Emacs.

[elpa] externals/tempel bcc3185202: Version 1.1

[ELPA Syncer]

branch: externals/tempel
commit bcc3185202edce67c7f7fc74287cc2ecbeef10c6
Author: Daniel Mendler 
Commit: Daniel Mendler 

Version 1.1
---
 CHANGELOG.org | 2 +-
 tempel.el | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index b82a75227e..7fde581b6a 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -2,7 +2,7 @@
 #+author: Daniel Mendler
 #+language: en
 
-* Development
+* Version 1.1 (2024-02-16)
 
 - Respect ~major-mode-remap-alist~ on Emacs 29 when looking up templates.
 
diff --git a/tempel.el b/tempel.el
index 47b3e6492b..25b9b89496 100644
--- a/tempel.el
+++ b/tempel.el
@@ -5,8 +5,8 @@
 ;; Author: Daniel Mendler 
 ;; Maintainer: Daniel Mendler 
 ;; Created: 2022
-;; Version: 1.0
-;; Package-Requires: ((emacs "27.1") (compat "29.1.4.0"))
+;; Version: 1.1
+;; Package-Requires: ((emacs "27.1") (compat "29.1.4.4"))
 ;; Homepage: https://github.com/minad/tempel
 ;; Keywords: abbrev, languages, tools, text
 

[nongnu] elpa/exec-path-from-shell d95677ad60: Quote printf command path if necessary (see #117)

[ELPA Syncer]

branch: elpa/exec-path-from-shell
commit d95677ad608c214647b87bc20df1642763e3b400
Author: Steve Purcell 
Commit: Steve Purcell 

Quote printf command path if necessary (see #117)
---
 exec-path-from-shell.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/exec-path-from-shell.el b/exec-path-from-shell.el
index 60e7853f63..471ce94fd2 100644
--- a/exec-path-from-shell.el
+++ b/exec-path-from-shell.el
@@ -166,7 +166,7 @@ in place of any % placeholders in STR.  ARGS are not 
automatically
 shell-escaped, so they may contain $ etc."
   (let* ((printf-bin (or (executable-find "printf") "printf"))
  (printf-command
-  (concat printf-bin
+  (concat (shell-quote-argument printf-bin)
   " '__RESULT\\000" str "\\000__RESULT' "
   (mapconcat #'exec-path-from-shell--double-quote args " ")))
  (shell (exec-path-from-shell--shell))

[nongnu] elpa/scad-mode 8d5650c5cf: Version 93.3

[ELPA Syncer]

branch: elpa/scad-mode
commit 8d5650c5cfee96c42d64427bfcadb89f6bda66be
Author: Daniel Mendler 
Commit: Daniel Mendler 

Version 93.3
---
 scad-mode.el | 14 +++---
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/scad-mode.el b/scad-mode.el
index 7f08fe2d02..a7108800aa 100644
--- a/scad-mode.el
+++ b/scad-mode.el
@@ -1,12 +1,12 @@
 ;;; scad-mode.el --- A major mode for editing OpenSCAD code -*- 
lexical-binding: t -*-
 
-;; Author:   Len Trigg, Łukasz Stelmach, zk_phi, Daniel Mendler
-;; Maintainer:   Len Trigg , Daniel Mendler 

-;; Created:  2010
-;; Keywords: languages
-;; Homepage: https://github.com/openscad/emacs-scad-mode
-;; Package-Requires: ((emacs "27.1") (compat "29.1.4.0"))
-;; Version:  93.2
+;; Author: Len Trigg, Łukasz Stelmach, zk_phi, Daniel Mendler
+;; Maintainer: Len Trigg , Daniel Mendler 

+;; Created: 2010
+;; Keywords: languages
+;; Homepage: https://github.com/openscad/emacs-scad-mode
+;; Package-Requires: ((emacs "27.1") (compat "29.1.4.4"))
+;; Version: 93.3
 
 ;; This file is not part of GNU Emacs.
 

[elpa] externals/bicep-ts-mode 30b00ebe13 2/3: Ensure Bicep-group actually exists.

[ELPA Syncer]

branch: externals/bicep-ts-mode
commit 30b00ebe135981ea340417065ff634b42f598c33
Author: Jostein Kjønigsen 
Commit: Jostein Kjønigsen 

Ensure Bicep-group actually exists.
---
 bicep-ts-mode.el | 107 ++-
 1 file changed, 50 insertions(+), 57 deletions(-)

diff --git a/bicep-ts-mode.el b/bicep-ts-mode.el
index d2c63ad64f..c6b43ac78a 100644
--- a/bicep-ts-mode.el
+++ b/bicep-ts-mode.el
@@ -38,6 +38,10 @@
 (declare-function treesit-node-child "treesit.c")
 (declare-function treesit-node-child-by-field-name "treesit.c")
 
+(defgroup bicep nil
+  "Major-mode for editing Bicep-files"
+  :group 'languages)
+
 (defcustom bicep-ts-mode-indent-offset 2
   "Number of spaces for each indentation step in `bicep-ts-mode'."
   :type 'natnum
@@ -67,62 +71,51 @@
 "for" "in" "using")
   "Bicep keywords for tree-sitter font-locking.")
 
-(defvar bicep-ts-mode--font-lock-settings
-  (treesit-font-lock-rules
-   :language 'bicep
-   :feature 'comment
-   '((comment) @font-lock-comment-face)
-
-   :language 'bicep
-   :feature 'delimiter
-   '(("=") @font-lock-delimiter-face)
-
-   :language 'bicep
-   :feature 'keyword
-   `([,@bicep-ts-mode--keywords] @font-lock-keyword-face)
-
-   :language 'bicep
-   :feature 'definition
-   '((parameter_declaration
-  (identifier) @font-lock-variable-name-face
-  (type) @font-lock-type-face)
- (variable_declaration
-  (identifier) @font-lock-variable-name-face)
- (resource_declaration
-  (identifier) @font-lock-variable-name-face)
- (module_declaration
-  (identifier) @font-lock-variable-name-face)
- (type_declaration
-  (identifier) @font-lock-type-face)
- ((builtin_type) @font-lock-type-face)
- (output_declaration
-  (identifier) @font-lock-variable-name-face)
- (output_declaration
-  (type) @font-lock-type-face))
-
-   :language 'bicep
-   :feature 'number
-   '((number)
- @font-lock-number-face)
-
-   :language 'bicep
-   :feature 'string
-   '((string_content) @font-lock-string-face)
-
-   :language 'bicep
-   :feature 'boolean
-   '((boolean) @font-lock-constant-face)
-
-   :language 'bicep
-   :feature 'functions
-   '((call_expression
-  function: (identifier) @font-lock-function-name-face))
-
-   :language 'bicep
-   :feature 'error
-   :override t
-   '((ERROR) @font-lock-warning-face))
-  "Font-lock settings for BICEP.")
+(setq bicep-ts-mode--font-lock-settings
+  (treesit-font-lock-rules
+   :language 'bicep
+   :feature 'comment
+   '((comment) @font-lock-comment-face)
+
+   :language 'bicep
+   :feature 'delimiter
+   '(("=") @font-lock-delimiter-face)
+
+   :language 'bicep
+   :feature 'keyword
+   `([,@bicep-ts-mode--keywords] @font-lock-keyword-face)
+
+   :language 'bicep
+   :feature 'definition
+   '((type) @font-lock-type-face
+ (parameter_declaration
+  (identifier)) @font-lock-variable-name-face
+ )
+
+   :language 'bicep
+   :feature 'number
+   '((number)
+ @font-lock-number-face)
+
+   :language 'bicep
+   :feature 'string
+   '((string_content) @font-lock-string-face)
+
+   :language 'bicep
+   :feature 'boolean
+   '((boolean) @font-lock-constant-face)
+
+   :language 'bicep
+   :feature 'functions
+   '((call_expression
+  function: (identifier) @font-lock-function-name-face))
+
+   :language 'bicep
+   :feature 'error
+   :override t
+   '((ERROR) @font-lock-warning-face))
+  ;;"Font-lock settings for BICEP."
+  )
 
 (defun bicep-ts-mode--defun-name (node)
   "Return the defun name of NODE.
@@ -174,7 +167,7 @@ Return nil if there is no name or if NODE is not a defun 
node."
 ;;;###autoload
 (and (fboundp 'treesit-ready-p)
  (treesit-ready-p 'bicep)
-(progn
+ (progn
(add-to-list 'auto-mode-alist '("\\.bicep\\(param\\)?\\'"
. bicep-ts-mode
 

[elpa] externals/bicep-ts-mode 1ee6974e65 1/3: Update/simplify mode-definition based on patches from Stefan Monnier

[ELPA Syncer]

branch: externals/bicep-ts-mode
commit 1ee6974e653da93cc65747b9cbe7d5b0c03af29c
Author: Jostein Kjønigsen 
Commit: Jostein Kjønigsen 

Update/simplify mode-definition based on patches from Stefan Monnier
---
 bicep-ts-mode.el | 13 ++---
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/bicep-ts-mode.el b/bicep-ts-mode.el
index 1692ea1295..d2c63ad64f 100644
--- a/bicep-ts-mode.el
+++ b/bicep-ts-mode.el
@@ -1,6 +1,6 @@
 ;;; bicep-ts-mode.el --- tree-sitter support for Bicep  -*- lexical-binding: 
t; -*-
 
-;; Copyright (C) 2023-2023 Free Software Foundation, Inc.
+;; Copyright (C) 2023-2024 Free Software Foundation, Inc.
 
 ;; Author : Jostein Kjønigsen 
 ;; Maintainer : Jostein Kjønigsen 
@@ -40,12 +40,11 @@
 
 (defcustom bicep-ts-mode-indent-offset 2
   "Number of spaces for each indentation step in `bicep-ts-mode'."
-  :version "29.1"
   :type 'natnum
   :safe 'natnump
   :group 'bicep)
 
-(defvar bicep-ts-mode--syntax-table
+(defvar bicep-ts-mode-syntax-table
   (let ((table (make-syntax-table)))
 (modify-syntax-entry ?=  "."   table)
 (modify-syntax-entry ?\' "\""  table)
@@ -136,7 +135,6 @@ Return nil if there is no name or if NODE is not a defun 
node."
 (define-derived-mode bicep-ts-mode prog-mode "Bicep"
   "Major mode for editing BICEP, powered by tree-sitter."
   :group 'bicep-mode
-  :syntax-table bicep-ts-mode--syntax-table
 
   (when (treesit-ready-p 'bicep)
 (treesit-parser-create 'bicep)
@@ -174,10 +172,11 @@ Return nil if there is no name or if NODE is not a defun 
node."
 (treesit-major-mode-setup)))
 
 ;;;###autoload
-(if (treesit-ready-p 'bicep)
+(and (fboundp 'treesit-ready-p)
+ (treesit-ready-p 'bicep)
 (progn
-  (add-to-list 'auto-mode-alist '("\\.bicep\\'" . bicep-ts-mode))
-  (add-to-list 'auto-mode-alist '("\\.bicepparam\\'" . bicep-ts-mode
+   (add-to-list 'auto-mode-alist '("\\.bicep\\(param\\)?\\'"
+   . bicep-ts-mode
 
 (provide 'bicep-ts-mode)
 

[elpa] externals/bicep-ts-mode c70e067362 3/3: Bump version. 0.1.2

[ELPA Syncer]

branch: externals/bicep-ts-mode
commit c70e067362e3848efcb3d0727571b33c5d9775c8
Author: Jostein Kjønigsen 
Commit: Jostein Kjønigsen 

Bump version. 0.1.2
---
 bicep-ts-mode.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bicep-ts-mode.el b/bicep-ts-mode.el
index c6b43ac78a..c8bd7044f1 100644
--- a/bicep-ts-mode.el
+++ b/bicep-ts-mode.el
@@ -6,7 +6,7 @@
 ;; Maintainer : Jostein Kjønigsen 
 ;; Created: December 2023
 ;; Keywords   : bicep languages tree-sitter
-;; Version: 0.1.1
+;; Version: 0.1.2
 ;; X-URL  : https://github.com/josteink/bicep-ts-mode
 
 ;; This file is part of GNU Emacs.

[elpa] externals/bicep-ts-mode updated (27eda6d6a0 -> c70e067362)

[ELPA Syncer]

elpasync pushed a change to branch externals/bicep-ts-mode.

  from  27eda6d6a0 Add using-keyword
   new  1ee6974e65 Update/simplify mode-definition based on patches from 
Stefan Monnier
   new  30b00ebe13 Ensure Bicep-group actually exists.
   new  c70e067362 Bump version. 0.1.2


Summary of changes:
 bicep-ts-mode.el | 122 ++-
 1 file changed, 57 insertions(+), 65 deletions(-)

[elpa] externals/dape cc89cc26c0 3/5: Skip updating non visible info buffers

[ELPA Syncer]

branch: externals/dape
commit cc89cc26c049a614287ea748b4db1043ca6aaf37
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Skip updating non visible info buffers

As the `window-buffer-change-functions' hook function takes care of
updating when the buffer is showing, there is really no need in
fetching those other buffers.
---
 dape.el | 9 +
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/dape.el b/dape.el
index d2897fd3ab..3a87422632 100644
--- a/dape.el
+++ b/dape.el
@@ -2831,10 +2831,11 @@ If SKIP-UPDATE is non nil skip updating buffer 
contents."
 (defun dape-info-update (&optional conn)
   "Update and display `dape-info-*' buffers for adapter CONN."
   (dolist (buffer (dape--info-buffer-list))
-(dape--info-update (or conn
-   (dape--live-connection 'stopped t)
-   (dape--live-connection 'newest t))
-   buffer)))
+(when (get-buffer-window buffer)
+  (dape--info-update (or conn
+ (dape--live-connection 'stopped t)
+ (dape--live-connection 'newest t))
+ buffer
 
 (defun dape-info (&optional maybe-kill kill)
   "Update and display *dape-info* buffers.

[elpa] externals/dape 3b4c2091cd 5/5: Add GDB as an "supported" adapter

[ELPA Syncer]

branch: externals/dape
commit 3b4c2091cda5535a243eff3474faea164193f747
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Add GDB as an "supported" adapter

In 14.1 added dap support, but it's not 100% compatible with dape,
as it needs the new var `dape--info-threads-all-stack-trace-disable'
to be flipped.

> Disable stack information for non selected threads.
> GDB fails fetching stack variables if an stack trace for another
> thread is in flight, which happens when *dape-info Threads* and
> *dape-info Scopes* are updated at the same time.
---
 dape.el | 46 +-
 1 file changed, 33 insertions(+), 13 deletions(-)

diff --git a/dape.el b/dape.el
index 044ff048c1..d23b34b17a 100644
--- a/dape.el
+++ b/dape.el
@@ -175,6 +175,18 @@
  :cwd "."
  :program "lib/main.dart"
  :toolArgs ["-d" "all"])
+;; gdb is not fully functional with an thread count > 1
+;; See: `dape--info-threads-all-stack-trace-disable'
+(gdb
+ modes (c-mode c-ts-mode c++-mode c++-ts-mode)
+ command-cwd dape-command-cwd
+ command "gdb"
+ command-args ("--interpreter=dap")
+ fn (dape-config-tramp)
+ :request "launch"
+ :program "a.out"
+ :args []
+ :stopAtBeginningOfMainSubprogram nil)
 (godot
  modes (gdscript-mode)
  port 6006
@@ -1490,18 +1502,6 @@ See `dape--callback' for expected CB signature."
(funcall cb conn
 (funcall cb conn)))
 
-(defun dape--inactive-threads-stack-trace (conn cb)
-  "Populate CONN stack frame data for all threads.
-See `dape--callback' for expected CB signature."
-  (if (not (dape--threads conn))
-  (funcall cb conn)
-(let ((responses 0))
-  (dolist (thread (dape--threads conn))
-(dape--with dape--stack-trace (conn thread 1)
-  (setq responses (1+ responses))
-  (when (length= (dape--threads conn) responses)
-(funcall cb conn)))
-
 (defun dape--update (conn
  &optional skip-clear-stack-frames 
skip-stack-pointer-flash)
   "Update adapter CONN data and ui.
@@ -3020,6 +3020,26 @@ When optional kill is non nil kill buffers *dape-info* 
buffers."
   ;; TODO Add bindings for individual threads.
   )
 
+;; TODO Report gdb bug
+(defvar dape--info-threads-all-stack-trace-disable nil
+  "Disable stack information for non selected threads.
+GDB fails fetching stack variables if an stack trace for another
+thread is in flight, which happens when *dape-info Threads* and
+*dape-info Scopes* are updated at the same time.")
+
+(defun dape--info-threads-all-stack-trace (conn cb)
+  "Populate CONN stack frame data for non selected threads.
+See `dape--callback' for expected CB signature."
+  (if (or dape--info-threads-all-stack-trace-disable
+  (not (dape--threads conn)))
+  (funcall cb conn)
+(let ((responses 0))
+  (dolist (thread (dape--threads conn))
+(dape--with dape--stack-trace (conn thread 1)
+  (setq responses (1+ responses))
+  (when (length= (dape--threads conn) responses)
+(funcall cb conn)))
+
 (define-derived-mode dape-info-threads-mode dape-info-parent-mode "Threads"
   "Major mode for Dape info threads."
   :interactive nil
@@ -3034,7 +3054,7 @@ Buffer is specified by MODE and ID."
   (if-let ((conn (or conn (dape--live-connection 'newest t)))
((dape--stopped-threads conn))
(threads (dape--threads conn)))
-  (dape--with dape--inactive-threads-stack-trace (conn)
+  (dape--with dape--info-threads-all-stack-trace (conn)
 (dape--info-update-with mode id
   (let ((table (make-gdb-table))
 (current-thread (dape--current-thread conn)))

[elpa] externals/dape b029db6c18 2/5: Harden new delayed stack trace loading

[ELPA Syncer]

branch: externals/dape
commit b029db6c18d5cb846bb96fb2d4f7033b18b9fc86
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Harden new delayed stack trace loading

If several stack traces are fired at the same time, make sure that
the result is somewhat sane, check that assumptions on start index is
still true at response time
---
 dape.el | 19 +--
 1 file changed, 13 insertions(+), 6 deletions(-)

diff --git a/dape.el b/dape.el
index 234c4e55d4..d2897fd3ab 100644
--- a/dape.el
+++ b/dape.el
@@ -1348,7 +1348,8 @@ See `dape--callback' for expected CB signature."
   "Update stack trace in THREAD plist with NOF frames by adapter CONN.
 See `dape--callback' for expected CB signature."
   (let ((current-nof (length (plist-get thread :stackFrames)))
-(delayed-stack-trace-p (dape--capable-p conn 
:supportsDelayedStackTraceLoading)))
+ (delayed-stack-trace-p
+  (dape--capable-p conn :supportsDelayedStackTraceLoading)))
 (cond
  ((or (not (equal (plist-get thread :status) "stopped"))
   (not (integerp (plist-get thread :id)))
@@ -1366,11 +1367,17 @@ See `dape--callback' for expected CB signature."
   :startFrame current-nof
   :levels (- nof current-nof
(dape--callback
-(plist-put thread :stackFrames
-   (append
-(plist-get thread :stackFrames)
-(plist-get body :stackFrames)
-nil))
+(cond
+ ((not delayed-stack-trace-p)
+  (plist-put thread :stackFrames
+ (append (plist-get body :stackFrames) nil)))
+ ;; sanity check delayed stack trace
+ ((length= (plist-get thread :stackFrames) current-nof)
+  (plist-put thread :stackFrames
+ (append
+  (plist-get thread :stackFrames)
+  (plist-get body :stackFrames)
+  nil
 (funcall cb conn)))
 
 (defun dape--variables (conn object cb)

[elpa] externals/dape updated (708022e69e -> 3b4c2091cd)

[ELPA Syncer]

elpasync pushed a change to branch externals/dape.

  from  708022e69e Revert "Add error on mismatched jsonrpc dependency" #70
   new  b7dd45f551 Reduce flicker in watch buffer scopes
   new  b029db6c18 Harden new delayed stack trace loading
   new  cc89cc26c0 Skip updating non visible info buffers
   new  0e19e6c432 Change select-up/down bindings to match gud bindings
   new  3b4c2091cd Add GDB as an "supported" adapter


Summary of changes:
 dape.el | 83 -
 1 file changed, 56 insertions(+), 27 deletions(-)

[elpa] externals/dape b7dd45f551 1/5: Reduce flicker in watch buffer scopes

[ELPA Syncer]

branch: externals/dape
commit b7dd45f5519a7b5b2299d0e24a498fde0d4692b7
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Reduce flicker in watch buffer scopes
---
 dape.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/dape.el b/dape.el
index 631b52587f..234c4e55d4 100644
--- a/dape.el
+++ b/dape.el
@@ -3515,8 +3515,9 @@ Buffer is specified by MODE and ID."
 (gethash (cons (plist-get object :name) path)
  dape--info-expanded-p
   (dape--info-update-with mode id
-(setq dape--info-buffer-related
-  (dape--info-group-2-related-buffers scopes))
+(when scopes
+  (setq dape--info-buffer-related
+(dape--info-group-2-related-buffers scopes)))
 (cl-loop with table = (make-gdb-table)
  for watch in dape--watched
  initially (setf (gdb-table-right-align table)

[elpa] externals/dape 0e19e6c432 4/5: Change select-up/down bindings to match gud bindings

[ELPA Syncer]

branch: externals/dape
commit 0e19e6c432c62eec68349ad7c4c8589b54de3acb
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Change select-up/down bindings to match gud bindings
---
 dape.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/dape.el b/dape.el
index 3a87422632..044ff048c1 100644
--- a/dape.el
+++ b/dape.el
@@ -4315,8 +4315,8 @@ See `eldoc-documentation-functions', for more infomation."
 (define-key map "B" #'dape-breakpoint-remove-all)
 (define-key map "t" #'dape-select-thread)
 (define-key map "S" #'dape-select-stack)
-(define-key map (kbd "C-i") #'dape-stack-select-down)
-(define-key map (kbd "C-o") #'dape-stack-select-up)
+(define-key map ">" #'dape-stack-select-down)
+(define-key map "<" #'dape-stack-select-up)
 (define-key map "x" #'dape-evaluate-expression)
 (define-key map "w" #'dape-watch-dwim)
 (define-key map "D" #'dape-disconnect-quit)

[elpa] externals/dape e00d43e714 1/2: Fix failing test, buffers are not updated unless shown

[ELPA Syncer]

branch: externals/dape
commit e00d43e714f2a123a29a3259f7baa9d6ec30a111
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Fix failing test, buffers are not updated unless shown

Change introduced in cc89cc2
---
 dape-tests.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/dape-tests.el b/dape-tests.el
index 2751f92471..42dfc84ddf 100644
--- a/dape-tests.el
+++ b/dape-tests.el
@@ -487,6 +487,7 @@ Expects line with string \"breakpoint\" in source."
   (dape-test--apply-to-match "^1 .* stopped in" 'dape-info-select-thread))
 (with-current-buffer (dape-test--should
   (dape--info-get-live-buffer 'dape-info-threads-mode))
+  (display-buffer (current-buffer)) ; trigger 
window-buffer-change-functions
   ;; thread selected
   (dape-test--should
(and (dape-test--line-at-regex "^1 .* stopped in")
@@ -569,6 +570,7 @@ Expects line with string \"breakpoint\" in source."
 ;; contents
 (with-current-buffer (dape-test--should
   (dape--info-get-live-buffer 'dape-info-modules-mode))
+  (display-buffer (current-buffer)) ; trigger 
window-buffer-change-functions
   (dape-test--should ;; Regression .* symlinks are now handled differently
(dape-test--line-at-regex "^__main__ of .*main.py")
 
@@ -593,6 +595,7 @@ Expects line with string \"breakpoint\" in source."
 ;; contents
 (with-current-buffer (dape-test--should
   (dape--info-get-live-buffer 'dape-info-sources-mode))
+  (display-buffer (current-buffer)) ; trigger 
window-buffer-change-functions
   (dape-test--should
(and (dape-test--line-at-regex "^os ")
 (dape-test--line-at-regex "index.js"

[elpa] externals/dape updated (3b4c2091cd -> 4694a7323b)

[ELPA Syncer]

elpasync pushed a change to branch externals/dape.

  from  3b4c2091cd Add GDB as an "supported" adapter
   new  e00d43e714 Fix failing test, buffers are not updated unless shown
   new  4694a7323b Fix reset modules and sources on "restart" request #15


Summary of changes:
 dape-tests.el | 3 +++
 dape.el   | 2 ++
 2 files changed, 5 insertions(+)

[elpa] externals/dape 4694a7323b 2/2: Fix reset modules and sources on "restart" request #15

[ELPA Syncer]

branch: externals/dape
commit 4694a7323b6bb6747f072c4c1253d18cf07a113f
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Fix reset modules and sources on "restart" request #15
---
 dape.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/dape.el b/dape.el
index d23b34b17a..5a502b93f9 100644
--- a/dape.el
+++ b/dape.el
@@ -1941,6 +1941,8 @@ CONN is inferred for interactive invocations."
  (dape--capable-p conn :supportsRestartRequest))
 (setf (dape--threads conn) nil)
 (setf (dape--thread-id conn) nil)
+(setf (dape--modules conn) nil)
+(setf (dape--sources conn) nil)
 (setf (dape--restart-in-progress-p conn) t)
 (dape-request conn "restart" nil
   (dape--callback

[elpa] externals/ement 2b9725accd: Tidy: Docstring

[ELPA Syncer]

branch: externals/ement
commit 2b9725accdaed1913b83b2495d3f901ee3aba892
Author: Adam Porter 
Commit: Adam Porter 

Tidy: Docstring
---
 ement.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ement.el b/ement.el
index e6f1c60ea9..c867e000b2 100644
--- a/ement.el
+++ b/ement.el
@@ -203,7 +203,7 @@ again; otherwise, use a saved session if 
`ement-save-sessions' is
 enabled and a saved session is available, or prompt to log in if
 not enabled or available.
 
-If USERID or PASSWORD are not specified, the user will be
+If USER-ID or PASSWORD are not specified, the user will be
 prompted for them.
 
 If URI-PREFIX is specified, it should be the prefix of the

[nongnu] elpa/rust-mode 8bbe70b72f 2/2: Merge pull request #510 from luckysori/match-panics

[ELPA Syncer]

branch: elpa/rust-mode
commit 8bbe70b72fde8046e12e6a41ffbee6c9f6b4ddd7
Merge: 9c26dc1195 3948faec12
Author: Sibi Prabakaran 
Commit: GitHub 

Merge pull request #510 from luckysori/match-panics

Match panics in `compilation-mode`
---
 rust-compile.el| 9 +
 rust-mode-tests.el | 7 +--
 2 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/rust-compile.el b/rust-compile.el
index 1bb31030ee..04ac6b6478 100644
--- a/rust-compile.el
+++ b/rust-compile.el
@@ -34,6 +34,12 @@ See `compilation-error-regexp-alist' for help on their 
format.")
   "Specifications for matching code references in rustc invocations.
 See `compilation-error-regexp-alist' for help on their format.")
 
+(defvar rustc-panics-compilation-regexps
+   (let ((re (concat "thread '[^']+' panicked at " 
rustc-compilation-location)))
+ (cons re '(2 3 4 nil 1)))
+   "Specifications for matching panics in rustc invocations.
+See `compilation-error-regexp-alist' for help on their format.")
+
 ;; Match test run failures and panics during compilation as
 ;; compilation warnings
 (defvar cargo-compilation-regexps
@@ -75,6 +81,9 @@ the compilation window until the top of the error is visible."
  (add-to-list 'compilation-error-regexp-alist 'rustc-colon)
  (add-to-list 'compilation-error-regexp-alist-alist
   (cons 'cargo cargo-compilation-regexps))
+ (add-to-list 'compilation-error-regexp-alist-alist
+  (cons 'rustc-panics rustc-panics-compilation-regexps))
+ (add-to-list 'compilation-error-regexp-alist 'rustc-panics)
  (add-to-list 'compilation-error-regexp-alist 'cargo)
  (add-hook 'next-error-hook #'rustc-scroll-down-after-next-error)))
 
diff --git a/rust-mode-tests.el b/rust-mode-tests.el
index 5c6d547615..62cd261de3 100644
--- a/rust-mode-tests.el
+++ b/rust-mode-tests.el
@@ -3600,6 +3600,7 @@ let b = 1;"
 (insert "warning found a -> b\n  --> file3.rs:12:34\n\n")
 (insert "note: `ZZZ` could also refer to the constant imported here -> b\n 
 --> file4.rs:12:34\n\n")
 (insert "::: file5.rs:12:34\n\n")
+(insert "thread 'main' panicked at src/file7.rs:12:34:\n\n")
 ;; should not match
 (insert "werror found a -> b\n  --> no_match.rs:12:34\n\n")
 (insert "error[E0061]: this function takes 1 parameter but 2 parameters 
were supplied\n  --> file6.rs:132:34
@@ -3618,11 +3619,13 @@ let b = 1;"
 ("file6.rs" "132" "34" compilation-error "file6.rs:132:34"))
(("file5.rs" "12" "34" compilation-info "file5.rs:12:34"))
((like-previous-one "82" back-to-indentation compilation-info 
"82")
-(like-previous-one "132" back-to-indentation compilation-info 
"132")))
+(like-previous-one "132" back-to-indentation compilation-info 
"132"))
+   (("src/file7.rs" "12" "34" nil "src/file7.rs:12:34")))
  (mapcar #'rust-collect-matches
  (list rustc-compilation-regexps
rustc-colon-compilation-regexps
-   rustc-refs-compilation-regexps))
+   rustc-refs-compilation-regexps
+   rustc-panics-compilation-regexps))
 
 ;; If electric-pair-mode is available, load it and run the tests that use it.  
If not,
 ;; no error--the tests will be skipped.

[nongnu] elpa/swift-mode 23f5fc5484: Fix GitHub Actions

[ELPA Syncer]

branch: elpa/swift-mode
commit 23f5fc5484c77b3f354656443f09ed76c190e69f
Author: taku0 
Commit: taku0 

Fix GitHub Actions
---
 .github/workflows/run-test.yml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/.github/workflows/run-test.yml b/.github/workflows/run-test.yml
index b9f15bc781..77eb3a5c4e 100644
--- a/.github/workflows/run-test.yml
+++ b/.github/workflows/run-test.yml
@@ -36,7 +36,7 @@ jobs:
   ELDEV: .eldev/bin/eldev
 
 steps:
-- uses: actions/checkout@v3
+- uses: actions/checkout@v4
 - uses: purcell/setup-emacs@master
   with:
 version: ${{ matrix.version }}

[nongnu] elpa/rust-mode 3948faec12 1/2: Match panics in compilation-mode

[ELPA Syncer]

branch: elpa/rust-mode
commit 3948faec12f72b0b11fd573e3bcfe323de5b6d80
Author: Lucas Soriano del Pino 
Commit: Lucas Soriano del Pino 

Match panics in compilation-mode

If we encounter a panic when executing Rust code in
`compilation-mode`, we now correctly highlight the location where the
panic occurred.

For example:

```
thread 'main' panicked at src/main.rs:2:5:
explicit panic
note: run with `RUST_BACKTRACE=1` environment variable to display a 
backtrace
```

Here, `src/main.rs:2:5` is highlighted. The developer is then able to
execute `compile-goto-error` to jump to the correct spot in the code.

Co-authored-by: Brent Westbrook 
Co-authored-by: zlef 
---
 rust-compile.el| 9 +
 rust-mode-tests.el | 7 +--
 2 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/rust-compile.el b/rust-compile.el
index 1bb31030ee..04ac6b6478 100644
--- a/rust-compile.el
+++ b/rust-compile.el
@@ -34,6 +34,12 @@ See `compilation-error-regexp-alist' for help on their 
format.")
   "Specifications for matching code references in rustc invocations.
 See `compilation-error-regexp-alist' for help on their format.")
 
+(defvar rustc-panics-compilation-regexps
+   (let ((re (concat "thread '[^']+' panicked at " 
rustc-compilation-location)))
+ (cons re '(2 3 4 nil 1)))
+   "Specifications for matching panics in rustc invocations.
+See `compilation-error-regexp-alist' for help on their format.")
+
 ;; Match test run failures and panics during compilation as
 ;; compilation warnings
 (defvar cargo-compilation-regexps
@@ -75,6 +81,9 @@ the compilation window until the top of the error is visible."
  (add-to-list 'compilation-error-regexp-alist 'rustc-colon)
  (add-to-list 'compilation-error-regexp-alist-alist
   (cons 'cargo cargo-compilation-regexps))
+ (add-to-list 'compilation-error-regexp-alist-alist
+  (cons 'rustc-panics rustc-panics-compilation-regexps))
+ (add-to-list 'compilation-error-regexp-alist 'rustc-panics)
  (add-to-list 'compilation-error-regexp-alist 'cargo)
  (add-hook 'next-error-hook #'rustc-scroll-down-after-next-error)))
 
diff --git a/rust-mode-tests.el b/rust-mode-tests.el
index 5c6d547615..62cd261de3 100644
--- a/rust-mode-tests.el
+++ b/rust-mode-tests.el
@@ -3600,6 +3600,7 @@ let b = 1;"
 (insert "warning found a -> b\n  --> file3.rs:12:34\n\n")
 (insert "note: `ZZZ` could also refer to the constant imported here -> b\n 
 --> file4.rs:12:34\n\n")
 (insert "::: file5.rs:12:34\n\n")
+(insert "thread 'main' panicked at src/file7.rs:12:34:\n\n")
 ;; should not match
 (insert "werror found a -> b\n  --> no_match.rs:12:34\n\n")
 (insert "error[E0061]: this function takes 1 parameter but 2 parameters 
were supplied\n  --> file6.rs:132:34
@@ -3618,11 +3619,13 @@ let b = 1;"
 ("file6.rs" "132" "34" compilation-error "file6.rs:132:34"))
(("file5.rs" "12" "34" compilation-info "file5.rs:12:34"))
((like-previous-one "82" back-to-indentation compilation-info 
"82")
-(like-previous-one "132" back-to-indentation compilation-info 
"132")))
+(like-previous-one "132" back-to-indentation compilation-info 
"132"))
+   (("src/file7.rs" "12" "34" nil "src/file7.rs:12:34")))
  (mapcar #'rust-collect-matches
  (list rustc-compilation-regexps
rustc-colon-compilation-regexps
-   rustc-refs-compilation-regexps))
+   rustc-refs-compilation-regexps
+   rustc-panics-compilation-regexps))
 
 ;; If electric-pair-mode is available, load it and run the tests that use it.  
If not,
 ;; no error--the tests will be skipped.