[nongnu] elpa/why-this updated (c914584833 -> 5203d9379a)

[ELPA Syncer]

elpasync pushed a change to branch elpa/why-this.

  from  c914584833 Use cond instead of nested if in why-this--get-face
   new  cd7ae57770 Fix showing messages for region
   new  5203d9379a Bump version to 2.0.4


Summary of changes:
 why-this.el | 13 +++--
 1 file changed, 7 insertions(+), 6 deletions(-)

[nongnu] elpa/why-this cd7ae57770 1/2: Fix showing messages for region

[ELPA Syncer]

branch: elpa/why-this
commit cd7ae577704efa2113650e199d12cc20102f368a
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

Fix showing messages for region
---
 why-this.el | 11 ++-
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/why-this.el b/why-this.el
index 41e044359f..93bc56c18f 100644
--- a/why-this.el
+++ b/why-this.el
@@ -369,11 +369,12 @@ TIME-FORMAT is used to format data."
   (while why-this--overlays
 (delete-overlay (pop why-this--overlays)))
   (when why-this-mode
-(let* ((line (line-number-at-pos (if (use-region-p)
- (region-end)
-   (point
-   (begin line)
-   (end (1+ line))
+(let* ((begin (line-number-at-pos (if (use-region-p)
+  (region-beginning)
+(point
+   (end (1+ (line-number-at-pos (if (use-region-p)
+(region-end)
+  (point)
(backend why-this--backend)
(data (funcall backend 'line-data begin end)))
   (dolist (i (number-sequence 0 (- end begin 1)))

[nongnu] elpa/why-this 5203d9379a 2/2: Bump version to 2.0.4

[ELPA Syncer]

branch: elpa/why-this
commit 5203d9379afaf6703746823a580c804e1dd98e08
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

Bump version to 2.0.4
---
 why-this.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/why-this.el b/why-this.el
index 93bc56c18f..62a3a8592d 100644
--- a/why-this.el
+++ b/why-this.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2022 Akib Azmain Turja.
 
 ;; Author: Akib Azmain Turja 
-;; Version: 2.0.3
+;; Version: 2.0.4
 ;; Package-Requires: ((emacs "27.1"))
 ;; Keywords: tools, convenience, vc
 ;; URL: https://codeberg.org/akib/emacs-why-this

[nongnu] elpa/scad-mode updated (1c68ca2533 -> acf2bdb5d1)

[ELPA Syncer]

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

  from  1c68ca2533 README: Add links to related packages
   new  c5e75ad4b6 Add custom variable to set default output file extension
   new  8ba0af4bee Merge pull request #2 from mgsb/custom_ext
   new  acf2bdb5d1 Rename customization variable


Summary of changes:
 scad-mode.el | 9 -
 1 file changed, 8 insertions(+), 1 deletion(-)

[nongnu] elpa/scad-mode c5e75ad4b6 1/3: Add custom variable to set default output file extension

[ELPA Syncer]

branch: elpa/scad-mode
commit c5e75ad4b6a3d6da83e0441c14528c37f7dcfbf8
Author: Mark Grosen 
Commit: Mark Grosen 

Add custom variable to set default output file extension

Enable users to set the default file type for scad-export via
a custom variable, scad-export-ext. The built-in default
is ".stl".
---
 scad-mode.el | 7 ++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/scad-mode.el b/scad-mode.el
index b4f6b0578a..5f537343e0 100644
--- a/scad-mode.el
+++ b/scad-mode.el
@@ -128,6 +128,11 @@
 Options are axes, crosshairs, edges, scales, wireframe."
   :type '(repeat string))
 
+(defcustom scad-export-ext ".stl"
+  "Extension (file type) for output data file via `scad-export'.
+Options are .stl, .off, .amf, .3mf, .csg, .dxf, .svg, .pdf, .png, .echo, .ast, 
.term, .nef3, .nefdbg."
+  :type 'string)
+
 (defvar scad-mode-map
   (let ((map (c-make-inherited-keymap)))
 (define-key map "\C-c\C-c" #'scad-preview)
@@ -212,7 +217,7 @@ Key bindings:
(list (read-file-name
   "Export to: "
   nil nil nil
-  (concat (file-name-base (buffer-file-name)) ".stl"
+  (concat (file-name-base (buffer-file-name)) scad-export-ext
   (save-buffer)
   (compile (concat scad-command
" -o " (shell-quote-argument (expand-file-name file))

[nongnu] elpa/scad-mode 8ba0af4bee 2/3: Merge pull request #2 from mgsb/custom_ext

[ELPA Syncer]

branch: elpa/scad-mode
commit 8ba0af4bee192037a55ea41d7b5c39bfef4ede68
Merge: 1c68ca2533 c5e75ad4b6
Author: Daniel Mendler 
Commit: GitHub 

Merge pull request #2 from mgsb/custom_ext

Add custom variable to set default output file extension
---
 scad-mode.el | 7 ++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/scad-mode.el b/scad-mode.el
index b4f6b0578a..5f537343e0 100644
--- a/scad-mode.el
+++ b/scad-mode.el
@@ -128,6 +128,11 @@
 Options are axes, crosshairs, edges, scales, wireframe."
   :type '(repeat string))
 
+(defcustom scad-export-ext ".stl"
+  "Extension (file type) for output data file via `scad-export'.
+Options are .stl, .off, .amf, .3mf, .csg, .dxf, .svg, .pdf, .png, .echo, .ast, 
.term, .nef3, .nefdbg."
+  :type 'string)
+
 (defvar scad-mode-map
   (let ((map (c-make-inherited-keymap)))
 (define-key map "\C-c\C-c" #'scad-preview)
@@ -212,7 +217,7 @@ Key bindings:
(list (read-file-name
   "Export to: "
   nil nil nil
-  (concat (file-name-base (buffer-file-name)) ".stl"
+  (concat (file-name-base (buffer-file-name)) scad-export-ext
   (save-buffer)
   (compile (concat scad-command
" -o " (shell-quote-argument (expand-file-name file))

[nongnu] elpa/scad-mode acf2bdb5d1 3/3: Rename customization variable

[ELPA Syncer]

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

Rename customization variable
---
 scad-mode.el | 8 +---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/scad-mode.el b/scad-mode.el
index 5f537343e0..ed309de01b 100644
--- a/scad-mode.el
+++ b/scad-mode.el
@@ -128,9 +128,10 @@
 Options are axes, crosshairs, edges, scales, wireframe."
   :type '(repeat string))
 
-(defcustom scad-export-ext ".stl"
+(defcustom scad-export-extension ".stl"
   "Extension (file type) for output data file via `scad-export'.
-Options are .stl, .off, .amf, .3mf, .csg, .dxf, .svg, .pdf, .png, .echo, .ast, 
.term, .nef3, .nefdbg."
+Options are .stl, .off, .amf, .3mf, .csg, .dxf, .svg, .pdf, .png,
+.echo, .ast, .term, .nef3, .nefdbg."
   :type 'string)
 
 (defvar scad-mode-map
@@ -217,7 +218,8 @@ Key bindings:
(list (read-file-name
   "Export to: "
   nil nil nil
-  (concat (file-name-base (buffer-file-name)) scad-export-ext
+  (concat (file-name-base (buffer-file-name))
+  scad-export-extension
   (save-buffer)
   (compile (concat scad-command
" -o " (shell-quote-argument (expand-file-name file))

[elpa] externals/corfu 76f36e0d20 2/2: Emacs 29 flicker reduction

[ELPA Syncer]

branch: externals/corfu
commit 76f36e0d201cc14cc552cc1d4d8ea68186d9ec75
Author: Daniel Mendler 
Commit: Daniel Mendler 

Emacs 29 flicker reduction
---
 corfu.el | 36 +++-
 1 file changed, 23 insertions(+), 13 deletions(-)

diff --git a/corfu.el b/corfu.el
index 5c20ec94e5..76f061d9ed 100644
--- a/corfu.el
+++ b/corfu.el
@@ -375,6 +375,7 @@ FRAME is the existing frame."
 (set-frame-parameter frame 'corfu--hide-timer nil))
   (let* ((window-min-height 1)
  (window-min-width 1)
+ (inhibit-redisplay t)
  (x-gtk-resize-child-frames
   (let ((case-fold-search t))
 (and
@@ -417,19 +418,28 @@ FRAME is the existing frame."
   (set-window-parameter win 'no-other-window t)
   ;; Mark window as dedicated to prevent frame reuse (#60)
   (set-window-dedicated-p win t))
-(set-frame-size frame width height t)
-(if (frame-visible-p frame)
-;; XXX HACK Avoid flicker when frame is already visible.
-;; Redisplay, wait for resize and then move the frame.
-(unless (equal (frame-position frame) (cons x y))
-  (redisplay 'force)
-  (sleep-for 0.01)
-  (set-frame-position frame x y))
-  ;; XXX HACK: Force redisplay, otherwise the popup sometimes does not
-  ;; display content.
-  (set-frame-position frame x y)
-  (redisplay 'force)
-  (make-frame-visible frame))
+;; XXX HACK: Child frame popup behavior improved on Emacs 29.
+;; It seems we may not need the Emacs 27/28 hacks anymore.
+(if (eval-when-compile (< emacs-major-version 29))
+(let (inhibit-redisplay)
+  (set-frame-size frame width height t)
+  (if (frame-visible-p frame)
+  ;; XXX HACK Avoid flicker when frame is already visible.
+  ;; Redisplay, wait for resize and then move the frame.
+  (unless (equal (frame-position frame) (cons x y))
+(redisplay 'force)
+(sleep-for 0.01)
+(set-frame-position frame x y))
+;; XXX HACK: Force redisplay, otherwise the popup sometimes does 
not
+;; display content.
+(set-frame-position frame x y)
+(redisplay 'force)
+(make-frame-visible frame)))
+  (set-frame-size frame width height t)
+  (unless (equal (frame-position frame) (cons x y))
+(set-frame-position frame x y))
+  (unless (frame-visible-p frame)
+(make-frame-visible frame)))
 (redirect-frame-focus frame parent)
 frame))
 

[elpa] externals/corfu updated (d762813025 -> 76f36e0d20)

[ELPA Syncer]

elpasync pushed a change to branch externals/corfu.

  from  d762813025 Remove some unnecessary offsets (See #263)
   new  e487adf3a6 corfu-popupinfo: Ensure that popup is hidden if 
corfu-popupinfo-delay is nil
   new  76f36e0d20 Emacs 29 flicker reduction


Summary of changes:
 corfu.el  | 36 +++-
 extensions/corfu-popupinfo.el | 30 --
 2 files changed, 39 insertions(+), 27 deletions(-)

[elpa] externals/corfu e487adf3a6 1/2: corfu-popupinfo: Ensure that popup is hidden if corfu-popupinfo-delay is nil

[ELPA Syncer]

branch: externals/corfu
commit e487adf3a6b92a12c7ea9b223e90ec39b327addb
Author: Daniel Mendler 
Commit: Daniel Mendler 

corfu-popupinfo: Ensure that popup is hidden if corfu-popupinfo-delay is nil
---
 extensions/corfu-popupinfo.el | 30 --
 1 file changed, 16 insertions(+), 14 deletions(-)

diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index a7a981fe32..d7ca2eaaae 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -454,24 +454,26 @@ not be displayed until this command is called again, even 
if
   (cancel-timer corfu-popupinfo--timer)
   (setq corfu-popupinfo--timer nil))
 (if (and (>= corfu--index 0) (corfu-popupinfo--visible-p corfu--frame))
-(when-let* ((delay (if (consp corfu-popupinfo-delay)
+(let ((candidate (nth corfu--index corfu--candidates)))
+  (if-let* ((delay (if (consp corfu-popupinfo-delay)
(funcall (if (eq corfu-popupinfo--toggle 'init) 
#'car #'cdr)
 corfu-popupinfo-delay)
  corfu-popupinfo-delay))
 (corfu-popupinfo--toggle))
-  (let ((candidate (nth corfu--index corfu--candidates)))
-(if (or (eq delay t) (<= delay 0)
-(and (equal candidate corfu-popupinfo--candidate)
- (corfu-popupinfo--visible-p)))
-(corfu-popupinfo--show candidate)
-  (when (corfu-popupinfo--visible-p)
-(cond
-  (corfu-popupinfo-hide
-   (corfu-popupinfo--hide))
-  (corfu-popupinfo--candidate
-   (corfu-popupinfo--show corfu-popupinfo--candidate
-  (setq corfu-popupinfo--timer
-(run-at-time delay nil #'corfu-popupinfo--show 
candidate)
+  (if (or (eq delay t) (<= delay 0)
+  (and (equal candidate corfu-popupinfo--candidate)
+   (corfu-popupinfo--visible-p)))
+  (corfu-popupinfo--show candidate)
+(when (corfu-popupinfo--visible-p)
+  (cond
+   (corfu-popupinfo-hide
+(corfu-popupinfo--hide))
+   (corfu-popupinfo--candidate
+(corfu-popupinfo--show corfu-popupinfo--candidate
+(setq corfu-popupinfo--timer
+(run-at-time delay nil #'corfu-popupinfo--show candidate)))
+(unless (equal candidate corfu-popupinfo--candidate)
+  (corfu-popupinfo--hide
   (corfu-popupinfo--hide
 
 (defun corfu-popupinfo--teardown ()

[nongnu] elpa/eat 0e82988d6f 03/15: Use 'setf' + 'plist-get' instead of 'plist-put'

[ELPA Syncer]

branch: elpa/eat
commit 0e82988d6f32b6d09e54ecf547b6c562fe1d2009
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

Use 'setf' + 'plist-get' instead of 'plist-put'

* eat.el (eat--eshell-adjust-make-process-args): Use (setf (plist-get
...) ...) instead of 'plist-put' without taking the result, which is
not guaranteed to always work.
---
 eat.el | 19 +--
 1 file changed, 9 insertions(+), 10 deletions(-)

diff --git a/eat.el b/eat.el
index 560b37b85e..00928ff16d 100644
--- a/eat.el
+++ b/eat.el
@@ -6129,17 +6129,16 @@ modify its argument to change the filter, the sentinel 
and invoke
   (expand-file-name command))
  args
   (apply make-process plist)
-(plist-put plist :filter #'eat--eshell-filter)
-(plist-put plist :sentinel #'eat--eshell-sentinel)
-(plist-put
- plist :command
- `("/usr/bin/env" "sh" "-c"
-   ,(format "stty -nl echo rows %d columns %d \
+(setf (plist-get plist :filter) #'eat--eshell-filter
+  (plist-get plist :sentinel) #'eat--eshell-sentinel
+  (plist-get plist :command)
+  `("/usr/bin/env" "sh" "-c"
+,(format "stty -nl echo rows %d columns %d \
 sane 2>%s ; if [ $1 = .. ]; then shift; fi; exec \"$@\""
-(window-text-height)
-(window-max-chars-per-line) null-device)
-   ".."
-   ,@(plist-get plist :command)))
+ (window-text-height)
+ (window-max-chars-per-line) null-device)
+".."
+,@(plist-get plist :command)))
 (let ((process (apply make-process plist)))
   (eat--eshell-setup-proc-and-term process)
   process)

[nongnu] elpa/eat dc99739fb8 04/15: * eat.el (eat--trace-exec): Use "-*- mode: MD -*-"

[ELPA Syncer]

branch: elpa/eat
commit dc99739fb87d912dfa279c1fb325f9075f0fee63
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

* eat.el (eat--trace-exec): Use "-*- mode: MD -*-"
---
 eat.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/eat.el b/eat.el
index 00928ff16d..c2aaf33ef8 100644
--- a/eat.el
+++ b/eat.el
@@ -6481,7 +6481,7 @@ FN, `eat-exec', which see."
 (push (cons var (symbol-value var)) variables)))
 (with-current-buffer buf
   (lisp-data-mode)
-  (insert ";; -*- lisp-data -*-\n")
+  (insert ";; -*- mode: lisp-data -*-\n")
   (eat--trace-log time 'create 'eat width height
   variables))
 

[nongnu] elpa/eat c19cf68b28 08/15: * eat.el (eat-term-make-keymap): Use 'cl-flet'

[ELPA Syncer]

branch: elpa/eat
commit c19cf68b2827e91e4749d1b2bcf94268bb21cf0a
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

* eat.el (eat-term-make-keymap): Use 'cl-flet'
---
 eat.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/eat.el b/eat.el
index 0863dd3886..8cd1b23ca9 100644
--- a/eat.el
+++ b/eat.el
@@ -4766,9 +4766,9 @@ keywords:
 EXCEPTIONS is a list of key sequences to not bind.  Don't use
 \"M-...\" key sequences in EXCEPTIONS, use \"ESC ...\" instead."
   (let ((map (make-sparse-keymap)))
-(cl-labels ((bind (key)
-  (unless (member key exceptions)
-(define-key map key input-command
+(cl-flet ((bind (key)
+(unless (member key exceptions)
+  (define-key map key input-command
   (when (memq :ascii categories)
 ;; Bind ASCII and self-insertable characters except ESC and
 ;; DEL.

[nongnu] elpa/eat updated (f3fed64957 -> d8171b9a8c)

[ELPA Syncer]

elpasync pushed a change to branch elpa/eat.

  from  f3fed64957 Prefer 'pcase-exhaustive' over 'pcase'
   new  2dd4e42773 Prefer 'pcase-exhaustive' over 'pcase'
   new  a736f08ea9 Prefer 'and-let*' and 'when-let*' over 'when-let'
   new  0e82988d6f Use 'setf' + 'plist-get' instead of 'plist-put'
   new  dc99739fb8 * eat.el (eat--trace-exec): Use "-*- mode: MD -*-"
   new  9a9d9165f2 * eat.el (eat--bell): Use 'ding' instead of 'beep'
   new  31f93da3fd * eat.el (eat-mode): Fix char mode 'help-echo'
   new  5ce98430e8 Use more readable '?\C-\s' instead of '?\C-\ '
   new  c19cf68b28 * eat.el (eat-term-make-keymap): Use 'cl-flet'
   new  86e247137b Use 'vector' directly instead of backquote
   new  528bfe424d Put declare-function and defvar outside functions
   new  10d9f3cb56 Use 'mapc' to make & kill multiple local variables
   new  59c0745e75 Don't put 'error' as the only then part of 'if'
   new  1b2b7aee26 Bump version to 0.1
   new  3e496e8db8 ; Merge diverged elpa/eat branch of NonGNU ELPA
   new  d8171b9a8c ; Ignore a commit while generating ChangeLog


Summary of changes:
 eat.el  | 387 +---
 eat.texi|   4 +-
 gitlog-to-changelog |  23 +++-
 make-changelog  |   6 +-
 4 files changed, 213 insertions(+), 207 deletions(-)

[nongnu] elpa/eat a736f08ea9 02/15: Prefer 'and-let*' and 'when-let*' over 'when-let'

[ELPA Syncer]

branch: elpa/eat
commit a736f08ea97aa87749cf4d8b9e1aad5fe3b5dfd2
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

Prefer 'and-let*' and 'when-let*' over 'when-let'

* eat.el (eat--t-set-sgr-params): Use 'and-let*' instead of 'when-let'
for side-effect free 'when-let'.
* eat.el (eat--flip-cursor-blink-state, eat--synchronize-scroll)
(eat-exec, eat--eshell-setup-proc-and-term)
(eat--eshell-synchronize-scroll, eat--eshell-visual-sentinel)
(eat--trace-replay-eval-next): Use 'when-let*' instead of 'when-let'
for 'when-let's with side-effect.
---
 eat.el | 32 
 1 file changed, 16 insertions(+), 16 deletions(-)

diff --git a/eat.el b/eat.el
index 550a3de6ec..560b37b85e 100644
--- a/eat.el
+++ b/eat.el
@@ -3349,7 +3349,7 @@ TOP defaults to 1 and BOTTOM defaults to the height of 
the display."
 nil t)
 ;; Update face according to the attributes.
 (setf (eat--t-face-face face)
-  `(,@(when-let ((fg (or (if (eat--t-face-conceal face)
+  `(,@(and-let* ((fg (or (if (eat--t-face-conceal face)
  (eat--t-face-bg face)
(eat--t-face-fg face))
  (cond
@@ -3361,31 +3361,31 @@ TOP defaults to 1 and BOTTOM defaults to the height of 
the display."
   :background
 :foreground)
   fg))
-,@(when-let ((bg (or (eat--t-face-bg face)
+,@(and-let* ((bg (or (eat--t-face-bg face)
  (and (eat--t-face-inverse face)
   (face-background 'default)
 (list (if (eat--t-face-inverse face)
   :foreground
 :background)
   bg))
-,@(when-let ((underline (eat--t-face-underline face)))
+,@(and-let* ((underline (eat--t-face-underline face)))
 (list
  :underline
  (list :color (eat--t-face-underline-color face)
:style underline)))
-,@(when-let ((crossed (eat--t-face-crossed face)))
+,@(and-let* ((crossed (eat--t-face-crossed face)))
 ;; REVIEW: How about colors?  No terminal supports
 ;; crossed attribute with colors, so we'll need to be
 ;; creative to add the feature.
 `(:strike-through t))
 :inherit
-(,@(when-let ((intensity (eat--t-face-intensity face)))
+(,@(and-let* ((intensity (eat--t-face-intensity face)))
  (list intensity))
- ,@(when-let ((italic (eat--t-face-italic face)))
+ ,@(and-let* ((italic (eat--t-face-italic face)))
  (cl-assert (1value (eq (1value italic)
 'eat-term-italic)))
  (list (1value italic)))
- ,@(when-let ((blink (eat--t-face-blink face)))
+ ,@(and-let* ((blink (eat--t-face-blink face)))
  (list blink))
  ,(eat--t-face-font face))
 
@@ -5041,7 +5041,7 @@ return \"eat-color\", otherwise return \"eat-mono\"."
 (setq eat--cursor-blink-state (not eat--cursor-blink-state))
 ;; REVIEW: This is expensive, and some causes flickering.  Any
 ;; better way?
-(when-let ((window (get-buffer-window nil 'visible)))
+(when-let* ((window (get-buffer-window nil 'visible)))
   (redraw-frame (window-frame window)
 
 (defun eat--cursor-blink-stop-timers ()
@@ -5466,7 +5466,7 @@ selection, or nil if none."
 
 (defun eat--synchronize-scroll ()
   "Synchronize scrolling and point between terminal and window."
-  (when-let ((window (get-buffer-window (current-buffer
+  (when-let* ((window (get-buffer-window (current-buffer
 (set-window-start
  window (eat-term-display-beginning eat--terminal)))
   (goto-char (eat-term-display-cursor eat--terminal)))
@@ -5756,7 +5756,7 @@ same Eat buffer.  The hook `eat-exec-hook' is run after 
each exec."
 (insert "\n\n"))
   (setq eat--terminal (eat-term-make buffer (point)))
   (eat-semi-char-mode)
-  (when-let ((window (get-buffer-window nil t)))
+  (when-let* ((window (get-buffer-window nil t)))
 (with-selected-window window
   (eat-term-resize eat--terminal (window-max-chars-per-line)
(window-text-height
@@ -6020,7 +6020,7 @@ PROGRAM can be a shell command."
   (eat-term-manipulate-selection-function eat--terminal)
   #'eat--manipulate-kill-ring
   (eat-term-ring-bell-function eat--terminal) #'eat--bell)
-(when-let ((window (get-buffer-window nil t)))
+(when-let* ((window (get-buffer-window nil t)))
   (with-selected-window window
 (eat-term-resize eat--terminal (window-max-chars-per-line)
 

[nongnu] elpa/eat 10d9f3cb56 11/15: Use 'mapc' to make & kill multiple local variables

[ELPA Syncer]

branch: elpa/eat
commit 10d9f3cb562a063137f3bbdb94a31beb54ee2100
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

Use 'mapc' to make & kill multiple local variables

* eat.el (eat-blink-mode, eat--cursor-blink-mode, eat-mode)
(eat--eshell-local-mode, eat-trace-replay-mode): Use 'mapc' to
make & kill multiple local variables.
---
 eat.el | 194 ++---
 1 file changed, 90 insertions(+), 104 deletions(-)

diff --git a/eat.el b/eat.el
index 14d182d923..bfb4e8a1a7 100644
--- a/eat.el
+++ b/eat.el
@@ -4983,36 +4983,30 @@ return \"eat-color\", otherwise return \"eat-mono\"."
 (define-minor-mode eat-blink-mode
   "Toggle blinking of text with blink attribute."
   :lighter " Eat-Blink"
-  (cond
-   (eat-blink-mode
-(setq eat-blink-mode nil)
-(require 'face-remap)
-(setq eat-blink-mode t)
-(make-local-variable 'eat--slow-blink-state)
-(make-local-variable 'eat--fast-blink-state)
-(make-local-variable 'eat--slow-blink-remap)
-(make-local-variable 'eat--fast-blink-remap)
-(make-local-variable 'eat--slow-blink-timer)
-(make-local-variable 'eat--fast-blink-timer)
-(setq eat--slow-blink-state nil eat--fast-blink-state nil
-  eat--slow-blink-remap
-  (face-remap-add-relative 'eat-term-slow-blink '(:box nil))
-  eat--fast-blink-remap
-  (face-remap-add-relative 'eat-term-fast-blink '(:box nil)))
-(add-hook 'pre-command-hook #'eat--blink-stop-timers nil t)
-(add-hook 'post-command-hook #'eat--blink-start-timers nil t))
-   (t
-(eat--blink-stop-timers)
-(face-remap-remove-relative eat--slow-blink-remap)
-(face-remap-remove-relative eat--fast-blink-remap)
-(remove-hook 'pre-command-hook #'eat--blink-stop-timers t)
-(remove-hook 'post-command-hook #'eat--blink-start-timers t)
-(kill-local-variable 'eat--slow-blink-state)
-(kill-local-variable 'eat--fast-blink-state)
-(kill-local-variable 'eat--slow-blink-remap)
-(kill-local-variable 'eat--fast-blink-remap)
-(kill-local-variable 'eat--slow-blink-timer)
-(kill-local-variable 'eat--fast-blink-timer
+  (let ((locals '( eat--slow-blink-state eat--fast-blink-state
+   eat--slow-blink-remap eat--fast-blink-remap
+   eat--slow-blink-timer eat--fast-blink-timer)))
+(cond
+ (eat-blink-mode
+  (setq eat-blink-mode nil)
+  (require 'face-remap)
+  (setq eat-blink-mode t)
+  (mapc #'make-local-variable locals)
+  (setq eat--slow-blink-state nil eat--fast-blink-state nil
+eat--slow-blink-remap
+(face-remap-add-relative 'eat-term-slow-blink '(:box nil))
+eat--fast-blink-remap
+(face-remap-add-relative 'eat-term-fast-blink
+ '(:box nil)))
+  (add-hook 'pre-command-hook #'eat--blink-stop-timers nil t)
+  (add-hook 'post-command-hook #'eat--blink-start-timers nil t))
+ (t
+  (eat--blink-stop-timers)
+  (face-remap-remove-relative eat--slow-blink-remap)
+  (face-remap-remove-relative eat--fast-blink-remap)
+  (remove-hook 'pre-command-hook #'eat--blink-stop-timers t)
+  (remove-hook 'post-command-hook #'eat--blink-start-timers t)
+  (mapc #'kill-local-variable locals)
 
 
  Buffer-local Cursor Blinking.
@@ -5059,23 +5053,24 @@ return \"eat-color\", otherwise return \"eat-mono\"."
 (define-minor-mode eat--cursor-blink-mode
   "Toggle blinking of cursor."
   :interactive nil
-  (cond
-   (eat--cursor-blink-mode
-(make-local-variable 'eat--cursor-blink-state)
-(make-local-variable 'eat--cursor-blink-timer)
-(setq eat--cursor-blink-state nil eat--cursor-blink-timer nil)
-(add-hook 'pre-command-hook #'eat--cursor-blink-stop-timers nil t)
-(add-hook 'post-command-hook #'eat--cursor-blink-start-timers
-  nil t)
-(when (current-idle-time)
-  (eat--cursor-blink-start-timers)))
-   (t
-(eat--cursor-blink-stop-timers)
-(remove-hook 'pre-command-hook #'eat--cursor-blink-stop-timers t)
-(remove-hook 'post-command-hook #'eat--cursor-blink-start-timers
- t)
-(kill-local-variable 'eat--cursor-blink-state)
-(kill-local-variable 'eat--cursor-blink-timer
+  (let ((locals '(eat--cursor-blink-state eat--cursor-blink-timer)))
+(cond
+ (eat--cursor-blink-mode
+  (mapc #'make-local-variable locals)
+  (setq eat--cursor-blink-state nil eat--cursor-blink-timer nil)
+  (add-hook 'pre-command-hook #'eat--cursor-blink-stop-timers nil
+t)
+  (add-hook 'post-command-hook #'eat--cursor-blink-start-timers
+nil t)
+  (when (current-idle-time)
+(eat--cursor-blink-start-timers)))
+ (t
+  (eat--cursor-blink-stop-timers)
+  (remove-hook 'pre-command-hook #'eat--cursor-blink-stop-timers
+   t)
+  (remove-hook 'post-command-hook #'eat--cursor-blink-start-timers
+  

[nongnu] elpa/eat 2dd4e42773 01/15: Prefer 'pcase-exhaustive' over 'pcase'

[ELPA Syncer]

branch: elpa/eat
commit 2dd4e42773c099120e8b2624870f516149fe3066
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

Prefer 'pcase-exhaustive' over 'pcase'

* eat.el (eat--t-erase-in-line, eat--t-erase-in-disp)
(eat--t-set-mouse-mode, eat--t-send-device-attrs)
(eat--t-handle-output, eat-term-input-event)
(eat--manipulate-kill-ring, eat--trace-replay-eval):
Prefer 'pcase-exhaustive' over 'pcase'.
---
 eat.el | 24 
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/eat.el b/eat.el
index 02e226dd4d..550a3de6ec 100644
--- a/eat.el
+++ b/eat.el
@@ -2699,7 +2699,7 @@ N default to 1."
 N defaults to 0.  When N is 0, erase cursor to end of line.  When N is
 1, erase beginning of line to cursor.  When N is 2, erase whole line."
   (let ((face (eat--t-term-face eat--t-term)))
-(pcase n
+(pcase-exhaustive n
   ((or 0 'nil (pred (< 2)))
;; Delete cursor position (inclusive) to end of line.
(delete-region (point) (car (eat--t-eol)))
@@ -2761,7 +2761,7 @@ is 1, erase beginning of display to cursor.  In both on 
the previous
 cases, don't move cursor.  When N is 2, erase display and reset cursor
 to (1, 1).  When N is 3, also erase the scrollback."
   (let ((face (eat--t-term-face eat--t-term)))
-(pcase n
+(pcase-exhaustive n
   ((or 0 'nil (pred (< 3)))
;; Delete from cursor position (inclusive) to end of terminal.
(delete-region (point) (point-max))
@@ -3421,11 +3421,12 @@ MODE should be one of nil and `x10', `normal', 
`button-event',
 (setf (eat--t-term-mouse-pressed eat--t-term) nil))
   ;; Inform the UI.
   (funcall (eat--t-term-grab-mouse-fn eat--t-term) eat--t-term
-   (pcase mode
+   (pcase-exhaustive mode
  ('x10 :click)
  ('normal :modifier-click)
  ('button-event :drag)
- ('any-event :all
+ ('any-event :all)
+ ('nil nil
 
 (defun eat--t-enable-x10-mouse ()
   "Enable X10 mouse tracking."
@@ -3472,7 +3473,7 @@ MODE should be one of nil and `x10', `normal', 
`button-event',
 PARAMS is the parameter list and FORMAT is the format of parameters in
 output."
   (setq params (or params '((0
-  (pcase format
+  (pcase-exhaustive format
 ('nil
  (when (= (caar params) 0)
(funcall (eat--t-term-input-fn eat--t-term) eat--t-term
@@ -3659,7 +3660,7 @@ DATA is the selection data encoded in base64."
   "Parse and evaluate OUTPUT."
   (let ((index 0))
 (while (< index (length output))
-  (pcase (eat--t-term-parser-state eat--t-term)
+  (pcase-exhaustive (eat--t-term-parser-state eat--t-term)
 ('nil
  ;; Regular expression to find the end of plain text.
  (let ((match (string-match
@@ -3681,7 +3682,7 @@ DATA is the selection data encoded in base64."
(setq index match))
  ;; Dispatch control sequence.
  (cl-incf index)
- (pcase (aref output (1- index))
+ (pcase-exhaustive (aref output (1- index))
(?\a
 (eat--t-bell))
(?\b
@@ -4472,7 +4473,7 @@ client process may get confused."
   ('prior ?5)
   ('next ?6)
   (_ ?1))
-(pcase (event-modifiers ev)
+(pcase-exhaustive (event-modifiers ev)
   ((and (pred (memq 'control))
 (pred (memq 'meta))
 (pred (memq 'shift)))
@@ -5447,13 +5448,12 @@ selection, or nil if none."
   (let ((inhibit-eol-conversion t)
 (select-enable-clipboard (eq selection :clipboard))
 (select-enable-primary (eq selection :primary)))
-(pcase data
+(pcase-exhaustive data
   ('t
(when eat-enable-yank-to-terminal
  (ignore-error error
(current-kill 0 'do-not-move
-  ((and (pred stringp)
-str)
+  ((and (pred stringp) str)
(when eat-enable-kill-from-terminal
  (kill-new str))
 
@@ -6715,7 +6715,7 @@ FN is the original definition of `eat--eshell-cleanup', 
which see."
   (let ((inhibit-read-only t))
 (setq eat--trace-replay-progress
   (- (car data) eat--trace-replay-recording-start-time))
-(pcase data
+(pcase-exhaustive data
   (`(,time create ,_ui ,width ,height ,variables)
(setq eat--trace-replay-recording-start-time time
  eat--trace-replay-progress 0)

[nongnu] elpa/eat 31f93da3fd 06/15: * eat.el (eat-mode): Fix char mode 'help-echo'

[ELPA Syncer]

branch: elpa/eat
commit 31f93da3fd7467476cc153e414ac5adcb502a952
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

* eat.el (eat-mode): Fix char mode 'help-echo'
---
 eat.el | 19 ---
 1 file changed, 8 insertions(+), 11 deletions(-)

diff --git a/eat.el b/eat.el
index 3c91ded0d1..db4db4b039 100644
--- a/eat.el
+++ b/eat.el
@@ -5524,12 +5524,11 @@ END if it's safe to do so."
(when eat--process
  (cond
   (eat--semi-char-mode
-   `("["
+   '("["
  (:propertize
   "semi-char"
-  help-echo
-  ,(concat "mouse-1: Switch to char mode, "
-   "mouse-3: Switch to emacs mode")
+  help-echo "mouse-1: Switch to char mode, \
+mouse-3: Switch to emacs mode"
   mouse-face mode-line-highlight
   local-map
   (keymap
@@ -5542,9 +5541,8 @@ END if it's safe to do so."
'("["
  (:propertize
   "char"
-  help-echo
-  ,(concat "mouse-1: Switch to semi-char mode, "
-   "mouse-3: Switch to emacs mode")
+  help-echo "mouse-1: Switch to semi-char mode, \
+mouse-3: Switch to emacs mode"
   mouse-face mode-line-highlight
   local-map
   (keymap
@@ -5554,12 +5552,11 @@ END if it's safe to do so."
(down-mouse-3 . eat-emacs-mode)
  "]"))
   (t
-   `("["
+   '("["
  (:propertize
   "emacs"
-  help-echo
-  ,(concat "mouse-1: Switch to semi char mode, "
-   "mouse-3: Switch to char mode")
+  help-echo "mouse-1: Switch to semi char mode, \
+mouse-3: Switch to char mode"
   mouse-face mode-line-highlight
   local-map
   (keymap

[nongnu] elpa/eat 3e496e8db8 14/15: ; Merge diverged elpa/eat branch of NonGNU ELPA

[ELPA Syncer]

branch: elpa/eat
commit 3e496e8db8a367c04c729123385a76e422a76562
Merge: 1b2b7aee26 f3fed64957
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

; Merge diverged elpa/eat branch of NonGNU ELPA

[nongnu] elpa/eat 59c0745e75 12/15: Don't put 'error' as the only then part of 'if'

[ELPA Syncer]

branch: elpa/eat
commit 59c0745e752ba3d166609d9618c438a0039c887e
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

Don't put 'error' as the only then part of 'if'

* eat.el (eat-semi-char-mode, eat-char-mode): Don't put 'error'
as only then part of 'if'.
---
 eat.el | 28 ++--
 1 file changed, 14 insertions(+), 14 deletions(-)

diff --git a/eat.el b/eat.el
index bfb4e8a1a7..4bcf73f8e9 100644
--- a/eat.el
+++ b/eat.el
@@ -5366,24 +5366,24 @@ ARG is passed to `yank-pop', which see."
 (defun eat-semi-char-mode ()
   "Switch to semi-char mode."
   (interactive)
-  (if (not eat--terminal)
-  (error "Process not running")
-(setq buffer-read-only nil)
-(eat--char-mode -1)
-(eat--semi-char-mode +1)
-(eat--grab-mouse nil eat--mouse-grabbing-type)
-(force-mode-line-update)))
+  (unless eat--terminal
+(error "Process not running"))
+  (setq buffer-read-only nil)
+  (eat--char-mode -1)
+  (eat--semi-char-mode +1)
+  (eat--grab-mouse nil eat--mouse-grabbing-type)
+  (force-mode-line-update))
 
 (defun eat-char-mode ()
   "Switch to char mode."
   (interactive)
-  (if (not eat--terminal)
-  (error "Process not running")
-(setq buffer-read-only nil)
-(eat--semi-char-mode -1)
-(eat--char-mode +1)
-(eat--grab-mouse nil eat--mouse-grabbing-type)
-(force-mode-line-update)))
+  (unless eat--terminal
+(error "Process not running"))
+  (setq buffer-read-only nil)
+  (eat--semi-char-mode -1)
+  (eat--char-mode +1)
+  (eat--grab-mouse nil eat--mouse-grabbing-type)
+  (force-mode-line-update))
 
 (defvar eat--eshell-semi-char-mode)
 (defvar eat--eshell-char-mode)

[nongnu] elpa/eat 9a9d9165f2 05/15: * eat.el (eat--bell): Use 'ding' instead of 'beep'

[ELPA Syncer]

branch: elpa/eat
commit 9a9d9165f26f86b35a1df9d4bf3de76c74d78f33
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

* eat.el (eat--bell): Use 'ding' instead of 'beep'
---
 eat.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/eat.el b/eat.el
index c2aaf33ef8..3c91ded0d1 100644
--- a/eat.el
+++ b/eat.el
@@ -5459,7 +5459,7 @@ selection, or nil if none."
 
 (defun eat--bell (_)
   "Ring the bell."
-  (beep t))
+  (ding t))
 
 
 ; Major Mode.

[nongnu] elpa/eat d8171b9a8c 15/15: ; Ignore a commit while generating ChangeLog

[ELPA Syncer]

branch: elpa/eat
commit d8171b9a8cb77b62b93c151c9756419d0650ee8a
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

; Ignore a commit while generating ChangeLog

The commit is summary line is "Prefer 'pcase-exhaustive' over
'pcase'", but the ChangeLog in the body isn't formatted
correctly.
---
 gitlog-to-changelog | 23 +--
 make-changelog  |  6 --
 2 files changed, 25 insertions(+), 4 deletions(-)

diff --git a/gitlog-to-changelog b/gitlog-to-changelog
index 82d9f97336..31d1351a42 100755
--- a/gitlog-to-changelog
+++ b/gitlog-to-changelog
@@ -4,6 +4,7 @@
 # Convert git log output to ChangeLog format.
 
 # Copyright (C) 2008-2022 Free Software Foundation, Inc.
+# Copyright (C) 2022 Akib Azmain Turja.
 #
 # 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
@@ -19,6 +20,7 @@
 # along with this program.  If not, see .
 #
 # Written by Jim Meyering
+# '--ignore-commits' implemented by Akib Azmain Turja.
 
 # This is a prologue that allows to run a perl script as an executable
 # on systems that are compliant to a POSIX version before POSIX:2017.
@@ -35,7 +37,7 @@
 eval 'exec perl -wSx "$0" "$@"'
  if 0;
 
-my $VERSION = '2022-01-27 18:49'; # UTC
+my $VERSION = '2022-11-29 10:18'; # UTC
 # The definition above must lie within the first 8 lines in order
 # for the Emacs time-stamp write hook (at end) to update it.
 # If you change this file with Emacs, please let the write hook
@@ -88,6 +90,7 @@ OPTIONS:
--since=DATE convert only the logs since DATE;
   the default is to convert all log entries.
--until=DATE convert only the logs older than DATE.
+   --ignore-commits=HASHES Comma-separated list of commits to ignore
--ignore-matching=PAT ignore commit messages whose first lines match PAT.
--ignore-line=PAT ignore lines of commit messages that match PAT.
--format=FMT set format string for commit subject and body;
@@ -243,6 +246,7 @@ sub git_dir_option($)
   my $amend_file;
   my $append_dot = 0;
   my $cluster = 1;
+  my $ignore_commits = '';
   my $ignore_matching;
   my $ignore_line;
   my $strip_tab = 0;
@@ -258,6 +262,7 @@ sub git_dir_option($)
  'amend=s' => \$amend_file,
  'append-dot' => \$append_dot,
  'cluster!' => \$cluster,
+ 'ignore-commits=s' => \$ignore_commits,
  'ignore-matching=s' => \$ignore_matching,
  'ignore-line=s' => \$ignore_line,
  'strip-tab' => \$strip_tab,
@@ -286,6 +291,7 @@ sub git_dir_option($)
   my $prev_date_line = '';
   my @prev_coauthors = ();
   my @skipshas = ();
+
   while (1)
 {
   defined (my $in = )
@@ -307,6 +313,7 @@ sub git_dir_option($)
 or die "$ME:$.: invalid SHA1: $sha\n";
 
   my $skipflag = 0;
+
   if (@skipshas)
 {
   foreach(@skipshas)
@@ -398,8 +405,20 @@ sub git_dir_option($)
   }
   }
 
+  # Ignore commits that's in --ignore-commits, if specified.
+  my $ignored = 0;
+  foreach(split ',', $ignore_commits)
+  {
+  if ($sha =~ /^$_/)
+  {
+  $ignored = 1;
+  last;
+  }
+  }
+
   # Ignore commits that match the --ignore-matching pattern, if specified.
-  if (defined $ignore_matching && @line && $line[0] =~ /$ignore_matching/)
+  if ($ignored || (defined $ignore_matching && @line
+   && $line[0] =~ /$ignore_matching/))
 {
   $skipflag = 1;
 }
diff --git a/make-changelog b/make-changelog
index b5aa113a0c..a1c9db9fc6 100755
--- a/make-changelog
+++ b/make-changelog
@@ -1,7 +1,9 @@
 #!/bin/sh
 
-./gitlog-to-changelog --ignore-matching='^; ' --ignore-line='^; ' \
-  --format='%B' >ChangeLog
+./gitlog-to-changelog \
+  --ignore-matching='^; ' --ignore-line='^; ' \
+  --ignore-commits='f3fed64957b4e88cfa1ff2c5ddfb665f249624cc' \
+  --format='%B' >ChangeLog
 
 # Find the years covered by the generated ChangeLog, so that
 # a proper copyright notice can be output.

[nongnu] elpa/eat 86e247137b 09/15: Use 'vector' directly instead of backquote

[ELPA Syncer]

branch: elpa/eat
commit 86e247137be77ed3b143f3d15a696f0a765e7fbf
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

Use 'vector' directly instead of backquote

* eat.el (eat-term-make-keymap): Use 'vector' directly instead
of backquote.
---
 eat.el | 25 +
 1 file changed, 13 insertions(+), 12 deletions(-)

diff --git a/eat.el b/eat.el
index 8cd1b23ca9..d7946cf071 100644
--- a/eat.el
+++ b/eat.el
@@ -4776,7 +4776,7 @@ EXCEPTIONS is a list of key sequences to not bind.  Don't 
use
 (cl-loop
  for i from ?\C-@ to ?~
  do (unless (= i meta-prefix-char)
-  (bind `[,i])))
+  (bind (vector i
 ;; Bind `backspace', `delete', `deletechar', and all modified
 ;; variants.
 (dolist (key '( backspace C-backspace
@@ -4787,18 +4787,19 @@ EXCEPTIONS is a list of key sequences to not bind.  
Don't use
 deletechar C-deletechar M-deletechar
 S-deletechar C-M-deletechar C-S-deletechar
 M-S-deletechar C-M-S-deletechar))
-  (bind `[,key]))
+  (bind (vector key)))
 ;; Bind these non-encodable keys.  They are translated.
 (dolist (key '(?\C-- ?\C-? ?\C-\s))
-  (bind `[,key]))
+  (bind (vector key)))
 ;; Bind M- keys.
-(unless (member `[,meta-prefix-char] exceptions)
-  (define-key map `[,meta-prefix-char] (make-sparse-keymap))
+(unless (member (vector meta-prefix-char) exceptions)
+  (define-key map (vector meta-prefix-char)
+  (make-sparse-keymap))
   (cl-loop
for i from ?\C-@ to ?~
do (unless (memq i '(?O ?\[))
-(bind `[,meta-prefix-char ,i])))
-  (bind `[,meta-prefix-char ,meta-prefix-char])))
+(bind (vector meta-prefix-char i
+  (bind (vector meta-prefix-char meta-prefix-char
   (when (memq :arrow categories)
 (dolist (key '( up down right left
 C-up C-down C-right C-left
@@ -4808,7 +4809,7 @@ EXCEPTIONS is a list of key sequences to not bind.  Don't 
use
 C-S-up C-S-down C-S-right C-S-left
 M-S-up M-S-down M-S-right M-S-left
 C-M-S-up C-M-S-down C-M-S-right C-M-S-left))
-  (bind `[,key])))
+  (bind (vector key
   (when (memq :navigation categories)
 (dolist (key '( home C-home M-home S-home C-M-home C-S-home
 M-S-home C-M-S-home
@@ -4818,15 +4819,15 @@ EXCEPTIONS is a list of key sequences to not bind.  
Don't use
 C-S-prior M-S-prior C-M-S-prior
 next C-next M-next S-next C-M-next C-S-next
 M-S-next C-M-S-next))
-  (bind `[,key])))
+  (bind (vector key
   (when (memq :function categories)
 (cl-loop
  for i from 1 to 63
  do (let ((key (intern (format "f%i" i
-  (bind `[,key]
+  (bind (vector key)
   (when (memq :mouse-click categories)
 (dolist (key '(mouse-1 mouse-2 mouse-3))
-  (bind `[,key])))
+  (bind (vector key
   (when (memq :mouse-modifier categories)
 (dolist (key
  '( down-mouse-1 drag-mouse-1 down-mouse-2
@@ -4883,7 +4884,7 @@ EXCEPTIONS is a list of key sequences to not bind.  Don't 
use
 M-S-wheel-right M-S-wheel-left C-M-S-wheel-up
 C-M-S-wheel-down C-M-S-wheel-right
 C-M-S-wheel-left))
-  (bind `[,key])))
+  (bind (vector key
   (when (memq :mouse-movement categories)
 (bind [mouse-movement])))
 map))

[nongnu] elpa/eat 5ce98430e8 07/15: Use more readable '?\C-\s' instead of '?\C-\ '

[ELPA Syncer]

branch: elpa/eat
commit 5ce98430e8d9d08e7bc9c70a5894042b92a5ec07
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

Use more readable '?\C-\s' instead of '?\C-\ '

* eat.el (eat-term-input-event, eat-term-make-keymap): Use more
readable '?\C-\s' instead of '?\C-\ '.
---
 eat.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/eat.el b/eat.el
index db4db4b039..0863dd3886 100644
--- a/eat.el
+++ b/eat.el
@@ -4557,7 +4557,7 @@ client process may get confused."
  (let ((ch (pcase (event-convert-list
(append (remq 'meta mods)
(list base)))
- (?\C-\  ?\C-@)
+ (?\C-\s ?\C-@)
  (?\C-/ ?\C-?)
  (?\C-- ?\C-_)
  (c c
@@ -4789,7 +4789,7 @@ EXCEPTIONS is a list of key sequences to not bind.  Don't 
use
 M-S-deletechar C-M-S-deletechar))
   (bind `[,key]))
 ;; Bind these non-encodable keys.  They are translated.
-(dolist (key '(?\C-- ?\C-? ?\C-\ ))
+(dolist (key '(?\C-- ?\C-? ?\C-\s))
   (bind `[,key]))
 ;; Bind M- keys.
 (unless (member `[,meta-prefix-char] exceptions)

[nongnu] elpa/eat 1b2b7aee26 13/15: Bump version to 0.1

[ELPA Syncer]

branch: elpa/eat
commit 1b2b7aee26dd611a44226530f9a010ec9bf22add
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

Bump version to 0.1

* eat.el:
* eat.texi:
Bump version.
---
 eat.el   | 2 +-
 eat.texi | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/eat.el b/eat.el
index 4bcf73f8e9..3a6a733ac0 100644
--- a/eat.el
+++ b/eat.el
@@ -4,7 +4,7 @@
 
 ;; Author: Akib Azmain Turja 
 ;; Created: 2022-08-15
-;; Version: 0.1snapshot
+;; Version: 0.1
 ;; Package-Requires: ((emacs "28.1"))
 ;; Keywords: terminals processes
 ;; Homepage: https://codeberg.org/akib/emacs-eat
diff --git a/eat.texi b/eat.texi
index aa5e128e8f..9acb4e5211 100644
--- a/eat.texi
+++ b/eat.texi
@@ -3,8 +3,8 @@
 @comment %**start of header
 @setfilename eat.info
 @set UPDATED 17 November 2022
-@set EDITION 0.1snapshot
-@set VERSION 0.1snapshot
+@set EDITION 0.1
+@set VERSION 0.1
 @documentencoding UTF-8
 @codequotebacktick on
 @codequoteundirected on

[nongnu] elpa/eat 528bfe424d 10/15: Put declare-function and defvar outside functions

[ELPA Syncer]

branch: elpa/eat
commit 528bfe424d94aed66b94fb6f8b4b20ce49d41166
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

Put declare-function and defvar outside functions

* eat.el (eat--flip-slow-blink-state)
(eat--flip-fast-blink-state, eat-blink-mode)
(eat--eshell-output-filter, eat--eshell-cleanup)
(eat--eshell-process-output-queue, eat--eshell-sentinel)
(eat-eshell-mode, eat--eshell-visual-sentinel)
(eat--eshell-exec-visual, eat-eshell-visual-command-mode)
(eat-project): Move 'declare-function's and 'defvar's outside.
---
 eat.el | 54 --
 1 file changed, 28 insertions(+), 26 deletions(-)

diff --git a/eat.el b/eat.el
index d7946cf071..14d182d923 100644
--- a/eat.el
+++ b/eat.el
@@ -4939,11 +4939,12 @@ return \"eat-color\", otherwise return \"eat-mono\"."
 (defvar eat--fast-blink-timer nil
   "Timer for blinking rapidly blinking text.")
 
+(declare-function face-remap-add-relative "face-remap"
+  (face &rest specs))
+(declare-function face-remap-remove-relative "face-remap" (cookie))
+
 (defun eat--flip-slow-blink-state ()
   "Flip the state of slowly blinking text."
-  (declare-function face-remap-add-relative "face-remap"
-(face &rest specs))
-  (declare-function face-remap-remove-relative "face-remap" (cookie))
   (face-remap-remove-relative eat--slow-blink-remap)
   (setq eat--slow-blink-remap
 (face-remap-add-relative
@@ -4953,9 +4954,6 @@ return \"eat-color\", otherwise return \"eat-mono\"."
 
 (defun eat--flip-fast-blink-state ()
   "Flip the state of rapidly blinking text."
-  (declare-function face-remap-add-relative "face-remap"
-(face &rest specs))
-  (declare-function face-remap-remove-relative "face-remap" (cookie))
   (face-remap-remove-relative eat--fast-blink-remap)
   (setq eat--fast-blink-remap
 (face-remap-add-relative
@@ -4985,8 +4983,6 @@ return \"eat-color\", otherwise return \"eat-mono\"."
 (define-minor-mode eat-blink-mode
   "Toggle blinking of text with blink attribute."
   :lighter " Eat-Blink"
-  (declare-function face-remap-add-relative "face-remap"
-(face &rest specs))
   (cond
(eat-blink-mode
 (setq eat-blink-mode nil)
@@ -5979,10 +5975,11 @@ PROGRAM can be a shell command."
 
 ; Process Handling.
 
+(defvar eshell-last-output-start) ; In `esh-mode'.
+(defvar eshell-last-output-end) ; In `esh-mode'.
+
 (defun eat--eshell-output-filter ()
   "Handle output from subprocess."
-  (defvar eshell-last-output-start) ; In `esh-mode'.
-  (defvar eshell-last-output-end) ; In `esh-mode'.
   (let ((inhibit-quit t); Don't disturb!
 (inhibit-read-only t)
 (str (buffer-substring-no-properties
@@ -6029,8 +6026,6 @@ PROGRAM can be a shell command."
 
 (defun eat--eshell-cleanup ()
   "Cleanup everything."
-  (defvar eshell-last-output-start) ; In `esh-mode'.
-  (defvar eshell-last-output-end) ; In `esh-mode'.
   (when eat--terminal
 (let ((inhibit-read-only t))
   (goto-char (eat-term-end eat--terminal))
@@ -6049,9 +6044,10 @@ PROGRAM can be a shell command."
   (eat--eshell-char-mode -1)
   (setq buffer-read-only nil
 
+(declare-function eshell-output-filter "esh-mode" (process string))
+
 (defun eat--eshell-process-output-queue (process buffer)
   "Process the output queue on BUFFER from PROCESS."
-  (declare-function eshell-output-filter "esh-mode" (process string))
   (when (buffer-live-p buffer)
 (with-current-buffer buffer
   (when eat--process-output-queue-timer
@@ -6089,9 +6085,10 @@ PROGRAM can be a shell command."
  #'eat--eshell-process-output-queue process
  (current-buffer
 
+(declare-function eshell-sentinel "esh-proc" (proc string))
+
 (defun eat--eshell-sentinel (process message)
   "Process status message MESSAGE from PROCESS."
-  (declare-function eshell-sentinel "esh-proc" (proc string))
   (when (buffer-live-p (process-buffer process))
 (with-current-buffer (process-buffer process)
   (cl-letf* ((process-send-string
@@ -6208,6 +6205,11 @@ sane 2>%s ; if [ $1 = .. ]; then shift; fi; exec \"$@\""
 (kill-local-variable 'eat--output-queue-first-chunk-time)
 (kill-local-variable 'eat--process-output-queue-timer
 
+(declare-function eshell-gather-process-output "esh-proc"
+  (command args))
+(defvar eshell-variable-aliases-list) ; In `esh-var'.
+(defvar eshell-last-async-procs) ; In `esh-cmd'.
+
 ;;;###autoload
 (define-minor-mode eat-eshell-mode
   "Toggle Eat terminal emulation is Eshell."
@@ -6263,10 +6265,6 @@ sane 2>%s ; if [ $1 = .. ]; then shift; fi; exec \"$@\""
   (down-mouse-3 . eat-eshell-char-mode)
 "]")))
   :group 'eat-ehell
-  (defvar eshell-variable-aliases-list) ; In `esh-var'.
-  (defvar eshell-last-async-procs) ; In `esh-cmd'.
-  (declare-function eshell-gather-process-output "esh-proc"

[nongnu] elpa/helm 45caa53090 1/2: Fix fd executable name

[ELPA Syncer]

branch: elpa/helm
commit 45caa53090e3581fb64c00bd21979a35b3883173
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Fix fd executable name
---
 helm-files.el | 17 +++--
 1 file changed, 11 insertions(+), 6 deletions(-)

diff --git a/helm-files.el b/helm-files.el
index 31ae42b29e..a06f17a68e 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -104,7 +104,7 @@
 (defvar tramp-archive-enabled)
 (defvar tramp-tolerate-tilde)
 (defvar password-cache)
-
+(defvar helm-fd-executable)
 
 ;;; Internal vars
 ;;
@@ -473,7 +473,8 @@ Remote filesystem are generally mounted with sshfs."
   :type '(repeat string))
 
 (defcustom helm-browse-project-default-find-files-fn
-  (cond ((executable-find "fd")
+  (cond ((or (executable-find "fd")
+ (executable-find "fdfind"))
  #'helm-browse-project-fd-find-files)
 ((executable-find "rg")
  #'helm-browse-project-rg-find-files)
@@ -6351,10 +6352,14 @@ be directories."
 
 (defun helm-browse-project-find-files-1 (directory program)
   "List files in DIRECTORY recursively with external PROGRAM."
-  (let ((cmd (cl-ecase program
-   (ag "ag --hidden -g '.*' %s")
-   (rg "rg --files --hidden -g '*' %s")
-   (fd "fd --hidden --type f --glob '*' %s"
+  (require 'helm-fd)
+  (let* ((fd-exe (or helm-fd-executable
+ (executable-find "fdfind")
+ (executable-find "fd")))
+ (cmd (cl-ecase program
+(ag "ag --hidden -g '.*' %s")
+(rg "rg --files --hidden -g '*' %s")
+(fd (concat fd-exe " --hidden --type f --glob '*' %s")
 (with-temp-buffer
   (call-process-shell-command
(format cmd directory)

[nongnu] elpa/helm 115847b8d5 2/2: Fix bug #2574 by let-binding ffap-machine-p-known

[ELPA Syncer]

branch: elpa/helm
commit 115847b8d5f4175d7469f873d50a7e41710db5aa
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Fix bug #2574 by let-binding ffap-machine-p-known
---
 helm-lib.el | 6 +-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/helm-lib.el b/helm-lib.el
index fefe45dd8e..c0207fbc9a 100644
--- a/helm-lib.el
+++ b/helm-lib.el
@@ -1875,7 +1875,11 @@ Also `helm-completion-style' settings have no effect 
here,
 
 (defun helm-guess-filename-at-point ()
   (with-helm-current-buffer
-(run-hook-with-args-until-success 'file-name-at-point-functions)))
+;; Ensure to disable the evil `ffap-machine-at-point' which may run here as
+;; `file-name-at-point-functions' contains by default
+;; `ffap-guess-file-name-at-point' See bug#2574.
+(let ((ffap-machine-p-known 'accept)) ; Emacs-29 uses 'accept as default.
+  (run-hook-with-args-until-success 'file-name-at-point-functions
 
 ;; Yank text at point.
 ;;

[nongnu] elpa/helm-core updated (67056a93d7 -> 115847b8d5)

[ELPA Syncer]

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

  from  67056a93d7 Check first for boolean which is faster
  adds  45caa53090 Fix fd executable name
  adds  115847b8d5 Fix bug #2574 by let-binding ffap-machine-p-known

No new revisions were added by this update.

Summary of changes:
 helm-files.el | 17 +++--
 helm-lib.el   |  6 +-
 2 files changed, 16 insertions(+), 7 deletions(-)

[nongnu] elpa/helm updated (67056a93d7 -> 115847b8d5)

[ELPA Syncer]

elpasync pushed a change to branch elpa/helm.

  from  67056a93d7 Check first for boolean which is faster
   new  45caa53090 Fix fd executable name
   new  115847b8d5 Fix bug #2574 by let-binding ffap-machine-p-known


Summary of changes:
 helm-files.el | 17 +++--
 helm-lib.el   |  6 +-
 2 files changed, 16 insertions(+), 7 deletions(-)

[elpa] externals/tramp 12745adb73: Tramp ELPA version 2.5.4 released

[ELPA Syncer]

branch: externals/tramp
commit 12745adb7381cce671fc707946331b561e0cb372
Author: Michael Albinus 
Commit: Michael Albinus 

Tramp ELPA version 2.5.4 released
---
 README | 4 ++--
 texi/trampver.texi | 2 +-
 tramp.el   | 5 +
 trampver.el| 6 +++---
 4 files changed, 11 insertions(+), 6 deletions(-)

diff --git a/README b/README
index 9a93daa14a..1b8f5f77b0 100644
--- a/README
+++ b/README
@@ -22,11 +22,11 @@ installed with, you must recompile the package:
 
* Remove all byte-compiled Tramp files
 
-  $ rm -f ~/.emacs.d/elpa/tramp-2.5.3.3/tramp*.elc
+  $ rm -f ~/.emacs.d/elpa/tramp-2.5.4/tramp*.elc
 
* Start Emacs with Tramp's source files
 
-  $ emacs -L ~/.emacs.d/elpa/tramp-2.5.3.3 -l tramp
+  $ emacs -L ~/.emacs.d/elpa/tramp-2.5.4 -l tramp
 
  This should not give you the error.
 
diff --git a/texi/trampver.texi b/texi/trampver.texi
index ac7d6c01d2..32419878be 100644
--- a/texi/trampver.texi
+++ b/texi/trampver.texi
@@ -8,7 +8,7 @@
 @c In the Tramp GIT, the version numbers are auto-frobbed from
 @c tramp.el, and the bug report address is auto-frobbed from
 @c configure.ac.
-@set trampver 2.5.3.3
+@set trampver 2.5.4
 @set trampurl https://www.gnu.org/software/tramp/
 @set tramp-bug-report-address tramp-devel@@gnu.org
 @set emacsver 25.1
diff --git a/tramp.el b/tramp.el
index f7243625c7..91dfb5c3c8 100644
--- a/tramp.el
+++ b/tramp.el
@@ -5459,6 +5459,11 @@ This handles also chrooted environments, which are not 
regarded as local."
 (defun tramp-get-remote-tmpdir (vec)
   "Return directory for temporary files on the remote host identified by VEC."
   (with-tramp-connection-property (tramp-get-process vec) "remote-tmpdir"
+;; Prior Tramp 2.5.3.2, the connection property "tmpdir" did exist
+;; with a remote file name.  This must be discarded.  (Bug#57800)
+(when-let ((tmpdir (tramp-get-connection-property vec "tmpdir" nil)))
+  (when (tramp-tramp-file-p tmpdir)
+   (tramp-flush-connection-property vec "tmpdir")))
 (let ((dir
   (tramp-make-tramp-file-name
vec (or (tramp-get-method-parameter vec 'tramp-tmpdir) "/tmp"
diff --git a/trampver.el b/trampver.el
index f82bc6a15f..6567dea966 100644
--- a/trampver.el
+++ b/trampver.el
@@ -7,7 +7,7 @@
 ;; Maintainer: Michael Albinus 
 ;; Keywords: comm, processes
 ;; Package: tramp
-;; Version: 2.5.3.3
+;; Version: 2.5.4
 ;; Package-Requires: ((emacs "25.1"))
 ;; Package-Type: multi
 ;; URL: https://www.gnu.org/software/tramp/
@@ -40,7 +40,7 @@
 ;; ./configure" to change them.
 
 ;;;###tramp-autoload
-(defconst tramp-version "2.5.3.3"
+(defconst tramp-version "2.5.4"
   "This version of Tramp.")
 
 ;;;###tramp-autoload
@@ -78,7 +78,7 @@
 ;; Check for Emacs version.
 (let ((x   (if (not (string-lessp emacs-version "25.1"))
   "ok"
-(format "Tramp 2.5.3.3 is not fit for %s"
+(format "Tramp 2.5.4 is not fit for %s"
 (replace-regexp-in-string "\n" "" (emacs-version))
   (unless (string-equal "ok" x) (error "%s" x)))
 

[elpa] externals/vertico 801ad3143d: Why keep a complicated API when we can make it more complicated?

[ELPA Syncer]

branch: externals/vertico
commit 801ad3143d26653384f4c25bad44f7c098dd704c
Author: Daniel Mendler 
Commit: Daniel Mendler 

Why keep a complicated API when we can make it more complicated?

Support function argument for REQUIRE-MATCH on Emacs 29. As can be seen 
here,
the REQUIRE-MATCH function call provides equivalent functionality as the
test-completion call. Thus this Emacs 29 addition is unnecessary. 
Admittedly it
adds a little bit of convenience since the caller of completing-read doesn't
have to modify the completion table.
---
 vertico.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/vertico.el b/vertico.el
index 71ec41cb3d..4dbf911e83 100644
--- a/vertico.el
+++ b/vertico.el
@@ -652,6 +652,8 @@ The function is configured by BY, BSIZE, BINDEX, BPRED and 
PRED."
   "Return t if INPUT is a valid match."
   (or (memq minibuffer--require-match '(nil confirm-after-completion))
   (equal "" input) ;; Null completion, returns default value
+  (and (functionp minibuffer--require-match) ;; Emacs 29 require-match 
function
+   (funcall minibuffer--require-match input))
   (test-completion input minibuffer-completion-table 
minibuffer-completion-predicate)
   (if (eq minibuffer--require-match 'confirm)
   (eq (ignore-errors (read-char "Confirm")) 13)

[elpa] externals/detached 6b64d4d806: Update kill session function

[ELPA Syncer]

branch: externals/detached
commit 6b64d4d8064cee781e071e825857b442ea96c3d9
Author: Niklas Eklund 
Commit: Niklas Eklund 

Update kill session function

Make sure to check that a session is active before trying to kill it.
---
 detached.el | 52 +++-
 1 file changed, 27 insertions(+), 25 deletions(-)

diff --git a/detached.el b/detached.el
index 7eda4dfd66..e139639fa9 100644
--- a/detached.el
+++ b/detached.el
@@ -1076,31 +1076,33 @@ session validation."
   (interactive
(list (detached-session-in-context)))
   (when session
-(cl-letf* (((getenv "HISTFILE") "")
-   (default-directory (detached-session-directory session))
-   (buffer (get-buffer-create (format "*dtach-%s*" 
(detached-session-id session
-   (termination-delay 0.5)
-   (comint-exec-hook
-`(,(lambda ()
- (when-let ((process (get-buffer-process 
(current-buffer
-   (run-with-timer termination-delay nil
-   (lambda ()
- ;; Attach to session
- (with-current-buffer buffer
-   (let 
((detached-show-session-context nil))
- (when detached-debug-enabled
-   (message "Kill function 
attaching to session %s" (detached-session-id session)))
- (detached-shell-attach-session 
session))
-   (run-with-timer termination-delay 
nil
-   (lambda ()
- ;; Send 
termination signal to session
- (when 
detached-debug-enabled
-   (message "Kill 
function sending termination signal to session %s" (detached-session-id 
session)))
- 
(with-current-buffer buffer
-   
(call-interactively #'comint-interrupt-subjob)
-   (let 
((kill-buffer-query-functions nil))
- 
(kill-buffer)
-  (apply #'make-comint-in-buffer `("dtach" ,buffer ,detached-shell-program 
nil)
+(if (detached-session-active-p session)
+(cl-letf* (((getenv "HISTFILE") "")
+   (default-directory (detached-session-directory session))
+   (buffer (get-buffer-create (format "*dtach-%s*" 
(detached-session-id session
+   (termination-delay 0.5)
+   (comint-exec-hook
+`(,(lambda ()
+ (when-let ((process (get-buffer-process 
(current-buffer
+   (run-with-timer termination-delay nil
+   (lambda ()
+ ;; Attach to session
+ (with-current-buffer buffer
+   (let 
((detached-show-session-context nil))
+ (when detached-debug-enabled
+   (message "Kill function 
attaching to session %s" (detached-session-id session)))
+ 
(detached-shell-attach-session session))
+   (run-with-timer 
termination-delay nil
+   (lambda ()
+ ;; Send 
termination signal to session
+ (when 
detached-debug-enabled
+   (message 
"Kill function sending termination signal to session %s" (detached-session-id 
session)))
+ 
(with-current-buffer buffer
+   
(call-interactively #'comint-interrupt-subjob)
+   (let 
((kill-buffer-query-functions nil))
+ 
(kill-buffer)
+  (apply #'make-comint-in-buffer `("dtach" ,buffer 
,detached-shell-program nil)))
+  (message "Session %s is already inactive." (detached-session-id 
session)
 
 (defun detached-session-output (session)
   "Return content of SESSION's output."

[elpa] elpa-admin baa3e4671b: * elpa-admin.el (elpaa--report-failure): Increase threshold

[Stefan Monnier via]

branch: elpa-admin
commit baa3e4671b9527a25facd48e7894794fd327a407
Author: Stefan Monnier 
Commit: Stefan Monnier 

* elpa-admin.el (elpaa--report-failure): Increase threshold

The version is often included 3 times in the error message, so
a single additional digit is all it takes to get past the previous 
threshold.
---
 elpa-admin.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/elpa-admin.el b/elpa-admin.el
index e8a268b825..e38e46c9c5 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -644,10 +644,10 @@ returns.  Return the selected revision."
 (write-region txt nil file nil 'silent)
 (when (and elpaa--email-to
(> (file-attribute-size (file-attributes file))
-  ;; Arbitrarily require a "2 chars increase" minimum
+  ;; Arbitrarily require a "8 chars increase" minimum
   ;; so we don't resend a notification when the timestamp
   ;; in the version got a bit longer.
-  (+ prev-size 2)))
+  (+ prev-size 8)))
   (let ((maintainers (elpaa--maintainers
   (or metadata
   (elpaa--metadata (elpaa--pkg-root pkg)

[elpa] externals/peg updated (9a8d2396e7 -> 90c9004a83)

[Eric Abrahamsen]

girzel pushed a change to branch externals/peg.

  from  9a8d2396e7 * peg.el: New official entry points `peg` and `peg-run`
   new  03a35ddee9 Peg doc patches
   new  90c9004a83 Fix syntax-class PEX to move point; release 1.0.1


Summary of changes:
 peg-tests.el |  5 
 peg.el   | 76 
 2 files changed, 71 insertions(+), 10 deletions(-)

[elpa] externals/peg 90c9004a83 2/2: Fix syntax-class PEX to move point; release 1.0.1

[Eric Abrahamsen]

branch: externals/peg
commit 90c9004a8347209f94a37c8d9506425721098402
Author: Eric Abrahamsen 
Commit: Eric Abrahamsen 

Fix syntax-class PEX to move point; release 1.0.1

* peg.el (peg--translate): This method was only testing buffer text
after point, it needs to actually move point over the matched text.
* peg-tests.el (peg-test): Add to tests.
---
 peg-tests.el | 5 +
 peg.el   | 6 --
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/peg-tests.el b/peg-tests.el
index bb47968a87..cedccd7eaa 100644
--- a/peg-tests.el
+++ b/peg-tests.el
@@ -154,6 +154,11 @@ resp. succeded instead of signaling an error."
 (should-not (peg-run (peg "to")))
 (should (peg-run (peg "ro")))
 (should (eobp)))
+  (with-temp-buffer
+(insert "   ")
+(goto-char (point-min))
+(peg-run (peg (+ (syntax-class whitespace
+(should (eobp)))
   )
 
 ;;; Examples:
diff --git a/peg.el b/peg.el
index 0e4221eeb7..ff765bd58b 100644
--- a/peg.el
+++ b/peg.el
@@ -5,7 +5,7 @@
 ;; Author: Helmut Eller 
 ;; Maintainer: Stefan Monnier 
 ;; Package-Requires: ((emacs "25"))
-;; Version: 1.0
+;; Version: 1.0.1
 ;;
 ;; This program is free software: you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -588,7 +588,9 @@ of PEG expressions, implicitly combined with `and'."
 
 (cl-defmethod peg--translate ((_ (eql syntax-class)) class)
   (let ((probe (assoc class peg-syntax-classes)))
-(cond (probe `(looking-at ,(format "\\s%c" (cadr probe
+(cond (probe `(when (looking-at ,(format "\\s%c" (cadr probe)))
+(forward-char)
+t))
  (t (error "Invalid syntax class: %S\nMust be one of: %s" class
(mapcar #'car peg-syntax-classes))
 

[elpa] externals/peg 03a35ddee9 1/2: Peg doc patches

[Eric Abrahamsen]

branch: externals/peg
commit 03a35ddee99cf4b6831ee4f98474a745cc79b66f
Author: Eric Abrahamsen 
Commit: Eric Abrahamsen 

Peg doc patches
---
 peg.el | 70 ++
 1 file changed, 62 insertions(+), 8 deletions(-)

diff --git a/peg.el b/peg.el
index d71c707dc0..0e4221eeb7 100644
--- a/peg.el
+++ b/peg.el
@@ -79,17 +79,69 @@
 ;; Beginning-of-Symbol (bos)
 ;; End-of-Symbol   (eos)
 ;;
-;; PEXs also support parsing actions, i.e. Lisp snippets which
-;; are executed when a pex matches.  This can be used to construct
-;; syntax trees or for similar tasks.  Actions are written as
+;; Rules can refer to other rules, and a grammar is often structured
+;; as a tree, with a root rule referring to one or more "branch
+;; rules", all the way down to the "leaf rules" that deal with actual
+;; buffer text.  Rules can be recursive or mutually referential,
+;; though care must be taken not to create infinite loops.
+;;
+;; PEXs also support parsing actions, i.e. Lisp snippets which are
+;; executed when a pex matches.  This can be used to construct syntax
+;; trees or for similar tasks.  The most basic form of action is
+;; written as:
 ;;
 ;; (action FORM)  ; evaluate FORM for its side-effects
-;; `(VAR... -- FORM...)   ; stack action
 ;;
 ;; Actions don't consume input, but are executed at the point of
-;; match.  A "stack action" takes VARs from the "value stack" and
-;; pushes the result of evaluating FORMs to that stack.
-;; See `peg-ex-parse-int' in `peg-tests.el' for an example.
+;; match.  Another kind of action is called a "stack action", and
+;; looks like this:
+;;
+;; `(VAR... -- FORM...)   ; stack action
+;;
+;; A stack action takes VARs from the "value stack" and pushes the
+;; results of evaluating FORMs to that stack.
+
+;; The value stack is created during the course of parsing.  Certain
+;; operators (see below) that match buffer text can push values onto
+;; this stack.  "Upstream" rules can then draw values from the stack,
+;; and optionally push new ones back.  For instance, consider this
+;; very simple grammar:
+;;
+;; (with-peg-rules
+;; ((query (+ term) (eol))
+;;  (term key ":" value (opt (+ [space]))
+;;`(k v -- (cons (intern k) v)))
+;;  (key (substring (and (not ":") (+ [word]
+;;  (value (or string-value number-value))
+;;  (string-value (substring (+ [alpha])))
+;;  (number-value (substring (+ [digit]))
+;;`(val -- (string-to-number val
+;;   (peg-run (peg query)))
+;;
+;; This invocation of `peg-run' would parse this buffer text:
+;;
+;; name:Jane age:30
+;;
+;; And return this Elisp sexp:
+;;
+;; ((age . 30) (name . "Jane"))
+;;
+;; Note that, in complex grammars, some care must be taken to make
+;; sure that the number and type of values drawn from the stack always
+;; match those pushed.  In the example above, both `string-value' and
+;; `number-value' push a single value to the stack.  Since the `value'
+;; rule only includes these two sub-rules, any upstream rule that
+;; makes use of `value' can be confident it will always and only push
+;; a single value to the stack.
+;;
+;; Stack action forms are in a sense analogous to lambda forms: the
+;; symbols before the "--" are the equivalent of lambda arguments,
+;; while the forms after the "--" are return values.  The difference
+;; being that a lambda form can only return a single value, while a
+;; stack action can push multiple values onto the stack.  It's also
+;; perfectly valid to use `(-- FORM...)' or `(VAR... --)': the former
+;; pushes values to the stack without consuming any, and the latter
+;; pops values from the stack and discards them.
 ;;
 ;; Derived Operators:
 ;;
@@ -101,6 +153,8 @@
 ;; (replace E RPL); Match E and replace the matched region with RPL.
 ;; (list E)   ; Match E and push a list of the items that E produced.
 ;;
+;; See `peg-ex-parse-int' in `peg-tests.el' for further examples.
+;;
 ;; Regexp equivalents:
 ;;
 ;; Here a some examples for regexps and how those could be written as pex.
@@ -177,7 +231,7 @@ EXPS is a list of rules/expressions that failed.")
 
  Main entry points
 
-;; Sometimes (with-peg-rule ... (peg-run (peg ...))) is too
+;; Sometimes (with-peg-rules ... (peg-run (peg ...))) is too
 ;; longwinded for the task at hand, so `peg-parse' comes in handy.
 (defmacro peg-parse (&rest pexs)
   "Match PEXS at point.

[nongnu] elpa/idris-mode e350ed25a5 3/5: Update `idris-compile-and-execute` for Idris2

[ELPA Syncer]

branch: elpa/idris-mode
commit e350ed25a5bf711673412acde6fe945346423a56
Author: Marek L 
Commit: Marek L 

Update `idris-compile-and-execute` for Idris2

Backport of idris2-compile-and-execute from 
https://github.com/idris-community/idris2-mode/pull/20/files
with preserving backward compatibility for Idris 1

Co-authored-by: "G. Allais" 
---
 idris-commands.el | 9 ++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/idris-commands.el b/idris-commands.el
index da73e2be89..893abb8a98 100644
--- a/idris-commands.el
+++ b/idris-commands.el
@@ -748,12 +748,15 @@ Otherwise, case split as a pattern variable."
;; make sure point is at new defn
(goto-char end)))
 
-
 (defun idris-compile-and-execute ()
-  "Execute the program in the current buffer"
+  "Execute the program in the current buffer."
   (interactive)
   (idris-load-file-sync)
-  (idris-eval '(:interpret ":exec")))
+  (if (>=-protocol-version 2 1)
+  (let ((name (read-string "MExpression to compile & execute (default 
main): "
+ nil nil "main")))
+(idris-repl-eval-string (format ":exec %s" name) 0))
+(idris-eval '(:interpret ":exec"
 
 (defvar-local proof-region-start nil
   "The start position of the last proof region.")

[nongnu] elpa/idris-mode updated (993c862b7f -> fdbd019cb2)

[ELPA Syncer]

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

  from  993c862b7f Merge pull request #568 from keram/case-dwin-issue-465
   new  86c2fd294c Remove idris-tests2.el in favour of using idris-tests.el
   new  a05c2c5fc9 Merge pull request #571 from 
keram/unify-tests-for-idris-1-and-2
   new  8ff4a2d9d5 Reset `idris-protocol-version*` vars to 0 on quit
   new  e350ed25a5 Update `idris-compile-and-execute` for Idris2
   new  fdbd019cb2 Merge pull request #573 from 
keram/backport-idris2-compile-and-execute


Summary of changes:
 Makefile  |   3 +-
 idris-commands.el |  13 +++--
 idris-tests.el|   5 +-
 idris-tests2.el   | 170 --
 4 files changed, 13 insertions(+), 178 deletions(-)
 delete mode 100644 idris-tests2.el

[nongnu] elpa/idris-mode 86c2fd294c 1/5: Remove idris-tests2.el in favour of using idris-tests.el

[ELPA Syncer]

branch: elpa/idris-mode
commit 86c2fd294c3cd1f03ee0daf4dbcfd3f6194f3870
Author: Marek L 
Commit: Marek L 

Remove idris-tests2.el in favour of using idris-tests.el

The only difference in these files was that
`idris-test-proof-search` is failing under Idris2.

This difference can be expressed in `ert`
using `:expected-result`.

https://www.gnu.org/software/emacs/manual/html_node/ert/Expected-Failures.html
---
 Makefile|   3 +-
 idris-tests.el  |   5 +-
 idris-tests2.el | 170 
 3 files changed, 4 insertions(+), 174 deletions(-)

diff --git a/Makefile b/Makefile
index dc64d50660..5b358093a4 100644
--- a/Makefile
+++ b/Makefile
@@ -50,8 +50,7 @@ test: getdeps build
 test2: getdeps build
$(BATCHEMACS) -L . \
-eval '(setq idris-interpreter-path (executable-find 
"idris2"))' \
-   -eval '(setq idris-repl-history-file 
"~/.idris2/idris2-history.eld")' \
-   -l ert -l idris-tests2.el -f ert-run-tests-batch-and-exit
+   -l ert -l idris-tests.el -f ert-run-tests-batch-and-exit
 
 test3: getdeps build
$(BATCHEMACS) -L . \
diff --git a/idris-tests.el b/idris-tests.el
index 4ee5896ce8..367d4c2618 100644
--- a/idris-tests.el
+++ b/idris-tests.el
@@ -108,8 +108,9 @@ remain."
 
 (ert-deftest idris-test-proof-search ()
   "Test that proof search works"
-;  (idris-quit)
-
+  :expected-result (if (string-match-p "idris2" idris-interpreter-path)
+   :failed
+ :passed)
   (let ((buffer (find-file "test-data/ProofSearch.idr")))
 (with-current-buffer buffer
   (idris-load-file)
diff --git a/idris-tests2.el b/idris-tests2.el
deleted file mode 100644
index e32c8b8fa2..00
--- a/idris-tests2.el
+++ /dev/null
@@ -1,170 +0,0 @@
-;;; idris-tests.el --- Tests for idris-mode  -*- lexical-binding: t -*-
-
-;; Copyright (C) 2014  David Raymond Christiansen
-
-;; Author: David Raymond Christiansen 
-;; Keywords: languages
-
-;; 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:
-
-;; This is a collection of simple tests for idris-mode.
-
-;;; Code:
-
-(require 'idris-mode)
-(require 'inferior-idris)
-(require 'idris-ipkg-mode)
-(require 'cl-lib)
-
-(ert-deftest trivial-test2 ()
-  (should t))
-
-(ert-deftest idris-test2-idris-editor-port ()
-  (let ((output "Can't find import Prelude\n37072\n"))
-(should (string-match idris-process-port-output-regexp output))
-(should (string= "Can't find import Prelude\n" (match-string 1 output)))
-(should (string= "37072" (match-string 2 output
-  (let ((output "37072\n"))
-(should (string-match idris-process-port-output-regexp output))
-(should (null (match-string 1 output)))
-(should (string= "37072" (match-string 2 output)
-
-(ert-deftest idris-test2-idris-quit ()
-  "Ensure that running Idris and quitting doesn't leave behind
-unwanted buffers."
-  (let ((before (buffer-list)))
-(idris-repl)
-(dotimes (_ 5) (accept-process-output nil 1))
-(idris-quit)
-(let* ((after (buffer-list))
-   (extra (cl-set-difference after before)))
-  (should (= (length extra) 0)
-
-(ert-deftest idris-test2-idris-quit-logging-enabled ()
-  "Ensure that running Idris and quitting doesn't leave behind
-unwanted buffers. In particular, only *idris-events* should
-remain."
-  (let ((before (buffer-list))
-(idris-log-events 't))
-(idris-repl)
-(dotimes (_ 5) (accept-process-output nil 1))
-(idris-quit)
-(let* ((after (buffer-list))
-   (extra (cl-set-difference after before)))
-  (should (= (length extra) 1))
-  (should (string= (buffer-name (car extra)) idris-event-buffer-name)))
-
-;; Cleanup
-(kill-buffer idris-event-buffer-name)))
-
-(ert-deftest idris-test2-hole-load ()
-  "Test the hole-list-on-load setting."
-  (idris-quit)
-  ;;; The default setting should be to show holes
-  (should idris-hole-show-on-load)
-
-  (let ((buffer (find-file "test-data/MetavarTest.idr")))
-;;; Check that the file was loaded
-(should (bufferp buffer))
-
-;;; Check that it shows the hole list with the option turned on
-(with-current-buffer buffer
-  (idris-load-file))
-;;; Allow async stuff to happen
-(dotimes (_ 5) (accept-process-output nil 1))
-(let ((mv-buffer (get-buffer idri

[nongnu] elpa/idris-mode fdbd019cb2 5/5: Merge pull request #573 from keram/backport-idris2-compile-and-execute

[ELPA Syncer]

branch: elpa/idris-mode
commit fdbd019cb284455f0e2e887a833f64c67b89c80f
Merge: a05c2c5fc9 e350ed25a5
Author: Jan de Muijnck-Hughes 
Commit: GitHub 

Merge pull request #573 from keram/backport-idris2-compile-and-execute

Update idris-compile-and-execute for Idris2
---
 idris-commands.el | 13 +
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/idris-commands.el b/idris-commands.el
index 256458d274..893abb8a98 100644
--- a/idris-commands.el
+++ b/idris-commands.el
@@ -748,12 +748,15 @@ Otherwise, case split as a pattern variable."
;; make sure point is at new defn
(goto-char end)))
 
-
 (defun idris-compile-and-execute ()
-  "Execute the program in the current buffer"
+  "Execute the program in the current buffer."
   (interactive)
   (idris-load-file-sync)
-  (idris-eval '(:interpret ":exec")))
+  (if (>=-protocol-version 2 1)
+  (let ((name (read-string "MExpression to compile & execute (default 
main): "
+ nil nil "main")))
+(idris-repl-eval-string (format ":exec %s" name) 0))
+(idris-eval '(:interpret ":exec"
 
 (defvar-local proof-region-start nil
   "The start position of the last proof region.")
@@ -989,7 +992,9 @@ https://github.com/clojure-emacs/cider";
 (delete-overlay idris-loaded-region-overlay)
 (setq idris-loaded-region-overlay nil)))
 (idris-prover-end)
-(idris-kill-buffers)))
+(idris-kill-buffers)
+(setq idris-protocol-version 0
+  idris-protocol-version-minor 0)))
 
 (defun idris-delete-ibc (no-confirmation)
   "Delete the IBC file for the current buffer. A prefix argument

[nongnu] elpa/idris-mode 8ff4a2d9d5 2/5: Reset `idris-protocol-version*` vars to 0 on quit

[ELPA Syncer]

branch: elpa/idris-mode
commit 8ff4a2d9d516648c97466f815f0a63c5b2329bce
Author: Marek L 
Commit: Marek L 

Reset `idris-protocol-version*` vars to 0 on quit

Why:
To make easier and reliable to switch between Idris and Idris2
---
 idris-commands.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/idris-commands.el b/idris-commands.el
index 256458d274..da73e2be89 100644
--- a/idris-commands.el
+++ b/idris-commands.el
@@ -989,7 +989,9 @@ https://github.com/clojure-emacs/cider";
 (delete-overlay idris-loaded-region-overlay)
 (setq idris-loaded-region-overlay nil)))
 (idris-prover-end)
-(idris-kill-buffers)))
+(idris-kill-buffers)
+(setq idris-protocol-version 0
+  idris-protocol-version-minor 0)))
 
 (defun idris-delete-ibc (no-confirmation)
   "Delete the IBC file for the current buffer. A prefix argument

[nongnu] elpa/idris-mode a05c2c5fc9 4/5: Merge pull request #571 from keram/unify-tests-for-idris-1-and-2

[ELPA Syncer]

branch: elpa/idris-mode
commit a05c2c5fc942b2036391e070a0c7b861b3f26c6a
Merge: 993c862b7f 86c2fd294c
Author: Jan de Muijnck-Hughes 
Commit: GitHub 

Merge pull request #571 from keram/unify-tests-for-idris-1-and-2

Remove idris-tests2.el in favour of using idris-tests.el
---
 Makefile|   3 +-
 idris-tests.el  |   5 +-
 idris-tests2.el | 170 
 3 files changed, 4 insertions(+), 174 deletions(-)

diff --git a/Makefile b/Makefile
index dc64d50660..5b358093a4 100644
--- a/Makefile
+++ b/Makefile
@@ -50,8 +50,7 @@ test: getdeps build
 test2: getdeps build
$(BATCHEMACS) -L . \
-eval '(setq idris-interpreter-path (executable-find 
"idris2"))' \
-   -eval '(setq idris-repl-history-file 
"~/.idris2/idris2-history.eld")' \
-   -l ert -l idris-tests2.el -f ert-run-tests-batch-and-exit
+   -l ert -l idris-tests.el -f ert-run-tests-batch-and-exit
 
 test3: getdeps build
$(BATCHEMACS) -L . \
diff --git a/idris-tests.el b/idris-tests.el
index 4ee5896ce8..367d4c2618 100644
--- a/idris-tests.el
+++ b/idris-tests.el
@@ -108,8 +108,9 @@ remain."
 
 (ert-deftest idris-test-proof-search ()
   "Test that proof search works"
-;  (idris-quit)
-
+  :expected-result (if (string-match-p "idris2" idris-interpreter-path)
+   :failed
+ :passed)
   (let ((buffer (find-file "test-data/ProofSearch.idr")))
 (with-current-buffer buffer
   (idris-load-file)
diff --git a/idris-tests2.el b/idris-tests2.el
deleted file mode 100644
index e32c8b8fa2..00
--- a/idris-tests2.el
+++ /dev/null
@@ -1,170 +0,0 @@
-;;; idris-tests.el --- Tests for idris-mode  -*- lexical-binding: t -*-
-
-;; Copyright (C) 2014  David Raymond Christiansen
-
-;; Author: David Raymond Christiansen 
-;; Keywords: languages
-
-;; 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:
-
-;; This is a collection of simple tests for idris-mode.
-
-;;; Code:
-
-(require 'idris-mode)
-(require 'inferior-idris)
-(require 'idris-ipkg-mode)
-(require 'cl-lib)
-
-(ert-deftest trivial-test2 ()
-  (should t))
-
-(ert-deftest idris-test2-idris-editor-port ()
-  (let ((output "Can't find import Prelude\n37072\n"))
-(should (string-match idris-process-port-output-regexp output))
-(should (string= "Can't find import Prelude\n" (match-string 1 output)))
-(should (string= "37072" (match-string 2 output
-  (let ((output "37072\n"))
-(should (string-match idris-process-port-output-regexp output))
-(should (null (match-string 1 output)))
-(should (string= "37072" (match-string 2 output)
-
-(ert-deftest idris-test2-idris-quit ()
-  "Ensure that running Idris and quitting doesn't leave behind
-unwanted buffers."
-  (let ((before (buffer-list)))
-(idris-repl)
-(dotimes (_ 5) (accept-process-output nil 1))
-(idris-quit)
-(let* ((after (buffer-list))
-   (extra (cl-set-difference after before)))
-  (should (= (length extra) 0)
-
-(ert-deftest idris-test2-idris-quit-logging-enabled ()
-  "Ensure that running Idris and quitting doesn't leave behind
-unwanted buffers. In particular, only *idris-events* should
-remain."
-  (let ((before (buffer-list))
-(idris-log-events 't))
-(idris-repl)
-(dotimes (_ 5) (accept-process-output nil 1))
-(idris-quit)
-(let* ((after (buffer-list))
-   (extra (cl-set-difference after before)))
-  (should (= (length extra) 1))
-  (should (string= (buffer-name (car extra)) idris-event-buffer-name)))
-
-;; Cleanup
-(kill-buffer idris-event-buffer-name)))
-
-(ert-deftest idris-test2-hole-load ()
-  "Test the hole-list-on-load setting."
-  (idris-quit)
-  ;;; The default setting should be to show holes
-  (should idris-hole-show-on-load)
-
-  (let ((buffer (find-file "test-data/MetavarTest.idr")))
-;;; Check that the file was loaded
-(should (bufferp buffer))
-
-;;; Check that it shows the hole list with the option turned on
-(with-current-buffer buffer
-  (idris-load-file))
-;;; Allow async stuff to happen
-(dotimes (_ 5) (accept-process-output nil 1))
-(let ((mv-buffer (get-buffer idris-hole-list-buffer-name)))
-  ;; The buffer exists and contains characters
-  (should (bufferp mv-buffer))
-  (should (> (buffer-size mv-buffer) 

[elpa] externals/corfu 362b0738aa: corfu-popupinfo: Add minimum popup size, improve direction configuration (#264)

[ELPA Syncer]

branch: externals/corfu
commit 362b0738aa051d6c80f34d631246059f9805134c
Author: galeo 
Commit: GitHub 

corfu-popupinfo: Add minimum popup size, improve direction configuration 
(#264)
---
 extensions/corfu-popupinfo.el | 177 +++---
 1 file changed, 80 insertions(+), 97 deletions(-)

diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index d7ca2eaaae..4bf4d863f3 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -75,12 +75,22 @@ popup can be requested manually via 
`corfu-popupinfo-toggle',
   :group 'corfu)
 
 (defcustom corfu-popupinfo-max-width 80
-  "The max width of the info popup in characters."
+  "The maximum width of the info popup in characters."
+  :type 'integer
+  :group 'corfu)
+
+(defcustom corfu-popupinfo-min-width 30
+  "The minimum width of the info popup in characters."
   :type 'integer
   :group 'corfu)
 
 (defcustom corfu-popupinfo-max-height 10
-  "The max height of the info popup in characters."
+  "The maximum height of the info popup in characters."
+  :type 'integer
+  :group 'corfu)
+
+(defcustom corfu-popupinfo-min-height 1
+  "The minimum height of the info popup in characters."
   :type 'integer
   :group 'corfu)
 
@@ -89,15 +99,17 @@ popup can be requested manually via 
`corfu-popupinfo-toggle',
   :type 'boolean
   :group 'corfu)
 
-(defcustom corfu-popupinfo-direction 'horizontal
-  "Preferred direction for the popup."
-  :type '(choice (const horizontal)
- (const vertical)
- (const always-horizontal)
- (const always-vertical)
- ;; TODO always-left and always-right are unsupported
- (const always-left)
- (const always-right))
+(defcustom corfu-popupinfo-direction '(right left vertical)
+  "Preferred directionse for the popup in order."
+  :type '(repeat
+  (choice
+   (const left)
+   (const right)
+   (const vertical)
+   (const always-horizontal)
+   (const always-vertical)
+   (const always-left)
+   (const always-right)))
   :group 'corfu)
 
 (defvar corfu-popupinfo-map
@@ -247,90 +259,61 @@ in the form of (X Y WIDTH HEIGHT)."
   (pcase-let ((`(,x . ,y) (frame-position frame)))
 (list x y (frame-pixel-width frame) (frame-pixel-height frame
 
-(defun corfu-popupinfo--display-area-horizontal (width height)
-  "Calculate the horizontal display area for the info popup.
+(defun corfu-popupinfo--fits-p (size area)
+  "Check if SIZE fits into the AREA.
 
-The WIDTH and HEIGHT of the info popup are in pixels.
-The calculated area is in the form (X Y WIDTH HEIGHT DIR).
-DIR indicates the horizontal position direction of the info popup
-relative to the candidate popup, its value can be right or left."
-  (pcase-let* ((border (alist-get 'child-frame-border-width 
corfu--frame-parameters))
-   (`(,_pfx ,_pfy ,pfw ,_pfh)
-(corfu-popupinfo--frame-geometry (frame-parent corfu--frame)))
-   (`(,cfx ,cfy ,cfw ,_cfh) (corfu-popupinfo--frame-geometry 
corfu--frame))
-   (x-on-right (+ cfx cfw (- border)))
-   (x-on-left (max 0 (- cfx width border)))
-   (w-remaining-right (- pfw x-on-right border border))
-   (w-remaining-left (- cfx border)))
-(cond
- ((>= w-remaining-right width)
-  (list x-on-right cfy width height 'right))
- ((>= w-remaining-left width)
-  (list x-on-left cfy width height 'left))
- ((>= w-remaining-right w-remaining-left)
-  (list x-on-right cfy w-remaining-right height 'right))
- (t
-  (list x-on-left cfy w-remaining-left height 'left)
-
-(defun corfu-popupinfo--display-area-vertical (width height)
-  "Calculate the vertical display area for the info popup.
-
-The WIDTH and HEIGHT of the info popup are in pixels.
-
-The calculated area is in the form (X Y WIDTH HEIGHT DIR)."
-  (pcase-let* ((border (alist-get 'child-frame-border-width 
corfu--frame-parameters))
+SIZE is in the form (WIDTH . HEIGHT).
+AREA is in the form (X Y WIDTH HEIGHT DIR)."
+  (and (>= (nth 2 area) (car size)) (>= (nth 3 area) (cdr size
+
+(defun corfu-popupinfo--larger-p (area1 area2)
+  "Check if AREA1 is larger than AREA2.
+
+AREA1 and AREA2 are both in the form (X Y WIDTH HEIGHT DIR)."
+  (>= (* (nth 2 area1) (nth 3 area1)) (* (nth 2 area2) (nth 3 area2
+
+(defun corfu-popupinfo--area (ps)
+  "Calculate the display area for the info popup.
+
+PS is the pixel size of the popup. The calculated area is in the
+form (X Y WIDTH HEIGHT DIR)."
+  (pcase-let* ((cw (default-font-width))
(lh (default-line-height))
+   (border (alist-get 'child-frame-border-width 
corfu--frame-parameters))
(`(,_pfx ,_pfy ,pfw ,pfh)
 (corfu-popupinfo--frame-geometry (frame-parent corfu--frame)))
-   (`(,cfx ,cfy ,_cfw ,cfh) (corfu-popupinfo--frame-geometry 

[elpa] externals/corfu bdcd965c13: Update changelog

[ELPA Syncer]

branch: externals/corfu
commit bdcd965c13ed882c7b470611dc2178f778a98bed
Author: Daniel Mendler 
Commit: Daniel Mendler 

Update changelog
---
 CHANGELOG.org | 1 +
 extensions/corfu-popupinfo.el | 6 +++---
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index 89e99fac61..c0563d5b7d 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -5,6 +5,7 @@
 * Development
 
 - Bugfixes
+- =corfu-popupinfo-direction=: Variable must be a list of directions.
 
 * Version 0.33 (2022-11-21)
 
diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index 4bf4d863f3..e47d772763 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -106,10 +106,10 @@ popup can be requested manually via 
`corfu-popupinfo-toggle',
(const left)
(const right)
(const vertical)
-   (const always-horizontal)
-   (const always-vertical)
(const always-left)
-   (const always-right)))
+   (const always-right)
+   (const always-horizontal)
+   (const always-vertical)))
   :group 'corfu)
 
 (defvar corfu-popupinfo-map

[elpa] externals/ef-themes updated (dce4ddb641 -> 0eabe6cbd7)

[ELPA Syncer]

elpasync pushed a change to branch externals/ef-themes.

  from  dce4ddb641 Tweak the outline of ef-themes.el
   new  47724ff91b Make all bg-active more noticeable
   new  46fa47a780 Tweak eshell-ls-special mapping
   new  bd3811c70c Tweak org-clock-overlay
   new  0eabe6cbd7 Use more appropriate background for 
magit-diff-hunk-heading


Summary of changes:
 ef-autumn-theme.el | 2 +-
 ef-bio-theme.el| 2 +-
 ef-cherie-theme.el | 2 +-
 ef-cyprus-theme.el | 2 +-
 ef-dark-theme.el   | 2 +-
 ef-day-theme.el| 2 +-
 ef-deuteranopia-dark-theme.el  | 2 +-
 ef-deuteranopia-light-theme.el | 2 +-
 ef-duo-dark-theme.el   | 2 +-
 ef-duo-light-theme.el  | 2 +-
 ef-frost-theme.el  | 2 +-
 ef-light-theme.el  | 2 +-
 ef-night-theme.el  | 2 +-
 ef-spring-theme.el | 2 +-
 ef-summer-theme.el | 2 +-
 ef-themes.el   | 6 +++---
 ef-trio-dark-theme.el  | 2 +-
 ef-trio-light-theme.el | 2 +-
 ef-tritanopia-dark-theme.el| 2 +-
 ef-tritanopia-light-theme.el   | 2 +-
 ef-winter-theme.el | 2 +-
 21 files changed, 23 insertions(+), 23 deletions(-)

[elpa] externals/ef-themes 0eabe6cbd7 4/4: Use more appropriate background for magit-diff-hunk-heading

[ELPA Syncer]

branch: externals/ef-themes
commit 0eabe6cbd77379f921bb7a555b117f5170bfa6e5
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Use more appropriate background for magit-diff-hunk-heading
---
 ef-themes.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ef-themes.el b/ef-themes.el
index 377848871c..d2294d6e2a 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -1339,7 +1339,7 @@ Helper function for `ef-themes-preview-colors'."
 `(magit-diff-file-heading ((,c :inherit bold :foreground ,accent-0)))
 `(magit-diff-file-heading-highlight ((,c :inherit magit-diff-file-heading 
:background ,bg-alt)))
 `(magit-diff-file-heading-selection ((,c :inherit bold :background 
,bg-hover-alt :foreground ,fg-intense)))
-`(magit-diff-hunk-heading ((,c :inherit bold :background ,bg-dim)))
+`(magit-diff-hunk-heading ((,c :inherit bold :background ,bg-alt)))
 `(magit-diff-hunk-heading-highlight ((,c :inherit bold :background 
,bg-active :foreground ,fg-intense)))
 `(magit-diff-hunk-heading-selection ((,c :inherit bold :background 
,bg-hover-alt :foreground ,fg-intense)))
 `(magit-diff-hunk-region ((,c :inherit bold)))

[elpa] externals/ef-themes 46fa47a780 2/4: Tweak eshell-ls-special mapping

[ELPA Syncer]

branch: externals/ef-themes
commit 46fa47a78005943eeb7c566f86d50d1d2e6554a5
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Tweak eshell-ls-special mapping
---
 ef-themes.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ef-themes.el b/ef-themes.el
index 6d5e8baabc..dc428fc2ac 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -1095,7 +1095,7 @@ Helper function for `ef-themes-preview-colors'."
 `(eshell-ls-missing ((,c :inherit error)))
 `(eshell-ls-product ((,c :inherit shadow)))
 `(eshell-ls-readonly ((,c :foreground ,warning)))
-`(eshell-ls-special ((,c :foreground ,magenta)))
+`(eshell-ls-special ((,c :foreground ,accent-3)))
 `(eshell-ls-symlink ((,c :inherit link)))
 `(eshell-ls-unreadable ((,c :inherit shadow)))
 `(eshell-prompt ((,c :inherit minibuffer-prompt)))

[elpa] externals/ef-themes bd3811c70c 3/4: Tweak org-clock-overlay

[ELPA Syncer]

branch: externals/ef-themes
commit bd3811c70c3a8ef70674a4f8b7d182d88023cbbc
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Tweak org-clock-overlay
---
 ef-themes.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ef-themes.el b/ef-themes.el
index dc428fc2ac..377848871c 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -1600,7 +1600,7 @@ Helper function for `ef-themes-preview-colors'."
 `(org-checkbox ((,c :foreground ,warning)))
 `(org-checkbox-statistics-done ((,c :inherit org-done)))
 `(org-checkbox-statistics-todo ((,c :inherit org-todo)))
-`(org-clock-overlay ((,c :background ,bg-alt :foreground ,red-cooler)))
+`(org-clock-overlay ((,c :background ,bg-hover-alt)))
 `(org-code ((,c :inherit ef-themes-fixed-pitch :foreground ,accent-1)))
 `(org-column ((,c :inherit default :background ,bg-alt)))
 `(org-column-title ((,c :inherit (bold default) :underline t :background 
,bg-alt)))

[elpa] externals/ef-themes 47724ff91b 1/4: Make all bg-active more noticeable

[ELPA Syncer]

branch: externals/ef-themes
commit 47724ff91be46d81dbfed20d8e3b75dc0cf43a42
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Make all bg-active more noticeable
---
 ef-autumn-theme.el | 2 +-
 ef-bio-theme.el| 2 +-
 ef-cherie-theme.el | 2 +-
 ef-cyprus-theme.el | 2 +-
 ef-dark-theme.el   | 2 +-
 ef-day-theme.el| 2 +-
 ef-deuteranopia-dark-theme.el  | 2 +-
 ef-deuteranopia-light-theme.el | 2 +-
 ef-duo-dark-theme.el   | 2 +-
 ef-duo-light-theme.el  | 2 +-
 ef-frost-theme.el  | 2 +-
 ef-light-theme.el  | 2 +-
 ef-night-theme.el  | 2 +-
 ef-spring-theme.el | 2 +-
 ef-summer-theme.el | 2 +-
 ef-trio-dark-theme.el  | 2 +-
 ef-trio-light-theme.el | 2 +-
 ef-tritanopia-dark-theme.el| 2 +-
 ef-tritanopia-light-theme.el   | 2 +-
 ef-winter-theme.el | 2 +-
 20 files changed, 20 insertions(+), 20 deletions(-)

diff --git a/ef-autumn-theme.el b/ef-autumn-theme.el
index 1da018b17d..8b0d614314 100644
--- a/ef-autumn-theme.el
+++ b/ef-autumn-theme.el
@@ -52,7 +52,7 @@
   (bg-alt  "#36322f")
   (fg-alt  "#70a89f")
 
-  (bg-active   "#46423f")
+  (bg-active   "#56524f")
   (bg-inactive "#15140d")
 
   ;; Basic hues for foreground values
diff --git a/ef-bio-theme.el b/ef-bio-theme.el
index 5c6275a2bf..0842b1fa4e 100644
--- a/ef-bio-theme.el
+++ b/ef-bio-theme.el
@@ -52,7 +52,7 @@
   (bg-alt   "#303230")
   (fg-alt   "#8fcfaf")
 
-  (bg-active"#404240")
+  (bg-active"#505250")
   (bg-inactive  "#161916")
 
   ;; Basic hues for foreground values
diff --git a/ef-cherie-theme.el b/ef-cherie-theme.el
index 5c3853d546..208b598559 100644
--- a/ef-cherie-theme.el
+++ b/ef-cherie-theme.el
@@ -52,7 +52,7 @@
   (bg-alt   "#392a2f")
   (fg-alt   "#bf9cdf")
 
-  (bg-active"#493a3f")
+  (bg-active"#594a4f")
   (bg-inactive  "#1e1216")
 
   ;; Basic hues for foreground values
diff --git a/ef-cyprus-theme.el b/ef-cyprus-theme.el
index 815a85d1a1..5f03612c59 100644
--- a/ef-cyprus-theme.el
+++ b/ef-cyprus-theme.el
@@ -52,7 +52,7 @@
   (bg-alt  "#e5e3d8")
   (fg-alt  "#7f475a")
 
-  (bg-active   "#d5d3c8")
+  (bg-active   "#c5c3b8")
   (bg-inactive "#f8f3ea")
 
   ;; Basic hues for foreground values
diff --git a/ef-dark-theme.el b/ef-dark-theme.el
index eca9b8126e..a48b0070e5 100644
--- a/ef-dark-theme.el
+++ b/ef-dark-theme.el
@@ -52,7 +52,7 @@
   (bg-alt  "#2b2b2b")
   (fg-alt  "#89afef")
 
-  (bg-active   "#3b3b3b")
+  (bg-active   "#4b344b")
   (bg-inactive "#121212")
 
   ;; Basic hues for foreground values
diff --git a/ef-day-theme.el b/ef-day-theme.el
index a0f58a9dc3..2c88ccaefd 100644
--- a/ef-day-theme.el
+++ b/ef-day-theme.el
@@ -52,7 +52,7 @@
   (bg-alt  "#e9e0d8")
   (fg-alt  "#8f5f4a")
 
-  (bg-active   "#d9d0c8")
+  (bg-active   "#c9c0b8")
   (bg-inactive "#f7efe6")
 
   ;; Basic hues for foreground values
diff --git a/ef-deuteranopia-dark-theme.el b/ef-deuteranopia-dark-theme.el
index 444d5133e3..97c7c4e12c 100644
--- a/ef-deuteranopia-dark-theme.el
+++ b/ef-deuteranopia-dark-theme.el
@@ -55,7 +55,7 @@
   (bg-alt  "#243145")
   (fg-alt  "#90afef")
 
-  (bg-active   "#344155")
+  (bg-active   "#445165")
   (bg-inactive "#0d1429")
 
   ;; Basic hues for foreground values
diff --git a/ef-deuteranopia-light-theme.el b/ef-deuteranopia-light-theme.el
index e857e2e51b..e43ecbfdbf 100644
--- a/ef-deuteranopia-light-theme.el
+++ b/ef-deuteranopia-light-theme.el
@@ -55,7 +55,7 @@
   (bg-alt  "#d3d3e0")
   (fg-alt  "#196f70")
 
-  (bg-active   "#c3c3d0")
+  (bg-active   "#b3b3c0")
   (bg-inactive "#efeff5")
 
   ;; Basic hues for foreground values
diff --git a/ef-duo-dark-theme.el b/ef-duo-dark-theme.el
index 929ec045b6..d36880e1cd 100644
--- a/ef-duo-dark-theme.el
+++ b/ef-duo-dark-theme.el
@@ -55,7 +55,7 @@
   (bg-alt  "#2a2739")
   (fg-alt  "#89afef")
 
-  (bg-active   "#3a3749")
+  (bg-active   "#4a4759")
   (bg-inactive "#13101f")
 
   ;; Basic hues for foreground values
diff --git a/ef-duo-light-theme.el b/ef-duo-light-theme.el
index 0ffa2a422e..386f49b0af 100644
--- a/ef-duo-light-theme.el
+++ b/ef-duo-light-theme.el
@@ -55,7 +55,7 @@
   (bg-alt  "#e7e0da")
   (fg-alt  "#856f4a")
 
-  (bg-active   "#d7d0ca")
+  (bg-active   "#c7c0ba")
   (bg-inactive "#f9f2ef")
 
   ;; Basic hues for foreground values
diff --git a/ef-frost-theme.el b/ef-frost-theme.el
index e8124fb83e..30fc13bac0 100644
--- a/ef-frost-theme.el
+++ b/ef-frost-theme.el
@@ -52,7 +52,7 @@
   (bg-alt  "#d7dbdb")
   (fg-alt  "#204f9a")
 
-  (bg-active   "#c7cbcb")
+  (bg-active   "#b5b8b8")
   (bg-inactive "#f7f9f9

[elpa] externals/corfu 9b4fdc0088: corfu-popupinfo: Rename always-* to force-*

[ELPA Syncer]

branch: externals/corfu
commit 9b4fdc00888141d807aa6fd8bec2bf00dd4c0435
Author: Daniel Mendler 
Commit: Daniel Mendler 

corfu-popupinfo: Rename always-* to force-*
---
 extensions/corfu-popupinfo.el | 14 +++---
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index e47d772763..58195bb6aa 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -106,10 +106,10 @@ popup can be requested manually via 
`corfu-popupinfo-toggle',
(const left)
(const right)
(const vertical)
-   (const always-left)
-   (const always-right)
-   (const always-horizontal)
-   (const always-vertical)))
+   (const force-left)
+   (const force-right)
+   (const force-horizontal)
+   (const force-vertical)))
   :group 'corfu)
 
 (defvar corfu-popupinfo-map
@@ -306,9 +306,9 @@ form (X Y WIDTH HEIGHT DIR)."
 (or
  (cl-loop for dir in corfu-popupinfo-direction thereis
   (pcase dir
-((or 'always-right (guard (eq corfu-popupinfo--lock-dir 
'right))) ar)
-((or 'always-left (guard (eq corfu-popupinfo--lock-dir 
'left))) al)
-((or 'always-vertical (guard (eq corfu-popupinfo--lock-dir 
'vertical))) av)
+((or 'force-right (guard (eq corfu-popupinfo--lock-dir 
'right))) ar)
+((or 'force-left (guard (eq corfu-popupinfo--lock-dir 'left))) 
al)
+((or 'force-vertical (guard (eq corfu-popupinfo--lock-dir 
'vertical))) av)
 ((and 'right (guard (corfu-popupinfo--fits-p ps ar))) ar)
 ((and 'left (guard (corfu-popupinfo--fits-p ps al))) al)
 ((and 'vertical (guard (corfu-popupinfo--fits-p ps av))) av)))

[elpa] externals/marginalia c68164c564: Add Emacs 29 recentf-open

[ELPA Syncer]

branch: externals/marginalia
commit c68164c56485e1ef855c2d12e4393f5f55ca2b12
Author: Daniel Mendler 
Commit: Daniel Mendler 

Add Emacs 29 recentf-open
---
 marginalia.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/marginalia.el b/marginalia.el
index 6594cf7cc2..9faf7d8eb9 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -138,7 +138,8 @@ determine it."
   :type '(repeat (choice symbol regexp)))
 
 (defcustom marginalia-command-categories
-  '((imenu . imenu))
+  '((imenu . imenu)
+(recentf-open . file))
   "Associate commands with a completion category."
   :type '(alist :key-type symbol :value-type symbol))
 

[elpa] externals-release/org updated (b3da427ebb -> 3b79818691)

[ELPA Syncer]

elpasync pushed a change to branch externals-release/org.

  from  b3da427ebb Update version numbers for the 9.6 release
   new  5fd5912fa4 ob-core: Silence byte-compiler warning
   new  3b79818691 ORG-NEWS: Drop "Version 9.7" heading from bugfix branch


Summary of changes:
 etc/ORG-NEWS| 1 -
 lisp/ob-core.el | 4 ++--
 2 files changed, 2 insertions(+), 3 deletions(-)

[elpa] externals/org updated (b3da427ebb -> 4bb59b505d)

[ELPA Syncer]

elpasync pushed a change to branch externals/org.

  from  b3da427ebb Update version numbers for the 9.6 release
   new  5fd5912fa4 ob-core: Silence byte-compiler warning
   new  3b79818691 ORG-NEWS: Drop "Version 9.7" heading from bugfix branch
   new  4bb59b505d Merge branch 'bugfix'


Summary of changes:
 lisp/ob-core.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

[elpa] externals/org 4bb59b505d: Merge branch 'bugfix'

[ELPA Syncer]

branch: externals/org
commit 4bb59b505def76aa679f5ee239b78879ccf7247e
Merge: b3da427ebb 3b79818691
Author: Kyle Meyer 
Commit: Kyle Meyer 

Merge branch 'bugfix'

Discard the ORG-NEWS change from 3b7981869.
---
 lisp/ob-core.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/ob-core.el b/lisp/ob-core.el
index 5f679a5e96..5b78ee946f 100644
--- a/lisp/ob-core.el
+++ b/lisp/ob-core.el
@@ -2245,8 +2245,8 @@ Return the list of strings representing top level items:
 
(item1 item2 ...)
 
-Only consider top level items.  See Info node `(org)Environment of \
-a Code Block'."
+Only consider top level items.  See Info node
+`(org)Environment of a Code Block'."
   (mapcar (lambda (el) (org-babel-read (car el) 'inhibit-lisp-eval))
  (cdr (org-list-to-lisp
 

[elpa] externals-release/org 5fd5912fa4 1/2: ob-core: Silence byte-compiler warning

[ELPA Syncer]

branch: externals-release/org
commit 5fd5912fa4dab0e1730b7bcd08ae8b630466d8b1
Author: Kyle Meyer 
Commit: Kyle Meyer 

ob-core: Silence byte-compiler warning

* lisp/ob-core.el (org-babel-read-list): Reflow docstring paragraph to
silence "docstring wider than 80 characters" warning.
---
 lisp/ob-core.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/ob-core.el b/lisp/ob-core.el
index 5f679a5e96..5b78ee946f 100644
--- a/lisp/ob-core.el
+++ b/lisp/ob-core.el
@@ -2245,8 +2245,8 @@ Return the list of strings representing top level items:
 
(item1 item2 ...)
 
-Only consider top level items.  See Info node `(org)Environment of \
-a Code Block'."
+Only consider top level items.  See Info node
+`(org)Environment of a Code Block'."
   (mapcar (lambda (el) (org-babel-read (car el) 'inhibit-lisp-eval))
  (cdr (org-list-to-lisp
 

[elpa] externals-release/org 3b79818691 2/2: ORG-NEWS: Drop "Version 9.7" heading from bugfix branch

[ELPA Syncer]

branch: externals-release/org
commit 3b798186918274854833b6532e4424b32041919a
Author: Kyle Meyer 
Commit: Kyle Meyer 

ORG-NEWS: Drop "Version 9.7" heading from bugfix branch
---
 etc/ORG-NEWS | 1 -
 1 file changed, 1 deletion(-)

diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS
index db0ea244ac..e93007a75a 100644
--- a/etc/ORG-NEWS
+++ b/etc/ORG-NEWS
@@ -11,7 +11,6 @@ See the end of the file for license conditions.
 
 Please send Org bug reports to mailto:emacs-orgm...@gnu.org.
 
-* Version 9.7 (not released yet)
 * Version 9.6
 
 ** Important announcements and breaking changes

[elpa] externals/consult 86ea608aee 2/2: Update changelog

[ELPA Syncer]

branch: externals/consult
commit 86ea608aee2519dc90f68c50354aab92bdff99e0
Author: Daniel Mendler 
Commit: Daniel Mendler 

Update changelog
---
 CHANGELOG.org | 1 +
 1 file changed, 1 insertion(+)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index 13bcac6850..852aad49e1 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -11,6 +11,7 @@
 - Remove obsolete =consult-line-point-placement=
 - =consult-grep/find=: Always show directory in the prompt
 - Add variable =consult-yank-rotate=, =consult-yank-from-kill-ring= rotates 
kill ring
+- =consult-register=: Support Emacs 29 =buffer= register type
 
 * Version 0.20 (2022-10-16)
 

[elpa] externals/consult updated (db16709e0d -> 86ea608aee)

[ELPA Syncer]

elpasync pushed a change to branch externals/consult.

  from  db16709e0d Shorten deprecation message
   new  2d9b9f368b Emacs 29: Support buffer register type
   new  86ea608aee Update changelog


Summary of changes:
 CHANGELOG.org   | 1 +
 consult-register.el | 6 ++
 2 files changed, 7 insertions(+)

[elpa] externals/corfu 4737127a6f 1/4: Use with-silent-modifications

[ELPA Syncer]

branch: externals/corfu
commit 4737127a6fd690bc4a7e51f392d45b683844bfe5
Author: Daniel Mendler 
Commit: Daniel Mendler 

Use with-silent-modifications
---
 corfu.el | 6 ++
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/corfu.el b/corfu.el
index 76f061d9ed..85df408389 100644
--- a/corfu.el
+++ b/corfu.el
@@ -357,8 +357,7 @@ The completion backend can override this with
   (setq-local face-remapping-alist (copy-tree fr)
   line-spacing ls)
   (cl-pushnew 'corfu-default (alist-get 'default face-remapping-alist))
-  (let ((inhibit-modification-hooks t)
-(inhibit-read-only t))
+  (with-silent-modifications
 (erase-buffer)
 (insert content)
 (goto-char (point-min
@@ -494,8 +493,7 @@ A scroll bar is displayed from LO to LO+BAR."
 (set-frame-parameter frame 'corfu--hide-timer nil)
 (make-frame-invisible frame)
 (with-current-buffer (window-buffer (frame-root-window frame))
-  (let ((inhibit-modification-hooks t)
-(inhibit-read-only t))
+  (with-silent-modifications
 (erase-buffer)
 
 (defun corfu--hide-frame (frame)

[elpa] externals/corfu d7dfe8d618 3/4: Update changelog

[ELPA Syncer]

branch: externals/corfu
commit d7dfe8d618b3e1a594fc7f417b01c96a7802e21a
Author: Daniel Mendler 
Commit: Daniel Mendler 

Update changelog
---
 CHANGELOG.org | 1 +
 1 file changed, 1 insertion(+)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index c0563d5b7d..156263f01e 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -6,6 +6,7 @@
 
 - Bugfixes
 - =corfu-popupinfo-direction=: Variable must be a list of directions.
+- Support height adjustments of =corfu-default= face
 
 * Version 0.33 (2022-11-21)
 

[elpa] externals/corfu 360feabcd5 2/4: Take corfu-default face height into account for popup size (Fix #149)

[ELPA Syncer]

branch: externals/corfu
commit 360feabcd50f0924b31fcf1c7d00b06c51c1ccea
Author: Daniel Mendler 
Commit: Daniel Mendler 

Take corfu-default face height into account for popup size (Fix #149)

Try this:

(set-face-attribute 'corfu-default nil :height 0.8)
---
 corfu.el  | 92 +--
 extensions/corfu-popupinfo.el | 11 --
 2 files changed, 53 insertions(+), 50 deletions(-)

diff --git a/corfu.el b/corfu.el
index 85df408389..b58be55fad 100644
--- a/corfu.el
+++ b/corfu.el
@@ -344,8 +344,8 @@ The completion backend can override this with
 map)
   "Ignore all mouse clicks.")
 
-(defun corfu--make-buffer (name content)
-  "Create buffer with NAME and CONTENT."
+(defun corfu--make-buffer (name)
+  "Create buffer with NAME."
   (let ((fr face-remapping-alist)
 (ls line-spacing)
 (buffer (get-buffer-create name)))
@@ -357,11 +357,7 @@ The completion backend can override this with
   (setq-local face-remapping-alist (copy-tree fr)
   line-spacing ls)
   (cl-pushnew 'corfu-default (alist-get 'default face-remapping-alist))
-  (with-silent-modifications
-(erase-buffer)
-(insert content)
-(goto-char (point-min
-buffer))
+  buffer)))
 
 ;; Function adapted from posframe.el by tumashu
 (defvar x-gtk-resize-child-frames) ;; Not present on non-gtk builds
@@ -447,45 +443,49 @@ FRAME is the existing frame."
 WIDTH is the width of the popup.
 The current candidate CURR is highlighted.
 A scroll bar is displayed from LO to LO+BAR."
-  (let* ((ch (default-line-height))
- (cw (default-font-width))
- (ml (ceiling (* cw corfu-left-margin-width)))
- (mr (ceiling (* cw corfu-right-margin-width)))
- (bw (ceiling (min mr (* cw corfu-bar-width
- (marginl (and (> ml 0) (propertize " " 'display `(space :width 
(,ml)
- (marginr (and (> mr 0) (propertize " " 'display `(space :align-to 
right
- (sbar (when (> bw 0)
- (concat (propertize " " 'display `(space :align-to (- right 
(,mr
- (propertize " " 'display `(space :width (,(- mr bw
- (propertize " " 'face 'corfu-bar 'display `(space 
:width (,bw))
- (pos (posn-x-y (posn-at-point pos)))
- (width (+ (* width cw) ml mr))
- (height (* (length lines) ch))
- (edge (window-inside-pixel-edges))
- (border (alist-get 'child-frame-border-width corfu--frame-parameters))
- (x (max 0 (min (+ (car edge) (- (or (car pos) 0) ml (* cw off) 
border))
-(- (frame-pixel-width) width
- (yb (+ (cadr edge) (window-tab-line-height) (or (cdr pos) 0) ch))
- (y (if (> (+ yb (* corfu-count ch) ch ch) (frame-pixel-height))
-(- yb height ch border border)
-  yb))
- (row 0))
-(setq corfu--frame
-  (corfu--make-frame
-   corfu--frame x y width height
-   (corfu--make-buffer
-" *corfu*"
-(mapconcat (lambda (line)
- (let ((str (concat marginl line
-(if (and lo (<= lo row (+ lo bar)))
-sbar
-  marginr
-   (when (eq row curr)
- (add-face-text-property
-  0 (length str) 'corfu-current 'append str))
-   (cl-incf row)
-   str))
-   lines "\n"))
+  (let ((lh (default-line-height)))
+(with-current-buffer (corfu--make-buffer " *corfu*")
+  (let* ((ch (default-line-height))
+ (cw (default-font-width))
+ (ml (ceiling (* cw corfu-left-margin-width)))
+ (mr (ceiling (* cw corfu-right-margin-width)))
+ (bw (ceiling (min mr (* cw corfu-bar-width
+ (marginl (and (> ml 0) (propertize " " 'display `(space :width 
(,ml)
+ (marginr (and (> mr 0) (propertize " " 'display `(space :align-to 
right
+ (sbar (when (> bw 0)
+ (concat (propertize " " 'display `(space :align-to (- 
right (,mr
+ (propertize " " 'display `(space :width (,(- mr 
bw
+ (propertize " " 'face 'corfu-bar 'display `(space 
:width (,bw))
+ (pos (posn-x-y (posn-at-point pos)))
+ (width (+ (* width cw) ml mr))
+ ;; XXX HACK: Minimum popup height must be at least 1 line of the
+ ;; parent frame (#261).
+ (height (max lh (* (length lines) ch)))
+ (edge (window-inside-pixel-edges))
+ (border (alist-get 'child-frame-border-width 
corfu--frame-parameters))
+ (x (max 0 (min (+ (car edge) (- (or (car pos) 0) ml (* c

[elpa] externals/consult 2d9b9f368b 1/2: Emacs 29: Support buffer register type

[ELPA Syncer]

branch: externals/consult
commit 2d9b9f368bfc4bdb3c3aaf6444dba00507f64707
Author: Daniel Mendler 
Commit: Daniel Mendler 

Emacs 29: Support buffer register type
---
 consult-register.el | 6 ++
 1 file changed, 6 insertions(+)

diff --git a/consult-register.el b/consult-register.el
index dbfb9ed586..b68c023ab6 100644
--- a/consult-register.el
+++ b/consult-register.el
@@ -38,6 +38,7 @@
 (?t . "Frameset")
 (?k . "Kmacro")
 (?f . "File")
+(?b . "Buffer")
 (?w . "Window"))
   "Register type names.
 Each element of the list must have the form \\='(char . name).")
@@ -84,6 +85,11 @@ Each element of the list must have the form \\='(char . 
name).")
   (list (propertize (abbreviate-file-name (cdr val)) 'face 'consult-file)
 'consult--type ?f 'multi-category `(file . ,(cdr val
 
+(cl-defmethod consult-register--describe ((val (head buffer)))
+  "Describe buffer register VAL."
+  (list (propertize (cdr val) 'face 'consult-buffer)
+'consult--type ?f 'multi-category `(buffer . ,(cdr val
+
 (cl-defmethod consult-register--describe ((val (head file-query)))
   "Describe file-query register VAL."
   (list (format "%s at position %d"

[elpa] externals/corfu e832367a22 4/4: Update changelog

[ELPA Syncer]

branch: externals/corfu
commit e832367a22d3c14e2165edd4e52d45f524058c93
Author: Daniel Mendler 
Commit: Daniel Mendler 

Update changelog
---
 CHANGELOG.org | 1 +
 1 file changed, 1 insertion(+)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index 156263f01e..43d144eb4f 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -5,6 +5,7 @@
 * Development
 
 - Bugfixes
+- Popup frame code updated for Emacs 29. Please report any issues.
 - =corfu-popupinfo-direction=: Variable must be a list of directions.
 - Support height adjustments of =corfu-default= face
 

[elpa] externals/corfu updated (9b4fdc0088 -> e832367a22)

[ELPA Syncer]

elpasync pushed a change to branch externals/corfu.

  from  9b4fdc0088 corfu-popupinfo: Rename always-* to force-*
   new  4737127a6f Use with-silent-modifications
   new  360feabcd5 Take corfu-default face height into account for popup 
size (Fix #149)
   new  d7dfe8d618 Update changelog
   new  e832367a22 Update changelog


Summary of changes:
 CHANGELOG.org |  2 +
 corfu.el  | 96 +--
 extensions/corfu-popupinfo.el | 11 +++--
 3 files changed, 56 insertions(+), 53 deletions(-)

[elpa] externals/denote dc7486a0df 4/5: refactor: denote-modules are now a list of module names

[ELPA Syncer]

branch: externals/denote
commit dc7486a0dfda7a786168ea0464eec9f987d7e016
Author: Noboru Ota 
Commit: Protesilaos Stavrou 

refactor: denote-modules are now a list of module names

Before this patch, 'denote-modules' needed to be set like this below:

 (setq denote-modules
   '((project-find-functions . denote-project-find)
 (xref-backend-functions . denote--xref-backend)
 (denote-module-ffap-enable . denote-module-ffap-disable)))

It's cumbersome for users.  With this patch, the same user option can be 
set as a list of module names like this:

 (setq denote-modules '(project xref ffap))

Default value of 'denote-modules' is currently nil.
---
 denote.el | 149 +++---
 1 file changed, 85 insertions(+), 64 deletions(-)

diff --git a/denote.el b/denote.el
index fd7878b7c0..4807bf3dbd 100644
--- a/denote.el
+++ b/denote.el
@@ -3168,20 +3168,60 @@ Consult the manual for template samples."
 
 ;;; Denote extension "modules"
 
-(defvar denote-module-ffap-last-enabled nil)
-(defvar denote-modules-last-enabled nil)
+(defvar denote-modules-available
+  '(project (project-find-functions . denote-project-find)
+xref(xref-backend-functions . denote--xref-backend)
+ffap(denote-module-ffap-enable . denote-module-ffap-disable))
+  "Denote modules currently built-in with Denote.
+This variable is a plist.  Each module is represented as a pair
+of a property name and its value being a cons cell; thus a module
+is written in either the following forms:
+
+NAME (HOOK . FUNCTION\)
+NAME (FUNCTION . FUNCTION\)
+
+NAME, HOOK, FUNCTION are symbols.
+
+When a HOOK-FUNCTION pair is used, `denote-modules-enable'
+function will add FUNCTION to HOOK and `denote-modules-disable'
+function will remove FUNCTION from HOOK.  Generally, it should be
+possible to set HOOK-FUNCTION modules locally.
+
+When a FUNCTION-FUNCTION pair is used, the first FUNCTION must be
+an enable function and the second, its corresponding disable
+function to undo the former.  They are both called with no
+arguments.  For FUNCTION-FUNCTION modules, in some cases, it may
+not be possible to enable a module locally.  In these cases, some
+parts of a module may be enabled globally even when local minor
+mode function `denote-modules-mode' is called.
+
+NOTES for future development to add new modules: 
+
+It is important that FUNCTION must be defined and loaded before
+`denote-modules-enable' and `denote-moduel-disable' (the new
+functions probably should be written in the source code lines
+before these enable/disable functions)")
+
+(defvar denote-module-ffap-last-enabled nil
+  "Value of `ffap-next-regexp' beofe ffap module was last enabled.
+It is used by `denote-module-ffap-disable' to undo the value
+the module previoulsy set.")
+(defvar denote-modules-last-enabled nil
+  "Denote modules set last time.
+It is used by `denote-modules-enable' and
+`denote-moduules-disable' to undo the modules enabled last time.")
 ;; defvars to placate the compilers
 (defvar denote-modules)
 (defvar ffap-next-regexp)
 (defvar ffap-alist)
 
 (defun denote-module-ffap-disable (&optional local)
-  "Tear down `denote' integration with `ffap'.
+  "Disable Denote integration with `ffap'.
 This function is meant to be set as a pair function with
-`denote-module-ffap-enable' in `denote-modules'.
+`denote-module-ffap-enable' in `denote-modules-available'.
 
-When LOCAL is non-nil, tear down only for the local buffer as
-much as possible.  Currently, `'ffap-alist' is only teared down
+When LOCAL is non-nil, enable only for the local buffer as
+much as possible.  Currently, `ffap-alist' is only disabled
 globally."
   (require 'ffap)
   (setq ffap-alist (rassq-delete-all  #'denote-get-relative-path-by-id 
ffap-alist))
@@ -3194,12 +3234,12 @@ globally."
   (setq ffap-next-regexp denote-module-ffap-last-enabled
 
 (defun denote-module-ffap-enable (&optional local)
-  "Set up `denote' integration with `ffap'.
+  "Enable Denote integration with `ffap'.
 This function is meant to be set as a pair function with
-`denote-module-ffap-disable' in `denote-modules'.
+`denote-module-ffap-disable' in `denote-modules-available'.
 
-When LOCAL is non-nil, set up only for the local buffer as much
-as possible.  Currently, `'ffap-alist' is only set globally."
+When LOCAL is non-nil, enable only for the local buffer as much
+as possible.  Currently, `'ffap-alist' is only enabled globally."
   (require 'ffap)
   (if local (setq-local denote-module-ffap-last-active ffap-next-regexp)
 (setq denote-module-ffap-last-enabled ffap-next-regexp)
@@ -3209,58 +3249,35 @@ as possible.  Currently, `'ffap-alist' is only set 
globally."
 (setq ffap-next-regexp (concat ffap-next-regexp "\\|" denote-id-regexp
 
 (defun denote-modules-disable (modules &optional local)
-  "Disable MODULES.
+  "Disab

[elpa] externals/denote 0c4185b30c 1/5: docs: correct typo

[ELPA Syncer]

branch: externals/denote
commit 0c4185b30c27b4e2c356e95d9d3b9542774086e9
Author: Noboru Ota 
Commit: Protesilaos Stavrou 

docs: correct typo
---
 denote.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/denote.el b/denote.el
index 5b3b812ff4..a24657101d 100644
--- a/denote.el
+++ b/denote.el
@@ -3206,7 +3206,7 @@ defined in `project'."
   "Return the \"thing\" at point.
 The same logic as `elisp-mode'.  The \"thing\" is assumed to be a
 Denote identifier, but can be any word.  The method checks this
-and errors and if the word at point is not a Denote identifer."
+and errors and if the word at point is not a Denote identifier."
   (let ((bounds (bounds-of-thing-at-point 'word)))
 (and bounds
  (let ((id (buffer-substring-no-properties

[elpa] externals/denote a8f22eaac3 5/5: Make some minor spacing adjustments

[ELPA Syncer]

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

Make some minor spacing adjustments
---
 denote.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/denote.el b/denote.el
index 4807bf3dbd..b7c48219be 100644
--- a/denote.el
+++ b/denote.el
@@ -3195,7 +3195,7 @@ not be possible to enable a module locally.  In these 
cases, some
 parts of a module may be enabled globally even when local minor
 mode function `denote-modules-mode' is called.
 
-NOTES for future development to add new modules: 
+NOTES for future development to add new modules:
 
 It is important that FUNCTION must be defined and loaded before
 `denote-modules-enable' and `denote-moduel-disable' (the new
@@ -3206,10 +3206,12 @@ before these enable/disable functions)")
   "Value of `ffap-next-regexp' beofe ffap module was last enabled.
 It is used by `denote-module-ffap-disable' to undo the value
 the module previoulsy set.")
+
 (defvar denote-modules-last-enabled nil
   "Denote modules set last time.
 It is used by `denote-modules-enable' and
 `denote-moduules-disable' to undo the modules enabled last time.")
+
 ;; defvars to placate the compilers
 (defvar denote-modules)
 (defvar ffap-next-regexp)

[elpa] externals/denote 2f47d31b71 2/5: feat: denote-modules & new module for ffap integration

[ELPA Syncer]

branch: externals/denote
commit 2f47d31b71be23569dfadc178387275f779992c0
Author: Noboru Ota 
Commit: Protesilaos Stavrou 

feat: denote-modules & new module for ffap integration

As discussed in Mailing list:

https://lists.sr.ht/~protesilaos/denote/%3C86a64ooxyi.fsf%40nobiot.com%3E

A new module concept is now implemented together with global/minor mode.
Briefly, they work this way:

1. Set 'denote-modules' by selecting the modules you wish to use
2. Activate the minor mode globally or locally
3. This then disables the modules previously enabled, and enable the
   ones newly set -- if it is the first time after Emacs launch, it will
   just enable the modules.

The integration previously available with package and xref are now added
as separate modules.  A new one with ffap (find-file-at-point) is also
now added.

* denote.el

(denote-get-relative-path-by-id):
A new function to return relative filename by identifier.  Currently used
by the ffap module.

(ffap-next-regexp)(ffap-alist):
'defvar' to placate compilers

(denote-module-ffap-last-enabled)
(denote-module-ffap-disable)
(denote-module-ffap-enable):
Module for ffap, find-file-at-point, and a helper-var

(denote-modules-last-enabled)
(denote-modules-disable)
(denote-modules-enable):
Function pair to enable/disable modules and helper-var selected with
'denote-modules'

(denote-modules-mode):
local minor mode to enable/disable 'denote-modules'

(denote-modules-global-mode):
global minor to enable/disable 'denote-modules'

(denote-modules-set):
Setter function for 'denote-modules'

(denote-modules):
The modules selection to be enabled/disabled
---
 denote.el | 165 ++
 1 file changed, 165 insertions(+)

diff --git a/denote.el b/denote.el
index a24657101d..ca5ad2e8f0 100644
--- a/denote.el
+++ b/denote.el
@@ -709,6 +709,11 @@ whatever matches `denote-excluded-directories-regexp'."
   'denote-get-path-by-id
   "1.0.0")
 
+(defun denote-get-relative-path-by-id (id &optional directory)
+  "Return relative path of ID string in `denote-directory-files'.
+The path is relative to DIRECTORY (default: ‘default-directory’)."
+  (file-relative-name (denote-get-path-by-id id) directory))
+
 (defun denote-directory-files-matching-regexp (regexp)
   "Return list of files matching REGEXP in `denote-directory-files'."
   (seq-filter
@@ -3161,6 +3166,166 @@ Consult the manual for template samples."
 (make-obsolete 'denote-migrate-old-org-filetags nil "1.1.0")
 (make-obsolete 'denote-migrate-old-markdown-yaml-tags nil "1.1.0")
 
+;;; Denote extension "modules"
+
+(defvar denote-module-ffap-last-enabled nil)
+(defvar denote-modules-last-enabled nil)
+;; defvars to placate the compilers
+(defvar denote-modules)
+(defvar ffap-next-regexp)
+(defvar ffap-alist)
+
+(defun denote-module-ffap-disable (&optional local)
+  "Tear down `denote' integration with `ffap'.
+This function is meant to be set as a pair function with
+`denote-module-ffap-enable' in `denote-modules'.
+
+When LOCAL is non-nil, tear down only for the local buffer as
+much as possible.  Currently, `'ffap-alist' is only teared down
+globally."
+  (require 'ffap)
+  (setq ffap-alist (rassq-delete-all  #'denote-get-relative-path-by-id 
ffap-alist))
+  (if local
+  (when denote-module-ffap-last-enabled
+(setq-local ffap-next-regexp denote-module-ffap-last-enabled))
+;; Reset `ffap-next-regexp' only when there is last-active.  Nil
+;; means it is in the loading process of denote
+(when denote-module-ffap-last-enabled
+  (setq ffap-next-regexp denote-module-ffap-last-enabled
+
+(defun denote-module-ffap-enable (&optional local)
+  "Set up `denote' integration with `ffap'.
+This function is meant to be set as a pair function with
+`denote-module-ffap-disable' in `denote-modules'.
+
+When LOCAL is non-nil, set up only for the local buffer as much
+as possible.  Currently, `'ffap-alist' is only set globally."
+  (require 'ffap)
+  (if local (setq-local denote-module-ffap-last-active ffap-next-regexp)
+(setq denote-module-ffap-last-enabled ffap-next-regexp)
+(add-to-list 'ffap-alist (cons denote-id-regexp 
#'denote-get-relative-path-by-id)))
+  (if local
+  (setq-local ffap-next-regexp (concat ffap-next-regexp "\\|" 
denote-id-regexp))
+(setq ffap-next-regexp (concat ffap-next-regexp "\\|" denote-id-regexp
+
+(defun denote-modules-disable (modules &optional local)
+  "Disable MODULES.
+This function is meant to be used by `denote-modules-enable',
+which calls this function with `denote-modules-last-enable' as
+MODULES to undo the modules currently active.
+
+When LOCAL is non-nil, disable MODULES locally, where possible.
+
+Refer to the document string of `denote-modules-enable' for
+detail."
+  (dolist (pair modules

[elpa] externals/denote c2419d93f9 3/5: fix: correct ffap functions in 'denote-modules'

[ELPA Syncer]

branch: externals/denote
commit c2419d93f9f8c2bae710d8fec12c3284985b8241
Author: Noboru Ota 
Commit: Protesilaos Stavrou 

fix: correct ffap functions in 'denote-modules'
---
 denote.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/denote.el b/denote.el
index ca5ad2e8f0..fd7878b7c0 100644
--- a/denote.el
+++ b/denote.el
@@ -3324,8 +3324,8 @@ or set it in your configuration."
   (const xref-backend-functions)
   (function denote--xref-backend))
 (cons :tag "Integration with find-file-at-point `ffap'"
-  (function denote-module-ffap-setup)
-  (function denote-module-ffap-teardown
+  (function denote-module-ffap-enable)
+  (function denote-module-ffap-disable
 
  project.el integration
 ;;   This is also used by xref integration

[elpa] externals/denote updated (643794cb89 -> a8f22eaac3)

[ELPA Syncer]

elpasync pushed a change to branch externals/denote.

  from  643794cb89 Document :reverse parameter for Org dynamic blocks
   new  0c4185b30c docs: correct typo
   new  2f47d31b71 feat: denote-modules & new module for ffap integration
   new  c2419d93f9 fix: correct ffap functions in 'denote-modules'
   new  dc7486a0df refactor: denote-modules are now a list of module names
   new  a8f22eaac3 Make some minor spacing adjustments


Summary of changes:
 denote.el | 190 +-
 1 file changed, 189 insertions(+), 1 deletion(-)

[elpa] externals/vertico-posframe 61a88aec07: v0.5.5

[ELPA Syncer]

branch: externals/vertico-posframe
commit 61a88aec07669d0399bbc6699740975d0d5ff721
Author: Feng Shu 
Commit: Feng Shu 

v0.5.5
---
 vertico-posframe.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/vertico-posframe.el b/vertico-posframe.el
index dff6865583..49a0ec28b4 100644
--- a/vertico-posframe.el
+++ b/vertico-posframe.el
@@ -5,7 +5,7 @@
 ;; Author: Feng Shu 
 ;; Maintainer: Feng Shu 
 ;; URL: https://github.com/tumashu/vertico-posframe
-;; Version: 0.5.4
+;; Version: 0.5.5
 ;; Keywords: abbrev, convenience, matching, vertico
 ;; Package-Requires: ((emacs "26.0") (posframe "1.1.4") (vertico "0.13.0"))
 

[elpa] externals/cape 2c16c8aa62: README: Mention dabbrev-capf

[ELPA Syncer]

branch: externals/cape
commit 2c16c8aa62b46acc310d218911b3469dc1f183be
Author: Daniel Mendler 
Commit: Daniel Mendler 

README: Mention dabbrev-capf
---
 README.org | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/README.org b/README.org
index 8925b008f8..b5c796a99b 100644
--- a/README.org
+++ b/README.org
@@ -36,7 +36,8 @@ advantage of Company backends even if you are not using 
Company as frontend.
 
 * Available Capfs
 
-+ ~cape-dabbrev~: Complete word from current buffers
++ ~cape-dabbrev~: Complete word from current buffers (see also ~dabbrev-capf~ 
on
+  Emacs 29)
 + ~cape-file~: Complete file name
 + ~cape-history~: Complete from Eshell, Comint or minibuffer history
 + ~cape-keyword~: Complete programming language keyword

[elpa] externals/consult 24310db92e: Emacs 29: Support outline-search-function (Fix #684)

[ELPA Syncer]

branch: externals/consult
commit 24310db92e41f19827f9198a54ee718257ebeee1
Author: Daniel Mendler 
Commit: Daniel Mendler 

Emacs 29: Support outline-search-function (Fix #684)
---
 CHANGELOG.org | 3 ++-
 consult.el| 7 +--
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index 852aad49e1..5de0738ced 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -11,7 +11,8 @@
 - Remove obsolete =consult-line-point-placement=
 - =consult-grep/find=: Always show directory in the prompt
 - Add variable =consult-yank-rotate=, =consult-yank-from-kill-ring= rotates 
kill ring
-- =consult-register=: Support Emacs 29 =buffer= register type
+- Emacs 29: =consult-register= supports =buffer= register type
+- Emacs 29: Support =outline-search-function=
 
 * Version 0.20 (2022-10-16)
 
diff --git a/consult.el b/consult.el
index 513eae1207..0959f31de7 100644
--- a/consult.el
+++ b/consult.el
@@ -2833,10 +2833,13 @@ See `multi-occur' for the meaning of the arguments 
BUFS, REGEXP and NLINES."
   (- (match-end 0) (match-beginning 0))
  (inhibit-field-text-motion t)
  (buffer (current-buffer))
- (candidates))
+ candidates)
 (save-excursion
   (goto-char (point-min))
-  (while (save-excursion (re-search-forward heading-regexp nil t))
+  (while (save-excursion
+   (if-let (fun (bound-and-true-p outline-search-function))
+   (funcall fun)
+ (re-search-forward heading-regexp nil t)))
 (setq line (+ line (consult--count-lines (match-beginning 0
 (push (consult--location-candidate
(consult--buffer-substring (line-beginning-position)

[elpa] externals/denote 8fa2cc5e86: Tweak outline level for modules' section

[ELPA Syncer]

branch: externals/denote
commit 8fa2cc5e86dff0fcd11eddccb7afc2cd46ce9dec
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Tweak outline level for modules' section
---
 denote.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/denote.el b/denote.el
index b7c48219be..5cb7be478d 100644
--- a/denote.el
+++ b/denote.el
@@ -3166,7 +3166,7 @@ Consult the manual for template samples."
 (make-obsolete 'denote-migrate-old-org-filetags nil "1.1.0")
 (make-obsolete 'denote-migrate-old-markdown-yaml-tags nil "1.1.0")
 
-;;; Denote extension "modules"
+ Denote extension "modules"
 
 (defvar denote-modules-available
   '(project (project-find-functions . denote-project-find)