[elpa] externals/pulsar 373c5f7955 03/10: Note that next version shall be 1.0.0

[ELPA Syncer]

branch: externals/pulsar
commit 373c5f7955883334030b450ef616d16e6e1a5868
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Note that next version shall be 1.0.0
---
 README.org | 2 +-
 pulsar.el  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/README.org b/README.org
index f3a1a7cf72..087b8acf41 100644
--- a/README.org
+++ b/README.org
@@ -6,7 +6,7 @@
 #+startup:   content
 #+macro: stable-version 0.5.0
 #+macro: release-date 2022-08-19
-#+macro: development-version 0.6.0-dev
+#+macro: development-version 1.0.0-dev
 #+export_file_name:  pulsar.texi
 #+texinfo_filename:  pulsar.info
 #+texinfo_dir_category:  Emacs misc features
diff --git a/pulsar.el b/pulsar.el
index 2ce177bd9f..f1d0436acb 100644
--- a/pulsar.el
+++ b/pulsar.el
@@ -436,7 +436,7 @@ This is a buffer-local mode.  Also check 
`pulsar-global-mode'."
   (recenter nil)
   (pulsar-pulse-line))
 
-(defalias 'pulsar-recenter-middle 'pulsar-recenter-center "0.6.0")
+(defalias 'pulsar-recenter-middle 'pulsar-recenter-center "1.0.0")
 
  Reveal contents of Org or Outline headings
 

[elpa] externals/pulsar 5e5796ecd5 02/10: Make pulsar--start also return point-min in the minibuffer

[ELPA Syncer]

branch: externals/pulsar
commit 5e5796ecd5e1944541c21e77ca3b21f0c752df15
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Make pulsar--start also return point-min in the minibuffer

The idea is to set up something like the following and have it
produce a pulse over the text of the prompt:

(add-hook 'minibuffer-setup-hook 'pulsar-pulse-line-blue)
---
 pulsar.el | 16 
 1 file changed, 12 insertions(+), 4 deletions(-)

diff --git a/pulsar.el b/pulsar.el
index 4fe5195d57..2ce177bd9f 100644
--- a/pulsar.el
+++ b/pulsar.el
@@ -252,10 +252,18 @@ pulse.  Only applies when `pulsar-pulse' is non-nil."
 (or (eobp) (eq (point) (point-max)
 
 (defun pulsar--start ()
-  "Return appropriate line start."
-  (if (and (pulsar--buffer-end-p) (eq (char-before) ?\n))
-  (line-beginning-position 0)
-(line-beginning-position)))
+  "Return appropriate line start.
+When in the minibuffer, return the `point-min', which includes
+the text of the prompt.  This way, a pulse will be visible even
+if the minibuffer has no initial text (e.g. `M-x' with the
+default completion setup)."
+  (cond
+   ((minibufferp)
+(point-min))
+   ((and (pulsar--buffer-end-p) (eq (char-before) ?\n))
+(line-beginning-position 0))
+   (t
+(line-beginning-position
 
 (defun pulsar--end ()
   "Return appropriate line end."

[elpa] externals/pulsar 823969a6e8 05/10: Document how to use pulsar in the minibuffer

[ELPA Syncer]

branch: externals/pulsar
commit 823969a6e80a5c2ba4782f0a7b5ef930480305e6
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Document how to use pulsar in the minibuffer
---
 README.org | 27 +++
 1 file changed, 27 insertions(+)

diff --git a/README.org b/README.org
index b5f92e92c1..1f5cff3f79 100644
--- a/README.org
+++ b/README.org
@@ -259,6 +259,33 @@ Pulsar-level solution that "just works":
 (add-hook 'next-error-hook #'pulsar-pulse-line)
 #+end_src
 
+** Use pulsar in the minibuffer
+:PROPERTIES:
+:CUSTOM_ID: h:8b942448-6ed3-4cb7-8e31-796a8c5011a6
+:END:
+
+[ This works as intended with changes that are part of 
{{{development-version}}}. ]
+
+Due to how the minibuffer works, the user cannot rely on the user
+option ~pulse-pulse-functions~ to automatically pulse in that context.
+Instead, the user must add a function to the ~minibuffer-setup-hook~:
+it will trigger a pulse as soon as the minibuffer shows up:
+
+#+begin_src emacs-lisp
+(add-hook 'minibuffer-setup-hook #'pulsar-pulse-line)
+#+end_src
+
+The ~pulsar-pulse-line~ function will use the default Pulsar face, per
+the user option ~pulsar-face~.
+
+A convenience function can also be used 
([[#h:6ca69953-1a89-4968-a46c-2fa5e57aca9b][Convenience functions]]).  The
+idea is to apply a different color than the one applied by default.
+For example:
+
+#+begin_src emacs-lisp
+(add-hook 'minibuffer-setup-hook #'pulsar-pulse-line-blue)
+#+end_src
+
 * Integration with other packages
 :PROPERTIES:
 :CUSTOM_ID: h:b884f2ac-82f3-48c0-bee5-6709d6647b1d

[elpa] externals/pulsar 08b6936e0c 06/10: Add missing metadata about user option versions

[ELPA Syncer]

branch: externals/pulsar
commit 08b6936e0cf2fdebaf4e18b8b6953f2e918c663f
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add missing metadata about user option versions
---
 pulsar.el | 6 ++
 1 file changed, 6 insertions(+)

diff --git a/pulsar.el b/pulsar.el
index f1d0436acb..60df6f369a 100644
--- a/pulsar.el
+++ b/pulsar.el
@@ -109,6 +109,7 @@ Extension of `pulse.el'."
 This only takes effect when `pulsar-mode' (buffer-local) or
 `pulsar-global-mode' is enabled."
   :type '(repeat function)
+  :package-version '(pulsar . "1.0.0")
   :group 'pulsar)
 
 (make-obsolete 'pulsar-pulse-on-window-change nil "0.5.0")
@@ -128,6 +129,7 @@ background attribute."
 (face :tag "Magenta style" pulsar-magenta)
 (face :tag "Cyan style" pulsar-cyan)
 (face :tag "Other face (must have a background)"))
+  :package-version '(pulsar . "0.2.0")
   :group 'pulsar)
 
 (defcustom pulsar-highlight-face 'pulsar-face
@@ -141,6 +143,7 @@ background attribute."
 (face :tag "Magenta style" pulsar-magenta)
 (face :tag "Cyan style" pulsar-cyan)
 (face :tag "Other face (must have a background)")))
+  :package-version '(pulsar . "0.3.0")
   :group 'pulsar)
 
 (defcustom pulsar-pulse t
@@ -148,6 +151,7 @@ background attribute."
 Otherwise the highlight stays on the current line until another
 command is invoked."
   :type 'boolean
+  :package-version '(pulsar . "0.2.0")
   :group 'pulsar)
 
 (defcustom pulsar-delay 0.05
@@ -155,6 +159,7 @@ command is invoked."
 Together with `pulsar-iterations' control the overall duration of
 a pulse.  Only applies when `pulsar-pulse' is non-nil."
   :type 'number
+  :package-version '(pulsar . "0.1.0")
   :group 'pulsar)
 
 (defcustom pulsar-iterations pulse-iterations
@@ -162,6 +167,7 @@ a pulse.  Only applies when `pulsar-pulse' is non-nil."
 Together with `pulsar-delay' control the overall duration of a
 pulse.  Only applies when `pulsar-pulse' is non-nil."
   :type 'number
+  :package-version '(pulsar . "0.1.0")
   :group 'pulsar)
 
  Faces

[elpa] externals/pulsar b80af461be 09/10: Fix docstring of 'pulsar-recenter-middle' defalias

[ELPA Syncer]

branch: externals/pulsar
commit b80af461be50ee62911de76932ef0d4a91ab2105
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Fix docstring of 'pulsar-recenter-middle' defalias
---
 pulsar.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/pulsar.el b/pulsar.el
index 60df6f369a..acde93fb62 100644
--- a/pulsar.el
+++ b/pulsar.el
@@ -442,7 +442,8 @@ This is a buffer-local mode.  Also check 
`pulsar-global-mode'."
   (recenter nil)
   (pulsar-pulse-line))
 
-(defalias 'pulsar-recenter-middle 'pulsar-recenter-center "1.0.0")
+(defalias 'pulsar-recenter-middle 'pulsar-recenter-center
+  "Alias for `pulsar-recenter-center'.")
 
  Reveal contents of Org or Outline headings
 

[elpa] externals/pulsar 206eece04d 07/10: Add missing metadata to CHANGELOG

[ELPA Syncer]

branch: externals/pulsar
commit 206eece04d41b81fca9784a772acb1cc4c804c7d
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add missing metadata to CHANGELOG

This is used in the HTML output.
---
 CHANGELOG.org | 15 +++
 1 file changed, 15 insertions(+)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index fd8fd4cb81..37912f876e 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -7,6 +7,9 @@ The newest release is at the top.  For further details, please 
consult
 the manual: .
 
 * Version 0.5.0 on 2022-08-19
+:PROPERTIES:
+:CUSTOM_ID: h:20bf677d-bcef-4606-8cc2-ebd49bfc057b
+:END:
 
 + Added convenience functions/commands to pulse a line using one of the
   provided faces.  These can be used interactively or via Lisp (e.g. be
@@ -63,6 +66,9 @@ the manual: .
   manual.
 
 * Version 0.4.0 on 2022-07-19
+:PROPERTIES:
+:CUSTOM_ID: h:762631cc-f60c-42b1-977b-00fd71c1a37e
+:END:
 
 + Added the user option ~pulsar-pulse-on-window-change~.  This covers
   all commands or functions that affect the current window, so there is
@@ -88,6 +94,9 @@ the manual: .
   to the code.
 
 * Version 0.3.0 on 2022-04-08
+:PROPERTIES:
+:CUSTOM_ID: h:e0cd59e1-7a0b-47b5-b9fe-a20e1fa196f0
+:END:
 
 + Changed the source repository from GitLab to SourceHut:
   .  Use the mailing list to
@@ -134,6 +143,9 @@ the manual: .
   GitLab mirror: .
 
 * Version 0.2.0 on 2022-03-16
+:PROPERTIES:
+:CUSTOM_ID: h:27d0bdb0-7099-41f3-8a08-b2e3d01aa36c
+:END:
 
 + Fixed an inconsistency that was present when Emacs was running in a
   server-client model where the highlight would never pulse but instead
@@ -168,6 +180,9 @@ the manual: .
 + Updated the manual to reflect those changes.
 
 * Version 0.1.0 on 2022-03-14
+:PROPERTIES:
+:CUSTOM_ID: h:92a23377-d4d9-43ea-a2d4-00a23ec37f57
+:END:
 
 Initial release of the package.  Please read the manual.
 

[elpa] externals/pulsar 61ceda6812 08/10: Add missing backronym

[ELPA Syncer]

branch: externals/pulsar
commit 61ceda6812ebb276f152f29d251325533dd35214
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add missing backronym
---
 README.org | 1 +
 1 file changed, 1 insertion(+)

diff --git a/README.org b/README.org
index 1f5cff3f79..79c0ba5e50 100644
--- a/README.org
+++ b/README.org
@@ -38,6 +38,7 @@ Current development target is {{{development-version}}}.
 + GitHub: 
 + GitLab: 
 + Mailing list: 
++ Backronym: Pulsar Unquestionably Luminates, Strictly Absent the Radiation.
 
 #+toc: headlines 8 insert TOC here, with eight headline levels
 

[elpa] externals/pulsar 9e54e24aa9 04/10: Use more precise markup for 'pulsar' symbol in the manual

[ELPA Syncer]

branch: externals/pulsar
commit 9e54e24aa94884fcaf892722265cbac533230dfe
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Use more precise markup for 'pulsar' symbol in the manual
---
 README.org | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/README.org b/README.org
index 087b8acf41..b5f92e92c1 100644
--- a/README.org
+++ b/README.org
@@ -20,7 +20,7 @@
 #+texinfo: @insertcopying
 
 This manual, written by Protesilaos Stavrou, describes the customization
-options for =pulsar= (or =pulsar.el=), and provides every other piece of
+options for ~pulsar~ (or =pulsar.el=), and provides every other piece of
 information pertinent to it.
 
 The documentation furnished herein corresponds to stable version
@@ -30,7 +30,7 @@ commit, is explicitly marked as such.
 
 Current development target is {{{development-version}}}.
 
-+ Package name (GNU ELPA): =pulsar=
++ Package name (GNU ELPA): ~pulsar~
 + Official manual: 
 + Change log: 
 + Git repo on SourceHut: 
@@ -158,7 +158,7 @@ or be incorporated in custom functions.
 :CUSTOM_ID: h:916cf31a-8f25-472e-9328-9c47522f1dd4
 :END:
 
-The package is available as =pulsar=.  Simply do:
+The package is available as ~pulsar~.  Simply do:
 
 : M-x package-refresh-contents
 : M-x package-install

[elpa] externals/pulsar updated (aa09693018 -> 1af423199d)

[ELPA Syncer]

elpasync pushed a change to branch externals/pulsar.

  from  aa09693018 Remove needless macro and fix missing 
'pulsar-recenter-middle'
   new  e2c077034e Simplify the macro that defines pulsar-pulse-line-COLOR 
functions
   new  5e5796ecd5 Make pulsar--start also return point-min in the 
minibuffer
   new  373c5f7955 Note that next version shall be 1.0.0
   new  9e54e24aa9 Use more precise markup for 'pulsar' symbol in the manual
   new  823969a6e8 Document how to use pulsar in the minibuffer
   new  08b6936e0c Add missing metadata about user option versions
   new  206eece04d Add missing metadata to CHANGELOG
   new  61ceda6812 Add missing backronym
   new  b80af461be Fix docstring of 'pulsar-recenter-middle' defalias
   new  1af423199d Update to version 1.0.0


Summary of changes:
 CHANGELOG.org | 68 +++
 README.org| 38 +++--
 pulsar.el | 66 -
 3 files changed, 147 insertions(+), 25 deletions(-)

[elpa] externals/pulsar e2c077034e 01/10: Simplify the macro that defines pulsar-pulse-line-COLOR functions

[ELPA Syncer]

branch: externals/pulsar
commit e2c077034e8d007e677a59057a580ec0188a8757
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Simplify the macro that defines pulsar-pulse-line-COLOR functions
---
 pulsar.el | 41 +++--
 1 file changed, 27 insertions(+), 14 deletions(-)

diff --git a/pulsar.el b/pulsar.el
index b5ec836bb4..4fe5195d57 100644
--- a/pulsar.el
+++ b/pulsar.el
@@ -306,24 +306,37 @@ default)."
 
 ; Convenience functions
 
+(define-obsolete-function-alias
+  'pulsar-pulse-with-face
+  'pulsar-define-pulse-with-face
+  "1.0.0")
+
 ;;;###autoload
-(defmacro pulsar-pulse-with-face (name face)
-  "Produce NAME function to `pulsar--pulse' with FACE."
+(defmacro pulsar-define-pulse-with-face (face)
+  "Produce function to `pulsar--pulse' with FACE.
+If FACE starts with the `pulsar-' prefix, remove it and keep only
+the remaining text.  The assumption is that something like
+`pulsar-red' will be convered to `red', thus deriving a function
+named `pulsar-pulse-line-red'.  Any other FACE is taken as-is."
   (declare (indent function))
-  `(defun ,name ()
- ,(format "Like `pulsar-pulse-line' but uses the `%s' face.
+  (let* ((face-string (symbol-name face))
+ (face-name (if (string-prefix-p "pulsar-" face-string)
+(replace-regexp-in-string "pulsar-" "" face-string)
+  face-string)))
+`(defun ,(intern (format "pulsar-pulse-line-%s" face-name)) ()
+   ,(format "Like `pulsar-pulse-line' but uses the `%s' face.
 The idea with this is to run it in special hooks or contexts
 where you need a different color than what Pulsar normally
-uses (per `pulsar-face')" face)
- (interactive)
- (pulsar--pulse nil ',face)))
-
-(pulsar-pulse-with-face pulsar-pulse-line-red pulsar-red)
-(pulsar-pulse-with-face pulsar-pulse-line-green pulsar-green)
-(pulsar-pulse-with-face pulsar-pulse-line-yellow pulsar-yellow)
-(pulsar-pulse-with-face pulsar-pulse-line-blue pulsar-blue)
-(pulsar-pulse-with-face pulsar-pulse-line-magenta pulsar-magenta)
-(pulsar-pulse-with-face pulsar-pulse-line-cyan pulsar-cyan)
+uses (per the user option `pulsar-face')" face)
+   (interactive)
+   (pulsar--pulse nil ',face
+
+(pulsar-define-pulse-with-face pulsar-red)
+(pulsar-define-pulse-with-face pulsar-green)
+(pulsar-define-pulse-with-face pulsar-yellow)
+(pulsar-define-pulse-with-face pulsar-blue)
+(pulsar-define-pulse-with-face pulsar-magenta)
+(pulsar-define-pulse-with-face pulsar-cyan)
 
 ; Highlight region
 

[elpa] externals/pulsar 1af423199d 10/10: Update to version 1.0.0

[ELPA Syncer]

branch: externals/pulsar
commit 1af423199df67b36d989bab1ba26ff67715f1b3b
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update to version 1.0.0
---
 CHANGELOG.org | 53 +
 README.org|  8 +++-
 pulsar.el |  2 +-
 3 files changed, 57 insertions(+), 6 deletions(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index 37912f876e..84f249167e 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -6,6 +6,59 @@
 The newest release is at the top.  For further details, please consult
 the manual: .
 
+* Version 1.0.0 on 2023-08-12
+:PROPERTIES:
+:CUSTOM_ID: h:0d09da86-29be-461e-8ef6-1e93a07b756b
+:END:
+
+- The ~next-buffer~ and ~previous-buffer~ commands are added to the
+  default value of the user option ~pulsar-pulse-functions~.  They
+  will now trigger a pulse effect after they are called (if
+  ~pulsar-mode~ is enabled in the current buffer or
+  ~pulsar-global-mode~ is in use).
+
+- The command ~pulsar-recenter-middle~ is now an alias for
+  ~pulsar-recenter-center~, instead of being the original name.  Users
+  do not need to change anything on their end: this is just an
+  internal arrangement to use a name that corresponds to the one of
+  the underlying "recenter" mechanism.
+
+- The Lisp macro that was used to derive the Pulsar "recenter"
+  commands has been removed.  The commands are ~pulsar-recenter-top~
+  and ~pulsar-recenter-center~.  I originally thought the macro would
+  be useful in more places, but I ended up relying on it only twice.
+
+  Thanks to Ryan Kaskel for pointing out an intermediate typo/error I
+  made while redefining the macro and before I decided to remove it
+  altogether.  This was done as a comment on the GitHub mirror:
+  
.
+
+- The Lisp macro ~pulsar-pulse-with-face~ is renamed to
+  ~pulsar-define-pulse-with-face~.  Its definition is updated to
+  simplify how a Pulsar function is defined with a given face.
+  Examples of such functions are ~pulsar-pulse-line-red~,
+  ~pulsar-pulse-line-blue~.
+
+- Pulsar now retrieves the absolute beginning of the minibuffer
+  prompt.  This means that a pulse in the minibuffer will cover the
+  text of the prompt, as opposed to only affecting the input area.  As
+  such, the pulse is visible even if the minibuffer is empty
+  (e.g. what happens with the default completion setup when calling
+  =M-x=).
+
+- The manual provides instructions on how to set up Pulsar to produce
+  a pulse when the minibuffer is activated.  It cannot be done with
+  the ~pulsar-pulse-functions~, though the setup is not too involved.
+  In short:
+
+  #+begin_src emacs-lisp
+  (add-hook 'minibuffer-setup-hook #'pulsar-pulse-line)
+
+  ;; OR something like this, replacing "blue" with one among red,
+  ;; green, yellow, magenta, cyan:
+  (add-hook 'minibuffer-setup-hook #'pulsar-pulse-line-blue)
+  #+end_src
+
 * Version 0.5.0 on 2022-08-19
 :PROPERTIES:
 :CUSTOM_ID: h:20bf677d-bcef-4606-8cc2-ebd49bfc057b
diff --git a/README.org b/README.org
index 79c0ba5e50..2028ac72a1 100644
--- a/README.org
+++ b/README.org
@@ -4,9 +4,9 @@
 #+language:  en
 #+options:   ':t toc:nil author:t email:t num:t
 #+startup:   content
-#+macro: stable-version 0.5.0
-#+macro: release-date 2022-08-19
-#+macro: development-version 1.0.0-dev
+#+macro: stable-version 1.0.0
+#+macro: release-date 2023-08-12
+#+macro: development-version 1.1.0-dev
 #+export_file_name:  pulsar.texi
 #+texinfo_filename:  pulsar.info
 #+texinfo_dir_category:  Emacs misc features
@@ -265,8 +265,6 @@ Pulsar-level solution that "just works":
 :CUSTOM_ID: h:8b942448-6ed3-4cb7-8e31-796a8c5011a6
 :END:
 
-[ This works as intended with changes that are part of 
{{{development-version}}}. ]
-
 Due to how the minibuffer works, the user cannot rely on the user
 option ~pulse-pulse-functions~ to automatically pulse in that context.
 Instead, the user must add a function to the ~minibuffer-setup-hook~:
diff --git a/pulsar.el b/pulsar.el
index acde93fb62..06beea12fb 100644
--- a/pulsar.el
+++ b/pulsar.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Pulsar Development <~protesilaos/pul...@lists.sr.ht>
 ;; URL: https://git.sr.ht/~protesilaos/pulsar
 ;; Mailing-List: https://lists.sr.ht/~protesilaos/pulsar
-;; Version: 0.5.0
+;; Version: 1.0.0
 ;; Package-Requires: ((emacs "27.1"))
 ;; Keywords: convenience, pulse, highlight
 

[nongnu] elpa/helm updated (5afd7a438a -> 8ca4af16d7)

[ELPA Syncer]

elpasync pushed a change to branch elpa/helm.

  from  5afd7a438a Let's file completion fns running their afix or afun fns 
if some
   new  7d40ee881d Fix package affixation fn
   new  0c8cec57b6 New function to get longest cand and use it
   new  fb4996050e Put helm-only prop on helm-ff-undo
   new  171a49ed16 Remove helm-elisp-package.el
   new  ecb1885a2f Remove references to helm-elisp-package
   new  8ca4af16d7 Declare package fns in helm-mode


Summary of changes:
 helm-command.el |   3 +-
 helm-core.el|   8 +
 helm-easymenu.el|   3 -
 helm-elisp-package.el   | 486 
 helm-elisp.el   |   3 +-
 helm-files.el   |   1 +
 helm-global-bindings.el |   1 -
 helm-help.el|  61 --
 helm-mode.el|  27 ++-
 9 files changed, 22 insertions(+), 571 deletions(-)
 delete mode 100644 helm-elisp-package.el

[nongnu] elpa/helm 0c8cec57b6 2/6: New function to get longest cand and use it

[ELPA Syncer]

branch: elpa/helm
commit 0c8cec57b64e31661df75676d1e96dc7c28d6938
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

New function to get longest cand and use it
---
 helm-command.el |  3 +--
 helm-core.el|  8 
 helm-elisp.el   |  3 +--
 helm-mode.el| 16 +++-
 4 files changed, 13 insertions(+), 17 deletions(-)

diff --git a/helm-command.el b/helm-command.el
index f0e922f379..c5bb1bf34e 100644
--- a/helm-command.el
+++ b/helm-command.el
@@ -135,8 +135,7 @@ fuzzy matching is running its own sort function with a 
different
 algorithm."
   (with-helm-current-buffer
 (cl-loop with max-len = (when helm-M-x-show-short-doc
-  (buffer-local-value 
'helm-candidate-buffer-longest-len
-  (get-buffer 
(helm-candidate-buffer
+  (helm-in-buffer-get-longest-candidate))
  with local-map = (helm-M-x-current-mode-map-alist)
  for cand in candidates
  for local-key  = (car (rassq cand local-map))
diff --git a/helm-core.el b/helm-core.el
index 0e1d858cc8..a701102588 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -6848,6 +6848,14 @@ It is a local variable set from 
`helm-init-candidates-in-buffer' in
 Allow getting the longest length of initial candidates in transformers
 without looping again through the whole list.")
 
+(defsubst helm-in-buffer-get-longest-candidate ()
+  "Return the longest candidate recorded in `helm-candidate-buffer'."
+  (helm-aif (helm-candidate-buffer)
+  (buffer-local-value
+   'helm-candidate-buffer-longest-len
+   (get-buffer it))
+0))
+
 (defun helm-init-candidates-in-buffer (buffer-spec data)
   "Register BUFFER-SPEC with DATA for a helm candidates-in-buffer session.
 
diff --git a/helm-elisp.el b/helm-elisp.el
index 9285f82658..3350e5fbd4 100644
--- a/helm-elisp.el
+++ b/helm-elisp.el
@@ -540,8 +540,7 @@ is only used to test DEFAULT."
 
 (defun helm-apropos-short-doc-transformer (candidates _source)
   (if helm-apropos-show-short-doc
-  (cl-loop with max-len = (buffer-local-value 
'helm-candidate-buffer-longest-len
-  (get-buffer 
(helm-candidate-buffer)))
+  (cl-loop with max-len = (helm-in-buffer-get-longest-candidate)
for cand in candidates
for doc = (helm-get-first-line-documentation (intern-soft cand))
collect (cons (format "%s%s%s"
diff --git a/helm-mode.el b/helm-mode.el
index 84c796447f..db4a671fbb 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -1021,9 +1021,7 @@ command.  The command should be specified as a string and 
the category as a symb
  (propertize
   (symbol-name major-mode) 'face 'font-lock-warning-face)))
  (size (helm-buffer-size buf))
- (len (buffer-local-value
-   'helm-candidate-buffer-longest-len
-   (helm-candidate-buffer)))
+ (len (helm-in-buffer-get-longest-candidate))
  (suffix (format "%s%s%s%s%s(in %s)"
  (make-string (1+ (- len (length comp))) ? )
  (propertize size
@@ -1070,13 +1068,7 @@ is used."
;; style and a candidate buffer remains (with its local vars
;; still available).
(max-len (and (memq helm-completion-style '(helm helm-fuzzy))
- (buffer-local-value
-  'helm-candidate-buffer-longest-len
-  (get-buffer (or (helm-candidate-buffer)
-  ;; Return 0 in this case and don't
-  ;; fail with a nil arg with
-  ;; get-buffer.
-  helm-buffer)
+ (helm-in-buffer-get-longest-candidate)))
(sep (if (or (null max-len) (zerop max-len))
 " --"   ; Default separator.
   (make-string (- max-len (length comp)) ? )))
@@ -1114,9 +1106,7 @@ is used."
 (let* ((sym (intern-soft comp))
(desc (helm-aand (package-get-descriptor sym)
 (package-desc-summary it)))
-   (sep (make-string (1+ (- (buffer-local-value
- 'helm-candidate-buffer-longest-len
- (get-buffer (helm-candidate-buffer)))
+   (sep (make-string (1+ (- (helm-in-buffer-get-longest-candidate)
 (length comp)))
  ? )))
   (list comp

[nongnu] elpa/helm 7d40ee881d 1/6: Fix package affixation fn

[ELPA Syncer]

branch: elpa/helm
commit 7d40ee881df481550399460e1dfe3fd6777b8de9
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Fix package affixation fn
---
 helm-mode.el | 9 ++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/helm-mode.el b/helm-mode.el
index 1ff3758a19..84c796447f 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -1112,7 +1112,8 @@ is used."
 (defun helm-completion-package-affix (_completions)
   (lambda (comp)
 (let* ((sym (intern-soft comp))
-   (desc (package-desc-summary (package-get-descriptor sym)))
+   (desc (helm-aand (package-get-descriptor sym)
+(package-desc-summary it)))
(sep (make-string (1+ (- (buffer-local-value
  'helm-candidate-buffer-longest-len
  (get-buffer (helm-candidate-buffer)))
@@ -1120,8 +1121,10 @@ is used."
  ? )))
   (list comp
 ""
-(helm-aand (propertize (concat sep desc) 'face 
'font-lock-warning-face)
-   (propertize " " 'display it))
+(or (helm-aand desc
+   (propertize (concat sep it) 'face 
'font-lock-warning-face)
+   (propertize " " 'display it))
+"")
 
 ;;; Generic completing read
 ;;

[nongnu] elpa/helm 8ca4af16d7 6/6: Declare package fns in helm-mode

[ELPA Syncer]

branch: elpa/helm
commit 8ca4af16d7f8b79f667a3d1f2259eb5cc4a24886
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Declare package fns in helm-mode
---
 helm-mode.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/helm-mode.el b/helm-mode.el
index db4a671fbb..a0da4be59a 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -39,6 +39,8 @@
 (declare-function helm-lisp-completion-persistent-help "helm-elisp")
 (declare-function help--symbol-class "help-fns.el")
 (declare-function helm-get-first-line-documentation "helm-elisp")
+(declare-function package-desc-summary   "package")
+(declare-function package-get-descriptor "package")
 
 (defgroup helm-mode nil
   "Enable helm completion."

[nongnu] elpa/helm ecb1885a2f 5/6: Remove references to helm-elisp-package

[ELPA Syncer]

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

Remove references to helm-elisp-package
---
 helm-easymenu.el|  3 ---
 helm-global-bindings.el |  1 -
 helm-help.el| 61 -
 3 files changed, 65 deletions(-)

diff --git a/helm-easymenu.el b/helm-easymenu.el
index 690c1c1df8..a4f134ece7 100644
--- a/helm-easymenu.el
+++ b/helm-easymenu.el
@@ -47,9 +47,6 @@
 ["Emacs Manual index" helm-info-emacs t]
 ["Gnus Manual index" helm-info-gnus t]
 ["Helm documentation" helm-documentation t])
-   ("Elpa"
-["Elisp packages" helm-list-elisp-packages t]
-["Elisp packages no fetch" helm-list-elisp-packages-no-fetch t])
("Tools"
 ["Occur" helm-occur t]
 ["Grep current directory with AG" helm-do-grep-ag t]
diff --git a/helm-global-bindings.el b/helm-global-bindings.el
index c52a90294a..f13456ea4a 100644
--- a/helm-global-bindings.el
+++ b/helm-global-bindings.el
@@ -83,7 +83,6 @@ Using `setq' to modify this variable will have no effect."
 (define-key map (kbd "C-c C-x")   'helm-run-external-command)
 (define-key map (kbd "b") 'helm-resume)
 (define-key map (kbd "M-g i") 'helm-gid)
-(define-key map (kbd "@") 'helm-list-elisp-packages)
 map)
   "Default keymap for \\[helm-command-prefix] commands.
 The normal global definition of the character \\[helm-command-prefix] 
indirects to this keymap.")
diff --git a/helm-help.el b/helm-help.el
index d0e3cda9a7..825174d8f5 100644
--- a/helm-help.el
+++ b/helm-help.el
@@ -44,7 +44,6 @@
  helm-buffers-ido-virtual-help-message
  helm-moccur-help-message
  helm-top-help-message
- helm-el-package-help-message
  helm-M-x-help-message
  helm-imenu-help-message
  helm-colors-help-message
@@ -2261,66 +2260,6 @@ See [[Moving in `helm-buffer'][Moving in `helm-buffer']].
 |\\[helm-top-run-sort-by-user]|Sort alphabetically by user.
 |\\[helm-top-run-sort-by-mem]|Sort by memory.")
 
-;;; Helm Elisp package
-;;
-;;
-(defvar helm-el-package-help-message
-  "* Helm Elisp package
-
-** Tips
-
-*** Compile all your packages asynchronously
-
-If you use async (if you have installed Helm from MELPA you do), only \"helm\",
-\"helm-core\", and \"magit\" are compiled asynchronously.  If you want all your
-packages compiled asynchronously, add this to your init file:
-
- (setq async-bytecomp-allowed-packages '(all))
-
-*** Upgrade Elisp packages
-
-On initialization (when Emacs is fetching packages on remote), if Helm finds
-packages to upgrade, it will start in the upgradable packages view showing the 
packages
-available for upgrade.
-
-On subsequent runs, you will have to refresh the list with `C-c 
\\[universal-argument]'.  If Helm
-finds upgrades you can switch to upgrade view (see below) to see what packages
-are available for upgrade or simply hit `C-c U' to upgrade them all.
-
-To see upgradable packages hit `M-U'.
-
-Then you can install all upgradable packages with the \"upgrade all\" action
-\(`C-c \\[universal-argument]'), or upgrade only specific packages by marking 
them and running the
-\"upgrade\" action (visible only when there are upgradable packages).  Of 
course
-you can upgrade a single package by just running the \"upgrade\" action without
-marking it (`C-c u' or `RET') .
-
-\*Warning:* You are strongly advised to \*restart* Emacs after \*upgrading* 
packages.
-
-*** Meaning of flags prefixing packages
-
-\(Emacs ≥25)
-
-- The flag \"S\" that prefixes package names means that the packages belong to 
`package-selected-packages'.
-
-- The flag \"U\" that prefix package names mean that this package is no more 
needed.
-
-** Commands
-\\
-|Keys|Description
-|---+--|
-|\\[helm-el-package-show-all]|Show all packages.
-|\\[helm-el-package-show-installed]|Show installed packages only.
-|\\[helm-el-package-show-uninstalled]|Show non-installed packages only.
-|\\[helm-el-package-show-upgrade]|Show upgradable packages only.
-|\\[helm-el-package-show-built-in]|Show built-in packages only.
-|\\[helm-el-run-package-install]|Install package(s).
-|\\[helm-el-run-package-reinstall]|Reinstall package(s).
-|\\[helm-el-run-package-uninstall]|Uninstall package(s).
-|\\[helm-el-run-package-upgrade]|Upgrade package(s).
-|\\[helm-el-run-package-upgrade-all]|Upgrade all packages.
-|\\[helm-el-run-visit-homepage]|Visit package homepage.")
-
 ;;; Helm M-x
 ;;
 ;;

[nongnu] elpa/helm-core updated (5afd7a438a -> 8ca4af16d7)

[ELPA Syncer]

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

  from  5afd7a438a Let's file completion fns running their afix or afun fns 
if some
  adds  7d40ee881d Fix package affixation fn
  adds  0c8cec57b6 New function to get longest cand and use it
  adds  fb4996050e Put helm-only prop on helm-ff-undo
  adds  171a49ed16 Remove helm-elisp-package.el
  adds  ecb1885a2f Remove references to helm-elisp-package
  adds  8ca4af16d7 Declare package fns in helm-mode

No new revisions were added by this update.

Summary of changes:
 helm-command.el |   3 +-
 helm-core.el|   8 +
 helm-easymenu.el|   3 -
 helm-elisp-package.el   | 486 
 helm-elisp.el   |   3 +-
 helm-files.el   |   1 +
 helm-global-bindings.el |   1 -
 helm-help.el|  61 --
 helm-mode.el|  27 ++-
 9 files changed, 22 insertions(+), 571 deletions(-)
 delete mode 100644 helm-elisp-package.el

[nongnu] elpa/helm fb4996050e 3/6: Put helm-only prop on helm-ff-undo

[ELPA Syncer]

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

Put helm-only prop on helm-ff-undo
---
 helm-files.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/helm-files.el b/helm-files.el
index c55ff06dab..c069a213a9 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -2921,6 +2921,7 @@ Ensure disabling `helm-ff-auto-update-flag' before 
undoing."
   (helm-check-minibuffer-input))
   (setq helm-ff-auto-update-flag old--flag)
   (setq helm-ff--auto-update-state helm-ff-auto-update-flag
+(put 'helm-ff-undo 'helm-only t)
 
 ;;; Auto-update - helm-find-files auto expansion of directories.
 ;;

[nongnu] elpa/helm 171a49ed16 4/6: Remove helm-elisp-package.el

[ELPA Syncer]

branch: elpa/helm
commit 171a49ed16a22d7d774068864f7e4cd55e8b6a57
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Remove helm-elisp-package.el

Move it to emacs-helm organization.
---
 helm-elisp-package.el | 486 --
 1 file changed, 486 deletions(-)

diff --git a/helm-elisp-package.el b/helm-elisp-package.el
deleted file mode 100644
index 01f531eddf..00
--- a/helm-elisp-package.el
+++ /dev/null
@@ -1,486 +0,0 @@
-;;; helm-elisp-package.el --- helm interface for package.el -*- 
lexical-binding: t -*-
-
-;; Copyright (C) 2012 ~ 2023 Thierry Volpiatto 
-
-;; 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 .
-
-;;; Code:
-(require 'cl-lib)
-(require 'helm)
-(require 'helm-help)
-(require 'package)
-
-(defgroup helm-el-package nil
-  "helm elisp packages."
-  :group 'helm)
-
-(defcustom helm-el-package-initial-filter 'all
-  "Show only installed, upgraded or all packages at startup."
-  :type '(radio :tag "Initial filter for elisp packages"
-  (const :tag "Show all packages" all)
-  (const :tag "Show installed packages" installed)
-  (const :tag "Show not installed packages" uninstalled)
-  (const :tag "Show upgradable packages" upgrade)))
-
-(defcustom helm-el-truncate-lines t
-  "Truncate lines in `helm-buffer' when non-nil."
-  :type 'boolean)
-
-
-(defcustom helm-el-package-upgrade-on-start nil
-  "Show package upgrades on startup when non nil."
-  :type 'boolean)
-
-(defcustom helm-el-package-autoremove-on-start nil
-  "Try to autoremove no more needed packages on startup.
-See `package-autoremove'."
-  :type 'boolean)
-
-;; internals vars
-(defvar helm-el-package--show-only 'all)
-(defvar helm-el-package--initialized-p nil)
-(defvar helm-el-package--tabulated-list nil)
-(defvar helm-el-package--upgrades nil)
-(defvar helm-el-package--removable-packages nil)
-
-;; Shutup bytecompiler for emacs-24*
-(defvar package-menu-async) ; Only available on emacs-25.
-(defvar helm-marked-buffer-name)
-(declare-function async-byte-recompile-directory "ext:async-bytecomp.el")
-(declare-function with-helm-display-marked-candidates "helm-utils.el")
-
-
-(defun helm-el-package--init ()
-  ;; In emacs-27 package-show-package-list returns an empty buffer
-  ;; until package-initialize have been called.
-  (unless (or package--initialized
-  (null (boundp 'package-quickstart)))
-(package-initialize))
-  (let (package-menu-async
-(inhibit-read-only t))
-(when (null package-alist)
-  (setq helm-el-package--show-only 'all))
-(unless (consp package-selected-packages)
-  (helm-aif (package--find-non-dependencies)
-  (setq package-selected-packages it)))
-(when (and (setq helm-el-package--removable-packages
- (package--removable-packages))
-   helm-el-package-autoremove-on-start)
-  (package-autoremove))
-(unwind-protect
- (progn
-   (save-selected-window
- (if helm-el-package--initialized-p
- ;; Use this as `list-packages' doesn't work
- ;; properly (empty buffer) when called from lisp
- ;; with 'no-fetch (emacs-25 WA).
- (package-show-package-list)
-   (when helm--force-updating-p (message "Refreshing packages 
list..."))
-   (list-packages helm-el-package--initialized-p))
- (setq helm-el-package--initialized-p t)
- (message nil))
-   (helm-init-candidates-in-buffer
-   'global
- (with-current-buffer (get-buffer "*Packages*")
-   (setq helm-el-package--tabulated-list tabulated-list-entries)
-   (remove-text-properties (point-min) (point-max)
-   '(read-only button follow-link 
category))
-   (goto-char (point-min))
-   (while (re-search-forward "^[ \t]+" nil t)
- (replace-match ""))
-   (buffer-string)))
-   (setq helm-el-package--upgrades 
(helm-el-package-menu--find-upgrades))
-   (if helm--force-updating-p
-   (if helm-el-package--upgrades
-   (message "Refreshing packages list done, [%d] package(s) to 
upgrade"
-(length helm-el-package--upgrades))
- (message "Refreshing package

[elpa] externals/org updated (2f79c63c2c -> 70a082c9fb)

[ELPA Syncer]

elpasync pushed a change to branch externals/org.

  from  2f79c63c2c org-macs.el: Fix Emacs-26 compatibility
   new  68aa438857 ob-sqlite: Use a transient in-memory database by default
   new  b5aaefb551 org-babel-variable-assignments:eshell: Prevent leaking 
values into results
   new  051c929d65 * mk/default.mk: Enable ob-sqlite and ob-eshell tests by 
default
   new  70a082c9fb org-babel-expand-src-block: Mention all the header 
arguments in the docstring


Summary of changes:
 etc/ORG-NEWS   |  8 
 lisp/ob-core.el|  5 -
 lisp/ob-eshell.el  |  3 ++-
 lisp/ob-sqlite.el  |  3 +--
 mk/default.mk  |  2 +-
 testing/lisp/test-ob-sqlite.el | 36 ++--
 6 files changed, 50 insertions(+), 7 deletions(-)

[elpa] externals/org b5aaefb551 2/4: org-babel-variable-assignments:eshell: Prevent leaking values into results

[ELPA Syncer]

branch: externals/org
commit b5aaefb5517eba83ebe6fcde0d2fa580a9d1e449
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

org-babel-variable-assignments:eshell: Prevent leaking values into results

* lisp/ob-eshell.el (org-babel-variable-assignments:eshell): Wrap
`setq' eshell call into `ignore' to prevent the variable assignment
values leaking into block output.  Fixes
`ob-eshell/variables-assignment'.
---
 lisp/ob-eshell.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/ob-eshell.el b/lisp/ob-eshell.el
index 95f5777ae7..fa19f874a2 100644
--- a/lisp/ob-eshell.el
+++ b/lisp/ob-eshell.el
@@ -97,7 +97,8 @@ The PARAMS are variables assignments."
   "Convert ob-eshell :var specified variables into Eshell variables 
assignments."
   (mapcar
(lambda (pair)
- (format "(setq %s %S)" (car pair) (cdr pair)))
+ ;; Use `ignore' to suppress value in the command output.
+ (format "(ignore (setq %s %S))" (car pair) (cdr pair)))
(org-babel--get-vars params)))
 
 (defun org-babel-load-session:eshell (session body params)

[elpa] externals/org 70a082c9fb 4/4: org-babel-expand-src-block: Mention all the header arguments in the docstring

[ELPA Syncer]

branch: externals/org
commit 70a082c9fbf6fd7d05fb56b26c6f2039b8edd478
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

org-babel-expand-src-block: Mention all the header arguments in the 
docstring

* lisp/ob-core.el (org-babel-expand-src-block): Explain all the header
arguments in the docstring.
---
 lisp/ob-core.el | 5 -
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/ob-core.el b/lisp/ob-core.el
index 24f33bbca9..88ae0ec425 100644
--- a/lisp/ob-core.el
+++ b/lisp/ob-core.el
@@ -936,7 +936,10 @@ lines will be added after `:prologue' parameter and before 
BODY."
 
 ;;;###autoload
 (defun org-babel-expand-src-block (&optional _arg info params)
-  "Expand the current source code block.
+  "Expand the current source code block or block specified by INFO.
+INFO is the output of `org-babel-get-src-block-info'.
+PARAMS defines inherited header arguments.
+
 Expand according to the source code block's header
 arguments and pop open the results in a preview buffer."
   (interactive)

[elpa] externals/org 68aa438857 1/4: ob-sqlite: Use a transient in-memory database by default

[ELPA Syncer]

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

ob-sqlite: Use a transient in-memory database by default

* etc/ORG-NEWS (New features): Add a news entry.
* lisp/ob-sqlite.el (org-babel-execute:sqlite): Default ':db' to
":memory:" instead of throwing an error.
* testing/lisp/test-ob-sqlite.el (ob-sqlite/in-file): Test the old behavior.
* testing/lisp/test-ob-sqlite.el (ob-sqlite/in-memory): Test the new 
behavior.
---
 etc/ORG-NEWS   |  8 
 lisp/ob-sqlite.el  |  3 +--
 testing/lisp/test-ob-sqlite.el | 36 ++--
 3 files changed, 43 insertions(+), 4 deletions(-)

diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS
index f8c50d541f..1dc0a4519c 100644
--- a/etc/ORG-NEWS
+++ b/etc/ORG-NEWS
@@ -492,6 +492,14 @@ Final hooks are added to the following commands:
 
 The prefix arguments are passed to ~org-insert-todo-heading~.
 
+*** Make ~ob-sqlite~ use in-memory databases by default
+
+~sqlite~ source blocks with no ~:db~ header argument now make SQLite
+use a temporary in-memory database instead of throwing an error,
+matching the behavior of the official ~sqlite3~ shell.  As a result,
+~sqlite~ source blocks are now usable out of the box, that is with no
+header arguments.
+
 *** Add support for ~logind~ idle time in ~org-user-idle-seconds~
 
 When Emacs is built with =dbus= support and
diff --git a/lisp/ob-sqlite.el b/lisp/ob-sqlite.el
index 526b73ebd9..7510e5158c 100644
--- a/lisp/ob-sqlite.el
+++ b/lisp/ob-sqlite.el
@@ -74,7 +74,6 @@ This function is called by `org-babel-execute-src-block'."
   (lambda (arg) (car (assq arg params)))
   (list :header :echo :bail :column
 :csv :html :line :list)
-(unless db (error "ob-sqlite: can't evaluate without a database"))
 (with-temp-buffer
   (insert
(org-babel-eval
@@ -97,7 +96,7 @@ This function is called by `org-babel-execute-src-block'."
  (member :html others) separator)
  ""
"-csv"))
- (cons "db " db)))
+  (cons "db" (or db ""
;; body of the code block
(org-babel-expand-body:sqlite body params)))
   (org-babel-result-cond result-params
diff --git a/testing/lisp/test-ob-sqlite.el b/testing/lisp/test-ob-sqlite.el
index 72d75c9b71..621a11b0b8 100644
--- a/testing/lisp/test-ob-sqlite.el
+++ b/testing/lisp/test-ob-sqlite.el
@@ -39,8 +39,40 @@
   .import $tb TestTable
   select * from TestTable;
 #+end_src"
-   (org-babel-next-src-block)
-   (org-babel-execute-src-block)
+  (org-babel-next-src-block)
+  (org-babel-execute-src-block)
+
+(ert-deftest ob-sqlite/in-memory ()
+  "Test in-memory temporariness."
+  (should
+   (equal 0
+  (progn
+(org-test-with-temp-text
+"#+BEGIN_SRC sqlite
+PRAGMA user_version = 1;
+#+END_SRC"
+(org-babel-execute-src-block))
+(org-test-with-temp-text
+"#+BEGIN_SRC sqlite
+PRAGMA user_version;
+#+END_SRC"
+(org-babel-execute-src-block))
+
+(ert-deftest ob-sqlite/in-file ()
+  "Test in-file permanency."
+  (should
+   (equal 1
+  (let ((file (org-babel-temp-file "test" ".sqlite")))
+(org-test-with-temp-text
+(format "#+BEGIN_SRC sqlite :db %s
+PRAGMA user_version = 1;
+#+END_SRC" file)
+(org-babel-execute-src-block))
+(org-test-with-temp-text
+(format "#+BEGIN_SRC sqlite :db %s
+PRAGMA user_version;
+#+END_SRC" file)
+(org-babel-execute-src-block))
 
 (provide 'test-ob-sqlite)
 ;;; test-ob-sqlite.el ends here

[elpa] externals/org 051c929d65 3/4: * mk/default.mk: Enable ob-sqlite and ob-eshell tests by default

[ELPA Syncer]

branch: externals/org
commit 051c929d65269d53699720276db9c67c6b050836
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

* mk/default.mk: Enable ob-sqlite and ob-eshell tests by default

(BTEST_OB_LANGUAGES): Add more tests to be executed by default.
---
 mk/default.mk | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mk/default.mk b/mk/default.mk
index fa46661e84..13c5a56ed8 100644
--- a/mk/default.mk
+++ b/mk/default.mk
@@ -53,7 +53,7 @@ BTEST_POST  =
   # -L /ert  # needed for Emacs23, Emacs24 has ert 
built in
   # -L /ess  # needed for running R tests
   # -L /htmlize  # need at least version 1.34 for source 
code formatting
-BTEST_OB_LANGUAGES = awk C fortran maxima lilypond octave perl python java
+BTEST_OB_LANGUAGES = awk C fortran maxima lilypond octave perl python java 
sqlite eshell
   # R # requires ESS to be installed and 
configured
   # ruby  # requires inf-ruby to be installed and 
configured
 # extra packages to require for testing

[nongnu] elpa/evil 3d7faadf30 1/3: (evil-with-delay): New macro, extracted from `evil-delay`

[ELPA Syncer]

branch: elpa/evil
commit 3d7faadf30016a8c20699a5fb1b5731b8a49dcd2
Author: Stefan Monnier 
Commit: Axel Forsman 

(evil-with-delay): New macro, extracted from `evil-delay`

Save some kittens by using a macro instead of using `eval`.
This also exposes more code to the compiler, so should result in
more efficient code and potentially better compiler warnings.

* evil-common.el (evil-unquote): Delete unused function.
(evil--with-delay): New function, extracted from `evil-delay`.
(evil-with-delay): New macro, extracted from `evil-delay`.
(evil-delay): Redefine using `evil-with-delay` and declare obsolete.

* evil-states.el (evil-visual-activate-hook):
* evil-core.el (evil-define-key):
* evil-commands.el (evil-execute-in-normal-state): Use `evil-with-delay`.
---
 evil-commands.el | 68 +---
 evil-common.el   | 50 -
 evil-core.el | 38 ++-
 evil-states.el   | 21 +
 4 files changed, 97 insertions(+), 80 deletions(-)

diff --git a/evil-commands.el b/evil-commands.el
index 8e4de2be07..8d3db3db7d 100644
--- a/evil-commands.el
+++ b/evil-commands.el
@@ -5116,39 +5116,41 @@ Restore the disabled repeat hooks on insert-state exit."
 (defun evil-execute-in-normal-state ()
   "Execute the next command in Normal state."
   (interactive)
-  (evil-delay '(not (memq this-command
-  '(nil
-evil-execute-in-normal-state
-evil-replace-state
-evil-use-register
-digit-argument
-negative-argument
-universal-argument
-universal-argument-minus
-universal-argument-more
-universal-argument-other-key)))
-  `(with-current-buffer ,(current-buffer)
- ;; If cursor was after EOL before CTRL-O and is now at EOL,
- ;; put it after EOL.
- (and (or (when evil--execute-normal-eol-pos
-(= (1+ (point)) (save-excursion
-  (goto-char evil--execute-normal-eol-pos)
-  (set-marker evil--execute-normal-eol-pos 
nil)
-  (line-end-position
-  (and (eq (or goal-column temporary-goal-column) 
most-positive-fixnum)
-   (memq this-command '(next-line previous-line
-  (not (eolp))
-  (not (memq this-command
- '(evil-insert evil-beginning-of-line 
evil-first-non-blank)))
-  (forward-char))
- (unless (memq evil-state '(replace insert))
-   (evil-change-state ',evil-state))
- (when (eq 'insert evil-state)
-   (remove-hook 'pre-command-hook #'evil-repeat-pre-hook)
-   (remove-hook 'post-command-hook #'evil-repeat-post-hook)
-   (add-hook 'evil-insert-state-exit-hook 
#'evil--restore-repeat-hooks))
- (setq evil-execute-normal-keys nil))
-'post-command-hook)
+  (let ((buf (current-buffer))
+(state evil-state))
+(evil-with-delay (not (memq this-command
+'(nil
+  evil-execute-in-normal-state
+  evil-replace-state
+  evil-use-register
+  digit-argument
+  negative-argument
+  universal-argument
+  universal-argument-minus
+  universal-argument-more
+  universal-argument-other-key)))
+post-command-hook
+  (with-current-buffer buf
+;; If cursor was after EOL before CTRL-O and is now at EOL,
+;; put it after EOL.
+(and (or (when evil--execute-normal-eol-pos
+   (= (1+ (point)) (save-excursion
+ (goto-char evil--execute-normal-eol-pos)
+ (set-marker evil--execute-normal-eol-pos 
nil)
+ (line-end-position
+ (and (eq (or goal-column temporary-goal-column) 
most-positive-fixnum)
+  (memq this-command '(next-line previous-line
+ (not (eolp))
+ (not (memq this-command
+'(evil-insert evil-beginning-of-line 
evil-first-non-blank)))
+ (forward-char))
+(unless (memq evil-state '(replace insert))
+  (evil-change-state state))
+(when (eq 'insert evil-state)
+  (remove-hook 'pre-command-hook #'evil-repeat-pre-hook)
+  (remove-hook 'post-command-hook #'evil-repeat-post-hook)
+  (add

[nongnu] elpa/evil updated (5e72cf5b6d -> b291039b0c)

[ELPA Syncer]

elpasync pushed a change to branch elpa/evil.

  from  5e72cf5b6d Make evil-search-wrap-ring-bell work with evil-search
   new  3d7faadf30 (evil-with-delay): New macro, extracted from `evil-delay`
   new  1b56ffcc10 Merge evil-with-delay condition and body lambdas
   new  b291039b0c Misc minor changes


Summary of changes:
 README.md|  9 +++
 evil-commands.el | 73 ++--
 evil-common.el   | 47 
 evil-core.el | 33 +
 evil-macros.el   |  4 ++--
 evil-states.el   | 21 
 evil-tests.el|  4 
 evil.el  |  2 +-
 8 files changed, 103 insertions(+), 90 deletions(-)

[nongnu] elpa/evil 1b56ffcc10 2/3: Merge evil-with-delay condition and body lambdas

[ELPA Syncer]

branch: elpa/evil
commit 1b56ffcc102b4c5f8b015e760b5f9cf5932622af
Author: Axel Forsman 
Commit: Axel Forsman 

Merge evil-with-delay condition and body lambdas

This commit makes evil-with-delay generated code work using a single
lambda that returns the result of condition, running body if non-nil.
This way the byte compiler sees that body is guarded by condition,
which fixes the FIXME.
---
 evil-common.el | 33 ++---
 evil-core.el   | 17 +
 2 files changed, 19 insertions(+), 31 deletions(-)

diff --git a/evil-common.el b/evil-common.el
index 16ab56f9c6..9af0863260 100644
--- a/evil-common.el
+++ b/evil-common.el
@@ -47,19 +47,6 @@
 (defalias 'evil-set-selection
   (if (fboundp 'gui-set-selection) 'gui-set-selection 'x-set-selection))
 
-;; macro helper
-(defun evil--with-delay (cond-fun body-fun hook &optional append local name)
-  (if (and cond-fun (funcall cond-fun))
-  (funcall body-fun)
-(let* ((name (or name (format "evil-delay-in-%s" hook)))
-   (fun (make-symbol name)))
-  (fset fun (lambda (&rest _)
-  (when (or (null cond-fun) (funcall cond-fun))
-(remove-hook hook fun local)
-(funcall body-fun
-  (put fun 'permanent-local-hook t)
-  (add-hook hook fun append local
-
 (defmacro evil-with-delay (condition hook &rest body)
   "Execute BODY when CONDITION becomes true, checking with HOOK.
 HOOK can be a simple symbol or of the form (HOOK APPEND LOCAL NAME)
@@ -68,12 +55,20 @@ NAME specifies the name of the entry added to HOOK.
 If APPEND is non-nil, the entry is appended to the hook.
 If LOCAL is non-nil, the buffer-local value of HOOK is modified."
   (declare (debug (form sexp body)) (indent 2))
-  (unless (consp hook) (setq hook (list hook)))
-  ;; FIXME: Now the compiler doesn't know that `body' is only run if 
`condition'
-  ;; is true, so we get spurious warnings! :-(
-  `(evil--with-delay ,(when condition `(lambda () ,condition))
- (lambda () ,@body)
- ,@(mapcar #'macroexp-quote hook)))
+  (cl-destructuring-bind (hook-sym &optional append local name)
+  (mapcar #'macroexp-quote (if (consp hook) hook (list hook)))
+(macroexp-let2* nil
+((fun-name `',(make-symbol
+   (or name (format "evil-delay-in-%s" hook-sym
+ (fun `(lambda (&rest _)
+ (when ,(or condition t)
+   (remove-hook ,hook-sym ,fun-name ,local)
+   ,@body
+   t
+  `(unless ,(and condition `(funcall ,fun))
+ (progn (fset ,fun-name ,fun)
+,@(when local `((put ,fun-name 'permanent-local-hook t)))
+(add-hook ,hook-sym ,fun-name ,append ,local))
 
 (defun evil-delay (condition form hook &optional append local name)
   "Execute FORM when CONDITION becomes true, checking with HOOK.
diff --git a/evil-core.el b/evil-core.el
index 1b0dcc739d..2f9a57568c 100644
--- a/evil-core.el
+++ b/evil-core.el
@@ -980,18 +980,11 @@ mode, in which case `evil-define-minor-mode-key' is used."
  ;; BEWARE: Can't work for lexically scoped vars
  `(and (boundp ',keymap) (keymapp ,keymap))
`(keymapp ,keymap))
-   (after-load-functions t nil
- ,(format "evil-define-key-in-%s"
-  (if (symbolp keymap) keymap
-'keymap)))
- ;; Sadly, the compiler doesn't understand `evil-with-delay's
- ;; code well enough to figure out that the keymap var is
- ;; necessarily bound since we just tested `boundp'.
- ,(when (symbolp keymap) `(defvar ,keymap))
- (condition-case-unless-debug err
- (evil-define-key* ,state ,keymap ,key ,def ,@bindings)
-   (error (message "error in evil-define-key: %s"
-   (error-message-string err
+   (after-load-functions
+t nil ,(format "evil-define-key-in-%s"
+   (if (symbolp keymap) keymap 'keymap)))
+ (with-demoted-errors "Error in evil-define-key: %S"
+   (evil-define-key* ,state ,keymap ,key ,def ,@bindings))
 (defalias 'evil-declare-key #'evil-define-key)
 
 (defun evil-define-key* (state keymap key def &rest bindings)

[nongnu] elpa/evil b291039b0c 3/3: Misc minor changes

[ELPA Syncer]

branch: elpa/evil
commit b291039b0c6ffc3b2f3c9f02b8ad2f0041127b12
Author: Stefan Monnier 
Commit: Axel Forsman 

Misc minor changes

* README.md: Mention that `undo-fu` is also in NonGNU ELPA and update
its repository URL.
* evil.el: Update the undo-fu repository URL.
* evil-macros.el (evil-define-interactive-code): Move the insertion of
quote around `func` to the `cond` so the `quote` is not incorrectly
added around lambda forms.
* evil-tests.el: Add a FIXME.
* evil-commands.el (evil-save-side-windows): Silence spurious warning.
---
 README.md| 9 +
 evil-commands.el | 5 -
 evil-core.el | 2 +-
 evil-macros.el   | 4 ++--
 evil-tests.el| 4 
 evil.el  | 2 +-
 6 files changed, 17 insertions(+), 9 deletions(-)

diff --git a/README.md b/README.md
index 198b18317c..02215faf2a 100644
--- a/README.md
+++ b/README.md
@@ -44,10 +44,8 @@ file.
 
 * Evil requires any of the following for `C-r`:
   * `undo-redo` from Emacs 28
-  * The [undo-tree](https://gitlab.com/tsc25/undo-tree) package
-(available via GNU ELPA)
-  * The [undo-fu](https://gitlab.com/ideasman42/emacs-undo-fu) package
-(available via MELPA)
+  * The [undo-tree] package (available via GNU ELPA)
+  * The [undo-fu] package (available via MELPA and NonGNU ELPA)
 
 * For the motions `g;` `g,` and for the last-change-register `.`, Evil
   requires the [goto-chg.el](https://github.com/emacs-evil/goto-chg)
@@ -80,3 +78,6 @@ Visit us on `irc.libera.chat #evil-mode`.
 See
 
[CONTRIBUTING.md](https://github.com/emacs-evil/evil/blob/master/CONTRIBUTING.md)
 for guidelines for issues and pull requests.
+
+[undo-tree]: https://gitlab.com/tsc25/undo-tree
+[undo-fu]: https://codeberg.org/ideasman42/emacs-undo-fu
diff --git a/evil-commands.el b/evil-commands.el
index 8d3db3db7d..40a01320e5 100644
--- a/evil-commands.el
+++ b/evil-commands.el
@@ -4451,8 +4451,11 @@ The \"!\" argument means to sort in reverse order."
   "Toggle side windows, evaluate BODY, restore side windows."
   (declare (indent defun) (debug (&rest form)))
   (let ((sides (make-symbol "sidesvar")))
-`(let ((,sides (and (functionp 'window-toggle-side-windows)
+`(let ((,sides (and (fboundp 'window-toggle-side-windows)
 (window-with-parameter 'window-side
+   ;; The compiler doesn't understand that all uses are protected
+   ;; by `fboundp' :-(
+   (declare-function window-toggle-side-windows "window")
(when ,sides
  (window-toggle-side-windows))
(unwind-protect
diff --git a/evil-core.el b/evil-core.el
index 2f9a57568c..22b665406a 100644
--- a/evil-core.el
+++ b/evil-core.el
@@ -127,7 +127,7 @@
 (add-hook 'input-method-activate-hook #'evil-activate-input-method t t)
 (add-hook 'input-method-deactivate-hook #'evil-deactivate-input-method 
t t)
 (add-hook 'activate-mark-hook 'evil-visual-activate-hook nil t)
-;; FIXME: Add these hooks buffer-locally
+;; FIXME: Add these hooks buffer-locally and remove when disabling
 (add-hook 'pre-command-hook 'evil-repeat-pre-hook)
 (add-hook 'post-command-hook 'evil-repeat-post-hook))
 (evil-refresh-mode-line)
diff --git a/evil-macros.el b/evil-macros.el
index 90ae28bef0..1a60051e6d 100644
--- a/evil-macros.el
+++ b/evil-macros.el
@@ -746,10 +746,10 @@ via KEY-VALUE pairs. BODY should evaluate to a list of 
values.
`(lambda ,args
   ,@(when doc `(,doc))
   ,@body)
- (macroexp-progn body
+ `',(macroexp-progn body
 `(eval-and-compile
(evil--add-to-alist
-evil-interactive-alist ,code (cons ',func ',properties))
+evil-interactive-alist ,code (cons ,func ',properties))
,code)))
 
 ;;; Highlighting
diff --git a/evil-tests.el b/evil-tests.el
index 7d8bc9d547..cacc1b52bb 100644
--- a/evil-tests.el
+++ b/evil-tests.el
@@ -61,11 +61,15 @@
 ;;
 ;; This file is NOT part of Evil itself.
 
+;; FIXME: Merely loading an ELisp file should not change Emacs's config!
 (setq load-prefer-newer t)
 
 (require 'cl-lib)
 (require 'elp)
 (require 'ert)
+;; Load non-compiled `evil-ex'. (It defines `evil-parser' - which is
+;; needed by `evil-test-parser' - only inside an `eval-when-compile'.)
+(require 'evil-ex "evil-ex.el")
 (require 'evil)
 (require 'evil-digraphs)
 (require 'evil-test-helpers)
diff --git a/evil.el b/evil.el
index 61089a4c29..e5d7e45991 100644
--- a/evil.el
+++ b/evil.el
@@ -114,7 +114,7 @@
 ;; Evil requires undo-redo (Emacs 28), undo-fu or undo-tree for redo
 ;; functionality.  Otherwise, Evil uses regular Emacs undo.
 ;;
-;; https://gitlab.com/ideasman42/emacs-undo-fu
+;; https://codeberg.org/ideasman42/emacs-undo-fu
 ;; https://melpa.org/#/undo-fu
 ;; https://gitlab.com/tsc25/undo-tree
 ;; https://elpa.gnu.org/packages/undo-tree.html

[elpa] externals/inspector b1bfe9769e 3/3: Update version

[ELPA Syncer]

branch: externals/inspector
commit b1bfe9769ec4e8757ecfd5b9509f9cbf6d86aaa4
Author: Mariano Montone 
Commit: Mariano Montone 

Update version
---
 inspector.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/inspector.el b/inspector.el
index e00209f2be..5021c234a4 100644
--- a/inspector.el
+++ b/inspector.el
@@ -5,7 +5,7 @@
 ;; Author: Mariano Montone 
 ;; URL: https://github.com/mmontone/emacs-inspector
 ;; Keywords: debugging, tool, lisp, development
-;; Version: 0.31
+;; Version: 0.32
 ;; Package-Requires: ((emacs "27.1"))
 
 ;; This program is free software; you can redistribute it and/or modify

[elpa] externals/inspector 8162ed3a75 2/3: Copyright year

[ELPA Syncer]

branch: externals/inspector
commit 8162ed3a7571076b78daea72585ea74e1f813699
Author: Mariano Montone 
Commit: Mariano Montone 

Copyright year
---
 inspector.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/inspector.el b/inspector.el
index 7891080b83..e00209f2be 100644
--- a/inspector.el
+++ b/inspector.el
@@ -1,6 +1,6 @@
 ;;; inspector.el --- Tool for inspection of Emacs Lisp objects  -*- 
lexical-binding: t -*-
 
-;; Copyright (C) 2021-2022 Free Software Foundation, Inc.
+;; Copyright (C) 2021-2023 Free Software Foundation, Inc.
 
 ;; Author: Mariano Montone 
 ;; URL: https://github.com/mmontone/emacs-inspector

[elpa] externals/inspector de74d253a7 1/3: Patch for Emacs 30 for print ellipses

[ELPA Syncer]

branch: externals/inspector
commit de74d253a77bcffac251a5868fe42244362e7e17
Author: Mariano Montone 
Commit: Mariano Montone 

Patch for Emacs 30 for print ellipses

See: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=64536#13
See: Github issue #27
---
 inspector.el | 15 ---
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/inspector.el b/inspector.el
index fa9b1cc778..7891080b83 100644
--- a/inspector.el
+++ b/inspector.el
@@ -243,13 +243,14 @@ LIMIT controls the truncation."
 (put-text-property (point-min) (point) 'inspector-form (gensym))
 ;; Make buttons from all the "..."s.  Since there might be many of
 ;; them, use text property buttons.
-(goto-char (point-min))
-(while (< (point) (point-max))
-  (let ((end (next-single-property-change (point) 'cl-print-ellipsis
-  nil (point-max
-(when (get-text-property (point) 'cl-print-ellipsis)
-  (make-text-button (point) end :type 'backtrace-ellipsis))
-(goto-char end)))
+(unless (boundp 'cl-print-expand-ellipsis-function) ;Emacs-30
+  (goto-char (point-min))
+  (while (< (point) (point-max))
+(let ((end (next-single-property-change (point) 'cl-print-ellipsis
+nil (point-max
+  (when (get-text-property (point) 'cl-print-ellipsis)
+(make-text-button (point) end :type 'backtrace-ellipsis))
+  (goto-char end
 (buffer-string)))
 
 (cl-defgeneric inspector--face-for-object (object)

[elpa] externals/inspector updated (579a4cd43c -> b1bfe9769e)

[ELPA Syncer]

elpasync pushed a change to branch externals/inspector.

  from  579a4cd43c Use characterp
   new  de74d253a7 Patch for Emacs 30 for print ellipses
   new  8162ed3a75 Copyright year
   new  b1bfe9769e Update version


Summary of changes:
 inspector.el | 19 ++-
 1 file changed, 10 insertions(+), 9 deletions(-)

[elpa] externals/jinx 03365b124b: jinx-correct: Add prefix keys to session word suggestions (See #96, #97)

[ELPA Syncer]

branch: externals/jinx
commit 03365b124bb05d5c1effe5c5b503b746d15aa063
Author: Daniel Mendler 
Commit: Daniel Mendler 

jinx-correct: Add prefix keys to session word suggestions (See #96, #97)
---
 jinx.el | 77 +++--
 1 file changed, 37 insertions(+), 40 deletions(-)

diff --git a/jinx.el b/jinx.el
index 90067426ed..74bb55a344 100644
--- a/jinx.el
+++ b/jinx.el
@@ -641,49 +641,46 @@ If CHECK is non-nil, always check first."
(not (bound-and-true-p icomplete-mode)))
   (minibuffer-completion-help
 
-(defun jinx--correct-suggestions-dicts (word)
-  "Return suggestions for WORD from all dictionaries."
-  (cl-loop with idx = 1
-   with ht = (make-hash-table :test #'equal)
-   for dict in jinx--dicts
-   for desc = (jinx--mod-describe dict)
-   for group = (format "Suggestions from dictionary ‘%s’ (%s)"
-   (car desc) (cdr desc))
-   nconc
-   (cl-loop for sugg in (jinx--mod-suggest dict word)
-if (not (gethash sugg ht)) collect
-(progn
-  (add-text-properties
-   0 (length sugg)
-   (list 'jinx--group group
- 'jinx--prefix
- (cond ((< idx 10)
-(format #("%d " 0 3 (face jinx-key))
-idx))
-   ((< (- idx 10) (length jinx--select-keys))
-(format #("0%c " 0 4 (face jinx-key))
-(aref jinx--select-keys (- idx 
10))
-   sugg)
-  (cl-incf idx)
-  (puthash sugg t ht)
-  sugg
-
-(defun jinx--correct-suggestions-save (word)
-  "Return save actions for WORD."
-  (cl-loop for (key . fun) in jinx--save-keys nconc
-   (ensure-list (funcall fun nil key word
-
-(defun jinx--correct-suggestions-session (word)
-  "Return suggestions for WORD from session words."
-  (cl-loop for w in jinx--session-words
-   if (<= (string-distance word w) jinx-suggestion-distance)
-   collect (propertize w 'jinx--group "Suggestions from session 
words")))
+(defun jinx--add-suggestion (list ht word group)
+  "Add suggestion WORD to LIST and HT.
+The word will be associated with GROUP and get a prefix key."
+  (unless (gethash word ht)
+(add-text-properties
+ 0 (length word)
+ (list 'jinx--group group
+   'jinx--prefix
+   (let ((idx (1+ (hash-table-count ht
+ (cond
+  ((< idx 10)
+   (format #("%d " 0 3 (face jinx-key))
+   idx))
+  ((< (- idx 10) (length jinx--select-keys))
+   (format #("0%c " 0 4 (face jinx-key))
+   (aref jinx--select-keys (- idx 10)))
+ word)
+(push word list)
+(puthash word t ht))
+  list)
 
 (defun jinx--correct-suggestions (word)
   "Retrieve suggestions for WORD."
-  (nconc (jinx--correct-suggestions-dicts word)
- (jinx--correct-suggestions-session word)
- (jinx--correct-suggestions-save word)))
+  (let ((ht (make-hash-table :test #'equal))
+(list nil))
+(dolist (dict jinx--dicts)
+  (let* ((desc (jinx--mod-describe dict))
+ (group (format "Suggestions from dictionary ‘%s’ (%s)"
+(car desc) (cdr desc
+(dolist (w (jinx--mod-suggest dict word))
+  (setq list (jinx--add-suggestion list ht w group)
+(dolist (w (sort (cl-loop for w in jinx--session-words
+  for d = (string-distance word w)
+  if (<= d jinx-suggestion-distance)
+  collect (cons d w))
+ #'car-less-than-car))
+  (setq list (jinx--add-suggestion list ht (cdr w) "Suggestions from 
session")))
+(nconc (nreverse list)
+   (cl-loop for (key . fun) in jinx--save-keys nconc
+(ensure-list (funcall fun nil key word))
 
 (defun jinx--correct-affixation (cands)
   "Affixate CANDS during completion."

[nongnu] elpa/evil 0cbd61f2de: Some cleanups

[ELPA Syncer]

branch: elpa/evil
commit 0cbd61f2de104fab16602d0418605cd0513b16f3
Author: Axel Forsman 
Commit: Axel Forsman 

Some cleanups
---
 evil-command-window.el |   3 +-
 evil-commands.el   | 289 -
 evil-common.el |  23 ++--
 evil-core.el   |  43 +++-
 evil-ex.el |  52 -
 evil-maps.el   |  10 +-
 evil-search.el |  58 +-
 evil-tests.el  |  13 +--
 evil-vars.el   |   3 -
 9 files changed, 204 insertions(+), 290 deletions(-)

diff --git a/evil-command-window.el b/evil-command-window.el
index 68068a8384..c364e41868 100644
--- a/evil-command-window.el
+++ b/evil-command-window.el
@@ -44,8 +44,7 @@
 (define-derived-mode evil-command-window-mode fundamental-mode "Evil-cmd"
   "Major mode for the Evil command line window."
   (auto-fill-mode 0)
-  (setq-local after-change-functions
-  (cons #'evil-command-window-draw-prefix after-change-functions)))
+  (add-hook 'after-change-functions #'evil-command-window-draw-prefix nil t))
 
 (defun evil-command-window (history cmd-key execute-fn)
   "Open a command line window for HISTORY with CMD-KEY and EXECUTE-FN.
diff --git a/evil-commands.el b/evil-commands.el
index 40a01320e5..7dfc1e0ae8 100644
--- a/evil-commands.el
+++ b/evil-commands.el
@@ -37,7 +37,6 @@
 (require 'cl-lib)
 (require 'reveal)
 
-(declare-function flyspell-overlay-p "flyspell")
 (declare-function imenu--in-alist "imenu")
 
 ;;; Motions
@@ -215,10 +214,9 @@ move COUNT - 1 screen lines downward first."
   "Move the cursor to COUNT % of the width of the current line.
 If no COUNT is given, default to 50%."
   :type exclusive
-  (let ((line-length (- (line-end-position)
-(line-beginning-position)
+  (let ((line-length (- (line-end-position) (line-beginning-position)
 (if evil-move-beyond-eol -1 0
-(move-to-column (truncate (* line-length (/ (or count 50) 100.0))
+(move-to-column (truncate (* line-length (or count 50)) 100
 
 (evil-define-motion evil-first-non-blank ()
   "Move the cursor to the first non-blank character of the current line."
@@ -229,13 +227,9 @@ If no COUNT is given, default to 50%."
   "Move the cursor to the last non-blank character of the current line.
 If COUNT is given, move COUNT - 1 lines downward first."
   :type inclusive
-  (goto-char
-   (save-excursion
- (evil-move-beginning-of-line count)
- (if (re-search-forward "[ \t]*$")
- (max (line-beginning-position)
-  (1- (match-beginning 0)))
-   (line-beginning-position)
+  (evil-move-end-of-line count)
+  (skip-chars-backward " \t")
+  (unless (bolp) (backward-char)))
 
 (evil-define-motion evil-first-non-blank-of-visual-line ()
   "Move the cursor to the first non blank character
@@ -498,30 +492,28 @@ and jump to the corresponding one."
(t
 (let* ((open (point-max))
(close (point-max))
-   (open-pair (condition-case nil
-  (save-excursion
-;; consider the character right before eol given 
that
-;; point may be placed there, e.g. in visual state
-(when (and (eolp) (not (bolp)))
-  (backward-char))
-(setq open (1- (scan-lists (point) 1 -1)))
-(when (< open (line-end-position))
-  (goto-char open)
-  (forward-list)
-  (1- (point
-(error nil)))
-   (close-pair (condition-case nil
-   (save-excursion
- ;; consider the character right before eol given 
that
- ;; point may be placed there, e.g. in visual state
- (when (and (eolp) (not (bolp)))
-   (backward-char))
- (setq close (1- (scan-lists (point) 1 1)))
- (when (< close (line-end-position))
-   (goto-char (1+ close))
-   (backward-list)
-   (point)))
- (error nil
+   (open-pair (ignore-errors
+(save-excursion
+  ;; consider the character right before eol given that
+  ;; point may be placed there, e.g. in visual state
+  (when (and (eolp) (not (bolp)))
+(backward-char))
+  (setq open (1- (scan-lists (point) 1 -1)))
+  (when (< open (line-end-position))
+(goto-char open)
+(forward-list)
+(1- (point))
+   (close-pair (ignore-errors
+   

[elpa] externals/consult ea36a460e0: Update readme

[ELPA Syncer]

branch: externals/consult
commit ea36a460e0ae60c22fd62f8edf6409cd8badb6ad
Author: Daniel Mendler 
Commit: Daniel Mendler 

Update readme
---
 README.org | 10 --
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/README.org b/README.org
index 6b6c466603..aa1f054171 100644
--- a/README.org
+++ b/README.org
@@ -1037,15 +1037,15 @@ I use and recommend this combination of packages:
 - [[https://github.com/minad/marginalia][marginalia]]: Annotations for the 
completion candidates
 - [[https://github.com/oantolin/embark][embark and embark-consult]]: Action 
commands, which can act on the completion candidates
 - [[https://github.com/oantolin/orderless][orderless]]: Completion style which 
offers flexible candidate filtering
+- [[https://github.com/mhayashi1120/Emacs-wgrep][wgrep]]: Editing of grep 
buffers. Use with =consult-grep= via =embark-export=.
 
-There exist many other fine completion UIs beside Vertico, which are supported
-by Consult. Give them a try and find out which interaction model fits best for
-you.
+There exist multiple fine completion UIs beside Vertico, which are supported by
+Consult. Give them a try and find out which interaction model fits best for 
you.
 
 - The builtin completion UI, which pops up the =*Completions*= buffer.
 - The builtin =icomplete-vertical-mode= in Emacs 28.
 - [[https://git.sr.ht/~protesilaos/mct][mct by Protesilaos Stavrou]]: 
Minibuffer and Completions in Tandem, which builds
-  on the default completion UI (development currently 
[[https://protesilaos.com/codelog/2022-04-14-emacs-discontinue-mct/][discontinued]]).
+  on the default completion UI.
 
 Note that all packages are independent and can be exchanged with alternative
 components, since there exist no hard dependencies. Furthermore it is possible
@@ -1096,8 +1096,6 @@ offer functionality based on ~completing-read~.
 - [[https://github.com/minad/bookmark-view][bookmark-view]]: Store window 
configuration as bookmarks, possible integration with =consult-buffer=.
 - [[https://github.com/bdarcus/citar][citar]]: Versatile package for citation 
insertion and bibliography management.
 - [[https://github.com/astoff/devdocs.el][devdocs]]: Emacs viewer for 
[[https://devdocs.io/][DevDocs]] with a convenient completion interface.
-- [[https://github.com/d12frosted/flyspell-correct][flyspell-correct]]: Apply 
spelling corrections by selecting via =completing-read=.
-- [[https://github.com/mhayashi1120/Emacs-wgrep][wgrep]]: Editing of grep 
buffers, use together with =consult-grep= via =embark-export=.
 - 
[[https://github.com/iyefrat/all-the-icons-completion][all-the-icons-completion]],
 
[[https://github.com/rainstormstudio/nerd-icons-completion][nerd-icons-completion]]:
 Icons for the completion UI.
 
 * Bug reports

[nongnu] elpa/cdlatex 8b18d27cf6 11/13: add new file

[ELPA Syncer]

branch: elpa/cdlatex
commit 8b18d27cf66fd196db90ac2dbd5997fc90a4bcfa
Author: Carsten Dominik 
Commit: Carsten Dominik 

add new file
---
 electricindex.el | 139 ++-
 1 file changed, 45 insertions(+), 94 deletions(-)

diff --git a/electricindex.el b/electricindex.el
index 27f11d2aeb..5d022ea664 100644
--- a/electricindex.el
+++ b/electricindex.el
@@ -1,114 +1,69 @@
-;;; electricindex.el --- Fast digit index insertion -*- lexical-binding: t; -*-
-;; Copyright (c) 2022  Free Software Foundation, Inc.
-;;
-;; Author: Carsten Dominik 
-;; Keywords: tex
-;; Version: 1.0
-;;
-;; This file is not part of GNU Emacs.
-;;
-;; This file 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.
 
-;; electricindex.el 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 electricindex.el. If not, see .
-;;
-;
-;;
-;;; Commentary:
-;;
-;; Electricindex is a minor mode supporting fast digit index insertation in
-;; LaTeX math. For example typing  x 1 2  will insert x_{12}. It is an
-;; independent minor mode that is distributed with the cdlatex package.
-;;
-;; To turn Electricindex Minor Mode on and off in a particular buffer, use
-;; `M-x electricindex-mode'.
-;;
-;; To turn on Electricindex Minor Mode for all LaTeX files, add one of the
-;; following lines to your .emacs file:
-;;
-;;   (add-hook 'latex-mode-hook #'turn-on-electricindex)
-;;
-;; This index insertion will only work when the cursor is in a LaTeX math
-;; environment, based on (texmathp). If texmathp is not available, math
-;; math-mode will be assumed.
-;;
-;
-;;
-;;
-
-;;; Code:
-
-;;; Begin of Configuration Section ;;
-
-;; Configuration Variables and User Options for Electricindex 
--
-
-(defgroup electricindex nil
-  "LaTeX label and citation support."
-  :tag "Electricindex"
+(defgroup cdlatex-electricindex nil
+  "LaTeX electric digit indices."
+  :tag "cdlatex-electricindex"
   :link '(url-link :tag "Home Page" "https://github.com/cdominik/cdlatex";)
-  :prefix "electricindex-"
+  :prefix "cdlatex-electricindex-"
   :group 'tex)
 
-;;;
-;;;
-;;; Define the formal stuff for a minor mode named Electricindex.
-;;;
+(defvar cdlatex-electricindex-mode nil
+  "Determines if cdlatex-electricindex minor mode is active.")
+(make-variable-buffer-local 'cdlatex-electricindex-mode)
 
-(defvar electricindex-mode nil
-  "Determines if Electricindex minor mode is active.")
-(make-variable-buffer-local 'electricindex-mode)
-
-(defvar electricindex-mode-map
+(defvar cdlatex-electricindex-mode-map
   (let ((map (make-sparse-keymap)))
-(define-key map  "1"#'electricindex-digit)
-(define-key map  "2"#'electricindex-digit)
-(define-key map  "3"#'electricindex-digit)
-(define-key map  "4"#'electricindex-digit)
-(define-key map  "5"#'electricindex-digit)
-(define-key map  "6"#'electricindex-digit)
-(define-key map  "7"#'electricindex-digit)
-(define-key map  "8"#'electricindex-digit)
-(define-key map  "9"#'electricindex-digit)
-(define-key map  "0"#'electricindex-digit)
+(define-key map  "1"#'cdlatex-electricindex-digit)
+(define-key map  "2"#'cdlatex-electricindex-digit)
+(define-key map  "3"#'cdlatex-electricindex-digit)
+(define-key map  "4"#'cdlatex-electricindex-digit)
+(define-key map  "5"#'cdlatex-electricindex-digit)
+(define-key map  "6"#'cdlatex-electricindex-digit)
+(define-key map  "7"#'cdlatex-electricindex-digit)
+(define-key map  "8"#'cdlatex-electricindex-digit)
+(define-key map  "9"#'cdlatex-electricindex-digit)
+(define-key map  "0"#'cdlatex-electricindex-digit)
 map)
-  "Keymap for Electricindex minor mode.")
+  "Keymap for cdlatex-electricindex minor mode.")
 
 ;;;###autoload
-(defun turn-on-electricindex ()
-  "Turn on Electricindex minor mode."
-  (electricindex-mode t))
+(defun turn-on-cdlatex-electricindex ()
+  "Turn on cdlatex-electricindex minor mode."
+  (cdlatex-electricindex-mode t))
 
 ;;;###autoload
-(define-minor-mode electricindex-mode
+(define-minor-mode cdlatex-electricindex-mode
   "Minor

[nongnu] elpa/cdlatex 84fe596341 09/13: Electricindex-mode now added to cdlatex.

[ELPA Syncer]

branch: elpa/cdlatex
commit 84fe596341004ecde035352e259321ccfb0673c3
Author: Carsten Dominik 
Commit: Carsten Dominik 

Electricindex-mode now added to cdlatex.
---
 electricindex.el | 7 ---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/electricindex.el b/electricindex.el
index 21c17cab7e..27f11d2aeb 100644
--- a/electricindex.el
+++ b/electricindex.el
@@ -3,7 +3,7 @@
 ;;
 ;; Author: Carsten Dominik 
 ;; Keywords: tex
-;; Version: 0.1
+;; Version: 1.0
 ;;
 ;; This file is not part of GNU Emacs.
 ;;
@@ -25,7 +25,8 @@
 ;;; Commentary:
 ;;
 ;; Electricindex is a minor mode supporting fast digit index insertation in
-;; LaTeX math. For example typing  x 1 2  will insert x_{12}.
+;; LaTeX math. For example typing  x 1 2  will insert x_{12}. It is an
+;; independent minor mode that is distributed with the cdlatex package.
 ;;
 ;; To turn Electricindex Minor Mode on and off in a particular buffer, use
 ;; `M-x electricindex-mode'.
@@ -52,7 +53,7 @@
 (defgroup electricindex nil
   "LaTeX label and citation support."
   :tag "Electricindex"
-  :link '(url-link :tag "Home Page" "http://zon.astro.uva.nl/~dominik/Tools/";)
+  :link '(url-link :tag "Home Page" "https://github.com/cdominik/cdlatex";)
   :prefix "electricindex-"
   :group 'tex)
 

[nongnu] elpa/cdlatex f6d5ad9dd6 02/13: Rename the new file to electricindex.el

[ELPA Syncer]

branch: elpa/cdlatex
commit f6d5ad9dd6046b21a7162705810eb12c49624d5e
Author: Carsten Dominik 
Commit: Carsten Dominik 

Rename the new file to electricindex.el
---
 fastindex.el => electricindex.el | 0
 1 file changed, 0 insertions(+), 0 deletions(-)

diff --git a/fastindex.el b/electricindex.el
similarity index 100%
rename from fastindex.el
rename to electricindex.el

[nongnu] elpa/cdlatex c13f089e96 13/13: Release 4.17, with a bug fix

[ELPA Syncer]

branch: elpa/cdlatex
commit c13f089e960c5596a769cb445955eacf020f61b0
Author: Carsten Dominik 
Commit: Carsten Dominik 

Release 4.17, with a bug fix
---
 CHANGES.org | 8 
 cdlatex.el  | 9 +++--
 2 files changed, 11 insertions(+), 6 deletions(-)

diff --git a/CHANGES.org b/CHANGES.org
index c4a43a90db..4c9db1abbb 100644
--- a/CHANGES.org
+++ b/CHANGES.org
@@ -1,6 +1,14 @@
 This file documents some more visible changes, in particular if they
 change previous behavior.
 
+* Version 4.17
+- Fixed bug when cdlatex-math-symbol-alist has more than 3 levels.
+  Thanks to Yuchen Lea for reporting this issue.
+
+* Version 4.16
+- Integrated cdlatex-electricindex-mode
+- Environments keep the indentation when called from a position with
+  indentation.
 * Version 4.15
 When the region is active, pressing dollar will bracket the region
 with two $ characters, putting it into math mode.
diff --git a/cdlatex.el b/cdlatex.el
index f62f0f52bc..c3f7edb0b7 100644
--- a/cdlatex.el
+++ b/cdlatex.el
@@ -3,7 +3,7 @@
 ;;
 ;; Author: Carsten Dominik 
 ;; Keywords: tex
-;; Version: 4.16
+;; Version: 4.17
 ;;
 ;; This file is not part of GNU Emacs.
 ;;
@@ -2202,11 +2202,8 @@ and after changes to these variables via
  cdlatex-math-modify-alist-default)))
 
   ;; find out how many levels are needed for the math symbol stuff
-  (let ((maxlev 0) (list cdlatex-math-symbol-alist-comb))
-(while (pop list)
-  (setq maxlev (max maxlev (length (nth 1 list)))
-list (cdr list)))
-(setq cdlatex-math-symbol-no-of-levels (1- maxlev)))
+  (setq cdlatex-math-symbol-no-of-levels
+(1- (apply 'max (mapcar 'length cdlatex-math-symbol-alist-comb
 
   ;; The direct key bindings.
   (let (map dummy-map prefix modifiers symbol bindings)

[nongnu] elpa/cdlatex 64c1440441 05/13: No check for math environment outside of latex buffers

[ELPA Syncer]

branch: elpa/cdlatex
commit 64c144044104db622de44effdc68fcb4f58714cb
Author: Carsten Dominik 
Commit: Carsten Dominik 

No check for math environment outside of latex buffers

For example, this will make the mode work well in org-mode files.
---
 electricindex.el | 13 ++---
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/electricindex.el b/electricindex.el
index 1b3e512030..51bae80c9e 100644
--- a/electricindex.el
+++ b/electricindex.el
@@ -94,12 +94,11 @@ Here is a list of features: \\
 Entering `electricindex-mode' calls the hook electricindex-mode-hook."
   :lighter " EI")
 
-(defalias 'electricindex--texmathp
-  (if (fboundp 'texmathp) #'texmathp
-;; FIXME: Maybe we could do better, but why bother: the users who want it
-;; can install AUCTeX.  Tho maybe we should move texmathp into its
-;; own package so it can be used even when AUCTeX is not
-;; installed/activated.
+(defun electricindex-active-here ()
+  (if (eq major-mode 'latex-mode)
+  (if (fboundp 'texmathp)
+  (texmathp)
+t)
 t))
 
 ;;; ===
@@ -108,7 +107,7 @@ Entering `electricindex-mode' calls the hook 
electricindex-mode-hook."
 (defun electricindex-digit ()
   "Insert digit, maybe as an index to a quantity in math environment."
   (interactive)
-  (if (not (electricindex--texmathp))
+  (if (not (electricindex-active-here))
   (self-insert-command 1)
 (let ((digit (char-to-string (event-basic-type last-command-event
   (if (looking-back "[a-zA-Z]" (1- (point)))

[nongnu] elpa/cdlatex ccf8f878b2 01/13: Start a branch to implement electric indices

[ELPA Syncer]

branch: elpa/cdlatex
commit ccf8f878b265a0cd344f4ca9f7f6969eb0bc01c8
Author: Carsten Dominik 
Commit: Carsten Dominik 

Start a branch to implement electric indices
---
 fastindex.el | 2281 ++
 1 file changed, 2281 insertions(+)

diff --git a/fastindex.el b/fastindex.el
new file mode 100644
index 00..4c85b87c9d
--- /dev/null
+++ b/fastindex.el
@@ -0,0 +1,2281 @@
+;;; cdlatex.el --- Fast input methods for LaTeX environments and math  -*- 
lexical-binding: t; -*-
+;; Copyright (c) 2010-2022  Free Software Foundation, Inc.
+;;
+;; Author: Carsten Dominik 
+;; Keywords: tex
+;; Version: 4.14
+;;
+;; This file is not part of GNU Emacs.
+;;
+;; This file 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.
+
+;; cdlatex.el 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 cdlatex.el. If not, see .
+;;
+;
+;;
+;;; Commentary:
+;;
+;; CDLaTeX is a minor mode supporting fast insertion of environment
+;; templates and math stuff in LaTeX.
+;;
+;; To turn CDLaTeX Minor Mode on and off in a particular buffer, use
+;; `M-x cdlatex-mode'.
+;;
+;; To turn on CDLaTeX Minor Mode for all LaTeX files, add one of the
+;; following lines to your .emacs file:
+;;
+;;   (add-hook 'LaTeX-mode-hook #'turn-on-cdlatex)   ; with AUCTeX LaTeX mode
+;;   (add-hook 'latex-mode-hook #'turn-on-cdlatex)   ; with Emacs latex mode
+;;
+;; For key bindings, see further down in this documentation.
+;;
+;; CDLaTeX requires texmathp.el (which is distributed with AUCTeX) to
+;; auto-insert $...$ when needed, so we recommend you install AUCTeX to get
+;; this functionality.
+;;
+;;--
+;;
+;; OVERVIEW
+;; 
+;;
+;; CDLaTeX is a minor mode supporting mainly mathematical and scientific
+;; text development with LaTeX.  CDLaTeX is really about speed.  AUCTeX
+;; (the major mode I recommend for editing LaTeX files) does have a hook
+;; based system for inserting environments and macros - but while this is
+;; useful and general, it is sometimes slow to use.  CDLaTeX tries to be
+;; quick, with very few and easy to remember keys, and intelligent
+;; on-the-fly help.
+;;
+;; 1. ABBREVIATIONS.
+;;-
+;;CDLaTeX has an abbrev-like mechanism to insert full LaTeX
+;;environments and other templates into the buffer.  Abbreviation
+;;expansion is triggered with the TAB key only, not with SPC or RET.
+;;For example, typing "ite" inserts an itemize environment.  A
+;;full list of defined abbreviations is available with the command
+;;`C-c ?' (`cdlatex-command-help').
+;;
+;;1a. ENVIRONMENT TEMPLATES
+;;-
+;;Typing `C-c {' (`cdlatex-environment') uses the minibuffer to
+;;complete the name of a LaTeX environment and inserts a template
+;;for this environment into the buffer.  These environment
+;;templates also contain labels created with RefTeX.  In a
+;;template, text needs to be filled in at various places, which we
+;;call "points of interest".  You can use the TAB key to jump to
+;;the next point of interest in the template.  If there is an
+;;active region, the region will be wrapped into the environment,
+;;ignoring the template content.
+;;
+;;For many frequently used LaTeX environments, abbreviations are
+;;available.  Most of the time, the abbreviation consists of the
+;;first three letters of the environment name: `equ' expands
+;;into
+;;\begin{equation}
+;;\label{eq:1}
+;;
+;;\end{equation}
+;;
+;;Similarly, `ali' inserts an AMS-LaTeX align environment
+;;template etc.  For a full list of environment abbreviations, use
+;;`C-c ?'.
+;;
+;;Use the command `C-c -' (`cdlatex-item') to insert a generalized
+;;new "item" in any "list"-like environment.  For example, in an
+;;itemize environment, this inserts "\item", in an enumerate
+;;environment it inserts "\item\label{item:25}" and in an eqnarray
+;;environment, it inserts "\label{eq:25} \n & &".  When
+;;appropriate, newlines are inserted, and the previous item is also
+;;closed with "\\".  `cdlatex-item' can also be invoked with the
+;;abbreviation "it".
+;;
+;;1b. MATH TEMPLATES
+;;--
+;; 

[nongnu] elpa/cdlatex 5e50a66a78 12/13: Remove file

[ELPA Syncer]

branch: elpa/cdlatex
commit 5e50a66a78fa0c83efa7ae7bb9569f0d1d97c094
Author: Carsten Dominik 
Commit: Carsten Dominik 

Remove file
---
 electricindex.el | 87 
 1 file changed, 87 deletions(-)

diff --git a/electricindex.el b/electricindex.el
deleted file mode 100644
index 5d022ea664..00
--- a/electricindex.el
+++ /dev/null
@@ -1,87 +0,0 @@
-
-(defgroup cdlatex-electricindex nil
-  "LaTeX electric digit indices."
-  :tag "cdlatex-electricindex"
-  :link '(url-link :tag "Home Page" "https://github.com/cdominik/cdlatex";)
-  :prefix "cdlatex-electricindex-"
-  :group 'tex)
-
-(defvar cdlatex-electricindex-mode nil
-  "Determines if cdlatex-electricindex minor mode is active.")
-(make-variable-buffer-local 'cdlatex-electricindex-mode)
-
-(defvar cdlatex-electricindex-mode-map
-  (let ((map (make-sparse-keymap)))
-(define-key map  "1"#'cdlatex-electricindex-digit)
-(define-key map  "2"#'cdlatex-electricindex-digit)
-(define-key map  "3"#'cdlatex-electricindex-digit)
-(define-key map  "4"#'cdlatex-electricindex-digit)
-(define-key map  "5"#'cdlatex-electricindex-digit)
-(define-key map  "6"#'cdlatex-electricindex-digit)
-(define-key map  "7"#'cdlatex-electricindex-digit)
-(define-key map  "8"#'cdlatex-electricindex-digit)
-(define-key map  "9"#'cdlatex-electricindex-digit)
-(define-key map  "0"#'cdlatex-electricindex-digit)
-map)
-  "Keymap for cdlatex-electricindex minor mode.")
-
-;;;###autoload
-(defun turn-on-cdlatex-electricindex ()
-  "Turn on cdlatex-electricindex minor mode."
-  (cdlatex-electricindex-mode t))
-
-;;;###autoload
-(define-minor-mode cdlatex-electricindex-mode
-  "Minor mode for electric insertion of numbered indixes.
-
-cdlatex-electricindex is a minor mode supporting fast digit index
-insertation in LaTeX math. For example typing x 1 2 will insert
-x_{12}.
-
-To turn cdlatex-electricindex Minor Mode on and off in a
-particular buffer, use `M-x cdlatex-electricindex-mode'.
-
-To turn on cdlatex-electricindex Minor Mode for all LaTeX files,
-add one of the following lines to your .emacs file:
-
-(add-hook 'latex-mode-hook #'turn-on-cdlatex-electricindex)
-
-This index insertion will only work when the cursor is in a LaTeX
-math environment, based on (texmathp). If texmathp is not
-available, math math-mode will be assumed.
-
-Entering `cdlatex-electricindex-mode' calls the hook
-`cdlatex-electricindex-mode-hook'."
-  :lighter " EI")
-
-(defun cdlatex-electricindex-active-here ()
-  (if (eq major-mode 'latex-mode)
-  (if (fboundp 'texmathp)
-  (texmathp)
-t)
-t))
-(defun cdlatex-electricindex-digit ()
-  "Insert digit, maybe as an index to a quantity in math environment."
-  (interactive)
-  (if (not (cdlatex-electricindex-active-here))
-  (self-insert-command 1)
-(let ((digit (char-to-string (event-basic-type last-command-event
-  (if (looking-back "[a-zA-Z]" (1- (point)))
-  (insert "_" digit " ")
-(if (looking-back "\\(_[0-9]\\) ?" (- (point) 3))
-(progn
-  (goto-char (match-beginning 1))
-  (forward-char 1)
-  (insert "{")
-  (forward-char 1)
-  (insert digit "}")
-  (if (looking-at " ")
-  (forward-char 1)
-(insert " ")))
-  (if (looking-back "_{\\([0-9]+\\)} ?"
-(max (- (point) 10) (point-min)))
-  (save-excursion
-(goto-char (match-end 1))
-(insert digit))
-(self-insert-command 1)))
-

[nongnu] elpa/cdlatex b27b1bb79a 10/13: Integrate cdlatex-electricindex-mode

[ELPA Syncer]

branch: elpa/cdlatex
commit b27b1bb79ab4f0e7c112772c132d5406cd908bee
Author: Carsten Dominik 
Commit: Carsten Dominik 

Integrate cdlatex-electricindex-mode
---
 cdlatex.el | 91 ++
 1 file changed, 91 insertions(+)

diff --git a/cdlatex.el b/cdlatex.el
index a6a36c2fe1..f62f0f52bc 100644
--- a/cdlatex.el
+++ b/cdlatex.el
@@ -2250,6 +2250,95 @@ and after changes to these variables via
   (if (string-match "\\?" string)
   (cdlatex-position-cursor)))
 
+;;; cdlatex-electric-index-mode
+
+(defgroup cdlatex-electricindex nil
+  "LaTeX electric digit indices."
+  :tag "cdlatex-electricindex"
+  :link '(url-link :tag "Home Page" "https://github.com/cdominik/cdlatex";)
+  :prefix "cdlatex-electricindex-"
+  :group 'tex)
+
+(defvar cdlatex-electricindex-mode nil
+  "Determines if cdlatex-electricindex minor mode is active.")
+(make-variable-buffer-local 'cdlatex-electricindex-mode)
+
+(defvar cdlatex-electricindex-mode-map
+  (let ((map (make-sparse-keymap)))
+(define-key map  "1"#'cdlatex-electricindex-digit)
+(define-key map  "2"#'cdlatex-electricindex-digit)
+(define-key map  "3"#'cdlatex-electricindex-digit)
+(define-key map  "4"#'cdlatex-electricindex-digit)
+(define-key map  "5"#'cdlatex-electricindex-digit)
+(define-key map  "6"#'cdlatex-electricindex-digit)
+(define-key map  "7"#'cdlatex-electricindex-digit)
+(define-key map  "8"#'cdlatex-electricindex-digit)
+(define-key map  "9"#'cdlatex-electricindex-digit)
+(define-key map  "0"#'cdlatex-electricindex-digit)
+map)
+  "Keymap for cdlatex-electricindex minor mode.")
+
+;;;###autoload
+(defun turn-on-cdlatex-electricindex ()
+  "Turn on cdlatex-electricindex minor mode."
+  (cdlatex-electricindex-mode t))
+
+;;;###autoload
+(define-minor-mode cdlatex-electricindex-mode
+  "Minor mode for electric insertion of numbered indixes.
+
+cdlatex-electricindex is a minor mode supporting fast digit index
+insertation in LaTeX math. For example typing x 1 2 will insert
+x_{12}.
+
+To turn cdlatex-electricindex Minor Mode on and off in a
+particular buffer, use `M-x cdlatex-electricindex-mode'.
+
+To turn on cdlatex-electricindex Minor Mode for all LaTeX files,
+add one of the following lines to your .emacs file:
+
+(add-hook 'latex-mode-hook #'turn-on-cdlatex-electricindex)
+
+This index insertion will only work when the cursor is in a LaTeX
+math environment, based on (texmathp). If texmathp is not
+available, math math-mode will be assumed.
+
+Entering `cdlatex-electricindex-mode' calls the hook
+`cdlatex-electricindex-mode-hook'."
+  :lighter " EI")
+
+(defun cdlatex-electricindex-active-here ()
+  (if (eq major-mode 'latex-mode)
+  (if (fboundp 'texmathp)
+  (texmathp)
+t)
+t))
+
+(defun cdlatex-electricindex-digit ()
+  "Insert digit, maybe as an index to a quantity in math environment."
+  (interactive)
+  (if (not (cdlatex-electricindex-active-here))
+  (self-insert-command 1)
+(let ((digit (char-to-string (event-basic-type last-command-event
+  (if (looking-back "[a-zA-Z]" (1- (point)))
+  (insert "_" digit " ")
+(if (looking-back "\\(_[0-9]\\) ?" (- (point) 3))
+(progn
+  (goto-char (match-beginning 1))
+  (forward-char 1)
+  (insert "{")
+  (forward-char 1)
+  (insert digit "}")
+  (if (looking-at " ")
+  (forward-char 1)
+(insert " ")))
+  (if (looking-back "_{\\([0-9]+\\)} ?"
+(max (- (point) 10) (point-min)))
+  (save-excursion
+(goto-char (match-end 1))
+(insert digit))
+(self-insert-command 1)))
+
 ;;; Menus 
 
 ;; Define a menu for the menu bar if Emacs is running under X
@@ -2272,6 +2361,8 @@ and after changes to these variables via
 ["Build Full Customize Menu" cdlatex-create-customize-menu
  (fboundp 'customize-menu-create)])
""
+   ["Toggle electricindex"  cdlatex-electricindex-mode t]
+   ""
["Show documentation"  cdlatex-show-commentary t]
["Help with KEYWORD Cmds" cdlatex-command-help t]
["Reset CDLaTeX Mode"   cdlatex-reset-mode t]))

[nongnu] elpa/cdlatex updated (a0153ef889 -> c13f089e96)

[ELPA Syncer]

elpasync pushed a change to branch elpa/cdlatex.

  from  a0153ef889 Try to keep indentation when inserting templates
   new  ccf8f878b2 Start a branch to implement electric indices
   new  f6d5ad9dd6 Rename the new file to electricindex.el
   new  d97ba0a51d Create the basic structure for the minor mode
   new  25e8e65acc First full and working implementation.
   new  64c1440441 No check for math environment outside of latex buffers
   new  3c464be7b4 Fix whitespace handling at end of line
   new  200ae37f70 Add mathring command
   new  594eb697ef Merge branch 'electricindex'
   new  84fe596341 Electricindex-mode now added to cdlatex.
   new  b27b1bb79a Integrate cdlatex-electricindex-mode
   new  8b18d27cf6 add new file
   new  5e50a66a78 Remove file
   new  c13f089e96 Release 4.17, with a bug fix


Summary of changes:
 CHANGES.org |   8 +
 cdlatex.el  | 101 
 2 files changed, 103 insertions(+), 6 deletions(-)

[nongnu] elpa/cdlatex 25e8e65acc 04/13: First full and working implementation.

[ELPA Syncer]

branch: elpa/cdlatex
commit 25e8e65acc2689dc490b2c132696af46058a59aa
Author: Carsten Dominik 
Commit: Carsten Dominik 

First full and working implementation.
---
 electricindex.el | 48 
 1 file changed, 36 insertions(+), 12 deletions(-)

diff --git a/electricindex.el b/electricindex.el
index 46b6d61e16..1b3e512030 100644
--- a/electricindex.el
+++ b/electricindex.el
@@ -1,9 +1,9 @@
-;;; electricindex.el --- Fast input methods for LaTeX environments and math  
-*- lexical-binding: t; -*-
-;; Copyright (c) 2010-2022  Free Software Foundation, Inc.
+;;; electricindex.el --- Fast digit index insertion -*- lexical-binding: t; -*-
+;; Copyright (c) 2022  Free Software Foundation, Inc.
 ;;
 ;; Author: Carsten Dominik 
 ;; Keywords: tex
-;; Version: 4.14
+;; Version: 0.1
 ;;
 ;; This file is not part of GNU Emacs.
 ;;
@@ -24,8 +24,8 @@
 ;;
 ;;; Commentary:
 ;;
-;; Electricindex is a minor mode supporting fast insertion of environment
-;; templates and math stuff in LaTeX.
+;; Electricindex is a minor mode supporting fast digit index insertation in
+;; LaTeX math. For example typing  x 1 2  will insert x_{12}.
 ;;
 ;; To turn Electricindex Minor Mode on and off in a particular buffer, use
 ;; `M-x electricindex-mode'.
@@ -33,8 +33,11 @@
 ;; To turn on Electricindex Minor Mode for all LaTeX files, add one of the
 ;; following lines to your .emacs file:
 ;;
-;;   (add-hook 'LaTeX-mode-hook #'turn-on-electricindex)   ; with AUCTeX LaTeX 
mode
-;;   (add-hook 'latex-mode-hook #'turn-on-electricindex)   ; with Emacs latex 
mode
+;;   (add-hook 'latex-mode-hook #'turn-on-electricindex)
+;;
+;; This index insertion will only work when the cursor is in a LaTeX math
+;; environment, based on (texmathp). If texmathp is not available, math
+;; math-mode will be assumed.
 ;;
 ;
 ;;
@@ -89,9 +92,7 @@
 Here is a list of features: \\
 
 Entering `electricindex-mode' calls the hook electricindex-mode-hook."
-  :lighter " EI"
-  (when electricindex-mode
-(electricindex-compute-tables)))
+  :lighter " EI")
 
 (defalias 'electricindex--texmathp
   (if (fboundp 'texmathp) #'texmathp
@@ -99,11 +100,34 @@ Entering `electricindex-mode' calls the hook 
electricindex-mode-hook."
 ;; can install AUCTeX.  Tho maybe we should move texmathp into its
 ;; own package so it can be used even when AUCTeX is not
 ;; installed/activated.
-#'ignore))
+t))
 
 ;;; ===
 ;;;
-;;; Functions that check out the surroundings
+
+(defun electricindex-digit ()
+  "Insert digit, maybe as an index to a quantity in math environment."
+  (interactive)
+  (if (not (electricindex--texmathp))
+  (self-insert-command 1)
+(let ((digit (char-to-string (event-basic-type last-command-event
+  (if (looking-back "[a-zA-Z]" (1- (point)))
+  (insert "_" digit " ")
+(if (looking-back "\\(_[0-9]\\) ?" (- (point) 3))
+(progn
+  (goto-char (match-beginning 1))
+  (forward-char 1)
+  (insert "{")
+  (forward-char 1)
+  (insert digit "}")
+  (if (looking-at "")
+  (forward-char 1)
+(insert "")))
+  (if (looking-back "_{\\([0-9]+\\)} ?" (max (- (point) 10) 
(point-min)))
+  (save-excursion
+(goto-char (match-end 1))
+(insert digit))
+(self-insert-command 1)))
 
 (provide 'electricindex)
 

[nongnu] elpa/cdlatex 594eb697ef 08/13: Merge branch 'electricindex'

[ELPA Syncer]

branch: elpa/cdlatex
commit 594eb697ef0ca0b772057216447c7ec0aac108c2
Merge: a0153ef889 200ae37f70
Author: Carsten Dominik 
Commit: Carsten Dominik 

Merge branch 'electricindex'
---
 cdlatex.el   |   3 +-
 electricindex.el | 135 +++
 2 files changed, 137 insertions(+), 1 deletion(-)

diff --git a/cdlatex.el b/cdlatex.el
index 0e7a20cb9e..a6a36c2fe1 100644
--- a/cdlatex.el
+++ b/cdlatex.el
@@ -3,7 +3,7 @@
 ;;
 ;; Author: Carsten Dominik 
 ;; Keywords: tex
-;; Version: 4.15
+;; Version: 4.16
 ;;
 ;; This file is not part of GNU Emacs.
 ;;
@@ -1603,6 +1603,7 @@ zZ
 ( ?\:   "\\ddot"  nilt   t   nil )
 ( ?\~   "\\tilde" nilt   t   nil )
 ( ?N"\\widetilde" nilt   t   nil )
+( ?o"\\mathring"  nilt   t   nil )
 ( ?^"\\hat"   nilt   t   nil )
 ( ?H"\\widehat"   nilt   t   nil )
 ( ?\-   "\\bar"   nilt   t   nil )
diff --git a/electricindex.el b/electricindex.el
new file mode 100644
index 00..21c17cab7e
--- /dev/null
+++ b/electricindex.el
@@ -0,0 +1,135 @@
+;;; electricindex.el --- Fast digit index insertion -*- lexical-binding: t; -*-
+;; Copyright (c) 2022  Free Software Foundation, Inc.
+;;
+;; Author: Carsten Dominik 
+;; Keywords: tex
+;; Version: 0.1
+;;
+;; This file is not part of GNU Emacs.
+;;
+;; This file 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.
+
+;; electricindex.el 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 electricindex.el. If not, see .
+;;
+;
+;;
+;;; Commentary:
+;;
+;; Electricindex is a minor mode supporting fast digit index insertation in
+;; LaTeX math. For example typing  x 1 2  will insert x_{12}.
+;;
+;; To turn Electricindex Minor Mode on and off in a particular buffer, use
+;; `M-x electricindex-mode'.
+;;
+;; To turn on Electricindex Minor Mode for all LaTeX files, add one of the
+;; following lines to your .emacs file:
+;;
+;;   (add-hook 'latex-mode-hook #'turn-on-electricindex)
+;;
+;; This index insertion will only work when the cursor is in a LaTeX math
+;; environment, based on (texmathp). If texmathp is not available, math
+;; math-mode will be assumed.
+;;
+;
+;;
+;;
+
+;;; Code:
+
+;;; Begin of Configuration Section ;;
+
+;; Configuration Variables and User Options for Electricindex 
--
+
+(defgroup electricindex nil
+  "LaTeX label and citation support."
+  :tag "Electricindex"
+  :link '(url-link :tag "Home Page" "http://zon.astro.uva.nl/~dominik/Tools/";)
+  :prefix "electricindex-"
+  :group 'tex)
+
+;;;
+;;;
+;;; Define the formal stuff for a minor mode named Electricindex.
+;;;
+
+(defvar electricindex-mode nil
+  "Determines if Electricindex minor mode is active.")
+(make-variable-buffer-local 'electricindex-mode)
+
+(defvar electricindex-mode-map
+  (let ((map (make-sparse-keymap)))
+(define-key map  "1"#'electricindex-digit)
+(define-key map  "2"#'electricindex-digit)
+(define-key map  "3"#'electricindex-digit)
+(define-key map  "4"#'electricindex-digit)
+(define-key map  "5"#'electricindex-digit)
+(define-key map  "6"#'electricindex-digit)
+(define-key map  "7"#'electricindex-digit)
+(define-key map  "8"#'electricindex-digit)
+(define-key map  "9"#'electricindex-digit)
+(define-key map  "0"#'electricindex-digit)
+map)
+  "Keymap for Electricindex minor mode.")
+
+;;;###autoload
+(defun turn-on-electricindex ()
+  "Turn on Electricindex minor mode."
+  (electricindex-mode t))
+
+;;;###autoload
+(define-minor-mode electricindex-mode
+  "Minor mode for electric insertion of numbered indixes.
+
+Here is a list of features: \\
+
+Entering `electricindex-mode' calls the hook electricindex-mode-hook."
+  :lighter " EI")
+
+(defun electricindex-active-here ()
+  (if (eq major-mode 'latex-mode)
+  (if (fboundp 'texmathp)
+  (texmathp)
+t)
+t))
+
+;;; ===
+;;;
+
+(defun electricindex-digit ()
+  "Insert digit, maybe as an index to a quantity in mat

[nongnu] elpa/cdlatex 200ae37f70 07/13: Add mathring command

[ELPA Syncer]

branch: elpa/cdlatex
commit 200ae37f7059a787a89a813f9ffd71b732be2f34
Author: Carsten Dominik 
Commit: Carsten Dominik 

Add mathring command
---
 cdlatex.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/cdlatex.el b/cdlatex.el
index 4c85b87c9d..6a9a5aed6f 100644
--- a/cdlatex.el
+++ b/cdlatex.el
@@ -3,7 +3,7 @@
 ;;
 ;; Author: Carsten Dominik 
 ;; Keywords: tex
-;; Version: 4.14
+;; Version: 4.14.1
 ;;
 ;; This file is not part of GNU Emacs.
 ;;
@@ -1590,12 +1590,13 @@ zZ
 ( ?\:   "\\ddot"  nilt   t   nil )
 ( ?\~   "\\tilde" nilt   t   nil )
 ( ?N"\\widetilde" nilt   t   nil )
+( ?o"\\mathring"  nilt   t   nil )
 ( ?^"\\hat"   nilt   t   nil )
 ( ?H"\\widehat"   nilt   t   nil )
 ( ?\-   "\\bar"   nilt   t   nil )
 ( ?T"\\overline"  nilt   nil nil )
 ( ?\_   "\\underline" nilt   nil nil )
-( ?\]"\\overbrace" nilt   nil nil )
+( ?\]   "\\overbrace" nilt   nil nil )
 ( ?\}   "\\underbrace"nilt   nil nil )
 ( ?\>   "\\vec"   nilt   t   nil )
 ( ?/"\\grave" nilt   t   nil )

[nongnu] elpa/cdlatex 3c464be7b4 06/13: Fix whitespace handling at end of line

[ELPA Syncer]

branch: elpa/cdlatex
commit 3c464be7b4a200659a243e17fd20764d9d3ff7aa
Author: Carsten Dominik 
Commit: Carsten Dominik 

Fix whitespace handling at end of line
---
 electricindex.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/electricindex.el b/electricindex.el
index 51bae80c9e..21c17cab7e 100644
--- a/electricindex.el
+++ b/electricindex.el
@@ -119,9 +119,9 @@ Entering `electricindex-mode' calls the hook 
electricindex-mode-hook."
   (insert "{")
   (forward-char 1)
   (insert digit "}")
-  (if (looking-at "")
+  (if (looking-at " ")
   (forward-char 1)
-(insert "")))
+(insert " ")))
   (if (looking-back "_{\\([0-9]+\\)} ?" (max (- (point) 10) 
(point-min)))
   (save-excursion
 (goto-char (match-end 1))

[nongnu] elpa/cdlatex d97ba0a51d 03/13: Create the basic structure for the minor mode

[ELPA Syncer]

branch: elpa/cdlatex
commit d97ba0a51dc913c2871e0e80b940c562f593b13e
Author: Carsten Dominik 
Commit: Carsten Dominik 

Create the basic structure for the minor mode
---
 electricindex.el | 2253 +-
 1 file changed, 42 insertions(+), 2211 deletions(-)

diff --git a/electricindex.el b/electricindex.el
index 4c85b87c9d..46b6d61e16 100644
--- a/electricindex.el
+++ b/electricindex.el
@@ -1,4 +1,4 @@
-;;; cdlatex.el --- Fast input methods for LaTeX environments and math  -*- 
lexical-binding: t; -*-
+;;; electricindex.el --- Fast input methods for LaTeX environments and math  
-*- lexical-binding: t; -*-
 ;; Copyright (c) 2010-2022  Free Software Foundation, Inc.
 ;;
 ;; Author: Carsten Dominik 
@@ -12,310 +12,29 @@
 ;; the Free Software Foundation, either version 3 of the License, or
 ;; (at your option) any later version.
 
-;; cdlatex.el is distributed in the hope that it will be useful,
+;; electricindex.el 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 cdlatex.el. If not, see .
+;; along with electricindex.el. If not, see .
 ;;
 ;
 ;;
 ;;; Commentary:
 ;;
-;; CDLaTeX is a minor mode supporting fast insertion of environment
+;; Electricindex is a minor mode supporting fast insertion of environment
 ;; templates and math stuff in LaTeX.
 ;;
-;; To turn CDLaTeX Minor Mode on and off in a particular buffer, use
-;; `M-x cdlatex-mode'.
+;; To turn Electricindex Minor Mode on and off in a particular buffer, use
+;; `M-x electricindex-mode'.
 ;;
-;; To turn on CDLaTeX Minor Mode for all LaTeX files, add one of the
+;; To turn on Electricindex Minor Mode for all LaTeX files, add one of the
 ;; following lines to your .emacs file:
 ;;
-;;   (add-hook 'LaTeX-mode-hook #'turn-on-cdlatex)   ; with AUCTeX LaTeX mode
-;;   (add-hook 'latex-mode-hook #'turn-on-cdlatex)   ; with Emacs latex mode
-;;
-;; For key bindings, see further down in this documentation.
-;;
-;; CDLaTeX requires texmathp.el (which is distributed with AUCTeX) to
-;; auto-insert $...$ when needed, so we recommend you install AUCTeX to get
-;; this functionality.
-;;
-;;--
-;;
-;; OVERVIEW
-;; 
-;;
-;; CDLaTeX is a minor mode supporting mainly mathematical and scientific
-;; text development with LaTeX.  CDLaTeX is really about speed.  AUCTeX
-;; (the major mode I recommend for editing LaTeX files) does have a hook
-;; based system for inserting environments and macros - but while this is
-;; useful and general, it is sometimes slow to use.  CDLaTeX tries to be
-;; quick, with very few and easy to remember keys, and intelligent
-;; on-the-fly help.
-;;
-;; 1. ABBREVIATIONS.
-;;-
-;;CDLaTeX has an abbrev-like mechanism to insert full LaTeX
-;;environments and other templates into the buffer.  Abbreviation
-;;expansion is triggered with the TAB key only, not with SPC or RET.
-;;For example, typing "ite" inserts an itemize environment.  A
-;;full list of defined abbreviations is available with the command
-;;`C-c ?' (`cdlatex-command-help').
-;;
-;;1a. ENVIRONMENT TEMPLATES
-;;-
-;;Typing `C-c {' (`cdlatex-environment') uses the minibuffer to
-;;complete the name of a LaTeX environment and inserts a template
-;;for this environment into the buffer.  These environment
-;;templates also contain labels created with RefTeX.  In a
-;;template, text needs to be filled in at various places, which we
-;;call "points of interest".  You can use the TAB key to jump to
-;;the next point of interest in the template.  If there is an
-;;active region, the region will be wrapped into the environment,
-;;ignoring the template content.
-;;
-;;For many frequently used LaTeX environments, abbreviations are
-;;available.  Most of the time, the abbreviation consists of the
-;;first three letters of the environment name: `equ' expands
-;;into
-;;\begin{equation}
-;;\label{eq:1}
-;;
-;;\end{equation}
-;;
-;;Similarly, `ali' inserts an AMS-LaTeX align environment
-;;template etc.  For a full list of environment abbreviations, use
-;;`C-c ?'.
-;;
-;;Use the command `C-c -' (`cdlatex-item') to insert a generalized
-;;new "item" in any "list"-like environment.  For example, in an
-;;itemize environment, this inserts "\item", in an enumerate
-;;environment it inserts "\item\label{item:2

[nongnu] elpa/meow 1f19c2e2e4: fix display of double dash (#495)

[ELPA Syncer]

branch: elpa/meow
commit 1f19c2e2e42bce636bea67448edcf5b7e8b9a529
Author: SpringerJack <46654987+springerj...@users.noreply.github.com>
Commit: GitHub 

fix display of double dash (#495)
---
 CUSTOMIZATIONS.org | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/CUSTOMIZATIONS.org b/CUSTOMIZATIONS.org
index 376cdd2cac..9c459d1b8f 100644
--- a/CUSTOMIZATIONS.org
+++ b/CUSTOMIZATIONS.org
@@ -333,7 +333,7 @@ Association list of predicates to functions.
 
 This list is used to update the cursor type and face. The first value whose
 predicate evaluates to true will have its corresponding key run. This key
-should use meow--set-cursor-type and meow--set-cursor-color to update the 
cursor.
+should use ~meow--set-cursor-type~ and ~meow--set-cursor-color~ to update the 
cursor.
 
 You may customize this list for more complex modifications to the cursor.
 For instance, to change the face of the insert cursor to a hollow cursor only

[nongnu] elpa/xah-fly-keys b873a08cdb: xah-shrink-whitespaces old behavior is back

[ELPA Syncer]

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

xah-shrink-whitespaces old behavior is back
---
 xah-fly-keys.el | 140 +++-
 1 file changed, 109 insertions(+), 31 deletions(-)

diff --git a/xah-fly-keys.el b/xah-fly-keys.el
index 33fb71837e..d3c0f6a4f1 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.4.20230811133840
+;; Version: 24.5.20230812104032
 ;; Created: 10 Sep 2013
 ;; Package-Requires: ((emacs "24.1"))
 ;; Keywords: convenience, emulations, vim, ergoemacs
@@ -744,41 +744,119 @@ Version: 2017-07-02 2023-07-22 2023-07-30"
  (t
   (delete-char -1)
 
+(defun xah-delete-blank-lines ()
+  "Delete all newline around cursor.
+
+URL `http://xahlee.info/emacs/emacs/emacs_shrink_whitespace.html'
+Version: 2018-04-02"
+  (interactive)
+  (let (xp3 xp4)
+  (skip-chars-backward "\n")
+  (setq xp3 (point))
+  (skip-chars-forward "\n")
+  (setq xp4 (point))
+  (delete-region xp3 xp4)))
+
+(defun xah-fly-delete-spaces ()
+  "Delete space, tab, IDEOGRAPHIC SPACE (U+3000) around cursor.
+Version: 2019-06-13"
+  (interactive)
+  (let (xp1 xp2)
+(skip-chars-forward " \t　")
+(setq xp2 (point))
+(skip-chars-backward " \t　")
+(setq xp1 (point))
+(delete-region xp1 xp2)))
+
 (defun xah-shrink-whitespaces ()
-  "Remove whitespaces around cursor.
+  "Remove whitespaces around cursor .
 
-Shrink neighboring whitespace.
-First shrink space or tab, then newlines.
-Repeated calls eventually results in no whitespace around cursor.
+Shrink neighboring spaces, then newlines, then spaces again, leaving one space 
or newline at each step, till no more white space.
 
 URL `http://xahlee.info/emacs/emacs/emacs_shrink_whitespace.html'
-Version: 2014-10-21 2023-07-26 2023-08-02"
+Version: 2014-10-21 2021-11-26 2021-11-30 2023-07-12"
   (interactive)
-  (cond
-   ((if (eq (point-min) (point))
-nil
-  (prog2 (backward-char) (looking-at "[ \t]") (forward-char)))
-(progn
-  ;; (print (format "space on left"))
-  (delete-char (- (skip-chars-backward " \t")
-   ((looking-at "[ \t]")
-(progn
-  ;; (print (format "space on right"))
-  (delete-char (- (skip-chars-forward " \t")
-   ((or
- (and (eq (char-before) 10) (eq (char-after) 10))
- (looking-at "\n\n")
- (and (eq (char-before (point)) 10) (eq (char-before (1- (point))) 10)))
-(progn
-  ;; (print (format "2 newlines on left or right, or one each"))
-  (delete-char (- (skip-chars-backward "\n")))
-  (delete-char (- (skip-chars-forward "\n")))
-  (insert "\n")))
-   (t
-(progn
-  ;; (print (format "catch all"))
-  (delete-char (- (skip-chars-backward " \n")))
-  (delete-char (- (skip-chars-forward " \n")))
+  (let ((xeol-count 0)
+(xp0 (point))
+xp1  ; whitespace begin
+xp2  ; whitespace end
+(xcharBefore (char-before))
+(xcharAfter (char-after))
+xspace-neighbor-p)
+
+(setq xspace-neighbor-p (or (eq xcharBefore 32) (eq xcharBefore 9) (eq 
xcharAfter 32) (eq xcharAfter 9)))
+
+(skip-chars-backward " \n\t　")
+(setq xp1 (point))
+(goto-char xp0)
+(skip-chars-forward " \n\t　")
+(setq xp2 (point))
+(goto-char xp1)
+(while (search-forward "\n" xp2 t)
+  (setq xeol-count (1+ xeol-count)))
+(goto-char xp0)
+(cond
+ ((eq xeol-count 0)
+  (if (> (- xp2 xp1) 1)
+  (progn
+(delete-horizontal-space) (insert " "))
+(progn (delete-horizontal-space
+ ((eq xeol-count 1)
+  (if xspace-neighbor-p
+  (xah-fly-delete-spaces)
+(progn (xah-delete-blank-lines) (insert " "
+ ((eq xeol-count 2)
+  (if xspace-neighbor-p
+  (xah-fly-delete-spaces)
+(progn
+  (xah-delete-blank-lines)
+  (insert "\n"
+ ((> xeol-count 2)
+  (if xspace-neighbor-p
+  (xah-fly-delete-spaces)
+(progn
+  (goto-char xp2)
+  (search-backward "\n")
+  (delete-region xp1 (point))
+  (insert "\n"
+ (t (progn
+  (message "nothing done. logic error 40873. shouldn't reach 
here"))
+
+;; (defun xah-shrink-whitespaces ()
+;;   "Remove whitespaces around cursor.
+
+;; Shrink neighboring whitespace.
+;; First shrink space or tab, then newlines.
+;; Repeated calls eventually results in no whitespace around cursor.
+
+;; URL `http://xahlee.info/emacs/emacs/emacs_shrink_whitespace.html'
+;; Version: 2014-10-21 2023-07-26 2023-08-02"
+;;   (interactive)
+;;   (cond
+;;((if (eq (point-min) (point))
+;; nil
+;;   (prog2 (backward-char) (looking-at "[ \t]") (forward-char)))
+;; (progn
+;;   ;; (print (format "space on left"))
+;;   (delete-char (- (skip-chars-backward " \t")))

[nongnu] elpa/php-mode updated (38fd6ec205 -> 34462fc138)

[ELPA Syncer]

elpasync pushed a change to branch elpa/php-mode.

  from  38fd6ec205 Merge pull request #754 from 
emacs-php/remove/php-project-phan-variables
   new  b9ada729f3 php-magical-constant: align implementation with 
php-ts-mode
   new  f913c67d89 Merge pull request #756 from 
piotrkwiecinski/php-consts-face-dir
   new  59459d4ddf update github actions
   new  34462fc138 Merge pull request #755 from 
piotrkwiecinski/github-action-updates


Summary of changes:
 .github/workflows/test.yml | 4 ++--
 lisp/php.el| 3 ++-
 2 files changed, 4 insertions(+), 3 deletions(-)

[nongnu] elpa/php-mode 34462fc138 4/4: Merge pull request #755 from piotrkwiecinski/github-action-updates

[ELPA Syncer]

branch: elpa/php-mode
commit 34462fc138402b072d864d16dd3ae21eed7d5513
Merge: f913c67d89 59459d4ddf
Author: USAMI Kenta 
Commit: GitHub 

Merge pull request #755 from piotrkwiecinski/github-action-updates

update github actions
---
 .github/workflows/test.yml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
index 7166cbbe34..8c2438c14a 100644
--- a/.github/workflows/test.yml
+++ b/.github/workflows/test.yml
@@ -26,7 +26,7 @@ jobs:
   - emacs_version: snapshot
 allow_failure: true
 steps:
-- uses: actions/setup-python@v2
+- uses: actions/setup-python@v4
   with:
 python-version: '3.11'
 architecture: 'x64'
@@ -36,7 +36,7 @@ jobs:
 - uses: conao3/setup-cask@master
   with:
 version: 'snapshot'
-- uses: actions/checkout@v2
+- uses: actions/checkout@v3
 - name: Run tests
   if: matrix.allow_failure != true
   run: 'make .cask test'

[nongnu] elpa/php-mode f913c67d89 3/4: Merge pull request #756 from piotrkwiecinski/php-consts-face-dir

[ELPA Syncer]

branch: elpa/php-mode
commit f913c67d893ccba2584febb0386b1b7a8f4c2669
Merge: 38fd6ec205 b9ada729f3
Author: USAMI Kenta 
Commit: GitHub 

Merge pull request #756 from piotrkwiecinski/php-consts-face-dir

php-magical-constant: align implementation with php-ts-mode
---
 lisp/php.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/php.el b/lisp/php.el
index 747259732d..71c6c09a30 100644
--- a/lisp/php.el
+++ b/lisp/php.el
@@ -206,7 +206,8 @@ a completion list."
 
 ;;; PHP Keywords
 (defconst php-magical-constants
-  (list "__LINE__" "__FILE__" "__FUNCTION__" "__CLASS__" "__TRAIT__" 
"__METHOD__" "__NAMESPACE__")
+  '("__CLASS__" "__DIR__" "__FILE__" "__FUNCTION__" "__LINE__"
+"__METHOD__" "__NAMESPACE__" "__TRAIT__")
   "Magical keyword that is expanded at compile time.
 
 These are different from \"constants\" in strict terms.

[nongnu] elpa/php-mode b9ada729f3 2/4: php-magical-constant: align implementation with php-ts-mode

[ELPA Syncer]

branch: elpa/php-mode
commit b9ada729f31c79e3daa75522d7da6af531fa59f6
Author: Piotr Kwiecinski 
Commit: Piotr Kwiecinski 

php-magical-constant: align implementation with php-ts-mode
---
 lisp/php.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/php.el b/lisp/php.el
index 747259732d..71c6c09a30 100644
--- a/lisp/php.el
+++ b/lisp/php.el
@@ -206,7 +206,8 @@ a completion list."
 
 ;;; PHP Keywords
 (defconst php-magical-constants
-  (list "__LINE__" "__FILE__" "__FUNCTION__" "__CLASS__" "__TRAIT__" 
"__METHOD__" "__NAMESPACE__")
+  '("__CLASS__" "__DIR__" "__FILE__" "__FUNCTION__" "__LINE__"
+"__METHOD__" "__NAMESPACE__" "__TRAIT__")
   "Magical keyword that is expanded at compile time.
 
 These are different from \"constants\" in strict terms.

[nongnu] elpa/php-mode 59459d4ddf 1/4: update github actions

[ELPA Syncer]

branch: elpa/php-mode
commit 59459d4ddf70113e7d7b2a1d3aa6153bbab3f288
Author: Piotr Kwiecinski 
Commit: Piotr Kwiecinski 

update github actions
---
 .github/workflows/test.yml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
index 7166cbbe34..8c2438c14a 100644
--- a/.github/workflows/test.yml
+++ b/.github/workflows/test.yml
@@ -26,7 +26,7 @@ jobs:
   - emacs_version: snapshot
 allow_failure: true
 steps:
-- uses: actions/setup-python@v2
+- uses: actions/setup-python@v4
   with:
 python-version: '3.11'
 architecture: 'x64'
@@ -36,7 +36,7 @@ jobs:
 - uses: conao3/setup-cask@master
   with:
 version: 'snapshot'
-- uses: actions/checkout@v2
+- uses: actions/checkout@v3
 - name: Run tests
   if: matrix.allow_failure != true
   run: 'make .cask test'

[elpa] externals/ement dbe2212cba: Fix: (ement-room-list-next-unread) Infinite loop

[ELPA Syncer]

branch: externals/ement
commit dbe2212cbad7e95a667e283df41c5e4897cfe440
Author: Adam Porter 
Commit: Adam Porter 

Fix: (ement-room-list-next-unread) Infinite loop

Thanks to Visuwesh (@vizs) and <@mrtnmrtn:matrix.org>.
---
 README.org | 1 +
 ement-room-list.el | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/README.org b/README.org
index f08e495c3a..71e304e617 100644
--- a/README.org
+++ b/README.org
@@ -312,6 +312,7 @@ Note that, while ~matrix-client~ remains usable, and 
probably will for some time
 + Call external browser for SSO login page.  (JavaScript is usually required, 
which EWW doesn't support, and loading the page twice seems to change state on 
the server that causes the SSO login to fail, so it's best to load the page in 
the external browser directly).
 + Clean up SSO server process after two minutes in case SSO login fails.
 + Don't stop syncing if an error is signaled while sending a notification.
++ Command ~ement-room-list-next-unread~ could enter an infinite loop.  (Thanks 
to [[https://github.com/vizs][Visuwesh]] and ~@mrtnmrtn:matrix.org~.)
 
 ** 0.10
 
diff --git a/ement-room-list.el b/ement-room-list.el
index aaaea77c21..b604c9e1d9 100644
--- a/ement-room-list.el
+++ b/ement-room-list.el
@@ -768,7 +768,8 @@ left."
 (ement-room-goto-fully-read-marker)
 (cl-return t))
else do (forward-line 1)
-   while (> (line-number-at-pos) starting-line))
+   while (and (not (eobp))
+  (> (line-number-at-pos) starting-line)))
 ;; No more unread rooms.
 (message "No more unread rooms")))