[elpa] externals/ement ebc04f129d: Add: (ement-room-list-avatars-generation)

[ELPA Syncer]

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

Add: (ement-room-list-avatars-generation)
---
 README.org |  1 +
 ement-room-list.el | 25 -
 2 files changed, 17 insertions(+), 9 deletions(-)

diff --git a/README.org b/README.org
index c5570e3da9..36d4100a11 100644
--- a/README.org
+++ b/README.org
@@ -303,6 +303,7 @@ Ement.el doesn't support encrypted rooms natively, but it 
can be used transparen
 
 + Customization groups for faces.  (Thanks to 
[[https://github.com/phil-s][Phil Sainty]].)
 + Option ~ement-room-hide-redacted-message-content~, which hides the content 
of redacted messages by default.  It may be disabled to keep redacted content 
visible with a strikethrough face, which may be useful for room moderators, but 
users should keep in mind that doing so will leave unpleasant content visible 
in the current session, even after being redacted by moderators.
++ Option ~ement-room-list-avatars-generation~: if disabled, SVG-based room 
avatars are not generated.  This option automatically tests whether SVG support 
is available in Emacs, and should allow use with builds of Emacs that lack 
=librsvg= support. 
 
 *Changes*
 
diff --git a/ement-room-list.el b/ement-room-list.el
index 748d89a304..d567fc1ac8 100644
--- a/ement-room-list.el
+++ b/ement-room-list.el
@@ -140,6 +140,10 @@ Set automatically when `ement-room-list-mode' is 
activated.")
   "Show room avatars in the room list."
   :type 'boolean)
 
+(defcustom ement-room-list-avatars-generation (image-type-available-p 'svg)
+  "Generate SVG-based avatars for rooms that have none."
+  :type 'boolean)
+
 (defcustom ement-room-list-space-prefix "Space: "
   "Prefix applied to space names."
   :type 'string)
@@ -416,15 +420,18 @@ from recent to non-recent for rooms updated in the past 
hour."
(propertize " " 'display
(ement--resize-image (get-text-property 0 
'display avatar)
 nil 
(frame-char-height)))
- ;; Room has no avatar: make one.
- (let* ((string (or display-name (ement--room-display-name 
room)))
-(ement-room-prism-minimum-contrast 1)
-(color (ement--prism-color string :contrast-with 
"white")))
-   (when (string-match (rx bos (or "#" "!" "@")) string)
- (setf string (substring string 1)))
-   (propertize " " 'display (svg-lib-tag (substring string 
0 1) nil
- :background color 
:foreground "white"
- :stroke 0))
+ ;; Room has no avatar.
+ (if ement-room-list-avatars-generation
+ (let* ((string (or display-name 
(ement--room-display-name room)))
+(ement-room-prism-minimum-contrast 1)
+(color (ement--prism-color string 
:contrast-with "white")))
+   (when (string-match (rx bos (or "#" "!" "@")) 
string)
+ (setf string (substring string 1)))
+   (propertize " " 'display (svg-lib-tag (substring 
string 0 1) nil
+ :background 
color :foreground "white"
+ :stroke 0)))
+   ;; Avatar generation disabled: use a two-space string.
+   " "
   (setf (alist-get 'room-list-avatar (ement-room-local room)) 
new-avatar)))
   ;; Avatars disabled: use a two-space string.
   " ")))

[elpa] externals/org 4ec1087f6c: org-persist: Fix adding duplicate index entries when merging with disk index

[ELPA Syncer]

branch: externals/org
commit 4ec1087f6c5e081266e165b89c17ee7fbbf26e7c
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

org-persist: Fix adding duplicate index entries when merging with disk index

* lisp/org-persist.el (org-persist--merge-index): Do not use `equal'
to compare index entries.  Instead try searching index properly,
accounting for :associated being file+hash.  We should consider the
same file but different hash as the same index entry and only keep a
single index instance.  Otherwise, the index will keep accumulating
entries.
(org-persist--merge-index-with-disk): Make sure that we update
`org-persist--index-hash'.
---
 lisp/org-persist.el | 7 +--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lisp/org-persist.el b/lisp/org-persist.el
index ae75ab7afc..6579a8e47c 100644
--- a/lisp/org-persist.el
+++ b/lisp/org-persist.el
@@ -959,14 +959,17 @@ Otherwise, return t."
 (when disk-index
   (setq org-persist--index combined-index
 org-persist--index-age
-(file-attribute-modification-time (file-attributes index-file))
+(file-attribute-modification-time (file-attributes index-file)))
+  ;; Store newly added entries in the index hash.
+  (mapc (lambda (collection) (org-persist--add-to-index collection 'hash))
+org-persist--index
 
 (defun org-persist--merge-index (base other)
   "Attempt to merge new index items in OTHER into BASE.
 Items with different details are considered too difficult, and skipped."
   (if other
   (if (not base) other
-(let ((new (cl-set-difference other base :test #'equal))
+(let ((new (cl-set-difference other base :test 
#'org-persist--find-index))
   (base-files (mapcar (lambda (s) (plist-get s :persist-file)) 
base))
   (combined (reverse base)))
   (dolist (item (nreverse new))

[elpa] externals/org 1724419b70: lisp/org.el: Fix computation of the DPI for multiple monitors

[ELPA Syncer]

branch: externals/org
commit 1724419b70398e2c738e7c413b910de72577144e
Author: William 
Commit: Ihor Radchenko 

lisp/org.el: Fix computation of the DPI for multiple monitors

* lisp/org.el (org--get-display-dpi): Examine actual monitor
attributes to find DPI.  Use the maximum possible DPI as
we (partially) did with `display-mm-height'.

TINYCHANGE
---
 lisp/org.el | 11 +--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index 49f5c00c6d..a51cf8280f 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -16555,8 +16555,15 @@ This uses  `org-latex-to-html-convert-command', which 
see."
 The function assumes that the display has the same pixel width in
 the horizontal and vertical directions."
   (if (display-graphic-p)
-  (round (/ (display-pixel-height)
-   (/ (display-mm-height) 25.4)))
+  (seq-max
+   (mapcar
+(lambda (attr-list)
+  ;; Compute the DPI for a given display ATTR-LIST
+  (let* ((height-mm   (nth 1 (alist-get 'mm-size attr-list)))
+ (height-px   (nth 3 (alist-get 'geometry attr-list)))
+ (scale   (alist-get 'scale-factor attr-list 1.0)))
+(round (/ (/ height-px scale) (/ height-mm 25.4)
+(display-monitor-attributes-list)))
 (error "Attempt to calculate the dpi of a non-graphic display")))
 
 (defun org-create-formula-image

[nongnu] elpa/xah-fly-keys 239f93ce99 2/2: xah-repeat-key now default to space. (was m). removed xah-fly-insert-mode-activate-space-before and xah-fly-insert-mode-activate-space-after

[ELPA Syncer]

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

xah-repeat-key now default to space. (was m). removed 
xah-fly-insert-mode-activate-space-before and 
xah-fly-insert-mode-activate-space-after
---
 xah-fly-keys.el | 24 +---
 1 file changed, 5 insertions(+), 19 deletions(-)

diff --git a/xah-fly-keys.el b/xah-fly-keys.el
index 3a6a37773b..b32e503a26 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: 26.12.20250422103806
+;; Version: 26.12.20250503115607
 ;; Created: 2013-09-10
 ;; Package-Requires: ((emacs "28.3"))
 ;; Keywords: convenience, vi, vim, ergoemacs, keybinding
@@ -340,7 +340,7 @@ Version: 2025-03-21"
(let ((xkmap (make-sparse-keymap)))
  (define-key xkmap (kbd "") #'xah-backward-punct)
  (define-key xkmap (kbd "") #'xah-forward-punct)
- (define-key xkmap (kbd (if (boundp 'xah-repeat-key) xah-repeat-key "m")) 
real-this-command)
+ (define-key xkmap (kbd (if (boundp 'xah-repeat-key) xah-repeat-key 
"SPC")) real-this-command)
  xkmap))
   (re-search-forward xah-punctuation-regex nil t))
 
@@ -356,7 +356,7 @@ Version: 2025-03-21"
(let ((xkmap (make-sparse-keymap)))
  (define-key xkmap (kbd "") #'xah-backward-punct)
  (define-key xkmap (kbd "") #'xah-forward-punct)
- (define-key xkmap (kbd (if (boundp 'xah-repeat-key) xah-repeat-key "m")) 
real-this-command)
+ (define-key xkmap (kbd (if (boundp 'xah-repeat-key) xah-repeat-key 
"SPC")) real-this-command)
  xkmap))
   (re-search-backward xah-punctuation-regex nil t))
 
@@ -1220,7 +1220,7 @@ Version: 2025-03-25"
   (goto-char (point-max))
   (while (eq (char-before) 32) (delete-char -1
   (re-search-forward "\n+" nil 1)
-  (set-transient-map (let ((xkmap (make-sparse-keymap))) (define-key xkmap 
(kbd (if (boundp 'xah-repeat-key) xah-repeat-key "m")) this-command) xkmap))
+  (set-transient-map (let ((xkmap (make-sparse-keymap))) (define-key xkmap 
(kbd (if (boundp 'xah-repeat-key) xah-repeat-key "SPC")) this-command) xkmap))
   (set-transient-map (let ((xkmap (make-sparse-keymap))) (define-key xkmap 
(kbd "DEL") this-command) xkmap)))
 
 (defun xah-space-to-newline ()
@@ -1533,7 +1533,7 @@ Version: 2025-01-24"
   (push-mark xbeg)
   (setq deactivate-mark nil))
 (put 'xah-cycle-hyphen-lowline-space 'state (% (+ xnowState 1) xlen)))
-  (set-transient-map (let ((xkmap (make-sparse-keymap))) (define-key xkmap 
(kbd (if (boundp 'xah-repeat-key) xah-repeat-key "m")) this-command) xkmap)))
+  (set-transient-map (let ((xkmap (make-sparse-keymap))) (define-key xkmap 
(kbd (if (boundp 'xah-repeat-key) xah-repeat-key "SPC")) this-command) xkmap)))
 
 (defun xah-copy-file-path (&optional DirPathOnlyQ)
   "Copy current buffer file path or dired path.
@@ -3734,7 +3734,6 @@ Version: 2024-04-22"
("i" . xah-delete-current-text-block)
("j" . xah-copy-line-or-region)
("k" . xah-paste-or-paste-previous)
-   ;; ("l" . xah-fly-insert-mode-activate-space-before)
("l" . xah-insert-space-before)
("m" . xah-backward-left-bracket)
("n" . forward-char)
@@ -4071,19 +4070,6 @@ Version: 2017-07-07"
   (xah-fly-insert-mode-activate)
   (open-line 1))
 
-(defun xah-fly-insert-mode-activate-space-before ()
-  "Insert a space, then activate insertion mode."
-  (interactive)
-  (insert " ")
-  (xah-fly-insert-mode-activate))
-
-(defun xah-fly-insert-mode-activate-space-after ()
-  "Insert a space, then activate insertion mode."
-  (interactive)
-  (insert " ")
-  (xah-fly-insert-mode-activate)
-  (left-char))
-
 ;; --
 
 ;;;###autoload

[nongnu] elpa/xah-fly-keys updated (d982449056 -> 239f93ce99)

[ELPA Syncer]

elpasync pushed a change to branch elpa/xah-fly-keys.

  from  d982449056 xah-toggle-read-novel-mode removed. no belong.
   new  b5ea2b6556 xah-next-user-buffer, removed the behavior of using 
arrows to repeat after the command, that was added about 3 months ago. it is 
confusing. (i.e. removed (set-transient-map xah-fly-switch-buffer-map))
   new  239f93ce99 xah-repeat-key now default to space. (was m). removed 
xah-fly-insert-mode-activate-space-before and 
xah-fly-insert-mode-activate-space-after


Summary of changes:
 xah-fly-keys.el | 53 ++---
 1 file changed, 14 insertions(+), 39 deletions(-)

[elpa] externals/bufferlo 60607d25f1 1/2: Remove obsolete compatibility code

[ELPA Syncer]

branch: externals/bufferlo
commit 60607d25f13c1957c29e033731a0a37bd3c2aae0
Author: Florian Rommel 
Commit: Flo Rommel 

Remove obsolete compatibility code
---
 bufferlo.el | 28 +---
 1 file changed, 9 insertions(+), 19 deletions(-)

diff --git a/bufferlo.el b/bufferlo.el
index 667dcfcc30..fe8176adaa 100644
--- a/bufferlo.el
+++ b/bufferlo.el
@@ -1044,12 +1044,10 @@ string, FACE is the face for STR."
 ;; Duplicate/move tabs
 (advice-add #'tab-bar-select-tab :around #'bufferlo--activate-force)
 ;; Clone & undelete frame
-(when (>= emacs-major-version 28)
-  (advice-add #'clone-frame :around
-  #'bufferlo--clone-undelete-frame-advice))
-(when (>= emacs-major-version 29)
-  (advice-add #'undelete-frame :around
-  #'bufferlo--clone-undelete-frame-advice))
+(advice-add #'clone-frame :around
+#'bufferlo--clone-undelete-frame-advice)
+(advice-add #'undelete-frame :around
+#'bufferlo--clone-undelete-frame-advice)
 ;; Undo close tab duplicate check
 (if (< emacs-major-version 31)
 (advice-add #'tab-bar-undo-close-tab
@@ -1102,10 +1100,8 @@ string, FACE is the face for STR."
 ;; Duplicate/move tabs
 (advice-remove #'tab-bar-select-tab #'bufferlo--activate-force)
 ;; Clone & undelete frame
-(when (>= emacs-major-version 28)
-  (advice-remove #'clone-frame #'bufferlo--clone-undelete-frame-advice))
-(when (>= emacs-major-version 29)
-  (advice-remove #'undelete-frame #'bufferlo--clone-undelete-frame-advice))
+(advice-remove #'clone-frame #'bufferlo--clone-undelete-frame-advice)
+(advice-remove #'undelete-frame #'bufferlo--clone-undelete-frame-advice)
 ;; Undo close tab duplicate check
 (if (< emacs-major-version 31)
 (advice-remove #'tab-bar-undo-close-tab
@@ -1383,9 +1379,7 @@ Includes hidden buffers."
 Argument IGNORE is for compatibility with `tab-bar-tab-post-open-functions'."
   (ignore ignore)
   ;; Reset the local buffer list unless we clone the tab (tab-duplicate).
-  (unless (or (eq tab-bar-new-tab-choice 'clone)
-  (and (< emacs-major-version 29)
-   (not tab-bar-new-tab-choice)))
+  (unless (eq tab-bar-new-tab-choice 'clone)
 (bufferlo--include-exclude-buffers nil)))
 
 (defun bufferlo--current-buffers (frame)
@@ -2978,9 +2972,7 @@ Returns nil on success, non-nil on abort."
 
  ;; Clear existing tabs unless merging
  (unless (eq load-policy 'merge)
-   (if (>= emacs-major-version 28)
-   (tab-bar-tabs-set nil)
- (set-frame-parameter nil 'tabs nil)))
+   (tab-bar-tabs-set nil))
 
  ;; Load tabs
  (let ((first (if (eq load-policy 'merge) nil t))
@@ -3760,9 +3752,7 @@ This closes their associated bookmarks and kills their 
buffers."
 
 (defun bufferlo--current-tab ()
   "Get the current tab record."
-  (if (>= emacs-major-version 28)
-  (tab-bar--current-tab-find)
-(assq 'current-tab (funcall tab-bar-tabs-function nil
+  (tab-bar--current-tab-find))
 
 (defun bufferlo--bookmark-tab-save (name &optional no-overwrite no-message msg)
 "Save the current tab as a bookmark.

[elpa] externals/bufferlo updated (aa724fe7ce -> 5ca0795538)

[ELPA Syncer]

elpasync pushed a change to branch externals/bufferlo.

  from  aa724fe7ce Add "purpose" to similar packages
   new  60607d25f1 Remove obsolete compatibility code
   new  5ca0795538 Set bufferlo-kill-modified-buffers-policy to nil


Summary of changes:
 bufferlo.el | 31 ++-
 1 file changed, 10 insertions(+), 21 deletions(-)

[elpa] externals/bufferlo 5ca0795538 2/2: Set bufferlo-kill-modified-buffers-policy to nil

[ELPA Syncer]

branch: externals/bufferlo
commit 5ca07955388b5a6a2926f9ea2030f1f75511e879
Author: Florian Rommel 
Commit: Florian Rommel 

Set bufferlo-kill-modified-buffers-policy to nil
---
 bufferlo.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/bufferlo.el b/bufferlo.el
index fe8176adaa..898c0ee877 100644
--- a/bufferlo.el
+++ b/bufferlo.el
@@ -138,8 +138,7 @@ This is a list of regular expressions that match buffer 
names."
   :package-version '(bufferlo . "1.1")
   :type 'boolean)
 
-(defcustom bufferlo-kill-modified-buffers-policy
-  'retain-modified-kill-without-file-name
+(defcustom bufferlo-kill-modified-buffers-policy nil
   "Bufferlo behavior when killing modified or process buffers.
 
 This policy applies to all bufferlo functions that entail killing buffers,

[nongnu] elpa/xah-fly-keys b5ea2b6556 1/2: xah-next-user-buffer, removed the behavior of using arrows to repeat after the command, that was added about 3 months ago. it is confusing. (i.e. removed (se

[ELPA Syncer]

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

xah-next-user-buffer, removed the behavior of using arrows to repeat after 
the command, that was added about 3 months ago. it is confusing. (i.e. removed 
(set-transient-map xah-fly-switch-buffer-map))
---
 xah-fly-keys.el | 31 ++-
 1 file changed, 10 insertions(+), 21 deletions(-)

diff --git a/xah-fly-keys.el b/xah-fly-keys.el
index c9043438a6..3a6a37773b 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: 26.12.20250419130746
+;; Version: 26.12.20250422103806
 ;; Created: 2013-09-10
 ;; Package-Requires: ((emacs "28.3"))
 ;; Keywords: convenience, vi, vim, ergoemacs, keybinding
@@ -2120,14 +2120,7 @@ Version: 2024-10-02"
 ;; --
 ;; misc
 
-(defvar xah-fly-switch-buffer-map nil "repeat key map for 
`xah-next-user-buffer' etc.")
-(setq xah-fly-switch-buffer-map
-  (let ((xkmap (make-sparse-keymap)))
-(define-key xkmap (kbd "") 'xah-previous-emacs-buffer)
-(define-key xkmap (kbd "") 'xah-next-emacs-buffer)
-(define-key xkmap (kbd "") 'xah-previous-user-buffer)
-(define-key xkmap (kbd "") 'xah-next-user-buffer)
-xkmap))
+
 
 (defun xah-user-buffer-p ()
   "Return t if current buffer is a user buffer, else nil.
@@ -2154,7 +2147,7 @@ Any other key to exit.
 
 URL `http://xahlee.info/emacs/emacs/elisp_next_prev_user_buffer.html'
 Created: 2016-06-19
-Version: 2024-09-23"
+Version: 2025-04-22"
   (interactive)
   (next-buffer)
   (let ((i 0))
@@ -2162,8 +2155,7 @@ Version: 2024-09-23"
   (if (not (xah-user-buffer-p))
   (progn (next-buffer)
  (setq i (1+ i)))
-(progn (setq i 100)
-  (set-transient-map xah-fly-switch-buffer-map))
+(progn (setq i 100))
 
 (defun xah-previous-user-buffer ()
   "Switch to the previous user buffer.
@@ -2175,7 +2167,7 @@ Any other key to exit.
 
 URL `http://xahlee.info/emacs/emacs/elisp_next_prev_user_buffer.html'
 Created: 2016-06-19
-Version: 2024-05-01"
+Version: 2025-04-22"
   (interactive)
   (previous-buffer)
   (let ((i 0))
@@ -2183,8 +2175,7 @@ Version: 2024-05-01"
   (if (not (xah-user-buffer-p))
   (progn (previous-buffer)
  (setq i (1+ i)))
-(progn (setq i 100)
-  (set-transient-map xah-fly-switch-buffer-map))
+(progn (setq i 100))
 
 (defun xah-next-emacs-buffer ()
   "Switch to the next emacs buffer.
@@ -2196,13 +2187,12 @@ Any other key to exit.
 
 URL `http://xahlee.info/emacs/emacs/elisp_next_prev_user_buffer.html'
 Created: 2013-05-22
-Version: 2024-09-16"
+Version: 2025-04-22"
   (interactive)
   (next-buffer)
   (let ((i 0))
 (while (and (xah-user-buffer-p) (< i 20))
-  (setq i (1+ i)) (next-buffer)))
-  (set-transient-map xah-fly-switch-buffer-map))
+  (setq i (1+ i)) (next-buffer
 
 (defun xah-previous-emacs-buffer ()
   "Switch to the previous emacs buffer.
@@ -2214,13 +2204,12 @@ Any other key to exit.
 
 URL `http://xahlee.info/emacs/emacs/elisp_next_prev_user_buffer.html'
 Created: 2013-05-22
-Version: 2024-09-16"
+Version: 2025-04-22"
   (interactive)
   (previous-buffer)
   (let ((i 0))
 (while (and (xah-user-buffer-p) (< i 20))
-  (setq i (1+ i)) (previous-buffer)))
-  (set-transient-map xah-fly-switch-buffer-map))
+  (setq i (1+ i)) (previous-buffer
 
 (defun xah-new-empty-buffer ()
   "Create a new empty buffer.

[elpa] externals/denote ffd3bef12b 1/2: Add 'random' order for denote-sort functions

[ELPA Syncer]

branch: externals/denote
commit ffd3bef12b6c266e1725fe5493d4bed786d25017
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add 'random' order for denote-sort functions

This applies to the command 'denote-sort-dired' ('denote-dired'), as
well as the Org dynamic blocks defined in the package denote-org.

Thanks to experimental-code-86 for making the suggestion in issue 572:
.
---
 README.org | 31 +++
 denote.el  | 44 ++--
 2 files changed, 49 insertions(+), 26 deletions(-)

diff --git a/README.org b/README.org
index bb6c443209..70cbafe36f 100644
--- a/README.org
+++ b/README.org
@@ -3535,24 +3535,31 @@ Here are some examples:
 :CUSTOM_ID: h:c958e087-1d23-4a25-afdd-db7bf5606b4c
 :END:
 
-When sorting by =title=, =keywords=, or =signature= with the
-~denote-sort-dired~ command, Denote will internally apply a sorting
-function that is specific to each component 
([[#h:a34228cb-484f-48fe-9cbc-8e41f313127b][Configure what extra prompts 
~denote-sort-dired~ issues]]).
-These are subject to user configuration:
+When sorting by =title=, =keywords=, =signature=, =identifier=, or
+=random= with the ~denote-dired~ command (alias ~denote-sort-dired~),
+Denote will internally apply a sorting function that is specific to
+each component ([[#h:a34228cb-484f-48fe-9cbc-8e41f313127b][Configure what 
extra prompts ~denote-sort-dired~ issues]]).
+
+With the exception of =random=, the sorting of file name components
+is subject to user configuration:
 
 #+vindex: denote-sort-identifier-comparison-function
-- ~denote-sort-identifier-comparison-function~
+- ~denote-sort-identifier-comparison-function~ :: The function to sort
+  by the file name identifier.
 
 #+vindex: denote-sort-title-comparison-function
-- ~denote-sort-title-comparison-function~
+- ~denote-sort-title-comparison-function~ :: The function to sort by
+  the file name title.
 
 #+vindex: denote-sort-keywords-comparison-function
-- ~denote-sort-keywords-comparison-function~
+- ~denote-sort-keywords-comparison-function~ :: The function to sort
+  by the file name keywords.
 
 #+vindex: denote-sort-signature-comparison-function
-- ~denote-sort-signature-comparison-function~
+- ~denote-sort-signature-comparison-function~ :: The function to sort
+  by the file name signature.
 
-By default, all these user options use the same sorting function,
+By default, all these user options use the same comparison function,
 namely ~string-collate-lessp~. Users who have specific needs for any
 of those file name components can write their own sorting algorithms
 ([[#h:95345870-4ccd-484f-9adf-de4747ad5760][Sort signatures that include 
Luhmann-style sequences]]).
@@ -6308,9 +6315,9 @@ Denote is meant to be a collective effort.  Every bit of 
help matters.
   Prevos, Philip Kaludercic, Quiliro Ordóñez, Stephen R. Kifer, Stefan
   Monnier, Stefan Thesing, Thibaut Benjamin, Tomasz Hołubowicz,
   TomoeMami , Vedang Manerikar, Wesley Harvey, Zhenxu Xu, arsaber101,
-  bryanrinders, eum3l, ezchi, jarofromel, leinfink (Henrik), l-o-l-h
-  (Lincoln), mattyonweb, maxbrieiev, mentalisttraceur, pmenair,
-  relict007, skissue.
+  bryanrinders, eum3l, experimental-code-86, ezchi, jarofromel,
+  leinfink (Henrik), l-o-l-h (Lincoln), mattyonweb, maxbrieiev,
+  mentalisttraceur, pmenair, relict007, skissue.
 
 + Ideas and/or user feedback :: Abin Simon, Aditya Yadav, Alan
   Schmitt, Aleksandr Vityazev, Alex Griffin, Alex Hirschfeld, Alexis
diff --git a/denote.el b/denote.el
index 03d2c8acf9..cff0964820 100644
--- a/denote.el
+++ b/denote.el
@@ -1408,7 +1408,7 @@ Return the absolute path to the matching file."
 (defconst denote-sort-comparison-fallback-function #'string-collate-lessp
   "String comparison function used by `denote-sort-files' subroutines.")
 
-(defconst denote-sort-components '(title keywords signature identifier)
+(defconst denote-sort-components '(title keywords signature identifier random)
   "List of sorting keys applicable for `denote-sort-files' and related.")
 
 (defcustom denote-sort-identifier-comparison-function 
denote-sort-comparison-fallback-function
@@ -1478,8 +1478,9 @@ minibuffer prompt for which file name component to sort 
by."
   (const :tag "Sort by identifier (default)" identifier)
   (const :tag "Sort by title" title)
   (const :tag "Sort by keywords" keywords)
-  (const :tag "Sort by signature" signature))
-  :package-version '(denote . "3.1.0")
+  (const :tag "Sort by signature" signature)
+  (const :tag "Random order" random))
+  :package-version '(denote . "4.1.0")
   :group 'denote-sort)
 
 (defcustom denote-sort-dired-default-reverse-sort nil
@@ -1519,6 +1520,17 @@ The `%s' performs the comparison."
 (denote-sort--define-lessp keywords)
 (denote-sort--define-lessp signature)
 
+(defun denote-sort-random (elements)
+  "Shuffle ELEMENTS of list randomly."
+ 

[elpa] externals/minuet 535c4b48a0: doc: update prompt customization instruction.

[ELPA Syncer]

branch: externals/minuet
commit 535c4b48a0f979c526310409d46786e3e4cc4325
Author: Milan Glacier 
Commit: Milan Glacier 

doc: update prompt customization instruction.
---
 prompt.md | 39 +--
 1 file changed, 25 insertions(+), 14 deletions(-)

diff --git a/prompt.md b/prompt.md
index dbe61a1a6b..0f4b014534 100644
--- a/prompt.md
+++ b/prompt.md
@@ -18,15 +18,26 @@ The prompt sent to the FIM LLM follows this structure:
  :suffix minuet--default-fim-suffix-function))
 ```
 
-The template contains two main functions:
+This template utilizes two default functions that generate the following:
 
-- `:prompt`: return language and the indentation style, followed by the
-  `context_before_cursor` verbatim.
-- `:suffix`: return `context_after_cursor` verbatim.
+- `:prompt`: Returns the programming language, indentation style, and the
+  verbatim content of the context before the cursor.
+- `:suffix`: Returns the verbatim content of the context after cursor.
 
-Both functions can be customized to supply additional context to the LLM. The
-`suffix` function can be disabled by setting `:suffix` to `nil` via 
`plist-put`,
-resulting in a request containing only the prompt.
+Both `:prompt` and `:suffix` are implemented as functions, each accepting a
+plist `ctx` with these attributes and returning a string:
+
+- `:before-cursor`: The text before the cursor.
+- `:after-cursor`: The text after the cursor.
+- `:language-and-tab`: The programming language and indentation style.
+- `is_incomplete_before`: A boolean indicating whether the content before the
+  cursor was truncated.
+- `is_incomplete_after`: A boolean indicating whether the content after the
+  cursor was truncated.
+
+These functions are customizable to provide additional context to the LLM. The
+`:suffix` function can be disabled by setting its value to `nil` using
+`plist-put`, resulting in a request containing only the `:prompt` content.
 
 Note: for Ollama users: Do not include special tokens (e.g., `<|fim_begin|>`)
 within the prompt or suffix functions, as these will be automatically populated
@@ -192,13 +203,13 @@ Implementation requires each component to be defined by a 
function that accepts
 a single parameter `context` and returns a string. This context parameter is a
 plist containing the following values:
 
-- `:before-cursor`
-- `:after-cursor`
-- `:language-and-tab`
-- `:is-incomplete-before`: indicates whether the context before the cursor is
-  incomplete
-- `:is-incomplete-after`: indicates whether the context after the cursor is
-  incomplete
+- `:before-cursor`: The text before the cursor.
+- `:after-cursor`: The text after the cursor.
+- `:language-and-tab`: The programming language and indentation style.
+- `is_incomplete_before`: A boolean indicating whether the content before the
+  cursor was truncated.
+- `is_incomplete_after`: A boolean indicating whether the content after the
+  cursor was truncated.
 
 ## Customization
 

[elpa] externals/org cb866bf1ae: ox-publish.el: Fix hash-table nil error in find title/date

[ELPA Syncer]

branch: externals/org
commit cb866bf1ae14ccce3b1e75d6b573985c6fb01051
Author: Thomas Ingram 
Commit: Ihor Radchenko 

ox-publish.el: Fix hash-table nil error in find title/date

* lisp/ox-publish.el (org-publish-find-title, org-publish-find-date)
(org-publish-index-generate-theindex): Ensure cache is initiated by
providing project-name to `org-publish-cache-get-file-property' or
`org-publish-cache-set-file-property'.

TINYCHANGE
---
 lisp/ox-publish.el | 14 --
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/lisp/ox-publish.el b/lisp/ox-publish.el
index 3532bdbb49..1183281e73 100644
--- a/lisp/ox-publish.el
+++ b/lisp/ox-publish.el
@@ -856,7 +856,7 @@ PROPERTY, i.e. \"behavior\" parameter from 
`org-export-options-alist'."
 (defun org-publish-find-title (file project)
   "Find the title of FILE in PROJECT."
   (let ((file (org-publish--expand-file-name file project)))
-(or (org-publish-cache-get-file-property file :title nil t)
+(or (org-publish-cache-get-file-property file :title nil t (car project))
(let* ((parsed-title (org-publish-find-property file :title project))
   (title
(if parsed-title
@@ -865,7 +865,7 @@ PROPERTY, i.e. \"behavior\" parameter from 
`org-export-options-alist'."
(org-no-properties
 (org-element-interpret-data parsed-title))
  (file-name-nondirectory (file-name-sans-extension file)
- (org-publish-cache-set-file-property file :title title)
+ (org-publish-cache-set-file-property file :title title (car 
project))
 
 (defun org-publish-find-date (file project)
   "Find the date of FILE in PROJECT.
@@ -874,7 +874,7 @@ If FILE is an Org file and provides a DATE keyword use it.  
In
 any other case use the file system's modification time.  Return
 time in `current-time' format."
   (let ((file (org-publish--expand-file-name file project)))
-(or (org-publish-cache-get-file-property file :date nil t)
+(or (org-publish-cache-get-file-property file :date nil t (car project))
(org-publish-cache-set-file-property
 file :date
 (if (file-directory-p file)
@@ -890,7 +890,8 @@ time in `current-time' format."
  (org-time-string-to-time value))
   ((file-exists-p file)
(file-attribute-modification-time (file-attributes file)))
-  (t (error "No such file: \"%s\"" file)
+  (t (error "No such file: \"%s\"" file)
+ (car project)
 
 (defun org-publish-sitemap-default-entry (entry style project)
   "Default format for site map ENTRY, as a string.
@@ -1061,8 +1062,9 @@ publishing directory."
  (setq full-index
(sort (nreverse full-index)
  (lambda (a b) (string< (downcase (car a))
-(downcase (car b)))
-  (let ((index (org-publish-cache-get-file-property file :index)))
+   (downcase (car b)))
+  (let ((index (org-publish-cache-get-file-property
+file :index nil nil (car project
(dolist (term index)
  (unless (member term full-index) (push term full-index)
 ;; Write "theindex.inc" in DIRECTORY.

[elpa] externals/auctex 93a415c453 1/2: Replace $...$ depending on major-mode

[ELPA Syncer]

branch: externals/auctex
commit 93a415c4537228ad5f9757244611e9eb8f57727d
Author: Arash Esbati 
Commit: Arash Esbati 

Replace $...$ depending on major-mode

* NEWS.org (Changed): Announce the change.

* doc/auctex.texi (Quotes): Adjust accordingly.

* tex.el (TeX-insert-dollar-electric-region): Replace $...$ by
$$...$$ in `plain-TeX-mode' and by \[...\] in `LaTeX-mode' and
`docTeX-mode'.  (bug#78006)
---
 NEWS.org| 2 ++
 doc/auctex.texi | 3 ++-
 tex.el  | 7 +--
 3 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/NEWS.org b/NEWS.org
index a2ca10d3b6..8917727bf2 100644
--- a/NEWS.org
+++ b/NEWS.org
@@ -16,6 +16,8 @@
 ** Changed
 
 - AUCTeX now requires GNU Emacs 28.1 or higher.
+- Replace $..$ with \[..\] in ~LaTeX-mode~ and any derived mode when
+  hitting =$= repeatedly where ~TeX-electric-math~ is non-~nil~.
 
 ** Fixed
 
diff --git a/doc/auctex.texi b/doc/auctex.texi
index 7cca6f8bff..46ed6f95cd 100644
--- a/doc/auctex.texi
+++ b/doc/auctex.texi
@@ -447,7 +447,8 @@ symbols for opening and closing inline equation and keep 
the region
 active, leaving point after the closing symbol.  By pressing repeatedly
 @kbd{$} while the region is active you can toggle between an inline
 equation, a display equation, and no equation.  To be precise,
-@samp{$...$} is replaced by @samp{$$...$$}, whereas @samp{\(...\)} is
+@samp{$...$} is replaced by @samp{$$...$$} in plain-TeX-mode or
+@samp{\[...\]} in LaTeX-mode and docTeX-mode, whereas @samp{\(...\)} is
 replaced by @samp{\[...\]}.
 @end defopt
 
diff --git a/tex.el b/tex.el
index 3d28b2c631..e90252d830 100644
--- a/tex.el
+++ b/tex.el
@@ -6188,10 +6188,13 @@ See `TeX-electric-math'."
  (re-search-forward "\\=\\$\\$\\([^z-a]*\\)\\$\\$" (mark) t)))
 (replace-match "\\1" t)
 (set-mark (match-beginning 0)))
-   ;; $...$ to $$...$$
+   ;; $...$ to $$...$$ or \[...\] dep. on mode:
((and (eq last-command #'TeX-insert-dollar)
  (re-search-forward "\\=\\$\\([^z-a]*\\)\\$" (mark) t))
-(replace-match "$$\\1$$" t)
+(replace-match (if (derived-mode-p 'LaTeX-mode)
+   "[\\1]"
+ "$$\\1$$")
+   t)
 (set-mark (match-beginning 0)))
;; \(...\) to \[...\]
((and (eq last-command #'TeX-insert-dollar)

[elpa] externals/auctex d962325648 2/2: Fix parsing in style/minted2?.el

[ELPA Syncer]

branch: externals/auctex
commit d962325648fee98d0fab6888e5c01d1761fc4784
Author: Arash Esbati 
Commit: Arash Esbati 

Fix parsing in style/minted2?.el

* style/minted.el (LaTeX-minted-auto-cleanup):
* style/minted2.el (LaTeX-minted2-auto-cleanup): Take parsed
elements from `LaTeX-auto-minted2?-newmint' since the functions
`LaTeX-minted2?-newmint-list' strip parsed entries if the optional
argument of \newmint macros is missing.
---
 style/minted.el  | 6 +++---
 style/minted2.el | 6 +++---
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/style/minted.el b/style/minted.el
index 655e9a4fd5..4343cef4a2 100644
--- a/style/minted.el
+++ b/style/minted.el
@@ -1,6 +1,6 @@
 ;;; minted.el --- AUCTeX style for `minted.sty' (v3.2.0)  -*- lexical-binding: 
t; -*-
 
-;; Copyright (C) 2014--2024 Free Software Foundation, Inc.
+;; Copyright (C) 2014--2025 Free Software Foundation, Inc.
 
 ;; Author: Tassilo Horn 
 ;; Maintainer: auctex-de...@gnu.org
@@ -264,7 +264,7 @@ Update the variable `LaTeX-minted-style-list' if still nil."
 
 (defun LaTeX-minted-auto-cleanup ()
   "Process the parsed results from minted package."
-  (dolist (mint (LaTeX-minted-newmint-list))
+  (dolist (mint LaTeX-auto-minted-newmint)
 (cond ((string= (nth 2 mint) "ed")
;; \newminted{lang}{opts} => new langcode env.
;; \newminted[envname]{lang}{opts} => new envname env.
@@ -321,7 +321,7 @@ Update the variable `LaTeX-minted-style-list' if still nil."
(font-latex-add-keywords `((,lang "[")) 'textual))
   ;; Refresh font-locking so that the verbatim envs take effect only
   ;; when there are defined shortcuts:
-  (when (and (LaTeX-minted-newmint-list)
+  (when (and LaTeX-auto-minted-newmint
  (fboundp 'font-latex-set-syntactic-keywords)
  (eq TeX-install-font-lock 'font-latex-setup))
 (font-latex-set-syntactic-keywords)))
diff --git a/style/minted2.el b/style/minted2.el
index 687b195c9f..ec6942feda 100644
--- a/style/minted2.el
+++ b/style/minted2.el
@@ -1,6 +1,6 @@
 ;;; minted2.el --- AUCTeX style for `minted2.sty' (v2.9)  -*- lexical-binding: 
t; -*-
 
-;; Copyright (C) 2014--2024 Free Software Foundation, Inc.
+;; Copyright (C) 2014--2025 Free Software Foundation, Inc.
 
 ;; Author: Tassilo Horn 
 ;; Maintainer: auctex-de...@gnu.org
@@ -241,7 +241,7 @@ Update the variable `LaTeX-minted2-style-list' if still 
nil."
 
 (defun LaTeX-minted2-auto-cleanup ()
   "Process the parsed results from minted2 package."
-  (dolist (mint (LaTeX-minted2-newmint-list))
+  (dolist (mint LaTeX-auto-minted2-newmint)
 (cond ((string= (nth 2 mint) "ed")
;; \newminted{lang}{opts} => new langcode and langcode* envs.
;; \newminted[envname]{lang}{opts} => new envname/envname* envs.
@@ -302,7 +302,7 @@ Update the variable `LaTeX-minted2-style-list' if still 
nil."
(font-latex-add-keywords `((,lang "[")) 'textual))
   ;; Refresh font-locking so that the verbatim envs take effect only
   ;; when there are defined shortcuts:
-  (when (and (LaTeX-minted2-newmint-list)
+  (when (and LaTeX-auto-minted2-newmint
  (fboundp 'font-latex-set-syntactic-keywords)
  (eq TeX-install-font-lock 'font-latex-setup))
 (font-latex-set-syntactic-keywords)))

[elpa] externals/bufferlo 2c3c5ec3d3: Version 1.1

[ELPA Syncer]

branch: externals/bufferlo
commit 2c3c5ec3d3eec20efbf23b08ecf78c9d174bdcd8
Author: Florian Rommel 
Commit: Florian Rommel 

Version 1.1
---
 CHANGELOG.org | 16 
 bufferlo.el   |  2 +-
 2 files changed, 17 insertions(+), 1 deletion(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index bddfa88dd8..045c42a119 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -1,3 +1,19 @@
+* Version 1.1 (2025-05-03)
+- Bug fixes
+- Revamped documentation
+- New minimum required Emacs version: 29.1
+- Improved bookmark loading with support for load policies
+- Filters for buffer inclusion/exclusion in bookmarks
+- Filters for local buffers for switch-to-prev-buffer-skip (next/prev buffer 
switching)
+- Enhanced buffer save/restoration control during bookmark saving/loading 
(failed-buffer policy & hooks)
+- Support for automatic bookmark loading on startup
+- Support for automatic bookmark saving on timer activation and/or when 
frame/tab closing
+- Support for storing frame geometry with bookmarks
+- Experimental support for bookmark sets (combination of multiple frame/tab 
bookmarks)
+- New bufferlo menu-bar entry
+- New configurable bufferlo mode-line entry
+- Improved bufferlo ibuffer functionality
+
 * Version 0.8 (2024-05-16)
 - Bugfix
 
diff --git a/bufferlo.el b/bufferlo.el
index 898c0ee877..29c8c8cb91 100644
--- a/bufferlo.el
+++ b/bufferlo.el
@@ -8,7 +8,7 @@
 ;; Stephane Marks 
 ;; Url: https://github.com/florommel/bufferlo
 ;; Created: 2021-09-15
-;; Version: 1.1-pre
+;; Version: 1.1
 ;; Package-Requires: ((emacs "29.1"))
 ;; Keywords: buffer frame tabs local
 

[elpa] externals/auctex updated (59bc421e39 -> d962325648)

[ELPA Syncer]

elpasync pushed a change to branch externals/auctex.

  from  59bc421e39 Update style/keytheorems.el to v0.2.6
   new  93a415c453 Replace $...$ depending on major-mode
   new  d962325648 Fix parsing in style/minted2?.el


Summary of changes:
 NEWS.org | 2 ++
 doc/auctex.texi  | 3 ++-
 style/minted.el  | 6 +++---
 style/minted2.el | 6 +++---
 tex.el   | 7 +--
 5 files changed, 15 insertions(+), 9 deletions(-)

[elpa] externals/denote-org 2eeb06f60b: Document new 'random' sort for the Org dynamic blocks

[ELPA Syncer]

branch: externals/denote-org
commit 2eeb06f60b00482ef7fe01c6f01728b3badd1f4b
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Document new 'random' sort for the Org dynamic blocks

This is a new feature in the 'denote' package, starting with commit
ffd3bef: 
.
---
 README.org | 27 +++
 1 file changed, 15 insertions(+), 12 deletions(-)

diff --git a/README.org b/README.org
index c43f9b8cc5..ef8ed6793f 100644
--- a/README.org
+++ b/README.org
@@ -160,10 +160,11 @@ line to update the block.
 
 - The =:sort-by-component= parameter is optional. It sorts the files
   by the given Denote file name component. The value it accepts is an
-  unquoted symbol among =title=, =keywords=, =signature=, =identifier=.
-  When using the command ~denote-org-dblock-insert-files~, this
-  parameter is automatically inserted together with the (=:regexp=
-  parameter) and the user is prompted for a file name component.
+  unquoted symbol among =title=, =keywords=, =signature=, =identifier=,
+  =random=. When using the command ~denote-org-dblock-insert-files~,
+  this parameter is automatically inserted together with the
+  (=:regexp= parameter) and the user is prompted for a file name
+  component. [ The =random= sort is part of {{{development-version}}}. ]
 
 - The =:reverse-sort= parameter is optional. It reverses the order in
   which files appear in. This is meaningful even without the presence
@@ -311,10 +312,11 @@ parameters, which are described further below:
 
 - The =:sort-by-component= parameter is optional. It sorts the files
   by the given Denote file name component. The value it accepts is an
-  unquoted symbol among =title=, =keywords=, =signature=, =identifier=.
-  When using the command ~denote-org-dblock-insert-files~, this
-  parameter is automatically inserted together with the (=:regexp=
-  parameter) and the user is prompted for a file name component.
+  unquoted symbol among =title=, =keywords=, =signature=, =identifier=,
+  =random=. When using the command ~denote-org-dblock-insert-files~,
+  this parameter is automatically inserted together with the
+  (=:regexp= parameter) and the user is prompted for a file name
+  component. [ The =random= sort is part of {{{development-version}}}. ]
 
 - The =:reverse-sort= parameter is optional. It reverses the order in
   which files appear in. This is meaningful even without the presence
@@ -420,10 +422,11 @@ you get all the parameters included:
 
 - The =:sort-by-component= parameter is optional. It sorts the files
   by the given Denote file name component. The value it accepts is an
-  unquoted symbol among =title=, =keywords=, =signature=, =identifier=.
-  When using the command ~denote-org-dblock-insert-files~, this
-  parameter is automatically inserted together with the (=:regexp=
-  parameter) and the user is prompted for a file name component.
+  unquoted symbol among =title=, =keywords=, =signature=, =identifier=,
+  =random=. When using the command ~denote-org-dblock-insert-files~,
+  this parameter is automatically inserted together with the
+  (=:regexp= parameter) and the user is prompted for a file name
+  component. [ The =random= sort is part of {{{development-version}}}. ]
 
 - The =:reverse-sort= parameter is optional. It reverses the order in
   which files appear in. This is meaningful even without the presence

[elpa] externals/denote f543f305ad 2/2: Add annotation function to denote-sort-component-prompt

[ELPA Syncer]

branch: externals/denote
commit f543f305ad9c2256182859193a57d9976f67c0b5
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add annotation function to denote-sort-component-prompt
---
 denote.el | 19 ---
 1 file changed, 16 insertions(+), 3 deletions(-)

diff --git a/denote.el b/denote.el
index cff0964820..60d6d7b616 100644
--- a/denote.el
+++ b/denote.el
@@ -1620,14 +1620,27 @@ OMIT-CURRENT have been applied."
 (defalias 'denote-sort--component-hist 'denote-sort-component-history
   "Compatibility alias for `denote-sort-component-history'.")
 
+(defun denote-sort-annotate (component)
+  "Annotate COMPONENT for `denote-sort-component-prompt'."
+  (when-let* ((text (pcase component
+  ("title" "The title of the file name")
+  ("keywords" "The keywords of the file name")
+  ("signature" "The signature of the file name")
+  ("identifier" "The identifier of the file name")
+  ("random" "Random file sort"
+(format "%s-- %s"
+(propertize " " 'display '(space :align-to 12))
+(propertize text 'face 'completions-annotations
+
 (defun denote-sort-component-prompt ()
   "Prompt for sorting key among `denote-sort-components'."
-  (let ((default (car denote-sort-component-history)))
+  (let ((default (car denote-sort-component-history))
+(completion-extra-properties (list :annotation-function 
#'denote-sort-annotate)))
 (intern
  (completing-read
   (format-prompt "Sort by file name component" default)
-  denote-sort-components nil :require-match
-  nil 'denote-sort-component-history default
+  (denote--completion-table 'denote-sort-component denote-sort-components)
+  nil :require-match nil 'denote-sort-component-history default
 
 (defvar denote-sort-exclude-files-history nil
   "Minibuffer history for `denote-sort-exclude-files-prompt'.")

[elpa] externals/denote updated (807395fcb1 -> f543f305ad)

[ELPA Syncer]

elpasync pushed a change to branch externals/denote.

  from  807395fcb1 Add command denote-find-backlink-with-location
   new  ffd3bef12b Add 'random' order for denote-sort functions
   new  f543f305ad Add annotation function to denote-sort-component-prompt


Summary of changes:
 README.org | 31 +++
 denote.el  | 63 +-
 2 files changed, 65 insertions(+), 29 deletions(-)

[nongnu] elpa/aidermacs 4c514f65a5: Do not require exact matches when selecting models

[ELPA Syncer]

branch: elpa/aidermacs
commit 4c514f65a5460425447287dadec56a11a5234fdf
Author: Adam Niederer 
Commit: Matthew Zeng 

Do not require exact matches when selecting models

There are circumstances, e.g. when using ollama, where aider will not give 
us
a correct list of models, instead providing some defaults that nobody uses
anymore (llama2 etc). Requiring an exact match in this case blocks users 
from
selecting the model they wish to select.

Ref:
https://github.com/Aider-AI/aider/issues/3081
https://github.com/Aider-AI/aider/pull/3944
---
 aidermacs-models.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/aidermacs-models.el b/aidermacs-models.el
index 8ee8ce6d0e..2449e1aff3 100644
--- a/aidermacs-models.el
+++ b/aidermacs-models.el
@@ -186,9 +186,9 @@ When SET-WEAK-MODEL is non-nil, only allow setting the weak 
model."
 (completing-read
  "Select model type: "
  '("Main/Reasoning Model" "Editing Model")
- nil t))
+ nil nil))
(t "Main Model")))
- (model (completing-read (format "Select %s: " model-type) 
aidermacs--cached-models nil t)))
+ (model (completing-read (format "Select %s: " model-type) 
aidermacs--cached-models nil nil)))
 (when model
   (cond
(set-weak-model