[nongnu] elpa/helm 6e61e2f5d0 1/3: Use new numeric optional arg of helm-basename

2023-09-16 Thread ELPA Syncer
branch: elpa/helm
commit 6e61e2f5d0cad1418cf115f0a0df6c58c67ac602
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Use new numeric optional arg of helm-basename
---
 helm-elisp.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/helm-elisp.el b/helm-elisp.el
index 801d13ef2c..0ef6e215c1 100644
--- a/helm-elisp.el
+++ b/helm-elisp.el
@@ -937,7 +937,7 @@ some new libraries are found."
 (cl-loop with lgst = (helm-in-buffer-get-longest-candidate)
  for c in candidates
  for sep = (make-string (1+ (- lgst (length c))) ? )
- for bn = (helm-basename (helm-basename c t) t)
+ for bn = (helm-basename c 2)
  for path = (or (assoc-default bn 
helm--locate-library-cache)
 (let ((p (find-library-name bn)))
   (push (cons bn p) 
helm--locate-library-cache)



[nongnu] elpa/helm updated (9a5827284a -> 9514cfb55d)

2023-09-16 Thread ELPA Syncer
elpasync pushed a change to branch elpa/helm.

  from  9a5827284a Fix typo in helm-locate-lib-get-summary regexp
   new  6e61e2f5d0 Use new numeric optional arg of helm-basename
   new  fddf8e32aa Finally opt for a filtered-candidate-transformer in 
*locate-library
   new  9514cfb55d Make helm-locate-lib-get-summary async


Summary of changes:
 helm-elisp.el |  6 +++---
 helm-lib.el   | 30 +++---
 2 files changed, 22 insertions(+), 14 deletions(-)



[nongnu] elpa/helm fddf8e32aa 2/3: Finally opt for a filtered-candidate-transformer in *locate-library

2023-09-16 Thread ELPA Syncer
branch: elpa/helm
commit fddf8e32aa4ff865f2ed725c3ab9e226837f5541
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Finally opt for a filtered-candidate-transformer in *locate-library

This speedup start for people not making variables persistent.
---
 helm-elisp.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/helm-elisp.el b/helm-elisp.el
index 0ef6e215c1..a7bab929e6 100644
--- a/helm-elisp.el
+++ b/helm-elisp.el
@@ -931,8 +931,8 @@ some new libraries are found."
   :data #'helm-locate-library-scan-list
   :fuzzy-match helm-locate-library-fuzzy-match
   :keymap helm-generic-files-map
-  :candidate-transformer
-  (lambda (candidates)
+  :filtered-candidate-transformer
+  (lambda (candidates _source)
 (if (or completions-detailed helm-completions-detailed)
 (cl-loop with lgst = (helm-in-buffer-get-longest-candidate)
  for c in candidates



[nongnu] elpa/helm 9514cfb55d 3/3: Make helm-locate-lib-get-summary async

2023-09-16 Thread ELPA Syncer
branch: elpa/helm
commit 9514cfb55daa3fd3928b0730a6d85e181fc19fb5
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Make helm-locate-lib-get-summary async
---
 helm-lib.el | 30 +++---
 1 file changed, 19 insertions(+), 11 deletions(-)

diff --git a/helm-lib.el b/helm-lib.el
index 6e41afa353..b59a362385 100644
--- a/helm-lib.el
+++ b/helm-lib.el
@@ -1730,17 +1730,25 @@ Directories expansion is not supported."
  (cmd "%s %s | head -n1 | awk 'match($0,\"%s\",a) {print a[2]}'\
  | awk -F ' -*-' '{print $1}'")
  (regexp "^;;;(.*) --- (.*)$")
- (output (replace-regexp-in-string
-  "\n" ""
-  (with-temp-buffer
-(call-process-shell-command 
- (format cmd
- (if (string-match-p "\\.gz\\'" file)
- "gzip -c -q -d" "cat")
- (shell-quote-argument file)
- regexp)
- nil t nil)
-(buffer-string)
+ (proc (start-process-shell-command
+"helm-locate-lib-get-summary" "*helm locate lib*"
+(format cmd
+(if (string-match-p "\\.gz\\'" file)
+"gzip -c -q -d" "cat")
+(shell-quote-argument file)
+regexp)))
+ output)
+(set-process-filter proc nil)
+(set-process-sentinel proc (lambda (process event)
+ (when (string= event "finished\n")
+   (setq output
+ (with-current-buffer (process-buffer 
process)
+   (replace-regexp-in-string
+"\n" ""
+(buffer-string)
+ (kill-buffer (process-buffer process
+(while (and proc (eq (process-status proc) 'run))
+  (accept-process-output proc))
 (if (string= output "")
 "Not documented"
   output)))



[nongnu] elpa/meow ba0cf4d160: Add shim for sly (#503)

2023-09-16 Thread ELPA Syncer
branch: elpa/meow
commit ba0cf4d1607971374351a68e48581d3ff4184c0e
Author: jgart 
Commit: GitHub 

Add shim for sly (#503)
---
 meow-shims.el | 20 
 1 file changed, 20 insertions(+)

diff --git a/meow-shims.el b/meow-shims.el
index 6bc7f83129..3d8a429032 100644
--- a/meow-shims.el
+++ b/meow-shims.el
@@ -231,6 +231,25 @@ Argument ENABLE non-nil means turn on."
   (add-hook 'cider--debug-mode-hook 'meow--cider-debug-hook-function)
 (remove-hook 'cider--debug-mode-hook 'meow--cider-debug-hook-function)))
 
+;;;
+;; sly (db)
+
+(defvar meow--sly-setup nil)
+
+(defun meow--sly-debug-hook-function ()
+  "Switch meow state when entering/leaving sly-db-mode."
+  (if (bound-and-true-p sly-db-mode-hook)
+  (meow--switch-to-motion)
+(meow--switch-to-motion)))
+
+(defun meow--setup-sly (enable)
+  "Setup sly.
+Argument ENABLE non-nil means turn on."
+  (setq meow--sly-setup enable)
+  (if enable
+  (add-hook 'sly-db-hook 'meow--sly-debug-hook-function)
+(remove-hook 'sly-db-hook 'meow--sly-debug-hook-function)))
+
 ;;;
 ;; which-key
 
@@ -305,6 +324,7 @@ Argument ENABLE non-nil means turn on."
   (eval-after-load "company" (lambda () (meow--setup-company t)))
   (eval-after-load "polymode" (lambda () (meow--setup-polymode t)))
   (eval-after-load "cider" (lambda () (meow--setup-cider t)))
+  (eval-after-load "sly" (lambda () (meow--setup-sly t)))
   (eval-after-load "which-key" (lambda () (meow--setup-which-key t)))
   (eval-after-load "undo-tree" (lambda () (meow--setup-undo-tree t)))
   (eval-after-load "diff-hl" (lambda () (meow--setup-diff-hl t)))



[nongnu] elpa/helm-core updated (9a5827284a -> 9514cfb55d)

2023-09-16 Thread ELPA Syncer
elpasync pushed a change to branch elpa/helm-core.

  from  9a5827284a Fix typo in helm-locate-lib-get-summary regexp
  adds  6e61e2f5d0 Use new numeric optional arg of helm-basename
  adds  fddf8e32aa Finally opt for a filtered-candidate-transformer in 
*locate-library
  adds  9514cfb55d Make helm-locate-lib-get-summary async

No new revisions were added by this update.

Summary of changes:
 helm-elisp.el |  6 +++---
 helm-lib.el   | 30 +++---
 2 files changed, 22 insertions(+), 14 deletions(-)



[elpa] externals/denote updated (dff73d46c5 -> 3061a7387f)

2023-09-16 Thread ELPA Syncer
elpasync pushed a change to branch externals/denote.

  from  dff73d46c5 Move "Denote" menu on menu-bar to the end after "Tools"
   new  4e3c0306dc Create denote-silo-extra for convenience functions in 
multiple silos
   new  3061a7387f Rename 'denote-silo-extras.el', document and refine 
everything


Summary of changes:
 README.org|  44 ++
 denote-silo-extras.el | 125 ++
 2 files changed, 169 insertions(+)
 create mode 100644 denote-silo-extras.el



[elpa] externals/denote 3061a7387f 2/2: Rename 'denote-silo-extras.el', document and refine everything

2023-09-16 Thread ELPA Syncer
branch: externals/denote
commit 3061a7387f01aade83f5c7a88b7d758fd206a665
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Rename 'denote-silo-extras.el', document and refine everything

This is discussed on the mailing list with the participation of Vedang
Manerikar: .
---
 README.org|  44 ++
 denote-silo-extra.el  |  89 ---
 denote-silo-extras.el | 125 ++
 3 files changed, 169 insertions(+), 89 deletions(-)

diff --git a/README.org b/README.org
index 98c8c274d3..717a7df4f2 100644
--- a/README.org
+++ b/README.org
@@ -803,6 +803,11 @@ sufficient.  The manual shall be expanded accordingly.
 :CUSTOM_ID: h:0f72e6ea-97f0-42e1-8fd4-0684af0422e0
 :END:
 
+[ As part of {{{development-version}}}, the contents of this section
+  are formally provided in the file =denote-silo-extras.el=.  We keep
+  this here for existing users.  Otherwise consult the new entry in
+  the manual ([[#h:e43baf95-f201-4fec-8620-c0eb5eaa1c85][The 
=denote-silo-extras.el=]]). ]
+
 We implement silos as directory-local values of the user option
 ~denote-directory~.  This means that all Denote commands read from the
 local value if they are invoked from that context.  For example, if
@@ -870,6 +875,45 @@ To see another example of a wrapper function that uses
 
 [[#h:d0c7cb79-21e5-4176-a6af-f4f68578c8dd][Extending Denote: Split an Org 
subtree into its own note]].
 
+*** The =denote-silo-extras.el=
+:PROPERTIES:
+:CUSTOM_ID: h:e43baf95-f201-4fec-8620-c0eb5eaa1c85
+:END:
+
+[ Part of {{{development-version}}}. ]
+
+The =denote-silo-extras.el= provides optional convenience functions for
+working with silos ([[#h:15719799-a5ff-4e9a-9f10-4ca03ef8f6c5][Maintain 
separate directory silos for notes]]).
+Start by loading the relevant library:
+
+#+begin_src emacs-lisp
+;; Register Denote's Org dynamic blocks
+(require 'denote-silo-extras)
+#+end_src
+
+#+vindex: denote-silo-extras-directories
+The user option ~denote-silo-extras-directories~ specifies a list of
+directories that the user has set up as ~denote-directory~ silos.
+
+#+findex: denote-silo-extras-create-note
+The command ~denote-silo-extras-create-note~ prompts for a directory
+among ~denote-silo-extras-directories~ and runs the ~denote~ command
+from there.
+
+#+findex: denote-silo-extras-open-or-create
+Similar to the above, the command ~denote-silo-extras-open-or-create~
+prompts for a directory among ~denote-silo-extras-directories~ and runs
+the ~denote-open-or-create~ command from there.
+
+#+findex: denote-silo-extras-select-silo-then-command
+#+vindex: denote-silo-extras-commands
+The command ~denote-silo-extras-select-silo-then-command~ prompts with
+minibuffer completion for a directory among ~denote-silo-extras-directories~.
+Once the user selects a silo, a second prompt asks for a Denote
+note-creation command to call from inside that silo 
([[#h:17896c8c-d97a-4faa-abf6-31df99746ca6][Points of entry]]).
+The list of available commands is specified in the user option
+~denote-silo-extras-commands~.
+
 ** Exclude certain directories from all operations
 :PROPERTIES:
 :CUSTOM_ID: h:8458f716-f9c2-4888-824b-2bf01cc5850a
diff --git a/denote-silo-extra.el b/denote-silo-extra.el
deleted file mode 100644
index 7063fa3424..00
--- a/denote-silo-extra.el
+++ /dev/null
@@ -1,89 +0,0 @@
-;;; denote-silo-extra.el --- Convenience functions for using Denote in 
multiple silos  -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2023  Free Software Foundation, Inc.
-
-;; Author: Protesilaos Stavrou 
-;; Maintainer: Denote Development <~protesilaos/den...@lists.sr.ht>
-;; URL: https://git.sr.ht/~protesilaos/denote
-;; Mailing-List: https://lists.sr.ht/~protesilaos/denote
-
-;; This file is NOT part of GNU Emacs.
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see .
-
-;;; Commentary:
-
-;;
-
-;;; Code:
-
-(require 'denote)
-
-(defgroup denote-silo-extra nil
-  "Make it easier to use Denote across Silos."
-  :group 'denote
-  :link '(info-link "(denote) Top")
-  :link '(url-link :tag "Homepage" "https://protesilaos.com/emacs/denote";))
-
-(defcustom denote-silo-extra-directories
-  `(,denote-directory)
-  "List of file paths pointing to my Denote silos."
-  :group 'denote-silo-extra
-  :link '(info-link "(denote) M

[elpa] externals/denote 4e3c0306dc 1/2: Create denote-silo-extra for convenience functions in multiple silos

2023-09-16 Thread ELPA Syncer
branch: externals/denote
commit 4e3c0306dc21245e9705f92d035f058b39ff2dbb
Author: Vedang Manerikar 
Commit: Protesilaos Stavrou 

Create denote-silo-extra for convenience functions in multiple silos

Move the functions of the Denote manual related to creating, opening
or running commands _after specifying a silo_ to this new file.

This commit introduces the following:

Variables:
* `denote-silo-extra-directories`: List of directories which are silos
* `denote-silo-extra-commands-for-silos`: List of common commands we
  may want to run in a silo

Functions:
* `denote-silo-extra-pick-silo-then-command`
* `denote-silo-extra-create`
* `denote-silo-extra-open-or-create`
---
 denote-silo-extra.el | 89 
 1 file changed, 89 insertions(+)

diff --git a/denote-silo-extra.el b/denote-silo-extra.el
new file mode 100644
index 00..7063fa3424
--- /dev/null
+++ b/denote-silo-extra.el
@@ -0,0 +1,89 @@
+;;; denote-silo-extra.el --- Convenience functions for using Denote in 
multiple silos  -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2023  Free Software Foundation, Inc.
+
+;; Author: Protesilaos Stavrou 
+;; Maintainer: Denote Development <~protesilaos/den...@lists.sr.ht>
+;; URL: https://git.sr.ht/~protesilaos/denote
+;; Mailing-List: https://lists.sr.ht/~protesilaos/denote
+
+;; This file is NOT part of GNU Emacs.
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see .
+
+;;; Commentary:
+
+;;
+
+;;; Code:
+
+(require 'denote)
+
+(defgroup denote-silo-extra nil
+  "Make it easier to use Denote across Silos."
+  :group 'denote
+  :link '(info-link "(denote) Top")
+  :link '(url-link :tag "Homepage" "https://protesilaos.com/emacs/denote";))
+
+(defcustom denote-silo-extra-directories
+  `(,denote-directory)
+  "List of file paths pointing to my Denote silos."
+  :group 'denote-silo-extra
+  :link '(info-link "(denote) Maintain separate directories for notes")
+  :type '(repeat directory))
+
+(defvar denote-silo-extra-commands-for-silos
+  '(denote
+denote-date
+denote-subdirectory
+denote-template
+denote-type
+denote-signature)
+  "List of commands to call after selecting a silo.")
+
+(defun denote-silo-extra-pick-silo-then-command (silo command)
+  "Select SILO and run Denote COMMAND in it.
+SILO is a file path from `denote-silo-extra-directories', while
+COMMAND is one among `denote-silo-extra-commands-for-silos'."
+  (interactive
+   (list (completing-read "Select a silo: "
+  denote-silo-extra-directories nil t)
+ (intern
+  (completing-read "Run command in silo: "
+   denote-silo-extra-commands-for-silos nil t
+  (let ((denote-user-enforced-denote-directory silo))
+(call-interactively command)))
+
+(defun denote-silo-extra-create (&optional silo)
+  "Select SILO and run `denote' in it.
+SILO is a file path from `denote-silo-extra-directories'."
+  (interactive
+   (list (when current-prefix-arg
+   (completing-read "Select a silo: "
+denote-silo-extra-directories nil t
+  (let ((denote-user-enforced-denote-directory silo))
+(call-interactively #'denote)))
+
+(defun denote-silo-extra-open-or-create (&optional silo)
+  "Select SILO and run `denote-open-or-create' in it.
+SILO is a file path from `denote-silo-extra-directories'."
+  (interactive
+   (list (when current-prefix-arg
+   (completing-read "Select a silo: "
+denote-silo-extra-directories nil t
+  (let ((denote-user-enforced-denote-directory silo))
+(call-interactively #'denote-open-or-create)))
+
+(provide 'denote-silo-extra)
+;;; denote-silo-extra.el ends here



[elpa] externals/ef-themes d72b3916a9: Add support for new appt-notification face (Emacs 30)

2023-09-16 Thread ELPA Syncer
branch: externals/ef-themes
commit d72b3916a980a1b5fbeda2fe350da2cb48ceb0b0
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add support for new appt-notification face (Emacs 30)
---
 ef-themes.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/ef-themes.el b/ef-themes.el
index 7a5a37694e..1aab189deb 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -918,6 +918,7 @@ text should not be underlined as well) yet still blend in."
 `(tool-bar ((,c :background ,bg-dim :foreground ,fg-main)))
 `(vertical-border ((,c :foreground ,border)))
 ; all other basic faces
+`(appt-notification ((,c :inherit error)))
 `(button ((,c :foreground ,link :underline ,border)))
 `(child-frame-border ((,c :background ,border)))
 `(comint-highlight-input ((,c :inherit bold)))



[elpa] externals/mct 85ecd5a53c 2/3: Make check for first candidate account for completions-header-format (Emacs 29)

2023-09-16 Thread ELPA Syncer
branch: externals/mct
commit 85ecd5a53c021983e21d9ef215310673eeaae896
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Make check for first candidate account for completions-header-format (Emacs 
29)
---
 mct.el | 25 +
 1 file changed, 13 insertions(+), 12 deletions(-)

diff --git a/mct.el b/mct.el
index de03c41f5d..ca3d58c0c1 100644
--- a/mct.el
+++ b/mct.el
@@ -331,18 +331,19 @@ This function can be used as the value of the user option
 ;; beginning of the line, unless the point was moved forward).
 (defun mct--setup-clean-completions ()
   "Keep only completion candidates in the Completions."
-  (with-current-buffer standard-output
-(unless (mct--first-line-completion-p)
-  (goto-char (point-min))
-  (let ((inhibit-read-only t))
-(delete-region (line-beginning-position) (1+ (line-end-position)))
-(insert (propertize " "
-'cursor-sensor-functions
-(list
- (lambda (_win prev dir)
-   (when (eq dir 'entered)
- (goto-char prev))
-(put-text-property (point-min) (point) 'invisible t)
+  (unless completions-header-format
+(with-current-buffer standard-output
+  (unless (mct--first-line-completion-p)
+(goto-char (point-min))
+(let ((inhibit-read-only t))
+  (delete-region (line-beginning-position) (1+ (line-end-position)))
+  (insert (propertize " "
+  'cursor-sensor-functions
+  (list
+   (lambda (_win prev dir)
+ (when (eq dir 'entered)
+   (goto-char prev))
+  (put-text-property (point-min) (point) 'invisible t))
 
 (defun mct-frame-height-third ()
   "Return round number of 1/3 of `frame-height'.



[elpa] externals/mct updated (47f1a4aa83 -> 21bd64318c)

2023-09-16 Thread ELPA Syncer
elpasync pushed a change to branch externals/mct.

  from  47f1a4aa83 Rename mct-minibuffer-mode to mct-mode
   new  0ccb0f9ff3 Add sorting functions for Emacs 29 user option 
'completions-sort'
   new  85ecd5a53c Make check for first candidate account for 
completions-header-format (Emacs 29)
   new  21bd64318c Make motions account for completions-header-format 
(Emacs 29)


Summary of changes:
 mct.el | 70 +++---
 1 file changed, 54 insertions(+), 16 deletions(-)



[elpa] externals/mct 0ccb0f9ff3 1/3: Add sorting functions for Emacs 29 user option 'completions-sort'

2023-09-16 Thread ELPA Syncer
branch: externals/mct
commit 0ccb0f9ff37a86fc2d650960ec6e5bf55fd48702
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add sorting functions for Emacs 29 user option 'completions-sort'
---
 mct.el | 30 ++
 1 file changed, 30 insertions(+)

diff --git a/mct.el b/mct.el
index c741a95888..de03c41f5d 100644
--- a/mct.el
+++ b/mct.el
@@ -280,6 +280,36 @@ affairs."
 (defvar mct--dynamic-completion-categories '(file)
   "Completion categories that perform dynamic completion.")
 
+ Sorting functions for `completions-sort' (Emacs 29)
+
+(defun mct-sort-by-alpha-length (elements)
+  "Sort ELEMENTS first alphabetically, then by length.
+This function can be used as the value of the user option
+`completions-sort'."
+  (sort
+   elements
+   (lambda (c1 c2)
+ (or (string-version-lessp c1 c2)
+ (< (length c1) (length c2))
+
+(defun mct-sort-by-history (elements)
+  "Sort ELEMENTS by minibuffer history, else return them unsorted.
+This function can be used as the value of the user option
+`completions-sort'."
+  (if-let ((hist (and (not (eq minibuffer-history-variable t))
+  (symbol-value minibuffer-history-variable
+  (minibuffer--sort-by-position hist elements)
+elements))
+
+(defun mct-sort-multi-category (elements)
+  "Sort ELEMENTS per completion category.
+This function can be used as the value of the user option
+`completions-sort'."
+  (pcase (mct--completion-category)
+('kill-ring elements) ; no sorting
+('file (mct-sort-by-alpha-length elements))
+(_ (mct-sort-by-history elements
+
  Basics of intersection between minibuffer and Completions buffer
 
 (defface mct-highlight-candidate



[elpa] externals/mct 21bd64318c 3/3: Make motions account for completions-header-format (Emacs 29)

2023-09-16 Thread ELPA Syncer
branch: externals/mct
commit 21bd64318cd8f14f8a4982fa8bfa449919add880
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Make motions account for completions-header-format (Emacs 29)
---
 mct.el | 15 +++
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/mct.el b/mct.el
index ca3d58c0c1..ed6c6dff1b 100644
--- a/mct.el
+++ b/mct.el
@@ -559,8 +559,9 @@ by `mct--completions-window-name'."
 (defun mct--first-completion-point ()
   "Return the `point' of the first completion."
   (save-excursion
-(goto-char (point-min))
-(next-completion 1)
+(goto-char (point-max))
+(when completions-header-format
+ (next-completion 1))
 (point)))
 
 (defun mct--last-completion-point ()
@@ -639,7 +640,11 @@ the minibuffer."
   "Return non-nil if backward ARG motion exceeds `point-min'."
   (let ((line (- (line-number-at-pos) arg)))
 (or (< line 1)
-(= (save-excursion (previous-completion arg) (point)) (point-min)
+(when completions-header-format
+  (= (save-excursion
+   (previous-completion arg)
+   (line-number-at-pos))
+ (line-number-at-pos (point-max)))
 
 (defun mct--top-of-completions-p (arg)
   "Test if point is at the notional top of the Completions.
@@ -827,7 +832,9 @@ Apply APP while inhibiting modification hooks."
 (defun mct--setup-appearance ()
   "Set up variables for the appearance of the Completions buffer."
   (when mct-hide-completion-mode-line
-(setq-local mode-line-format nil)))
+(setq-local mode-line-format nil))
+  (when completions-header-format
+(setq-local display-line-numbers-offset -1)))
 
 ; Shadowed path
 



[elpa] externals/modus-themes 76109e4a28: Add support for new appt-notification face (Emacs 30)

2023-09-16 Thread ELPA Syncer
branch: externals/modus-themes
commit 76109e4a28327608b33a1a9a00634d73e046374e
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add support for new appt-notification face (Emacs 30)
---
 modus-themes.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/modus-themes.el b/modus-themes.el
index 156545402b..4ed990558d 100644
--- a/modus-themes.el
+++ b/modus-themes.el
@@ -1758,6 +1758,7 @@ FG and BG are the main colors."
 `(tool-bar ((,c :background ,bg-dim :foreground ,fg-main)))
 `(vertical-border ((,c :foreground ,border)))
 ; basic and/or ungrouped styles
+`(appt-notification ((,c :inherit error)))
 `(blink-matching-paren-highlight-offscreen ((,c :background 
,bg-paren-match)))
 `(bold ((,c :weight bold)))
 `(bold-italic ((,c :inherit (bold italic



[elpa] externals/org aee3f2227f 1/4: * lisp/org.el (org-mode): Initialize cache before parsing buffer keywords

2023-09-16 Thread ELPA Syncer
branch: externals/org
commit aee3f2227faeb95a58e127fff5c7445ff1c9822a
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

* lisp/org.el (org-mode): Initialize cache before parsing buffer keywords

If we load cache after `org-set-regexp-and-options', we may do double
job as `org-set-regexp-and-options' by itself queries cache.
---
 lisp/org.el | 16 
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index 6b68851dd9..84ac874389 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -4869,6 +4869,14 @@ The following commands are available:
  (vconcat (mapcar (lambda (c) (make-glyph-code c 'org-ellipsis))
  org-ellipsis)))
 (setq buffer-display-table org-display-table))
+  ;; Initialize cache.
+  (org-element-cache-reset)
+  (when (and org-element-cache-persistent
+ org-element-use-cache)
+(org-persist-load
+ `((elisp org-element--cache) (version ,org-element-cache-version))
+ (current-buffer)
+ 'match-hash :read-related t))
   (org-set-regexps-and-options)
   (org-set-font-lock-defaults)
   (when (and org-tag-faces (not org-tags-special-faces-re))
@@ -4887,14 +4895,6 @@ The following commands are available:
   (add-hook 'kill-buffer-hook 'org-check-running-clock nil 'local)
   ;; Check for invisible edits.
   (org-fold--advice-edit-commands)
-  ;; Initialize cache.
-  (org-element-cache-reset)
-  (when (and org-element-cache-persistent
- org-element-use-cache)
-(org-persist-load
- `((elisp org-element--cache) (version ,org-element-cache-version))
- (current-buffer)
- 'match-hash :read-related t))
   ;; Initialize macros templates.
   (org-macro-initialize-templates)
   ;; Initialize radio targets.



[elpa] externals/org 2e5db7a591 2/4: org-element-cache: Catch problems with persistent cache and abort loading

2023-09-16 Thread ELPA Syncer
branch: externals/org
commit 2e5db7a5919bd420818e1ab64fabc004062f13db
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

org-element-cache: Catch problems with persistent cache and abort loading

* lisp/org-element.el (org-element--cache-persist-after-read): When
the persistent cache has elements without parent, do not use such
cache and report a warning to user.
---
 lisp/org-element.el | 39 +++
 1 file changed, 23 insertions(+), 16 deletions(-)

diff --git a/lisp/org-element.el b/lisp/org-element.el
index 37c2d201f3..162aeda289 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -7389,22 +7389,29 @@ The element is: %S\n The real element is: %S\n Cache 
around :begin:\n%S\n%S\n%S"
  (get-file-buffer (plist-get associated :file)))
 (with-current-buffer (get-file-buffer (plist-get associated :file))
   (when (and org-element-use-cache org-element-cache-persistent)
-(when (and (equal container '(elisp org-element--cache)) 
org-element--cache)
-  ;; Restore `:buffer' property.
-  (avl-tree-mapc
-   (lambda (el)
- (org-element-map el t
-   (lambda (el2)
- (unless (org-element-type-p el2 'plain-text)
-   (org-element-put-property el2 :buffer (current-buffer
-   nil nil nil 'with-affiliated 'no-undefer)
- (org-element--cache-log-message
-  "Recovering persistent cached element: %S"
-  (org-element--format-element el)))
-   org-element--cache)
-  (setq-local org-element--cache-size (avl-tree-size 
org-element--cache)))
-(when (and (equal container '(elisp org-element--headline-cache)) 
org-element--headline-cache)
-  (setq-local org-element--headline-cache-size (avl-tree-size 
org-element--headline-cache)))
+(catch 'abort
+  (when (and (equal container '(elisp org-element--cache)) 
org-element--cache)
+;; Restore `:buffer' property.
+(avl-tree-mapc
+ (lambda (el)
+   (org-element-map el t
+ (lambda (el2)
+   (unless (org-element-type-p el2 'plain-text)
+ (org-element-put-property el2 :buffer (current-buffer
+ nil nil nil 'with-affiliated 'no-undefer)
+   (org-element--cache-log-message
+"Recovering persistent cached element: %S"
+(org-element--format-element el))
+   (when (and (not (org-element-parent el)) (not 
(org-element-type-p el 'org-data)))
+ (org-element--cache-warn
+  "Got element without parent when loading cache from disk.  
Not using this persistent cache.
+Please report it to Org mode mailing list (M-x org-submit-bug-report).\n%S" el)
+ (org-element-cache-reset)
+ (throw 'abort t)))
+ org-element--cache)
+(setq-local org-element--cache-size (avl-tree-size 
org-element--cache)))
+  (when (and (equal container '(elisp org-element--headline-cache)) 
org-element--headline-cache)
+(setq-local org-element--headline-cache-size (avl-tree-size 
org-element--headline-cache
 
 (add-hook 'org-persist-before-write-hook 
#'org-element--cache-persist-before-write)
 (add-hook 'org-persist-before-read-hook 
#'org-element--cache-persist-before-read)



[elpa] externals/org updated (e90a8a69a7 -> c703541ffc)

2023-09-16 Thread ELPA Syncer
elpasync pushed a change to branch externals/org.

  from  e90a8a69a7 org-element-cache: Log recovered persisted elements 
during loading
   new  aee3f2227f * lisp/org.el (org-mode): Initialize cache before 
parsing buffer keywords
   new  2e5db7a591 org-element-cache: Catch problems with persistent cache 
and abort loading
   new  2c7018f72e org-manual: Fix a preposition and capitalization
   new  c703541ffc * lisp/ob-groovy.el: Fix checkdoc warnings


Summary of changes:
 doc/org-manual.org  |  2 +-
 lisp/ob-groovy.el   |  8 
 lisp/org-element.el | 39 +++
 lisp/org.el | 16 
 4 files changed, 36 insertions(+), 29 deletions(-)



[elpa] externals/org c703541ffc 4/4: * lisp/ob-groovy.el: Fix checkdoc warnings

2023-09-16 Thread ELPA Syncer
branch: externals/org
commit c703541ffcc14965e3567f928de1683a1c1e33f6
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

* lisp/ob-groovy.el: Fix checkdoc warnings

(org-babel-execute:groovy):
(org-babel-groovy-evaluate): Document all the function arguments.
(org-babel-groovy-initiate-session): Fix the docstring, explaining
that function does nothing.
---
 lisp/ob-groovy.el | 8 
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/ob-groovy.el b/lisp/ob-groovy.el
index c0da69fcbf..8c05a24961 100644
--- a/lisp/ob-groovy.el
+++ b/lisp/ob-groovy.el
@@ -50,7 +50,7 @@ parameters may be used, like groovy -v"
   :type 'string)
 
 (defun org-babel-execute:groovy (body params)
-  "Execute a block of Groovy code with org-babel.
+  "Execute Groovy BODY according to PARAMS.
 This function is called by `org-babel-execute-src-block'."
   (message "Executing Groovy source code block")
   (let* ((processed-params (org-babel-process-params params))
@@ -81,6 +81,7 @@ println(new Runner().run())
 (defun org-babel-groovy-evaluate
 (session body &optional result-type result-params)
   "Evaluate BODY in external Groovy process.
+SESSION must be nil as sessions are not yet supported.
 If RESULT-TYPE equals `output' then return standard output as a string.
 If RESULT-TYPE equals `value' then return the value of the last statement
 in BODY as elisp."
@@ -107,9 +108,8 @@ in BODY as elisp."
   (error "Sessions are not (yet) supported for Groovy"))
 
 (defun org-babel-groovy-initiate-session (&optional _session)
-  "If there is not a current inferior-process-buffer in SESSION
-then create.  Return the initialized session.  Sessions are not
-supported in Groovy."
+  "Do nothing.
+Sessions are not supported in Groovy."
   nil)
 
 (provide 'ob-groovy)



[elpa] externals/org 2c7018f72e 3/4: org-manual: Fix a preposition and capitalization

2023-09-16 Thread ELPA Syncer
branch: externals/org
commit 2c7018f72e09b4640a648ece06fbdc1abec764c6
Author: Rudolf Adamkovič 
Commit: Ihor Radchenko 

org-manual: Fix a preposition and capitalization

* doc/org-manual.org (Capturing column view): Replace "in the
... line" with "on the ... line" and capitalize the containing
sentence as well.
---
 doc/org-manual.org | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/doc/org-manual.org b/doc/org-manual.org
index 6cd2bf378b..3e9d42f554 100644
--- a/doc/org-manual.org
+++ b/doc/org-manual.org
@@ -5971,7 +5971,7 @@ The following commands insert or update the dynamic block:
   #+kindex: C-c C-c
   #+kindex: C-c C-x C-u
   #+findex: org-dblock-update
-  Update dynamic block at point.  point needs to be in the =#+BEGIN=
+  Update dynamic block at point.  Point needs to be on the =#+BEGIN=
   line of the dynamic block.
 
 - {{{kbd(C-u C-c C-x C-u)}}} (~org-update-all-dblocks~) ::



[elpa] externals/standard-themes b7c89d4f2b: Add support for new appt-notification face (Emacs 30)

2023-09-16 Thread ELPA Syncer
branch: externals/standard-themes
commit b7c89d4f2b36d0a7fcfdac8a7c5b13c132abeddb
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add support for new appt-notification face (Emacs 30)
---
 standard-themes.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/standard-themes.el b/standard-themes.el
index ff3396bf6b..c0f63efc08 100644
--- a/standard-themes.el
+++ b/standard-themes.el
@@ -903,6 +903,7 @@ Optional prefix argument MAPPINGS has the same meaning as 
for
 `(standard-themes-fringe-warning ((,c :inherit bold :background ,bg-yellow 
:foreground ,fg-main)))
  all basic faces
 ; absolute essentials
+`(appt-notification ((,c :inherit error)))
 `(bold ((,c :weight bold)))
 `(bold-italic ((,c :inherit (bold italic
 `(cursor ((,c :background ,cursor)))



[nongnu] elpa/org-contrib f14585c2d3: * lisp/ol-wl.el: Do not use obsolete function names

2023-09-16 Thread ELPA Syncer
branch: elpa/org-contrib
commit f14585c2d34db1ad2906d58e79a5a97a6cabb401
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

* lisp/ol-wl.el: Do not use obsolete function names

(org-wl-store-link-folder):
(org-wl-store-link-message): Update function names to non-obsolete.
---
 lisp/ol-wl.el | 14 +++---
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/lisp/ol-wl.el b/lisp/ol-wl.el
index 413a042925..1940530881 100644
--- a/lisp/ol-wl.el
+++ b/lisp/ol-wl.el
@@ -162,7 +162,7 @@ ENTITY is a message entity."
   (beginning-of-line)
   (unless (and (wl-folder-buffer-group-p)
   (looking-at wl-folder-group-regexp))
-   (org-store-link-props :type "wl" :description petname
+   (org-link-store-props :type "wl" :description petname
  :link link)
link
 
@@ -216,7 +216,7 @@ ENTITY is a message entity."
(cond
 ((and (eq folder-type 'shimbun)
   org-wl-shimbun-prefer-web-links xref)
- (org-store-link-props :type "http" :link xref :description subject
+ (org-link-store-props :type "http" :link xref :description subject
:from from :to to :message-id message-id
:message-id-no-brackets 
message-id-no-brackets
:subject subject))
@@ -227,18 +227,18 @@ ENTITY is a message entity."
 "http://mid.gmane.org/%s";
"https://groups.google.com/groups/search?as_umsgid=%s";)
 (url-encode-url message-id)))
- (org-store-link-props :type "http" :link link :description subject
+ (org-link-store-props :type "http" :link link :description subject
:from from :to to :message-id message-id
:message-id-no-brackets 
message-id-no-brackets
:subject subject))
 (t
- (org-store-link-props :type "wl" :from from :to to
+ (org-link-store-props :type "wl" :from from :to to
:subject subject :message-id message-id
:message-id-no-brackets 
message-id-no-brackets)
- (setq desc (org-email-link-description))
+ (setq desc (org-link-email-description))
  (setq link (concat "wl:" folder-name "#" message-id-no-brackets))
- (org-add-link-props :link link :description desc)))
-   (org-add-link-props :date date)
+ (org-link-add-props :link link :description desc)))
+   (org-link-add-props :date date)
(or link xref)))
 
 (defun org-wl-open-nntp (path)



[nongnu] elpa/eat 268d7c57b8 2/2: Add history reporting in Zsh integration script

2023-09-16 Thread ELPA Syncer
branch: elpa/eat
commit 268d7c57b8dbe990e0fce4976cb25b180cf3c2f0
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

Add history reporting in Zsh integration script

* eat.el (eat--get-shell-history): New argument FORMAT, pass it
to 'eat--prompt-populate-input-ring'.
* eat.el (eat--handle-uic): Accept FORMAT argument in input
history reporting sequence and pass it to
'eat--get-shell-history'.
* eat.el (eat--prompt-populate-input-ring): New argument
FORMAT.  Support Zsh extended history file format.
* integration/bash (__eat_enable_integration): Send "bash" as
the history file format.
* integration/zsh (__eat_enable_integration): Send shell
history.
---
 eat.el   | 35 +++
 integration/bash |  4 ++--
 integration/zsh  | 11 +++
 3 files changed, 36 insertions(+), 14 deletions(-)

diff --git a/eat.el b/eat.el
index 8cb314d62b..1040e1bdd5 100644
--- a/eat.el
+++ b/eat.el
@@ -5174,8 +5174,8 @@ BUFFER is the terminal buffer."
 ;; We'll update the mark later when the prompt appears.
 (setq eat--shell-command-status code)))
 
-(defun eat--get-shell-history (hist)
-  "Get shell history from HIST."
+(defun eat--get-shell-history (hist format)
+  "Get shell history from HIST in format FORMAT."
   (pcase hist
 (`(,host . ,file)
  (setq host (ignore-errors
@@ -5194,7 +5194,7 @@ BUFFER is the terminal buffer."
  (with-temp-buffer
(insert-file-contents file)
(setq str (buffer-string)))
- (eat--prompt-populate-input-ring str))
+ (eat--prompt-populate-input-ring str format))
  (eat-term-send-string
   eat--terminal
   (format "\e]51;e;I;%s\e\\"
@@ -5203,7 +5203,8 @@ BUFFER is the terminal buffer."
  (eat--prompt-populate-input-ring
   (ignore-errors
 (decode-coding-string (base64-decode-string hist)
-  locale-coding-system))
+  locale-coding-system))
+  format
 
 (defun eat--handle-uic (_ cmd)
   "Handle UI Command sequence CMD."
@@ -5249,14 +5250,16 @@ BUFFER is the terminal buffer."
  (eat--set-cmd-status (string-to-number status)))
 ;; UIC e ; I ;  ST.
 ((rx string-start "e;I;0;"
- (let host (zero-or-more (not ?\;)))
+ (let format (zero-or-more (not ?\;)))
+ ?\; (let host (zero-or-more (not ?\;)))
  ?\; (let path (zero-or-more anything))
  string-end)
- (eat--get-shell-history (cons host path)))
+ (eat--get-shell-history (cons host path) format))
 ((rx string-start "e;I;1;"
- (let hist (zero-or-more anything))
+ (let format (zero-or-more (not ?\;)))
+ ?\; (let hist (zero-or-more anything))
  string-end)
- (eat--get-shell-history hist
+ (eat--get-shell-history hist format
 
 (defun eat-previous-shell-prompt (&optional arg)
   "Go to the previous shell prompt.
@@ -5851,11 +5854,19 @@ character."
   (setq eat--prompt-stored-incomplete-input nil)
   (setq eat--prompt-matching-input-from-input-string ""))
 
-(defun eat--prompt-populate-input-ring (hist)
-  "Populate `eat--prompt-input-ring' from HIST."
+(defun eat--prompt-populate-input-ring (hist format)
+  "Populate `eat--prompt-input-ring' from HIST in format FORMAT."
   (setq eat--prompt-input-ring (make-ring eat-prompt-input-ring-size))
-  (dolist (item (string-split hist "\n" 'omit-nulls))
-(ring-insert eat--prompt-input-ring item)))
+  (pcase format
+("bash"
+ (dolist (item (string-split hist "\n" 'omit-nulls))
+   (ring-insert eat--prompt-input-ring item)))
+("zsh"
+ (dolist (item (string-split hist "\n" 'omit-nulls))
+   (ring-insert eat--prompt-input-ring
+(string-trim item (rx ": " (zero-or-more digit)
+  ?: (zero-or-more digit)
+  ?\;)))
 
 (defun eat--prompt-ask-for-regexp-arg (prompt)
   "Return list of regexp and prefix arg using PROMPT."
diff --git a/integration/bash b/integration/bash
index 993f229659..3118e128e1 100644
--- a/integration/bash
+++ b/integration/bash
@@ -103,14 +103,14 @@ __eat_enable_integration ()
   # Step 2.2: Assign the first element.
   PROMPT_COMMAND[0]=__eat_before_prompt_command
   # Send the history, for native shell prompt.
-  printf '\e]51;e;I;0;%s;%s\e\\' \
+  printf '\e]51;e;I;0;bash;%s;%s\e\\' \
  "$(printf "%s" "$HOSTNAME" | base64)" \
  "$(printf "%s" "$HISTFILE" | base64)"
   local REPLY
   IFS=$';\e' read -r -s -t 10 -d "\\" -a REPLY
   if test "${REPLY[4]}" != 0
   then
-printf '\e]51;e;I;1;%s\e\\' \
+printf '\e]51;e;I;1;bash;%s\e\\' \
"$(tail -n "${REPLY[4]}" "$HISTFILE" | base64)"
   fi
 }
diff --git a/integration/zsh b/integration/zsh
index 66ea0e6f16..2e30d58a86 100644
--- a/integration/zsh
+++ b/integration/zsh
@@ -65,6 +65,17 @@ __eat_enable_integration (

[nongnu] elpa/eat updated (3fcf128840 -> 268d7c57b8)

2023-09-16 Thread ELPA Syncer
elpasync pushed a change to branch elpa/eat.

  from  3fcf128840 ; * eat.el (eat-mode): Fix mode line
   new  cbce601b8d Fix input handling in Eshell
   new  268d7c57b8 Add history reporting in Zsh integration script


Summary of changes:
 eat.el   | 37 +
 integration/bash |  4 ++--
 integration/zsh  | 11 +++
 3 files changed, 38 insertions(+), 14 deletions(-)



[nongnu] elpa/eat cbce601b8d 1/2: Fix input handling in Eshell

2023-09-16 Thread ELPA Syncer
branch: elpa/eat
commit cbce601b8d75b5020c1dbaeeda54c9e7b697fbd9
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

Fix input handling in Eshell

* eat.el (eat--eshell-local-mode): Make input processing
variables buffer-local.
---
 eat.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/eat.el b/eat.el
index 556b9e283f..8cb314d62b 100644
--- a/eat.el
+++ b/eat.el
@@ -7155,6 +7155,8 @@ symbol `buffer', in which case the point of current 
buffer is set."
   eat--terminal
   eat--synchronize-scroll-function
   eat--mouse-grabbing-type
+  eat--pending-input-chunks
+  eat--process-input-queue-timer
   eat--pending-output-chunks
   eat--output-queue-first-chunk-time
   eat--process-output-queue-timer



[elpa] externals/beframe 7d19e9d0d7 2/2: Acknowledge Edgar Vincent for commit 77cc30c

2023-09-16 Thread ELPA Syncer
branch: externals/beframe
commit 7d19e9d0d700b283ee0aa1e0d9752d0ae1609cc6
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Acknowledge Edgar Vincent for commit 77cc30c

The change is below the ~15 lines of changes and so Edgar does not
need to assign copyright to the Free Software Foundation.
---
 README.org | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/README.org b/README.org
index 6afb83b3f4..34594b733f 100644
--- a/README.org
+++ b/README.org
@@ -397,7 +397,7 @@ matters.
 
 + Author/maintainer :: Protesilaos Stavrou.
 
-+ Contributions to code or the manual :: Tony Zorman.
++ Contributions to code or the manual :: Edgar Vincent, Tony Zorman.
 
 + Ideas and/or user feedback :: Derek Passen, Karan Ahlawat, Karthik
   Chikmagalur.



[elpa] externals/beframe 77cc30ce6b 1/2: Make consult-buffer integration return previous buffer by default

2023-09-16 Thread ELPA Syncer
branch: externals/beframe
commit 77cc30ce6b4d9887b0c95dfac44aa9fabd8e94ae
Author: Edgar Vincent 
Commit: Protesilaos Stavrou 

Make consult-buffer integration return previous buffer by default

Discussed on the mailing list:

.
---
 README.org | 26 +++---
 1 file changed, 11 insertions(+), 15 deletions(-)

diff --git a/README.org b/README.org
index a904ae55fc..6afb83b3f4 100644
--- a/README.org
+++ b/README.org
@@ -326,13 +326,18 @@ It is possible to add beframed buffers to the list of 
sources the
 '((t :inherit font-lock-string-face))
 "Face for `consult' framed buffers.")
 
+  (defun my-beframe-buffer-names-sorted (&optional frame)
+"Return the list of buffers from `beframe-buffer-names' sorted by 
visibility.
+With optional argument FRAME, return the list of buffers of FRAME."
+(beframe-buffer-names frame :sort #'beframe-buffer-sort-visibility))
+
   (defvar beframe-consult-source
 `( :name "Frame-specific buffers (current frame)"
:narrow   ?F
:category buffer
:face beframe-buffer
:history  beframe-history
-   :items,#'beframe-buffer-names
+   :items,#'my-beframe-buffer-names-sorted
:action   ,#'switch-to-buffer
:state,#'consult--buffer-state))
 
@@ -340,20 +345,11 @@ It is possible to add beframed buffers to the list of 
sources the
 #+end_src
 
 #+findex: beframe-buffer-names
-Much like ~consult--buffer-query~ itself, the ~beframe-buffer-names~
-function may also take a keyword argument ~:sort~.  In our case, this is
-a function that can be used to sort—or otherwise modify—the list of
-buffers.  You can use this to, for example, prefer hidden frames over
-visible ones.  To integrate a sorting function with the above setup, one
-could first define
-
-#+BEGIN_SRC emacs-lisp
-  (defun my/beframe-items (&optional frame)
-(beframe-buffer-names frame :sort #'beframe-buffer-sort-visibility))
-#+END_SRC
-
-and then appropriately modify the ~:items~ field of the
-~beframe-consult-source~ variable: ~:items ,#'my/beframe-items~.
+As you can see from the snippet above, much like ~consult--buffer-query~
+itself, the ~beframe-buffer-names~ function may take a keyword argument
+~:sort~.  In our case, it is set to ~beframe-buffer-sort-visibility~,
+which groups buffers by visibility, the first element of the list
+being the most recently selected buffer other than the current one.
 
 ** Integration with Ibuffer
 :PROPERTIES:



[elpa] externals/beframe updated (179c95a574 -> 7d19e9d0d7)

2023-09-16 Thread ELPA Syncer
elpasync pushed a change to branch externals/beframe.

  from  179c95a574 Make a private function public
   new  77cc30ce6b Make consult-buffer integration return previous buffer 
by default
   new  7d19e9d0d7 Acknowledge Edgar Vincent for commit 77cc30c


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



[elpa] externals/dired-preview b3cf4dcba6 1/3: Solve the issue where entering a directory does not preview the file at point.

2023-09-16 Thread ELPA Syncer
branch: externals/dired-preview
commit b3cf4dcba6afba596eaaf212183c82192e4ecd46
Author: Nofint 
Commit: Nofint 

Solve the issue where entering a directory does not preview the file at 
point.
---
 dired-preview.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/dired-preview.el b/dired-preview.el
index e35becfc02..015894c649 100644
--- a/dired-preview.el
+++ b/dired-preview.el
@@ -248,7 +248,7 @@ aforementioned user option."
   (,(plist-get properties :dimension) . ,(plist-get properties :size)
 
 (defvar dired-preview-trigger-commands
-  '(dired-next-line dired-previous-line dired-mark dired-goto-file)
+  '(dired-next-line dired-previous-line dired-mark dired-goto-file 
dired-find-file dired dired-jump)
   "List of Dired commands that trigger a preview.")
 
 (defvar dired-preview--timer nil



[elpa] externals/dired-preview 23416fc933 3/3: Acknowledge user Nofint for commit b3cf4dc

2023-09-16 Thread ELPA Syncer
branch: externals/dired-preview
commit 23416fc9336ba91b790d58a3139cff8d9e5cbdc2
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Acknowledge user Nofint for commit b3cf4dc

The change is small and does not require the assignment of copyright
to the Free Software Foundation.
---
 README.org | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/README.org b/README.org
index c2eb86c2f2..fa8bc322ee 100644
--- a/README.org
+++ b/README.org
@@ -221,7 +221,7 @@ matters.
 + Author/maintainer :: Protesilaos Stavrou.
 
 + Contributions to code or the manual :: Bruno Boal, Christian Tietze,
-  Karthik Chikmagalur, Stefan Monnier, Philip Kaludercic.
+  Karthik Chikmagalur, Stefan Monnier, Philip Kaludercic, Nofint.
 
 + Ideas and/or user feedback :: Bruno Boal, Ed Hamilton, Karthik
   Chikmagalur, Peter Prevos.



[elpa] externals/dired-preview 911c983d12 2/3: Merge pull request #6 from Nofint/main

2023-09-16 Thread ELPA Syncer
branch: externals/dired-preview
commit 911c983d12d7d1d23afd63a5e1b34b80813dac9e
Merge: 454fa6e3b4 b3cf4dcba6
Author: Protesilaos Stavrou 
Commit: GitHub 

Merge pull request #6 from Nofint/main

Solve the issue where entering a directory does not preview the file at 
point.
---
 dired-preview.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/dired-preview.el b/dired-preview.el
index e35becfc02..015894c649 100644
--- a/dired-preview.el
+++ b/dired-preview.el
@@ -248,7 +248,7 @@ aforementioned user option."
   (,(plist-get properties :dimension) . ,(plist-get properties :size)
 
 (defvar dired-preview-trigger-commands
-  '(dired-next-line dired-previous-line dired-mark dired-goto-file)
+  '(dired-next-line dired-previous-line dired-mark dired-goto-file 
dired-find-file dired dired-jump)
   "List of Dired commands that trigger a preview.")
 
 (defvar dired-preview--timer nil



[elpa] externals/dired-preview updated (454fa6e3b4 -> 23416fc933)

2023-09-16 Thread ELPA Syncer
elpasync pushed a change to branch externals/dired-preview.

  from  454fa6e3b4 Remove needless 'and' in dired-preview--kill-buffers
   new  b3cf4dcba6 Solve the issue where entering a directory does not 
preview the file at point.
   new  911c983d12 Merge pull request #6 from Nofint/main
   new  23416fc933 Acknowledge user Nofint for commit b3cf4dc


Summary of changes:
 README.org   | 2 +-
 dired-preview.el | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)



[elpa] externals/test-simple aa637e4944 1/2: Use `with-current-buffer` in `test-simple-msg`

2023-09-16 Thread ELPA Syncer
branch: externals/test-simple
commit aa637e49449a1dabdee352deecd7c584e6bc8341
Author: 813 <813...@protonmail.com>
Commit: 813 <813...@protonmail.com>

Use `with-current-buffer` in `test-simple-msg`

`switch-to-buffer` for some reason breaks tests that use `with-temp-buffer`.
---
 test-simple.el  |  7 +++
 test/test-buffer.el | 26 ++
 2 files changed, 29 insertions(+), 4 deletions(-)

diff --git a/test-simple.el b/test-simple.el
index d92f35f396..5ea27ebf12 100644
--- a/test-simple.el
+++ b/test-simple.el
@@ -298,12 +298,11 @@ additional message to be displayed."
 ;;;
 
 (defun test-simple-msg(msg &optional newline)
-  (switch-to-buffer "*test-simple*")
-  (let ((inhibit-read-only t))
+  (with-current-buffer "*test-simple*"
+(let ((inhibit-read-only t))
 (insert msg)
 (if newline (insert "\n"))
-(switch-to-buffer nil)
-  ))
+  )))
 
 (defun test-simple--ok-msg (fail-message &optional test-info)
   (unless test-info (setq test-info test-simple-info))
diff --git a/test/test-buffer.el b/test/test-buffer.el
new file mode 100644
index 00..edef89776a
--- /dev/null
+++ b/test/test-buffer.el
@@ -0,0 +1,26 @@
+;;; test-simple.el --- Simple Unit Test Framework for Emacs Lisp
+;; Copyright (C) 2023 Free Software Foundation, Inc
+;; Author: 813gan
+;; 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
+;; .
+(load-file "../test-simple.el")
+(test-simple-start "test-simple.el")
+
+(note "make sure test-simple don't flush buffer")
+(with-temp-buffer
+  (insert "test")
+  (assert-t 't)
+  (assert-nil (equal (point-min) (point-max)) "test-simple is breaking 
buffers.") )
+
+(end-tests)



[elpa] externals/test-simple 8b19184231 2/2: Merge pull request #13 from 813gan/fix-test-simple-msg

2023-09-16 Thread ELPA Syncer
branch: externals/test-simple
commit 8b191842318bb05da74052025192d32ebebb033a
Merge: ce6de04636 aa637e4944
Author: R. Bernstein 
Commit: GitHub 

Merge pull request #13 from 813gan/fix-test-simple-msg

Use `with-current-buffer` in `test-simple-msg`
---
 test-simple.el  |  7 +++
 test/test-buffer.el | 26 ++
 2 files changed, 29 insertions(+), 4 deletions(-)

diff --git a/test-simple.el b/test-simple.el
index d92f35f396..5ea27ebf12 100644
--- a/test-simple.el
+++ b/test-simple.el
@@ -298,12 +298,11 @@ additional message to be displayed."
 ;;;
 
 (defun test-simple-msg(msg &optional newline)
-  (switch-to-buffer "*test-simple*")
-  (let ((inhibit-read-only t))
+  (with-current-buffer "*test-simple*"
+(let ((inhibit-read-only t))
 (insert msg)
 (if newline (insert "\n"))
-(switch-to-buffer nil)
-  ))
+  )))
 
 (defun test-simple--ok-msg (fail-message &optional test-info)
   (unless test-info (setq test-info test-simple-info))
diff --git a/test/test-buffer.el b/test/test-buffer.el
new file mode 100644
index 00..edef89776a
--- /dev/null
+++ b/test/test-buffer.el
@@ -0,0 +1,26 @@
+;;; test-simple.el --- Simple Unit Test Framework for Emacs Lisp
+;; Copyright (C) 2023 Free Software Foundation, Inc
+;; Author: 813gan
+;; 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
+;; .
+(load-file "../test-simple.el")
+(test-simple-start "test-simple.el")
+
+(note "make sure test-simple don't flush buffer")
+(with-temp-buffer
+  (insert "test")
+  (assert-t 't)
+  (assert-nil (equal (point-min) (point-max)) "test-simple is breaking 
buffers.") )
+
+(end-tests)



[nongnu] elpa/helm bbe010d40f 3/4: Prevent collecting crap stuff in find-library and friends

2023-09-16 Thread ELPA Syncer
branch: elpa/helm
commit bbe010d40f7b70512fe0a32d798b3971dbe8217b
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Prevent collecting crap stuff in find-library and friends

Because find-library-include-other-files default to t, we have all the
unrelated files and directories coming in ... Even if this modify the
behavior of find-library-include-other-files remove them for the benefit
of everybody.
---
 helm-mode.el | 33 +++--
 1 file changed, 19 insertions(+), 14 deletions(-)

diff --git a/helm-mode.el b/helm-mode.el
index 1ce8498e11..9f9797f5eb 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -1278,20 +1278,25 @@ is used."
 (defun helm-completion-library-affixation (_comps)
   (require 'helm-elisp)
   (lambda (comp)
-(let* ((sep (make-string (1+ (- (helm-in-buffer-get-longest-candidate)
-(length comp)))
- ? ))
-   (path (or (assoc-default comp helm--locate-library-cache)
- (let ((p (find-library-name comp)))
-   (push (cons comp p) helm--locate-library-cache)
-   p)))
-   (doc (or (gethash comp helm--locate-library-doc-cache)
-(puthash comp (helm-locate-lib-get-summary path)
- helm--locate-library-doc-cache
-  (list comp
-""
-(helm-aand (propertize doc 'face 'font-lock-warning-face)
-   (propertize " " 'display (concat sep it)))
+;; Because find-library-include-other-files default to t, we have all the
+;; unrelated files and directories coming in ... Even if this modify the
+;; behavior of find-library-include-other-files remove them for the benefit
+;; of everybody.
+(unless (string-match "\\(\\.elc\\|/\\)\\'" comp)
+  (let* ((sep (make-string (1+ (- (helm-in-buffer-get-longest-candidate)
+  (length comp)))
+   ? ))
+ (path (or (assoc-default comp helm--locate-library-cache)
+   (let ((p (find-library-name comp)))
+ (push (cons comp p) helm--locate-library-cache)
+ p)))
+ (doc (or (gethash comp helm--locate-library-doc-cache)
+  (puthash comp (helm-locate-lib-get-summary path)
+   helm--locate-library-doc-cache
+(list comp
+  ""
+  (helm-aand (propertize doc 'face 'font-lock-warning-face)
+ (propertize " " 'display (concat sep it
 
 ;;; Generic completing read
 ;;



[nongnu] elpa/helm 3041953be5 1/4: Remove unuseful filter-process

2023-09-16 Thread ELPA Syncer
branch: elpa/helm
commit 3041953be59560e6ac8604a7b5f238a44eca4cc5
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Remove unuseful filter-process
---
 helm-lib.el | 18 +-
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/helm-lib.el b/helm-lib.el
index b59a362385..5de137dfcb 100644
--- a/helm-lib.el
+++ b/helm-lib.el
@@ -1738,15 +1738,15 @@ Directories expansion is not supported."
 (shell-quote-argument file)
 regexp)))
  output)
-(set-process-filter proc nil)
-(set-process-sentinel proc (lambda (process event)
- (when (string= event "finished\n")
-   (setq output
- (with-current-buffer (process-buffer 
process)
-   (replace-regexp-in-string
-"\n" ""
-(buffer-string)
- (kill-buffer (process-buffer process
+(set-process-sentinel
+ proc (lambda (process event)
+(when (string= event "finished\n")
+  (setq output
+(with-current-buffer (process-buffer process)
+  (replace-regexp-in-string
+   "\n" ""
+   (buffer-string)
+(kill-buffer (process-buffer process
 (while (and proc (eq (process-status proc) 'run))
   (accept-process-output proc))
 (if (string= output "")



[nongnu] elpa/helm updated (9514cfb55d -> 83ddff7a00)

2023-09-16 Thread ELPA Syncer
elpasync pushed a change to branch elpa/helm.

  from  9514cfb55d Make helm-locate-lib-get-summary async
   new  3041953be5 Remove unuseful filter-process
   new  a837e849ce Reset cache with prefarg
   new  bbe010d40f Prevent collecting crap stuff in find-library and friends
   new  83ddff7a00 Improve helm-locate-library-scan-list


Summary of changes:
 helm-elisp.el | 13 -
 helm-lib.el   | 18 +-
 helm-mode.el  | 33 +++--
 3 files changed, 36 insertions(+), 28 deletions(-)



[nongnu] elpa/helm a837e849ce 2/4: Reset cache with prefarg

2023-09-16 Thread ELPA Syncer
branch: elpa/helm
commit a837e849ce6c64f948be4531d720cc3745ff250f
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Reset cache with prefarg
---
 helm-elisp.el | 10 +++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/helm-elisp.el b/helm-elisp.el
index a7bab929e6..796baab4e6 100644
--- a/helm-elisp.el
+++ b/helm-elisp.el
@@ -912,7 +912,7 @@ a string, i.e. the `symbol-name' of any existing symbol."
   dir nil (concat (regexp-opt (get-load-suffixes)) "\\'"
 
 ;;;###autoload
-(defun helm-locate-library ()
+(defun helm-locate-library (&optional arg)
   "Preconfigured helm to locate elisp libraries.
 
 When `completions-detailed' or `helm-completions-detailed' is non nil, a 
description
@@ -923,8 +923,12 @@ package, using M-x psession-make-persistent-variable.
 NOTE: The caches affect as well `find-libray' and `locate-library' when
 `helm-mode' is enabled and `completions-detailed' is non nil.
 There is no need to refresh the caches, they will be updated automatically if
-some new libraries are found."
-  (interactive)
+some new libraries are found, however when a library update its headers and the
+description change you can reset the caches with a prefix arg."
+  (interactive "P")
+  (when arg
+(setq helm--locate-library-cache nil)
+(clrhash helm--locate-library-doc-cache))
   (message "Please wait, scanning libraries...")
   (helm :sources
 (helm-build-in-buffer-source  "Elisp libraries (Scan)"



[nongnu] elpa/helm-core updated (9514cfb55d -> 83ddff7a00)

2023-09-16 Thread ELPA Syncer
elpasync pushed a change to branch elpa/helm-core.

  from  9514cfb55d Make helm-locate-lib-get-summary async
  adds  3041953be5 Remove unuseful filter-process
  adds  a837e849ce Reset cache with prefarg
  adds  bbe010d40f Prevent collecting crap stuff in find-library and friends
  adds  83ddff7a00 Improve helm-locate-library-scan-list

No new revisions were added by this update.

Summary of changes:
 helm-elisp.el | 13 -
 helm-lib.el   | 18 +-
 helm-mode.el  | 33 +++--
 3 files changed, 36 insertions(+), 28 deletions(-)



[nongnu] elpa/helm 83ddff7a00 4/4: Improve helm-locate-library-scan-list

2023-09-16 Thread ELPA Syncer
branch: elpa/helm
commit 83ddff7a00e4f7d5649cdba892c043caa9546c8c
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Improve helm-locate-library-scan-list

Prevent duplicates with get-load-suffixes, even if regexp-opt remove them.
---
 helm-elisp.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/helm-elisp.el b/helm-elisp.el
index 796baab4e6..6b6688b5d9 100644
--- a/helm-elisp.el
+++ b/helm-elisp.el
@@ -906,10 +906,9 @@ a string, i.e. the `symbol-name' of any existing symbol."
 (defvar helm--locate-library-doc-cache (make-hash-table :test 'equal))
 (defun helm-locate-library-scan-list ()
   (cl-loop for dir in load-path
-   with load-suffixes = (find-library-suffixes)
when (file-directory-p dir)
nconc (directory-files
-  dir nil (concat (regexp-opt (get-load-suffixes)) "\\'"
+  dir nil (concat (regexp-opt (find-library-suffixes)) 
"\\'"
 
 ;;;###autoload
 (defun helm-locate-library (&optional arg)



[elpa] externals/beframe bd2001dcc1: Do not try to rename frame if beframe-rename-function is nil

2023-09-16 Thread ELPA Syncer
branch: externals/beframe
commit bd2001dcc1a329b14daf0dcdd3a88fe6f9da5c17
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Do not try to rename frame if beframe-rename-function is nil

This was reported by Karthik Chikmagalur on the mailing list:

.
---
 beframe.el | 11 +--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/beframe.el b/beframe.el
index 3852334e4f..7bddd3378e 100644
--- a/beframe.el
+++ b/beframe.el
@@ -551,14 +551,14 @@ Also see the `beframe-prefix-map'."
   (progn
 (setq beframe--read-buffer-function read-buffer-function
   read-buffer-function #'beframe-read-buffer)
-(add-hook 'after-make-frame-functions beframe-rename-function)
 (add-hook 'after-make-frame-functions #'beframe-frame-predicate)
+(add-hook 'after-make-frame-functions #'beframe-maybe-rename-frame)
 (add-hook 'after-make-frame-functions #'beframe-create-scratch-buffer)
 (beframe--functions-in-frames))
 (setq read-buffer-function beframe--read-buffer-function
   beframe--read-buffer-function nil)
-(remove-hook 'after-make-frame-functions beframe-rename-function)
 (remove-hook 'after-make-frame-functions #'beframe-frame-predicate)
+(remove-hook 'after-make-frame-functions #'beframe-maybe-rename-frame)
 (remove-hook 'after-make-frame-functions #'beframe-create-scratch-buffer)
 (beframe--functions-in-frames :disable)))
 
@@ -650,6 +650,13 @@ Remember that this function doubles as an example for
frame
(list (cons 'name (beframe--infer-frame-name frame name)
 
+(defun beframe-maybe-rename-frame (frame &optional name)
+  "Helper function to determine if `beframe-rename-function' is called.
+FRAME and optional NAME arguments are passed to the
+`beframe-rename-function'."
+  (when beframe-rename-function
+(funcall beframe-rename-function frame name)))
+
 (defun beframe--frame-buffer-p (buf &optional frame)
   "Return non-nil if BUF belongs to the current frame.
 Use optional FRAME to test if BUF belongs to it."



[nongnu] elpa/helm 7a7f79cfee 1/2: Some libraries don't respect first line conventions (---) fixit

2023-09-16 Thread ELPA Syncer
branch: elpa/helm
commit 7a7f79cfee7c10aafbac216e15d455e3b4c3b1b8
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Some libraries don't respect first line conventions (---) fixit
---
 helm-lib.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/helm-lib.el b/helm-lib.el
index 5de137dfcb..14e79e1c80 100644
--- a/helm-lib.el
+++ b/helm-lib.el
@@ -1729,7 +1729,7 @@ Directories expansion is not supported."
  (shell-command-switch "-c")
  (cmd "%s %s | head -n1 | awk 'match($0,\"%s\",a) {print a[2]}'\
  | awk -F ' -*-' '{print $1}'")
- (regexp "^;;;(.*) --- (.*)$")
+ (regexp "^;;;(.*) ---? (.*)$")
  (proc (start-process-shell-command
 "helm-locate-lib-get-summary" "*helm locate lib*"
 (format cmd



[nongnu] elpa/helm-core updated (83ddff7a00 -> 6a5fe43905)

2023-09-16 Thread ELPA Syncer
elpasync pushed a change to branch elpa/helm-core.

  from  83ddff7a00 Improve helm-locate-library-scan-list
  adds  7a7f79cfee Some libraries don't respect first line conventions 
(---) fixit
  adds  6a5fe43905 Fix alignment in helm-locate-library

No new revisions were added by this update.

Summary of changes:
 helm-elisp.el | 2 +-
 helm-lib.el   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)



[nongnu] elpa/helm updated (83ddff7a00 -> 6a5fe43905)

2023-09-16 Thread ELPA Syncer
elpasync pushed a change to branch elpa/helm.

  from  83ddff7a00 Improve helm-locate-library-scan-list
   new  7a7f79cfee Some libraries don't respect first line conventions 
(---) fixit
   new  6a5fe43905 Fix alignment in helm-locate-library


Summary of changes:
 helm-elisp.el | 2 +-
 helm-lib.el   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)



[nongnu] elpa/helm 6a5fe43905 2/2: Fix alignment in helm-locate-library

2023-09-16 Thread ELPA Syncer
branch: elpa/helm
commit 6a5fe439055588c5cacc76a6125b04de6f6e0924
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Fix alignment in helm-locate-library
---
 helm-elisp.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/helm-elisp.el b/helm-elisp.el
index 6b6688b5d9..ca6cd2506a 100644
--- a/helm-elisp.el
+++ b/helm-elisp.el
@@ -939,8 +939,8 @@ description change you can reset the caches with a prefix 
arg."
 (if (or completions-detailed helm-completions-detailed)
 (cl-loop with lgst = (helm-in-buffer-get-longest-candidate)
  for c in candidates
- for sep = (make-string (1+ (- lgst (length c))) ? )
  for bn = (helm-basename c 2)
+ for sep = (make-string (1+ (- lgst (length bn))) ? )
  for path = (or (assoc-default bn 
helm--locate-library-cache)
 (let ((p (find-library-name bn)))
   (push (cons bn p) 
helm--locate-library-cache)



[nongnu] elpa/eat 9e129f33a2: Don't enter prompt mode after exit till new prompt

2023-09-16 Thread ELPA Syncer
branch: elpa/eat
commit 9e129f33a2c21cd6021e529f4091f62d414fbd76
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

Don't enter prompt mode after exit till new prompt

* eat.el (eat--inhibit-prompt-mode): New variable.
* eat.el (eat--post-prompt, eat--post-cont-prompt): Check
'eat--inhibit-prompt-mode' before switching to prompt mode.
* eat.el (eat--before-new-prompt): New function.
* eat.el (eat--handle-uic): Support "before new prompt"
sequence.
* eat.el (eat-emacs-mode, eat-semi-char-mode, eat-char-mode):
Set 'eat--inhibit-prompt-mode' to t if prompt mode is enabled.
* eat.el (eat-mode): Make 'eat--inhibit-prompt-mode'
buffer-local.
* integration/bash (__eat_prompt_command):
* integration/zsh (__eat_precmd):
Send the "before new prompt" sequence.
---
 eat.el   | 36 +++-
 integration/bash |  2 ++
 integration/zsh  |  2 ++
 3 files changed, 31 insertions(+), 9 deletions(-)

diff --git a/eat.el b/eat.el
index 1040e1bdd5..4ef38a8e75 100644
--- a/eat.el
+++ b/eat.el
@@ -4943,6 +4943,9 @@ return \"eat-color\", otherwise return \"eat-mono\"."
 (defvar eat--shell-prompt-mark-overlays nil
   "List of overlay used to put marks before shell prompts.")
 
+(defvar eat--inhibit-prompt-mode nil
+  "Non-nil means don't enter prompt mode.")
+
 (defun eat-reset ()
   "Perform a terminal reset."
   (interactive)
@@ -5083,12 +5086,14 @@ If HOST isn't the host Emacs is running on, don't do 
anything."
   (put-text-property (1- (point)) (point)
  'eat--shell-prompt-end t)))
   (setq eat--shell-prompt-begin nil)
-  (when eat-enable-native-shell-prompt-editing
+  (when (and eat-enable-native-shell-prompt-editing
+ (not eat--inhibit-prompt-mode))
 (eat--prompt-mode +1)))
 
 (defun eat--post-cont-prompt ()
   "Enter prompt mode."
-  (when eat-enable-native-shell-prompt-editing
+  (when (and eat-enable-native-shell-prompt-editing
+ (not eat--inhibit-prompt-mode))
 (eat--prompt-mode +1)))
 
 (defun eat--correct-shell-prompt-mark-overlays (buffer)
@@ -5174,6 +5179,10 @@ BUFFER is the terminal buffer."
 ;; We'll update the mark later when the prompt appears.
 (setq eat--shell-command-status code)))
 
+(defun eat--before-new-prompt ()
+  "Allow entering prompt mode."
+  (setq eat--inhibit-prompt-mode nil))
+
 (defun eat--get-shell-history (hist format)
   "Get shell history from HIST in format FORMAT."
   (pcase hist
@@ -5259,7 +5268,9 @@ BUFFER is the terminal buffer."
  (let format (zero-or-more (not ?\;)))
  ?\; (let hist (zero-or-more anything))
  string-end)
- (eat--get-shell-history hist format
+ (eat--get-shell-history hist format))
+("e;J"
+ (eat--before-new-prompt
 
 (defun eat-previous-shell-prompt (&optional arg)
   "Go to the previous shell prompt.
@@ -5655,8 +5666,10 @@ EVENT is the mouse event."
  (/= (eat-term-end eat--terminal) (point-max)))
 (user-error "Can't switch to Emacs mode from prompt mode when\
  input is non-empty"))
-  (setq eat--prompt-mode-previous-mode 'dont-restore)
-  (eat--prompt-mode -1)
+  (when eat--prompt-mode
+(setq eat--prompt-mode-previous-mode 'dont-restore)
+(eat--prompt-mode -1)
+(setq eat--inhibit-prompt-mode t))
   (eat--semi-char-mode -1)
   (eat--char-mode -1)
   (setq buffer-read-only t)
@@ -5673,8 +5686,10 @@ EVENT is the mouse event."
 (user-error "Can't switch to semi-char mode from prompt mode when\
  input is non-empty"))
   (setq buffer-read-only nil)
-  (setq eat--prompt-mode-previous-mode 'dont-restore)
-  (eat--prompt-mode -1)
+  (when eat--prompt-mode
+(setq eat--prompt-mode-previous-mode 'dont-restore)
+(eat--prompt-mode -1)
+(setq eat--inhibit-prompt-mode t))
   (eat--char-mode -1)
   (eat--semi-char-mode +1)
   (eat--grab-mouse nil eat--mouse-grabbing-type)
@@ -5690,8 +5705,10 @@ EVENT is the mouse event."
 (user-error "Can't switch to char mode from prompt mode when\
  input is non-empty"))
   (setq buffer-read-only nil)
-  (setq eat--prompt-mode-previous-mode 'dont-restore)
-  (eat--prompt-mode -1)
+  (when eat--prompt-mode
+(setq eat--prompt-mode-previous-mode 'dont-restore)
+(eat--prompt-mode -1)
+(setq eat--inhibit-prompt-mode t))
   (eat--semi-char-mode -1)
   (eat--char-mode +1)
   (eat--grab-mouse nil eat--mouse-grabbing-type)
@@ -6177,6 +6194,7 @@ END if it's safe to do so."
   eat--shell-prompt-begin
   eat--shell-prompt-mark
   eat--shell-prompt-mark-overlays
+  eat--inhibit-prompt-mode
   eat--prompt-mode-previous-mode
   eat--prompt-input-ring
   eat--prompt-input-ring-index
diff --git a/integration/bash b/integration/bash
index 3118e128e1..e760942dd1 100644
--- a/integration/bash
+++ b/integration/bash
@@ -24,6 +24,8 @@ __eat_prompt_command () {
 printf '\e]51;e;H;%i\e\\' "$__eat_exit_status"
   fi
   __eat_current_command=""

[nongnu] elpa/emacsql 59de83a127: Place comma after "e.g."

2023-09-16 Thread ELPA Syncer
branch: elpa/emacsql
commit 59de83a1276a5fbcf8a682b64bbdcf5e00c6ce8b
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Place comma after "e.g."
---
 README.md | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/README.md b/README.md
index d08e21e51f..432227dcd9 100644
--- a/README.md
+++ b/README.md
@@ -211,7 +211,7 @@ most kinds of sub-queries.
 
 Dashes are converted into spaces and the keyword gets capitalized. For
 example, `:if-not-exists` becomes `IF NOT EXISTS`. How you choose to
-combine keywords is up to your personal taste (e.g. `:drop :table` vs.
+combine keywords is up to your personal taste (e.g., `:drop :table` vs.
 `:drop-table`).
 
  Standalone symbols are identifiers.



[elpa] externals/embark 4e69258856: Mention new org heading reference support in CHANGELOG

2023-09-16 Thread ELPA Syncer
branch: externals/embark
commit 4e69258856332b0c2b36d0deae12809a5612e72c
Author: Omar Antolín 
Commit: Omar Antolín 

Mention new org heading reference support in CHANGELOG
---
 CHANGELOG.org | 7 +++
 1 file changed, 7 insertions(+)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index 0e0c75947f..69662e3351 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -21,6 +21,13 @@
   then candidates will be separated by horizontal lines. This is handy
   for the kill-ring, which you can browse by calling =embark-collect=
   from =yank-pop=.
+- =embark-org= now has support for acting on references to org headings
+  in other buffers, by jumping to the heading first and then running
+  the action. One source of references to org headings in other
+  buffers are agenda views: each agenda item is such a reference. But
+  this feature also supports some great third party commands which
+  produce references to org headings, such as =org-ql-find= from the
+  =org-ql= package or =consult-org-heading= from =consult=.
 * Version 0.22.1 (2023-04-20)
 ** New feature: selections
 Now users can select several targets to make an ad hoc collection. The



[elpa] externals/embark-consult updated (0d89add290 -> 4e69258856)

2023-09-16 Thread ELPA Syncer
elpasync pushed a change to branch externals/embark-consult.

  from  0d89add290 Bad typo :(
  adds  4e69258856 Mention new org heading reference support in CHANGELOG

No new revisions were added by this update.

Summary of changes:
 CHANGELOG.org | 7 +++
 1 file changed, 7 insertions(+)



[elpa] externals/mmm-mode 96906747e8 2/2: Release 0.5.10

2023-09-16 Thread ELPA Syncer
branch: externals/mmm-mode
commit 96906747e862449b722b6e2c741b61871894ac3a
Author: Dmitry Gutov 
Commit: Dmitry Gutov 

Release 0.5.10
---
 mmm-mode.el | 2 +-
 mmm-vars.el | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/mmm-mode.el b/mmm-mode.el
index 3925b22f24..99717f8788 100644
--- a/mmm-mode.el
+++ b/mmm-mode.el
@@ -8,7 +8,7 @@
 ;; Maintainer: Dmitry Gutov 
 ;; URL: https://github.com/purcell/mmm-mode
 ;; Keywords: convenience, faces, languages, tools
-;; Version: 0.5.9
+;; Version: 0.5.10
 ;; Package-Requires: ((emacs "25.1") (cl-lib "0.2"))
 
 ;;{{{ GPL
diff --git a/mmm-vars.el b/mmm-vars.el
index 8fc4dc7cc9..f97fa6306b 100644
--- a/mmm-vars.el
+++ b/mmm-vars.el
@@ -1062,7 +1062,7 @@ The CLASSES are all made private, i.e. non-user-visible."
 ;;}}}
 ;;{{{ Version Number
 
-(defconst mmm-version "0.5.8"
+(defconst mmm-version "0.5.10"
   "Current version of MMM Mode.")
 
 (defun mmm-version ()



[elpa] externals/mmm-mode 244f8c4794 1/2: Remove mmm-add-find-file-hook[s]

2023-09-16 Thread ELPA Syncer
branch: externals/mmm-mode
commit 244f8c4794f20a6be5ebe1e405400a9c35ea6d2f
Author: Dmitry Gutov 
Commit: Dmitry Gutov 

Remove mmm-add-find-file-hook[s]

Resolves #137
---
 NEWS| 5 +
 mmm-auto.el | 9 -
 2 files changed, 5 insertions(+), 9 deletions(-)

diff --git a/NEWS b/NEWS
index 827337d7f4..d884530814 100644
--- a/NEWS
+++ b/NEWS
@@ -4,6 +4,11 @@ See the file COPYING for copying conditions.
 
 Please submit bug reports at https://github.com/dgutov/mmm-mode/issues
 
+* Changes in MMM Mode 0.5.10
+
+Functions mmm-add-find-file-hooks and mmm-add-find-file-hook have been
+removed (GH#137).
+
 * Changes in MMM Mode 0.5.9
 
 Made the tests work in batch mode.
diff --git a/mmm-auto.el b/mmm-auto.el
index b5fd074a46..a5cb728d85 100644
--- a/mmm-auto.el
+++ b/mmm-auto.el
@@ -171,15 +171,6 @@ to apply, or always if `mmm-global-mode' is t."
 
 (add-hook 'mmm-major-mode-hook #'mmm-mode-on-maybe)
 
-(define-obsolete-function-alias 'mmm-add-find-file-hooks 
'mmm-add-find-file-hook "0.3.8"
-  "Both `mmm-add-find-file-hooks' and `mmm-add-find-file-hook' are 
deprecated.")
-(defun mmm-add-find-file-hook ()
-  "Equivalent to \(setq mmm-global-mode \\='maybe).
-This function is deprecated and may be removed in future."
-  (declare (obsolete nil "0.3.8"))
-  (message "Warning: `mmm-add-find-file-hook' is deprecated.")
-  (setq mmm-global-mode 'maybe))
-
 ;;}}}
 
 (provide 'mmm-auto)



[elpa] externals/mmm-mode updated (171bf6395b -> 96906747e8)

2023-09-16 Thread ELPA Syncer
elpasync pushed a change to branch externals/mmm-mode.

  from  171bf6395b Merge pull request #135 from 
snogge/font-lock-syntactic-keywords
   new  244f8c4794 Remove mmm-add-find-file-hook[s]
   new  96906747e8 Release 0.5.10


Summary of changes:
 NEWS| 5 +
 mmm-auto.el | 9 -
 mmm-mode.el | 2 +-
 mmm-vars.el | 2 +-
 4 files changed, 7 insertions(+), 11 deletions(-)



[nongnu] elpa/helm 1c08fd5123: Fix helm-advice-candidate even if obsolete

2023-09-16 Thread ELPA Syncer
branch: elpa/helm
commit 1c08fd5123a95fed0413931d1abb9c9257bdb8f8
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Fix helm-advice-candidate even if obsolete
---
 helm-elisp.el | 26 +-
 1 file changed, 13 insertions(+), 13 deletions(-)

diff --git a/helm-elisp.el b/helm-elisp.el
index ca6cd2506a..2922b9f966 100644
--- a/helm-elisp.el
+++ b/helm-elisp.el
@@ -853,19 +853,19 @@ a string, i.e. the `symbol-name' of any existing symbol."
 :persistent-help "Toggle describe function / C-u C-j: Toggle advice"))
 
 (defun helm-advice-candidates ()
-  (cl-loop for (fname) in ad-advised-functions
-for function = (intern fname)
-append
-(cl-loop for class in ad-advice-classes append
-  (cl-loop for advice in (ad-get-advice-info-field function class)
-for enabled = (ad-advice-enabled advice)
-collect
-(cons (format
-   "%s %s %s"
-   (if enabled "Enabled " "Disabled")
-   (propertize fname 'face 
'font-lock-function-name-face)
-   (ad-make-single-advice-docstring advice class nil))
-  (list function class advice))
+  (cl-loop for fname in ad-advised-functions
+   for function = (intern fname)
+   append
+   (cl-loop for class in ad-advice-classes append
+(cl-loop for advice in (ad-get-advice-info-field function 
class)
+ for enabled = (ad-advice-enabled advice)
+ collect
+ (cons (format
+"%s %s %s"
+(if enabled "Enabled " "Disabled")
+(propertize fname 'face 
'font-lock-function-name-face)
+(ad-make-single-advice-docstring advice 
class nil))
+   (list function class advice))
 
 (defun helm-advice-persistent-action (func-class-advice)
   (if current-prefix-arg



[nongnu] elpa/helm-core updated (6a5fe43905 -> 1c08fd5123)

2023-09-16 Thread ELPA Syncer
elpasync pushed a change to branch elpa/helm-core.

  from  6a5fe43905 Fix alignment in helm-locate-library
  adds  1c08fd5123 Fix helm-advice-candidate even if obsolete

No new revisions were added by this update.

Summary of changes:
 helm-elisp.el | 26 +-
 1 file changed, 13 insertions(+), 13 deletions(-)