[nongnu] elpa/swift-mode 6d7093fb4a: Improve performance of beginning/end-of-defun

[ELPA Syncer]

branch: elpa/swift-mode
commit 6d7093fb4a0b81686ffeff7e39f76027d83b7eb2
Author: taku0 
Commit: taku0 

Improve performance of beginning/end-of-defun

Improve performance of `which-function':
https://github.com/swift-emacs/swift-mode/issues/180
---
 swift-mode-beginning-of-defun.el |  6 +++---
 swift-mode-indent.el | 20 +++-
 2 files changed, 22 insertions(+), 4 deletions(-)

diff --git a/swift-mode-beginning-of-defun.el b/swift-mode-beginning-of-defun.el
index 40a76a6845..079db0f7e7 100644
--- a/swift-mode-beginning-of-defun.el
+++ b/swift-mode-beginning-of-defun.el
@@ -151,7 +151,7 @@ The cursor must be at the beginning of a statement."
((member (swift-mode:token:text token) '("var" "let"))
 (when (swift-mode:class-like-member-p) token))
((equal (swift-mode:token:text token) "case")
-(swift-mode:backward-sexps-until '({))
+(swift-mode:backward-sexps-until-open-curly-brace)
 (swift-mode:beginning-of-statement)
 (let ((parent-token (swift-mode:find-defun-keyword-simple)))
   (when (equal (swift-mode:token:text parent-token) "enum")
@@ -201,7 +201,7 @@ The cursor must be at the beginning of a statement."
 Also return t if the cursor is on a global declaration.
 Return nil otherwise."
   (or
-   (let ((parent (swift-mode:backward-sexps-until '({
+   (let ((parent (swift-mode:backward-sexps-until-open-curly-brace)))
  (eq (swift-mode:token:type parent) 'outside-of-buffer))
(progn
  (swift-mode:beginning-of-statement)
@@ -1391,7 +1391,7 @@ of ancestors."
   (if (bobp)
   nil
 (let ((name-token (swift-mode:current-defun-name-token)))
-  (swift-mode:backward-sexps-until '({))
+  (swift-mode:backward-sexps-until-open-curly-brace)
   (if name-token
   (cons name-token (swift-mode:current-defun-name-token-list))
 (swift-mode:current-defun-name-token-list)
diff --git a/swift-mode-indent.el b/swift-mode-indent.el
index 96c8015114..fb81534442 100644
--- a/swift-mode-indent.el
+++ b/swift-mode-indent.el
@@ -653,7 +653,7 @@ Also used for regexes."
  ;; After "in" for anonymous function parameters
  ((eq previous-type 'anonymous-function-parameter-in)
   (goto-char (swift-mode:token:start previous-token))
-  (swift-mode:backward-sexps-until '({))
+  (swift-mode:backward-sexps-until-open-curly-brace)
   (swift-mode:calculate-indent-after-open-curly-brace
swift-mode:basic-offset))
 
@@ -1353,6 +1353,24 @@ is the symbol `any', it matches all tokens."
   (setq text (swift-mode:token:text parent)))
 parent))
 
+(defun swift-mode:backward-sexps-until-open-curly-brace ()
+  "Backward sexps until an open curly brace appears.
+Return the brace token.
+When this function returns, the cursor is at the start of the token.
+
+If there is no open curly braces, return `outside-of-buffer' token.
+
+This is optimized version of (swift-mode:backward-sexps-until '({}))."
+  (let* ((parent-position (nth 1 (syntax-ppss
+(while (and parent-position
+(and (goto-char parent-position)
+ (not (eq (char-after) ?{
+  (setq parent-position (nth 1 (syntax-ppss
+(if (eq (char-after) ?{)
+(save-excursion (swift-mode:forward-token))
+  (goto-char (point-min))
+  (swift-mode:backward-token
+
 (defun swift-mode:align-with-next-token (parent &optional offset)
   "Return indentation with the PARENT and OFFSET."
   (let ((parent-end (swift-mode:token:end parent)))

[nongnu] elpa/org-contrib 442e80dc95: lisp/ob-asymptote.el: Replace Luc P. by Jarmo H. as maintainer

[ELPA Syncer]

branch: elpa/org-contrib
commit 442e80dc9597617b1a29271d998792c371f3d42a
Author: Bastien Guerry 
Commit: Bastien Guerry 

lisp/ob-asymptote.el: Replace Luc P. by Jarmo H. as maintainer
---
 lisp/ob-asymptote.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/ob-asymptote.el b/lisp/ob-asymptote.el
index 6df51d0d6d..55811bd409 100644
--- a/lisp/ob-asymptote.el
+++ b/lisp/ob-asymptote.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2009-2021 Free Software Foundation, Inc.
 
 ;; Author: Eric Schulte
-;; Maintainer: Luc Pellissier 
+;; Maintainer: Jarmo Hurri 
 ;; Keywords: literate programming, reproducible research
 ;; Homepage: https://git.sr.ht/~bzg/org-contrib
 

[elpa] externals-release/org e43e92de12: mk/orgcard2txt.pl: Get version from org-version.tex

[ELPA Syncer]

branch: externals-release/org
commit e43e92de12f76d09ca858dcc4ccf2060f9c5d4cd
Author: Bastien 
Commit: Bastien 

mk/orgcard2txt.pl: Get version from org-version.tex

See https://list.orgmode.org/orgmode/20221018181338.74812f94@debian/

Reported-by: Norwid Behrnd 
Acked-by: Ihor Radchenko 
---
 mk/orgcard2txt.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mk/orgcard2txt.pl b/mk/orgcard2txt.pl
index 4f7c2f37f5..d8438649a9 100755
--- a/mk/orgcard2txt.pl
+++ b/mk/orgcard2txt.pl
@@ -45,7 +45,7 @@ sub rep_esc{
 my $page=0;
 my $orgversionnumber;
 
-open(IN,$ARGV[0]);
+open(IN,"org-version.tex");
 while(){
   last if(/\f/);
   $orgversionnumber = $1 if /\\def\\orgversionnumber{([^}]+)}/;

[elpa] externals/org ab3d49c8b0 1/2: Merge branch 'bugfix'

[ELPA Syncer]

branch: externals/org
commit ab3d49c8b0913126a35d4d5024dd21fd8021e1f2
Merge: 0b124d7968 e43e92de12
Author: Bastien 
Commit: Bastien 

Merge branch 'bugfix'
---
 mk/orgcard2txt.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mk/orgcard2txt.pl b/mk/orgcard2txt.pl
index 4f7c2f37f5..d8438649a9 100755
--- a/mk/orgcard2txt.pl
+++ b/mk/orgcard2txt.pl
@@ -45,7 +45,7 @@ sub rep_esc{
 my $page=0;
 my $orgversionnumber;
 
-open(IN,$ARGV[0]);
+open(IN,"org-version.tex");
 while(){
   last if(/\f/);
   $orgversionnumber = $1 if /\\def\\orgversionnumber{([^}]+)}/;

[elpa] externals/org updated (0b124d7968 -> 0737112852)

[ELPA Syncer]

elpasync pushed a change to branch externals/org.

  from  0b124d7968 doc/org-manual.org: Clarify that :results none can be 
used as reference
   new  e43e92de12 mk/orgcard2txt.pl: Get version from org-version.tex
   new  ab3d49c8b0 Merge branch 'bugfix'
   new  0737112852 mk/orgcard2txt.pl: Escape { to remove deprecation 
warnings


Summary of changes:
 mk/orgcard2txt.pl | 22 +++---
 1 file changed, 11 insertions(+), 11 deletions(-)

[elpa] externals/org 0737112852 2/2: mk/orgcard2txt.pl: Escape { to remove deprecation warnings

[ELPA Syncer]

branch: externals/org
commit 0737112852afe835a5a5833a2dd0a6852c04e0f0
Author: Bastien 
Commit: Bastien 

mk/orgcard2txt.pl: Escape { to remove deprecation warnings
---
 mk/orgcard2txt.pl | 20 ++--
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/mk/orgcard2txt.pl b/mk/orgcard2txt.pl
index d8438649a9..c753a81dc9 100755
--- a/mk/orgcard2txt.pl
+++ b/mk/orgcard2txt.pl
@@ -24,13 +24,13 @@ use warnings;
 
 sub rep_esc{
   my $s = shift @_;
-  $s =~ s/\\kbd{([^}]+)}/$1/g;
+  $s =~ s/\\kbd\{([^}]+)\}/$1/g;
   $s =~ s/\$\^([0-9])\$/[$1]/g;
   $s =~ s/\\rm //g;
   $s =~ s/\\\///g;
-  $s =~ s/\\\^{}/^/g;
+  $s =~ s/\\\^\{\}/^/g;
   $s =~ s/\\}/}/g;
-  $s =~ s/\\{/{/g;
+  $s =~ s/\\\{/{/g;
   $s =~ s/\\\#/#/g;
   $s =~ s/\\\^/^/g;
   $s =~ s/\\\%/%/g;
@@ -39,7 +39,7 @@ sub rep_esc{
   $s =~ s/\\\$/\$/g;
   $s =~ s/\$\\leftrightarrow\$/<->/g;
   $s =~ s/\$\\pm 1\$/±1/g;
-  $s =~ s/``{\\tt ([^}]+)}''/`$1'/g;
+  $s =~ s/``\{\\tt ([^}]+)}''/`$1'/g;
   return $s;
 }
 my $page=0;
@@ -48,7 +48,7 @@ my $orgversionnumber;
 open(IN,"org-version.tex");
 while(){
   last if(/\f/);
-  $orgversionnumber = $1 if /\\def\\orgversionnumber{([^}]+)}/;
+  $orgversionnumber = $1 if /\\def\\orgversionnumber\{([^}]+)}/;
 }
 close(IN);
 
@@ -75,17 +75,17 @@ while(){
   next if($page != 1);
   next if(/^%/);
   next if /Org Mode Reference Card \([12]\/2\)/;
-  next if /\\centerline{\(for version \\orgversionnumber\)}/;
+  next if /\\centerline\{\(for version \\orgversionnumber\)}/;
   next if /\(for version  \)/;
   next if /\\newcolumn/;
   next if /\\copyrightnotice/;
   next if /\\bye/;
-  next if /\\title{([^}]+)}/;
+  next if /\\title\{([^}]+)}/;
   chomp;
 #  print "b:$_\n";
   s/([^\\])\%.+$/$1/;
 #  print "a:$_\n";
-  if (/\\section{(.+)}/){
+  if (/\\section\{(.+)}/){
 my $sec = rep_esc($1);
 print 
"\n";
 print "$sec\n";
@@ -106,8 +106,8 @@ while(){
 print 
"\n";
 next;
   }
-  if(/^\\key{(.+)}\s*$/||/^\\metax{(.+)}\s*$/){
-my ($k,$v) = split(/}{/,$1);
+  if(/^\\key\{(.+)}\s*$/||/^\\metax\{(.+)}\s*$/){
+my ($k,$v) = split(/}\{/,$1);
 my $k2 = &rep_esc($k);
 my $v2 = &rep_esc($v);
 #print "$k2\t$v2\n";

[elpa] externals/corfu 6c83691507 2/3: corfu-popupinfo: Minor position computation cleanup

[ELPA Syncer]

branch: externals/corfu
commit 6c836915075866acaa97b31de53438b9a576f01d
Author: Daniel Mendler 
Commit: Daniel Mendler 

corfu-popupinfo: Minor position computation cleanup
---
 extensions/corfu-popupinfo.el | 38 ++
 1 file changed, 18 insertions(+), 20 deletions(-)

diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index ecb7843bd2..c5e6c883dc 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -221,10 +221,9 @@ relative to the candidate popup, its value can be 'right 
or 'left."
(x-on-left (- cfx space border width border))
(w-remaining-left (- cfx space 1 border border)))
 (cond
- ((> w-remaining-right width)
+ ((>= w-remaining-right width)
   (list x-on-right cfy width height 'right))
- ((and (< w-remaining-right width)
-   (> w-remaining-left width))
+ ((>= 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))
@@ -239,35 +238,34 @@ 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 vertical position direction of the info popup
 relative to the candidate popup, its value can be 'bottom or 'top."
-  (pcase-let* ((a-y 0) (a-height height) (a-direction 'bottom)
-   (border (alist-get 'child-frame-border-width 
corfu--frame-parameters))
+  (pcase-let* ((border (alist-get 'child-frame-border-width 
corfu--frame-parameters))
(space (- border))
(lh (default-line-height))
(`(,_pfx ,_pfy ,pfw ,pfh)
 (corfu-popupinfo--frame-geometry (frame-parent corfu--frame)))
(`(,cfx ,cfy ,_cfw ,cfh) (corfu-popupinfo--frame-geometry 
corfu--frame))
-   (cf-on-cursor-bottom-p
+   (cf-on-cursor-bottom
 (>= cfy
 (+ (cadr (window-inside-pixel-edges))
(window-tab-line-height)
(or (cdr (posn-x-y (posn-at-point (point 0)
lh)))
-   (y-on-top (max 0 (- cfy space border height border)))
-   (h-remaining-top (- cfy border border))
+   ;; (y-on-top (max 0 (- cfy space border height border)))
(y-on-bottom (+ cfy cfh space))
+   (h-remaining-top (- cfy border border))
(h-remaining-bottom (- pfh y-on-bottom border border))
-   (a-width (min width (- pfw cfx border border
-;; TODO cleanup, get rid of a-* variables
-(if cf-on-cursor-bottom-p
-(setq a-y y-on-bottom
-  a-height (min h-remaining-bottom height))
-  (setq a-y y-on-top
-a-height (min h-remaining-top height)
-a-direction 'top))
-(setq a-height (min a-height (* (floor (/ a-height lh)) lh)))
-(unless cf-on-cursor-bottom-p
-  (setq a-y (max 0 (- cfy space border a-height border
-(list cfx a-y a-width a-height a-direction)))
+   (w-avail (min width (- pfw cfx border border
+;; TODO cleanup
+(if cf-on-cursor-bottom
+(progn
+  (setq height (min h-remaining-bottom height)
+height (min height (* (floor (/ height lh)) lh)))
+  (list cfx y-on-bottom w-avail height 'bottom))
+  (setq height (min h-remaining-top height)
+height (min height (* (floor (/ height lh)) lh)))
+  (list cfx
+(max 0 (- cfy space border height border))
+w-avail height 'top
 
 (defun corfu-popupinfo--display-area (dir width height)
   "Calculate the display area for the info popup.

[elpa] externals/corfu updated (536b68b733 -> c560320f43)

[ELPA Syncer]

elpasync pushed a change to branch externals/corfu.

  from  536b68b733 corfu-popupinfo: Minor cleanup
   new  1ec081ef09 corfu-popupinfo-scroll-up: Redirect to 
scroll-other-window if popup is not visible
   new  6c83691507 corfu-popupinfo: Minor position computation cleanup
   new  c560320f43 corfu-popupinfo: Minor cleanup


Summary of changes:
 extensions/corfu-popupinfo.el | 56 ---
 1 file changed, 26 insertions(+), 30 deletions(-)

[elpa] externals/corfu 1ec081ef09 1/3: corfu-popupinfo-scroll-up: Redirect to scroll-other-window if popup is not visible

[ELPA Syncer]

branch: externals/corfu
commit 1ec081ef092292bed12eedfef4f271ec30aa6be4
Author: Daniel Mendler 
Commit: Daniel Mendler 

corfu-popupinfo-scroll-up: Redirect to scroll-other-window if popup is not 
visible
---
 extensions/corfu-popupinfo.el | 9 +
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index e5845b6608..ecb7843bd2 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -351,10 +351,11 @@ the candidate popup, its value is 'bottom, 'top, 'right 
or 'left."
 If ARG is omitted or nil, scroll upward by a near full screen.
 See `scroll-up' for details."
   (interactive "p")
-  (when (corfu-popupinfo--visible-p)
-(with-selected-frame corfu-popupinfo--frame
-  (with-current-buffer " *corfu-popupinfo*"
-(scroll-up n)
+  (if (corfu-popupinfo--visible-p)
+  (with-selected-frame corfu-popupinfo--frame
+(with-current-buffer " *corfu-popupinfo*"
+  (scroll-up n)))
+(scroll-other-window n)))
 
 (defun corfu-popupinfo-scroll-down (&optional n)
   "Scroll text of info popup window down N lines.

[elpa] externals/corfu c560320f43 3/3: corfu-popupinfo: Minor cleanup

[ELPA Syncer]

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

corfu-popupinfo: Minor cleanup
---
 extensions/corfu-popupinfo.el | 15 ++-
 1 file changed, 6 insertions(+), 9 deletions(-)

diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index c5e6c883dc..9c6b118308 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -211,15 +211,13 @@ 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))
-   ;; space between candidates popup and info popup
-   (space (- border))  ;; share the border
(`(,_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 space))
+   (x-on-right (+ cfx cfw (- border)))
+   (x-on-left (- cfx width border))
(w-remaining-right (- pfw 1 x-on-right border border))
-   (x-on-left (- cfx space border width border))
-   (w-remaining-left (- cfx space 1 border border)))
+   (w-remaining-left (- cfx 1 border)))
 (cond
  ((>= w-remaining-right width)
   (list x-on-right cfy width height 'right))
@@ -239,7 +237,6 @@ The calculated area is in the form (X Y WIDTH HEIGHT DIR).
 DIR indicates the vertical position direction of the info popup
 relative to the candidate popup, its value can be 'bottom or 'top."
   (pcase-let* ((border (alist-get 'child-frame-border-width 
corfu--frame-parameters))
-   (space (- border))
(lh (default-line-height))
(`(,_pfx ,_pfy ,pfw ,pfh)
 (corfu-popupinfo--frame-geometry (frame-parent corfu--frame)))
@@ -250,8 +247,8 @@ relative to the candidate popup, its value can be 'bottom 
or 'top."
(window-tab-line-height)
(or (cdr (posn-x-y (posn-at-point (point 0)
lh)))
-   ;; (y-on-top (max 0 (- cfy space border height border)))
-   (y-on-bottom (+ cfy cfh space))
+   ;; (y-on-top (max 0 (- cfy height border)))
+   (y-on-bottom (+ cfy cfh (- border)))
(h-remaining-top (- cfy border border))
(h-remaining-bottom (- pfh y-on-bottom border border))
(w-avail (min width (- pfw cfx border border
@@ -264,7 +261,7 @@ relative to the candidate popup, its value can be 'bottom 
or 'top."
   (setq height (min h-remaining-top height)
 height (min height (* (floor (/ height lh)) lh)))
   (list cfx
-(max 0 (- cfy space border height border))
+(max 0 (- cfy height border))
 w-avail height 'top
 
 (defun corfu-popupinfo--display-area (dir width height)

[nongnu] elpa/git-commit 0c78be0687 2/2: make: Fix previous commit

[ELPA Syncer]

branch: elpa/git-commit
commit 0c78be0687a3c754c141d6a967357896f9e4b434
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

make: Fix previous commit
---
 docs/Makefile | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/docs/Makefile b/docs/Makefile
index 00dbb9cb93..811b78b438 100644
--- a/docs/Makefile
+++ b/docs/Makefile
@@ -44,7 +44,7 @@ html-dir: $(TEXIFILES)
sed -i -e $(HTML_FIXUP_CSS) -e $(HTML_FIXUP_ONLOAD) -e 
$(HTML_FIXUP_MENU) $$f ; \
done
@printf "Generating magit-section/*.html\n"
-   @$(MAKEINFO) --html -o $(PKG)/ $(MANUAL_HTML_ARGS) magit-section.texi
+   @$(MAKEINFO) --html -o $(PKG)-section/ $(MANUAL_HTML_ARGS) 
magit-section.texi
@for f in $$(find magit-section -name '*.html') ; do \
sed -i -e $(HTML_FIXUP_CSS) -e $(HTML_FIXUP_ONLOAD) -e 
$(HTML_FIXUP_MENU) $$f ; \
done

[nongnu] elpa/git-commit updated (05b0d99d71 -> 0c78be0687)

[ELPA Syncer]

elpasync pushed a change to branch elpa/git-commit.

  from  05b0d99d71 Consider Git's exec path when searching for extensions
   new  b6cfd01f37 make: Explicitly specify output directory for makeinfo 
--html
   new  0c78be0687 make: Fix previous commit


Summary of changes:
 docs/Makefile | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

[nongnu] elpa/git-commit b6cfd01f37 1/2: make: Explicitly specify output directory for makeinfo --html

[ELPA Syncer]

branch: elpa/git-commit
commit b6cfd01f3733091528230a3d9eddb0df87a34231
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

make: Explicitly specify output directory for makeinfo --html

The default output directory differs between makeinfo versions.
---
 docs/Makefile | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/docs/Makefile b/docs/Makefile
index eecc665c5d..00dbb9cb93 100644
--- a/docs/Makefile
+++ b/docs/Makefile
@@ -39,12 +39,12 @@ HTML_FIXUP_MENU   = '/<\/body>/i<\/div>'
 
 html-dir: $(TEXIFILES)
@printf "Generating magit/*.html\n"
-   @$(MAKEINFO) --html $(MANUAL_HTML_ARGS) magit.texi
+   @$(MAKEINFO) --html -o $(PKG)/ $(MANUAL_HTML_ARGS) magit.texi
@for f in $$(find magit -name '*.html') ; do \
sed -i -e $(HTML_FIXUP_CSS) -e $(HTML_FIXUP_ONLOAD) -e 
$(HTML_FIXUP_MENU) $$f ; \
done
@printf "Generating magit-section/*.html\n"
-   @$(MAKEINFO) --html $(MANUAL_HTML_ARGS) magit-section.texi
+   @$(MAKEINFO) --html -o $(PKG)/ $(MANUAL_HTML_ARGS) magit-section.texi
@for f in $$(find magit-section -name '*.html') ; do \
sed -i -e $(HTML_FIXUP_CSS) -e $(HTML_FIXUP_ONLOAD) -e 
$(HTML_FIXUP_MENU) $$f ; \
done

[nongnu] elpa/magit updated (05b0d99d71 -> 0c78be0687)

[ELPA Syncer]

elpasync pushed a change to branch elpa/magit.

  from  05b0d99d71 Consider Git's exec path when searching for extensions
  adds  b6cfd01f37 make: Explicitly specify output directory for makeinfo 
--html
  adds  0c78be0687 make: Fix previous commit

No new revisions were added by this update.

Summary of changes:
 docs/Makefile | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

[nongnu] elpa/magit-section updated (05b0d99d71 -> 0c78be0687)

[ELPA Syncer]

elpasync pushed a change to branch elpa/magit-section.

  from  05b0d99d71 Consider Git's exec path when searching for extensions
  adds  b6cfd01f37 make: Explicitly specify output directory for makeinfo 
--html
  adds  0c78be0687 make: Fix previous commit

No new revisions were added by this update.

Summary of changes:
 docs/Makefile | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

[nongnu] elpa/with-editor 8066a6e9a9: make: Explicitly specify output directory for makeinfo --html

[ELPA Syncer]

branch: elpa/with-editor
commit 8066a6e9a9e2e3d8810e4b6e23506c54f2842722
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

make: Explicitly specify output directory for makeinfo --html

The default output directory differs between makeinfo versions.
---
 docs/Makefile | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/docs/Makefile b/docs/Makefile
index 1e2385bc2a..a70c87a47a 100644
--- a/docs/Makefile
+++ b/docs/Makefile
@@ -44,7 +44,7 @@ HTML_FIXUP_MENU   = '/<\/body>/i<\/div>'
 
 html-dir: $(PKG).texi
@printf "Generating $(PKG)/*.html\n"
-   @$(MAKEINFO) --html $(MANUAL_HTML_ARGS) $<
+   @$(MAKEINFO) --html -o $(PKG)/ $(MANUAL_HTML_ARGS) $<
@for f in $$(find $(PKG) -name '*.html') ; do \
sed -i -e $(HTML_FIXUP_CSS) -e $(HTML_FIXUP_ONLOAD) -e 
$(HTML_FIXUP_MENU) $$f ; \
done

[elpa] externals/transient 804c27f1f5 1/2: Deal with commands that use the minibuffer outside of interactive

[Jonas Bernoulli]

branch: externals/transient
commit 804c27f1f585c05a777c288fbcfa1c16a3c0cd45
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Deal with commands that use the minibuffer outside of interactive

During the second coming of `post-command-hook', `this-command'
usually is the command that uses the minibuffer; but when the
minibuffer is used in the command's body, then instead it is the
command that exits the minibuffer.  Rely on additional circumstantial
evidence to recognize this situation as well.
---
 lisp/transient.el | 17 +++--
 1 file changed, 11 insertions(+), 6 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 1fbb1afc61..23b6039d54 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -2199,7 +2199,7 @@ value.  Otherwise return CHILDREN as is."
 (delayed (if transient--exitp
  (apply-partially #'transient--post-exit this-command)
#'transient--resume-override))
-post-command abort-minibuffer)
+outside-interactive post-command abort-minibuffer)
 (unless abort-only
   (setq post-command
 (lambda () "@transient--delay-post-command"
@@ -2211,7 +2211,9 @@ value.  Otherwise return CHILDREN as is."
   (equal
(ignore-errors
  (string-to-multibyte (this-command-keys)))
-   (format "\M-x%s\r" this-command))
+   (format "\M-x%s\r" this-command))
+  ;; Minibuffer used outside `interactive'.
+  (and outside-interactive 'post-cmd)
 (transient--debug 'post-command-hook "act: %s" act)
 (when act
   (remove-hook 'transient--post-command-hook post-command)
@@ -2220,12 +,15 @@ value.  Otherwise return CHILDREN as is."
   (add-hook 'transient--post-command-hook post-command))
 (setq abort-minibuffer
   (lambda () "@transient--delay-post-command"
-(let ((act (and (or (memq this-command transient--abort-commands)
-(equal (this-command-keys) ""))
-(= (minibuffer-depth) depth
+(let ((act (and (= (minibuffer-depth) depth)
+(or (memq this-command transient--abort-commands)
+(equal (this-command-keys) "")
+(prog1 nil
+  (setq outside-interactive t))
   (transient--debug
'abort-minibuffer
-   "mini: %s|%s, act %s" (minibuffer-depth) depth act)
+   "mini: %s|%s, act: %s" (minibuffer-depth) depth
+   (or act (and outside-interactive '->post-cmd)))
   (when act
 (remove-hook 'transient--post-command-hook post-command)
 (remove-hook 'minibuffer-exit-hook abort-minibuffer)

[elpa] externals/transient updated (ad953cc3c5 -> 8f434c57fb)

[Jonas Bernoulli]

tarsius pushed a change to branch externals/transient.

  from  ad953cc3c5 transient--insert-group: Add fallback for failed 
alignment calculation
   new  804c27f1f5 Deal with commands that use the minibuffer outside of 
interactive
   new  8f434c57fb make: Explicitly specify output directory for makeinfo 
--html


Summary of changes:
 docs/Makefile |  2 +-
 lisp/transient.el | 17 +++--
 2 files changed, 12 insertions(+), 7 deletions(-)

[elpa] externals/transient 8f434c57fb 2/2: make: Explicitly specify output directory for makeinfo --html

[Jonas Bernoulli]

branch: externals/transient
commit 8f434c57fb2684be782e66dde2e16a9a957641a4
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

make: Explicitly specify output directory for makeinfo --html

The default output directory differs between makeinfo versions.
---
 docs/Makefile | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/docs/Makefile b/docs/Makefile
index 1e2385bc2a..a70c87a47a 100644
--- a/docs/Makefile
+++ b/docs/Makefile
@@ -44,7 +44,7 @@ HTML_FIXUP_MENU   = '/<\/body>/i<\/div>'
 
 html-dir: $(PKG).texi
@printf "Generating $(PKG)/*.html\n"
-   @$(MAKEINFO) --html $(MANUAL_HTML_ARGS) $<
+   @$(MAKEINFO) --html -o $(PKG)/ $(MANUAL_HTML_ARGS) $<
@for f in $$(find $(PKG) -name '*.html') ; do \
sed -i -e $(HTML_FIXUP_CSS) -e $(HTML_FIXUP_ONLOAD) -e 
$(HTML_FIXUP_MENU) $$f ; \
done

[elpa] externals/transient 79d1426de1: transient-prompt(lisp-variable): Fallback to generic prompt

[Jonas Bernoulli]

branch: externals/transient
commit 79d1426de173312bd6a3091731675bb010d804ec
Author: Psionik K <73710933+psioni...@users.noreply.github.com>
Commit: Jonas Bernoulli 

transient-prompt(lisp-variable): Fallback to generic prompt

Teach `transient-prompt' to fall back to a generic prompt for
`transient-lisp-variable'.  If a prompt is explicitly provided, then
continue to use that.

(The method for `transient-infix', which is currently being used for
all other types, already falls back to a generic prompt in most cases,
but may in some cases use a prompt that warns that a prompt should be
given explicitly.)

Signed-off-by: Psionik K <73710933+psioni...@users.noreply.github.com>
---
 lisp/transient.el | 5 -
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 23b6039d54..ab51e6c37a 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -4124,7 +4124,10 @@ we stop there."
   'face 'transient-value))
 
 (cl-defmethod transient-prompt ((obj transient-lisp-variable))
-  (format "Set %s: " (oref obj variable)))
+  (if (and (slot-boundp obj 'prompt)
+   (oref obj prompt))
+  (cl-call-next-method obj)
+(format "Set %s: " (oref obj variable
 
 (defun transient-lisp-variable--reader (prompt initial-input _history)
   (read--expression prompt initial-input))

[elpa] externals/corfu c93f88cb36 4/4: Generalize corfu-popupinfo-delay

[ELPA Syncer]

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

Generalize corfu-popupinfo-delay
---
 extensions/corfu-popupinfo.el | 46 +++
 1 file changed, 20 insertions(+), 26 deletions(-)

diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index b5a7b50448..4ebbb57148 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -32,8 +32,10 @@
 ;;
 ;; Display an info popup for completion candidate when using Corfu. The
 ;; `corfu-popupinfo-mode' must be enabled globally. Set
-;; `corfu-popupinfo-auto' to nil if the info popup should not appear
-;; automatically.
+;; `corfu-popupinfo-delay' to nil if the info popup should not update
+;; automatically. If the popup should not appear initially, but update
+;; automatically afterwards, use `(setq corfu-popupinfo-delay (cons nil
+;; 1.0))'.
 
 ;; For manual toggling the commands `corfu-popupinfo-toggle',
 ;; `corfu-popupinfo-location' and `corfu-popupinfo-documentation' are
@@ -50,28 +52,23 @@
   "Face used for the info popup."
   :group 'corfu-faces)
 
-(defcustom corfu-popupinfo-auto t
-  "Show info popup automatically.
-
-If set to nil, the popup can be requested manually via
-`corfu-popupinfo-toggle', `corfu-popupinfo-documentation' and
-`corfu-popupinfo-location'."
-  :type 'boolean
-  :group 'corfu)
-
 (defcustom corfu-popupinfo-delay '(1.0 . 0.5)
   "Automatically update info popup after that number of seconds.
 
 Set to t for an instant update. The value can be a pair of two
-floats to specify initial and subsequent delay. If
-`corfu-popupinfo-auto' is non-nil, the popup will automatically
-appear for the preselected candidate."
+floats to specify initial and subsequent delay. If the value is
+non-nil or the car of the pair is non-nil, the popup will
+automatically appear for the preselected candidate. Otherwise the
+popup can be requested manually via `corfu-popupinfo-toggle',
+`corfu-popupinfo-documentation' and `corfu-popupinfo-location'."
   :type '(choice (const :tag "Never" nil)
  (const :tag "Instant" t)
  (number :tag "Delay in seconds")
  (cons :tag "Two Delays"
-   (choice :tag "Initial   " number)
-   (choice :tag "Subsequent" number)))
+   (choice :tag "Initial   "
+   (choice (const nil) number))
+   (choice :tag "Subsequent"
+   (choice (const nil) number
   :group 'corfu)
 
 (defcustom corfu-popupinfo-hide t
@@ -114,7 +111,7 @@ appear for the preselected candidate."
 (fringe-indicator-alist (continuation)))
   "Buffer parameters.")
 
-(defvar-local corfu-popupinfo--toggle 'unset
+(defvar-local corfu-popupinfo--toggle t
   "Local toggle state.")
 
 (defvar-local corfu-popupinfo--function
@@ -412,18 +409,15 @@ not be displayed until this command is called again, even 
if
   (add-to-list 'minor-mode-overriding-map-alist
`(,#'corfu-popupinfo-mode . ,corfu-popupinfo-map))
   (if (and (>= corfu--index 0) (corfu-popupinfo--visible-p corfu--frame))
-  (when (and corfu-popupinfo-delay
- (if (eq corfu-popupinfo--toggle 'unset)
- (setq corfu-popupinfo--toggle corfu-popupinfo-auto)
-   corfu-popupinfo--toggle))
+  (when-let* ((delay (if (consp corfu-popupinfo-delay)
+ (funcall (if (corfu-popupinfo--visible-p) #'cdr 
#'car)
+  corfu-popupinfo-delay)
+   corfu-popupinfo-delay))
+  (corfu-popupinfo--toggle))
 (when corfu-popupinfo--timer
   (cancel-timer corfu-popupinfo--timer)
   (setq corfu-popupinfo--timer nil))
-(let ((candidate (nth corfu--index corfu--candidates))
-  (delay (if (consp corfu-popupinfo-delay)
- (funcall (if (corfu-popupinfo--visible-p) #'cdr #'car)
-  corfu-popupinfo-delay)
-   corfu-popupinfo-delay)))
+(let ((candidate (nth corfu--index corfu--candidates)))
   (if (or (eq delay t) (<= delay 0)
   (equal candidate corfu-popupinfo--candidate))
   (corfu-popupinfo--show candidate)

[elpa] externals/corfu updated (c560320f43 -> c93f88cb36)

[ELPA Syncer]

elpasync pushed a change to branch externals/corfu.

  from  c560320f43 corfu-popupinfo: Minor cleanup
   new  9105f7b974 Version 0.29
   new  437e0ed806 corfu-popupinfo: Fix auto popup for first candidate
   new  9ebb72373f Introduce variable corfu-popupinfo-auto
   new  c93f88cb36 Generalize corfu-popupinfo-delay


Summary of changes:
 CHANGELOG.org |  2 +-
 corfu.el  |  2 +-
 extensions/corfu-echo.el  |  2 +-
 extensions/corfu-history.el   |  2 +-
 extensions/corfu-indexed.el   |  2 +-
 extensions/corfu-info.el  |  2 +-
 extensions/corfu-popupinfo.el | 77 ++-
 extensions/corfu-quick.el |  2 +-
 8 files changed, 53 insertions(+), 38 deletions(-)

[elpa] externals/corfu 9105f7b974 1/4: Version 0.29

[ELPA Syncer]

branch: externals/corfu
commit 9105f7b9743a99ca0c48cb94ba55bf3bc09bc8b9
Author: Daniel Mendler 
Commit: Daniel Mendler 

Version 0.29

This version includes the new extension `corfu-popupinfo', which was 
originally
called `corfu-doc' and distributed separately. Furthermore the extension
`corfu-echo' has been extracted from the core Corfu package. You may want to
enable `corfu-echo-mode'.
---
 CHANGELOG.org | 2 +-
 corfu.el  | 2 +-
 extensions/corfu-echo.el  | 2 +-
 extensions/corfu-history.el   | 2 +-
 extensions/corfu-indexed.el   | 2 +-
 extensions/corfu-info.el  | 2 +-
 extensions/corfu-popupinfo.el | 2 +-
 extensions/corfu-quick.el | 2 +-
 8 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index 445c3cd4be..300814839b 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -2,7 +2,7 @@
 #+author: Daniel Mendler
 #+language: en
 
-* Development
+* Version 0.29 (2022-11-19)
 
 - BREAKING: Extract the =corfu-echo= extension from =corfu.el=. In order to 
see echo
   messages, enable =corfu-echo-mode=. You probably want to enable either
diff --git a/corfu.el b/corfu.el
index bd1a047632..67d9d01474 100644
--- a/corfu.el
+++ b/corfu.el
@@ -5,7 +5,7 @@
 ;; Author: Daniel Mendler 
 ;; Maintainer: Daniel Mendler 
 ;; Created: 2021
-;; Version: 0.28
+;; Version: 0.29
 ;; Package-Requires: ((emacs "27.1"))
 ;; Homepage: https://github.com/minad/corfu
 
diff --git a/extensions/corfu-echo.el b/extensions/corfu-echo.el
index f01f1bb438..61137121cb 100644
--- a/extensions/corfu-echo.el
+++ b/extensions/corfu-echo.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Daniel Mendler 
 ;; Created: 2022
 ;; Version: 0.1
-;; Package-Requires: ((emacs "27.1") (corfu "0.28"))
+;; Package-Requires: ((emacs "27.1") (corfu "0.29"))
 ;; Homepage: https://github.com/minad/corfu
 
 ;; This file is part of GNU Emacs.
diff --git a/extensions/corfu-history.el b/extensions/corfu-history.el
index 41e09b6c47..2ddcd3b4fc 100644
--- a/extensions/corfu-history.el
+++ b/extensions/corfu-history.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Daniel Mendler 
 ;; Created: 2022
 ;; Version: 0.1
-;; Package-Requires: ((emacs "27.1") (corfu "0.28"))
+;; Package-Requires: ((emacs "27.1") (corfu "0.29"))
 ;; Homepage: https://github.com/minad/corfu
 
 ;; This file is part of GNU Emacs.
diff --git a/extensions/corfu-indexed.el b/extensions/corfu-indexed.el
index a50773eb07..39470fabaa 100644
--- a/extensions/corfu-indexed.el
+++ b/extensions/corfu-indexed.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Daniel Mendler 
 ;; Created: 2022
 ;; Version: 0.1
-;; Package-Requires: ((emacs "27.1") (corfu "0.28"))
+;; Package-Requires: ((emacs "27.1") (corfu "0.29"))
 ;; Homepage: https://github.com/minad/corfu
 
 ;; This file is part of GNU Emacs.
diff --git a/extensions/corfu-info.el b/extensions/corfu-info.el
index fe34494a99..dfe9d58a97 100644
--- a/extensions/corfu-info.el
+++ b/extensions/corfu-info.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Daniel Mendler 
 ;; Created: 2022
 ;; Version: 0.1
-;; Package-Requires: ((emacs "27.1") (corfu "0.28"))
+;; Package-Requires: ((emacs "27.1") (corfu "0.29"))
 ;; Homepage: https://github.com/minad/corfu
 
 ;; This file is part of GNU Emacs.
diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index 9c6b118308..6629ed8f36 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Daniel Mendler 
 ;; Created: 2022
 ;; Version: 0.1
-;; Package-Requires: ((emacs "27.1") (corfu "0.28"))
+;; Package-Requires: ((emacs "27.1") (corfu "0.29"))
 ;; Homepage: https://github.com/minad/corfu
 
 ;; This file is part of GNU Emacs.
diff --git a/extensions/corfu-quick.el b/extensions/corfu-quick.el
index 32695753c0..be4db39204 100644
--- a/extensions/corfu-quick.el
+++ b/extensions/corfu-quick.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Daniel Mendler 
 ;; Created: 2022
 ;; Version: 0.1
-;; Package-Requires: ((emacs "27.1") (corfu "0.28"))
+;; Package-Requires: ((emacs "27.1") (corfu "0.29"))
 ;; Homepage: https://github.com/minad/corfu
 
 ;; This file is part of GNU Emacs.

[elpa] externals/denote 9fb0ecba41 2/2: Document use of Denote with Org dynamic blocks

[ELPA Syncer]

branch: externals/denote
commit 9fb0ecba4183d4f8ff2643800d3d313078e1fc48
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Document use of Denote with Org dynamic blocks

Thanks to Elias Storms for authoring the denote-org-dblock.el.  Read
the discussion on the mailing list:

.
---
 README.org | 94 ++
 1 file changed, 94 insertions(+)

diff --git a/README.org b/README.org
index 9a6501b4d7..6aa38ce8bd 100644
--- a/README.org
+++ b/README.org
@@ -1649,6 +1649,100 @@ multimedia in a systematic way (and, perhaps, use them 
as attachments
 for the notes Denote produces if you are writing Org notes and are using
 its standand attachments' facility).
 
+* Use Org dynamic blocks
+:PROPERTIES:
+:CUSTOM_ID: h:8b542c50-dcc9-4bca-8037-a36599b22779
+:END:
+
+[ Part of {{{development-version}}}. ]
+
+Denote can optionally integrate with Org mode's "dynamic blocks"
+facility.  Start by loading the relevant library:
+
+#+begin_src emacs-lisp
+;; Register Denote's Org dynamic blocks
+(require 'denote-org-dblock)
+#+end_src
+
+A dynamic block gets its contents by evaluating a given function.  The
+function and its parameters are stated in the opening =#+BEGIN= line
+of the block.  Typing =C-c C-c= with point on that line runs the
+function, with the given arguments, and populates the block's contents
+accordingly.
+
+Denote leverages Org dynamic blocks to streamline the inclusion of (i)
+links that match a given search query and (ii) backlinks to the
+current note.
+
+The two blocks that Denote registers are named =denote-links= and
+=denote-backlinks=.  The latter does not accept any parameters, while
+the former does, which we explain below by also demonstrating how
+dynamic blocks are written.
+
+A dynamic block looks like this:
+
+: #+BEGIN: denote-links :regexp "_journal"
+: 
+: #+END:
+
+Here we have the =denote-links= type, with the =:regexp= parameter.
+The value of the =:regexp= parameter iss the same as that of the
+command ~denote-link-add-links~ 
([[#h:9bec2c83-36ca-4951-aefc-7187c5463f90][Insert links matching a regexp]]).  
The
+linked entry provides practical examples of patterns that make good
+use of Denote's file-naming scheme 
([[#h:4e9c7512-84dc-4dfb-9fa9-e15d51178e5d][The file-naming scheme]]).
+
+In this example, we instruct Org to produce a list of all notes that
+include the =journal= keyword in their file name (keywords in file
+names are prefixed with the underscore).  So the following:
+
+: #+BEGIN: denote-links :regexp "_journal"
+: 
+: #+END:
+
+Becomes something like this once we type =C-c C-c= with point on the
+=#+BEGIN= line (Org makes the links look prettier by default):
+
+: #+BEGIN: denote-links :regexp "_journal"
+: - [[denote:20220616T182958][Feeling butterflies in your stomach]]
+: - [[denote:20220818T221036][Between friend and stranger]]
+: #+END:
+
+The dynamic block takes care to keep the list in order and to add any
+missing links.
+
+Depending on one's workflow, an additional dynamic block can be
+included in the file to list only those links which are missing from
+the original dynamic block (e.g. due to new notes being added over
+time).  Adding the =:missing-only= parameter with a non-~nil~ value
+achieves this effect.  The =#+BEGIN= line looks like this:
+
+: #+BEGIN: denote-links :regexp "_journal" :missing-only t
+
+The =denote-links= block can also accept a =:block-name= parameter
+with a string value that names the block.  Once the dynamic block is
+evaluated, a =#+NAME= is prepended to the block's contents.  This can
+be referenced in other source blocks to parse the named block's
+contents as input of another process.  The details are beyond the
+scope of Denote.
+
+As for the =denote-backlinks= dynamic block type, it simply produces a
+list of notes that link to the current file.  It accepts no parameters
+and looks like this:
+
+: #+BEGIN: denote-backlinks
+: 
+: #+END:
+
+The Org manual describes the technicalities of Dynamic Blocks.
+Evaluate:
+
+#+begin_src emacs-lisp
+(info "(org) Dynamic Blocks")
+#+end_src
+
+Dynamic blocks are particularly useful for metanote entries that
+reflect on the status of earlier notes 
([[#h:6060a7e6-f179-4d42-a9de-a9968aaebecc][Writing metanotes]]).
+
 * Minibuffer histories
 :PROPERTIES:
 :CUSTOM_ID: h:82dc1203-d689-44b2-9a6c-b37776209651

[elpa] externals/denote dbf02bed94 1/2: denote-org-dblock: fix typo

[ELPA Syncer]

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

denote-org-dblock: fix typo
---
 denote-org-dblock.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/denote-org-dblock.el b/denote-org-dblock.el
index 5b62241a02..ce1026ab65 100644
--- a/denote-org-dblock.el
+++ b/denote-org-dblock.el
@@ -77,7 +77,7 @@
 ;; notes.
 ;;
 ;; With ':block-name "string"' include a '#+NAME: string' line in the
-;; Dynamic block. This allows use of the Dynomic block output as input
+;; Dynamic block. This allows use of the Dynamic block output as input
 ;; for further computation, e.g. in Org source blocks.
 
 ;;;###autoload

[elpa] externals/denote updated (d46aee3bf6 -> 9fb0ecba41)

[ELPA Syncer]

elpasync pushed a change to branch externals/denote.

  from  d46aee3bf6 Placate the compiler for unused argument
   new  dbf02bed94 denote-org-dblock: fix typo
   new  9fb0ecba41 Document use of Denote with Org dynamic blocks


Summary of changes:
 README.org   | 94 
 denote-org-dblock.el |  2 +-
 2 files changed, 95 insertions(+), 1 deletion(-)

[elpa] externals/corfu 437e0ed806 2/4: corfu-popupinfo: Fix auto popup for first candidate

[ELPA Syncer]

branch: externals/corfu
commit 437e0ed806a71309c8155a7ef19bc1287f474087
Author: Daniel Mendler 
Commit: Daniel Mendler 

corfu-popupinfo: Fix auto popup for first candidate
---
 extensions/corfu-popupinfo.el | 15 ++-
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index 6629ed8f36..bb2da249c3 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -363,9 +363,10 @@ If ARG is omitted or nil, scroll down by a near full 
screen."
   "Set popup documentation getter FUN."
   (setq corfu-popupinfo--function fun
 corfu-popupinfo--candidate nil
-corfu-popupinfo--toggle t)
+corfu-popupinfo--toggle nil)
   (when-let (candidate (and (>= corfu--index 0)
 (nth corfu--index corfu--candidates)))
+(setq corfu-popupinfo--toggle t)
 (corfu-popupinfo--show candidate)))
 
 (defun corfu-popupinfo-documentation ()
@@ -385,9 +386,11 @@ When using this command to manually hide the info popup, 
it will
 not be displayed until this command is called again, even if
 `corfu-popupinfo-delay' is non-nil."
   (interactive)
+  (setq corfu-popupinfo--toggle nil)
   (if-let ((candidate (and (>= corfu--index 0)
   (nth corfu--index corfu--candidates)))
-   ((setq corfu-popupinfo--toggle (not (corfu-popupinfo--visible-p)
+   ((not (corfu-popupinfo--visible-p
+  (setq corfu-popupinfo--toggle t)
   (corfu-popupinfo--show candidate)
 (corfu-popupinfo--hide)))
 
@@ -408,9 +411,11 @@ not be displayed until this command is called again, even 
if
   (if (or (eq delay t) (<= delay 0)
   (equal candidate corfu-popupinfo--candidate))
   (corfu-popupinfo--show candidate)
-(if corfu-popupinfo-hide
-(corfu-popupinfo--hide)
-  (corfu-popupinfo--show corfu-popupinfo--candidate))
+(cond
+ (corfu-popupinfo-hide
+  (corfu-popupinfo--hide))
+ (corfu-popupinfo--candidate
+  (corfu-popupinfo--show corfu-popupinfo--candidate)))
 (setq corfu-popupinfo--auto-timer
   (run-at-time delay nil #'corfu-popupinfo--show candidate)
 (corfu-popupinfo--hide)))

[elpa] externals/corfu 9ebb72373f 3/4: Introduce variable corfu-popupinfo-auto

[ELPA Syncer]

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

Introduce variable corfu-popupinfo-auto
---
 extensions/corfu-popupinfo.el | 56 +++
 1 file changed, 36 insertions(+), 20 deletions(-)

diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index bb2da249c3..b5a7b50448 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -30,10 +30,10 @@
 ;; experimental. The extension may get renamed and the public interface
 ;; may change any time.
 ;;
-;; Display a documentation popup for completion candidate when using
-;; Corfu. The `corfu-popupinfo-mode' must be enabled globally. Set
-;; `corfu-popupinfo-delay' to nil if the documentation popup should not
-;; appear automatically.
+;; Display an info popup for completion candidate when using Corfu. The
+;; `corfu-popupinfo-mode' must be enabled globally. Set
+;; `corfu-popupinfo-auto' to nil if the info popup should not appear
+;; automatically.
 
 ;; For manual toggling the commands `corfu-popupinfo-toggle',
 ;; `corfu-popupinfo-location' and `corfu-popupinfo-documentation' are
@@ -50,10 +50,22 @@
   "Face used for the info popup."
   :group 'corfu-faces)
 
+(defcustom corfu-popupinfo-auto t
+  "Show info popup automatically.
+
+If set to nil, the popup can be requested manually via
+`corfu-popupinfo-toggle', `corfu-popupinfo-documentation' and
+`corfu-popupinfo-location'."
+  :type 'boolean
+  :group 'corfu)
+
 (defcustom corfu-popupinfo-delay '(1.0 . 0.5)
-  "Show documentation popup after that number of seconds.
-Set to t for an instant message. The value can be a pair of two
-floats to specify initial and subsequent delay."
+  "Automatically update info popup after that number of seconds.
+
+Set to t for an instant update. The value can be a pair of two
+floats to specify initial and subsequent delay. If
+`corfu-popupinfo-auto' is non-nil, the popup will automatically
+appear for the preselected candidate."
   :type '(choice (const :tag "Never" nil)
  (const :tag "Instant" t)
  (number :tag "Delay in seconds")
@@ -102,8 +114,8 @@ floats to specify initial and subsequent delay."
 (fringe-indicator-alist (continuation)))
   "Buffer parameters.")
 
-(defvar-local corfu-popupinfo--toggle t
-  "Local popupinfo toggle state.")
+(defvar-local corfu-popupinfo--toggle 'unset
+  "Local toggle state.")
 
 (defvar-local corfu-popupinfo--function
   #'corfu-popupinfo--get-documentation
@@ -112,7 +124,7 @@ floats to specify initial and subsequent delay."
 (defvar corfu-popupinfo--frame nil
   "Info popup child frame.")
 
-(defvar corfu-popupinfo--auto-timer nil
+(defvar corfu-popupinfo--timer nil
   "Corfu info popup auto display timer.")
 
 (defvar-local corfu-popupinfo--candidate nil
@@ -301,9 +313,9 @@ the candidate popup, its value is 'bottom, 'top, 'right or 
'left."
 
 (defun corfu-popupinfo--show (candidate)
   "Show the info popup for CANDIDATE."
-  (when corfu-popupinfo--auto-timer
-(cancel-timer corfu-popupinfo--auto-timer)
-(setq corfu-popupinfo--auto-timer nil))
+  (when corfu-popupinfo--timer
+(cancel-timer corfu-popupinfo--timer)
+(setq corfu-popupinfo--timer nil))
   (when (and (corfu--popup-support-p) (corfu-popupinfo--visible-p 
corfu--frame))
 (let* ((doc-changed
 (not (and (corfu-popupinfo--visible-p)
@@ -390,8 +402,9 @@ not be displayed until this command is called again, even if
   (if-let ((candidate (and (>= corfu--index 0)
   (nth corfu--index corfu--candidates)))
((not (corfu-popupinfo--visible-p
-  (setq corfu-popupinfo--toggle t)
-  (corfu-popupinfo--show candidate)
+  (progn
+(setq corfu-popupinfo--toggle t)
+(corfu-popupinfo--show candidate))
 (corfu-popupinfo--hide)))
 
 (defun corfu-popupinfo--exhibit (&rest _)
@@ -399,10 +412,13 @@ not be displayed until this command is called again, even 
if
   (add-to-list 'minor-mode-overriding-map-alist
`(,#'corfu-popupinfo-mode . ,corfu-popupinfo-map))
   (if (and (>= corfu--index 0) (corfu-popupinfo--visible-p corfu--frame))
-  (when (and corfu-popupinfo-delay corfu-popupinfo--toggle)
-(when corfu-popupinfo--auto-timer
-  (cancel-timer corfu-popupinfo--auto-timer)
-  (setq corfu-popupinfo--auto-timer nil))
+  (when (and corfu-popupinfo-delay
+ (if (eq corfu-popupinfo--toggle 'unset)
+ (setq corfu-popupinfo--toggle corfu-popupinfo-auto)
+   corfu-popupinfo--toggle))
+(when corfu-popupinfo--timer
+  (cancel-timer corfu-popupinfo--timer)
+  (setq corfu-popupinfo--timer nil))
 (let ((candidate (nth corfu--index corfu--candidates))
   (delay (if (consp corfu-popupinfo-delay)
  (funcall (if (corfu-popupinfo--visible-p) #'cdr #'car)
@@ -416,7 +432,7

[elpa] externals/org-remark e958e3f068: add org-remark-open-hook #40

[ELPA Syncer]

branch: externals/org-remark
commit e958e3f06819f643edc66cd7ac442044e95c3671
Author: Noboru Ota 
Commit: Noboru Ota 

add org-remark-open-hook #40
---
 org-remark.el | 8 +++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/org-remark.el b/org-remark.el
index a970ca165e..a50ce1c866 100644
--- a/org-remark.el
+++ b/org-remark.el
@@ -6,7 +6,7 @@
 ;; URL: https://github.com/nobiot/org-remark
 ;; Version: 1.0.5
 ;; Created: 22 December 2020
-;; Last modified: 18 July 2022
+;; Last modified: 23 August 2022
 ;; Package-Requires: ((emacs "27.1") (org "9.4"))
 ;; Keywords: org-mode, annotation, writing, note-taking, marginal-notes
 
@@ -109,6 +109,10 @@ Org-remark does not create this ID, which needs to be added
 manually or some other function to either the headline or file."
   :type 'boolean)
 
+(defcustom  org-remark-open-hook nil
+  "Hook run when a note buffer is opened/visited.
+The current buffer is the note buffer."
+  :type 'hook)
 
 
  Variables
@@ -429,6 +433,8 @@ notes file by tracking it."
   ;; previous highlight.  Otherwise, the cursor is too low to show the
   ;; entire entry.  It looks like there is no entry.
   (goto-char p)(org-narrow-to-subtree)(org-end-of-meta-data t)(recenter))
+;; Run hook with the current-buffer being the note's buffer
+(run-hooks 'org-remark-open-hook)
 ;; Avoid error when buffer-action is set to display a new frame
 (when-let ((view-only view-only)
(window (get-buffer-window cbuf)))

[elpa] externals/corfu 4c6779a41c: corfu-popupinfo: Update commentary

[ELPA Syncer]

branch: externals/corfu
commit 4c6779a41c7c8eded947a1d25e25dafeaa8cf576
Author: Daniel Mendler 
Commit: Daniel Mendler 

corfu-popupinfo: Update commentary
---
 extensions/corfu-popupinfo.el | 13 +++--
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index 4ebbb57148..b4729530ad 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -30,12 +30,13 @@
 ;; experimental. The extension may get renamed and the public interface
 ;; may change any time.
 ;;
-;; Display an info popup for completion candidate when using Corfu. The
-;; `corfu-popupinfo-mode' must be enabled globally. Set
-;; `corfu-popupinfo-delay' to nil if the info popup should not update
-;; automatically. If the popup should not appear initially, but update
-;; automatically afterwards, use `(setq corfu-popupinfo-delay (cons nil
-;; 1.0))'.
+;; Display an information popup for completion candidate when using
+;; Corfu. The popup displays either the candidate documentation or the
+;; candidate location. The `corfu-popupinfo-mode' must be enabled
+;; globally. Set `corfu-popupinfo-delay' to nil if the info popup should
+;; not update automatically. If the popup should not appear initially,
+;; but update automatically afterwards, use `(setq corfu-popupinfo-delay
+;; (cons nil 1.0))'.
 
 ;; For manual toggling the commands `corfu-popupinfo-toggle',
 ;; `corfu-popupinfo-location' and `corfu-popupinfo-documentation' are

[nongnu] elpa/sweeprolog 0cdc987f7e 2/5: Remove imported duplicates in sweep_predicates_collection/2

[ELPA Syncer]

branch: elpa/sweeprolog
commit 0cdc987f7ef7e775f64f363d6a77574c97745a85
Author: Eshel Yaron 
Commit: Eshel Yaron 

Remove imported duplicates in sweep_predicates_collection/2
---
 sweep.pl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/sweep.pl b/sweep.pl
index 7d1032efaf..646cfbc4fe 100644
--- a/sweep.pl
+++ b/sweep.pl
@@ -399,6 +399,7 @@ sweep_predicates_collection(Sub, Preds) :-
   ->  true
   ;   M = user
   ),
+  \+ (predicate_property(M:H, imported_from(M1)), M \= M1),
   pi_head(F/N, H)
 ),
 Tail1,

[nongnu] elpa/sweeprolog c4efb5ea19 4/5: * (sweeprolog-at-beginning-of-top-term-p): handle comments

[ELPA Syncer]

branch: elpa/sweeprolog
commit c4efb5ea1980d11207382b1722abb28c4e8edbd2
Author: Eshel Yaron 
Commit: Eshel Yaron 

* (sweeprolog-at-beginning-of-top-term-p): handle comments
---
 sweeprolog.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/sweeprolog.el b/sweeprolog.el
index f98e947417..b514c5be74 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -2629,7 +2629,8 @@ of them signal success by returning non-nil."
 
 (defun sweeprolog-at-beginning-of-top-term-p ()
   (and (looking-at-p (rx bol graph))
-   (not (nth 8 (syntax-ppss)
+   (not (nth 8 (syntax-ppss)))
+   (not (looking-at-p (rx bol (or "%" "/*"))
 
 (defun sweeprolog-analyze-term-at-point (cb)
   (add-hook 'sweeprolog-analyze-region-fragment-hook cb nil t)

[nongnu] elpa/sweeprolog 0f1ad2e1f5 3/5: * sweeprolog.el (sweeprolog-identifier-at-point): check major-mode

[ELPA Syncer]

branch: elpa/sweeprolog
commit 0f1ad2e1f55725f31324108320dae16e69fba34b
Author: Eshel Yaron 
Commit: Eshel Yaron 

* sweeprolog.el (sweeprolog-identifier-at-point): check major-mode
---
 sweeprolog.el | 31 ---
 1 file changed, 16 insertions(+), 15 deletions(-)

diff --git a/sweeprolog.el b/sweeprolog.el
index 36523e56c6..f98e947417 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -862,21 +862,22 @@ module name, F is a functor name and N is its arity."
 (user-error "Unable to locate predicate %s" mfn)))
 
 (defun sweeprolog-identifier-at-point (&optional point)
-  (setq point (or point (point)))
-  (save-excursion
-(goto-char point)
-(let ((id-at-point nil))
-  (sweeprolog-analyze-term-at-point
-   (lambda (beg end arg)
- (when (<= beg point end)
-   (pcase arg
- ((or `("head_term" ,_ ,f ,a)
-  `("goal_term" ,_ ,f ,a)
-  `("head" ,_ ,f ,a)
-  `("goal" ,_ ,f ,a))
-  (setq id-at-point (list f a)))
-  (sweeprolog--query-once "sweep" "sweep_functor_arity_pi"
-  id-at-point
+  (when (derived-mode-p 'sweeprolog-mode 'sweeprolog-top-level-mode)
+(setq point (or point (point)))
+(save-excursion
+  (goto-char point)
+  (let ((id-at-point nil))
+(sweeprolog-analyze-term-at-point
+ (lambda (beg end arg)
+   (when (<= beg point end)
+ (pcase arg
+   ((or `("head_term" ,_ ,f ,a)
+`("goal_term" ,_ ,f ,a)
+`("head" ,_ ,f ,a)
+`("goal" ,_ ,f ,a))
+(setq id-at-point (list f a)))
+(sweeprolog--query-once "sweep" "sweep_functor_arity_pi"
+id-at-point)
 
 
  Modules

[nongnu] elpa/sweeprolog 2d1a7bbb39 1/5: Use define-auto-insert instead of manual add-to-list

[ELPA Syncer]

branch: elpa/sweeprolog
commit 2d1a7bbb393278704f73e721a6d8b93b7cc8
Author: Eshel Yaron 
Commit: Eshel Yaron 

Use define-auto-insert instead of manual add-to-list
---
 sweeprolog.el | 44 ++--
 1 file changed, 26 insertions(+), 18 deletions(-)

diff --git a/sweeprolog.el b/sweeprolog.el
index 56f7277bbd..36523e56c6 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -3348,24 +3348,32 @@ certain contexts to maintain conventional Prolog 
layout."
   #'sweeprolog-analyze-fragment-variable nil t)
 (cursor-sensor-mode 1)))
 
-(add-to-list 'auto-insert-alist
- '((sweeprolog-mode . "SWI-Prolog module header")
-   (or (and (buffer-file-name)
-(file-name-sans-extension (file-name-base 
(buffer-file-name
-   (read-string "Module name: "))
-   "/*"
-   "\nAuthor:"
-   (progn user-full-name)
-   "\nEmail: "
-   (progn user-mail-address)
-   (progn sweeprolog-module-header-comment-skeleton)
-   "\n*/"
-   "\n\n:- module("
-   str
-   ", [])."
-   "\n\n/**  "
-   -
-   "\n\n*/\n\n"))
+
+ Auto-insert Prolog module header
+
+(defconst sweeprolog-module-header-skeleton
+  '((or (and (buffer-file-name)
+ (file-name-sans-extension
+  (file-name-base (buffer-file-name
+(read-string "Module name: "))
+"/*"
+"\nAuthor:"
+(progn user-full-name)
+"\nEmail: "
+(progn user-mail-address)
+(progn sweeprolog-module-header-comment-skeleton)
+"\n*/"
+"\n\n:- module("
+str
+", [])."
+"\n\n/**  "
+-
+"\n\n*/\n\n")
+  "Prolog module header skeleton inserted by \\[auto-insert].")
+
+(define-auto-insert
+  '(sweeprolog-mode . "SWI-Prolog module header")
+  sweeprolog-module-header-skeleton)
 
 
  Indentation

[nongnu] elpa/sweeprolog updated (f4ca9b1404 -> 8133821499)

[ELPA Syncer]

elpasync pushed a change to branch elpa/sweeprolog.

  from  f4ca9b1404 ENHANCED: allow sweeprolog-forward-hole to wrap around
   new  2d1a7bbb39 Use define-auto-insert instead of manual add-to-list
   new  0cdc987f7e Remove imported duplicates in 
sweep_predicates_collection/2
   new  0f1ad2e1f5 * sweeprolog.el (sweeprolog-identifier-at-point): check 
major-mode
   new  c4efb5ea19 * (sweeprolog-at-beginning-of-top-term-p): handle 
comments
   new  8133821499 FIXED: exporting predicates in presence of exported 
operators


Summary of changes:
 sweep.pl|  14 +++-
 sweeprolog-tests.el |  70 -
 sweeprolog.el   | 215 +---
 3 files changed, 200 insertions(+), 99 deletions(-)

[nongnu] elpa/sweeprolog 8133821499 5/5: FIXED: exporting predicates in presence of exported operators

[ELPA Syncer]

branch: elpa/sweeprolog
commit 81338214994998e125b09abf8dbbae05dad53761
Author: Eshel Yaron 
Commit: Eshel Yaron 

FIXED: exporting predicates in presence of exported operators

* sweep.pl (sweep_exportable_predicates/2): new predicate.
* sweeprolog.el (sweeprolog--module-term)
(sweeprolog--exportable-predicates)
(sweeprolog-analyze-start-exportable)
(sweeprolog-analyze-fragment-exportable): no longer used, deleted.
(sweeprolog-exportable-predicates): new function.
(sweeprolog-read-exportable-predicate): use it.
(sweeprolog-export-predicate): handle exported operators.
---
 sweep.pl|  13 -
 sweeprolog-tests.el |  70 ++-
 sweeprolog.el   | 137 
 3 files changed, 155 insertions(+), 65 deletions(-)

diff --git a/sweep.pl b/sweep.pl
index 646cfbc4fe..ec1be7af96 100644
--- a/sweep.pl
+++ b/sweep.pl
@@ -65,7 +65,8 @@
 sweep_beginning_of_last_predicate/2,
 sweep_atom_collection/2,
 sweep_context_callable/2,
-sweep_predicate_completion_candidates/2
+sweep_predicate_completion_candidates/2,
+sweep_exportable_predicates/2
   ]).
 
 :- use_module(library(pldoc)).
@@ -813,3 +814,13 @@ callable_arg(N) :- integer(N), !.
 callable_arg(^) :- !.
 callable_arg(//) :- !.
 callable_arg(:) :- !.
+
+sweep_exportable_predicates(Path0, Preds) :-
+atom_string(Path, Path0),
+findall(D,
+(   xref_defined(Path, D0, _),
+\+ xref_exported(Path, D0),
+pi_head(D1, D0),
+term_string(D1, D)
+),
+Preds).
diff --git a/sweeprolog-tests.el b/sweeprolog-tests.el
index 5decdae002..9bc0ad8286 100644
--- a/sweeprolog-tests.el
+++ b/sweeprolog-tests.el
@@ -217,7 +217,7 @@ bar(Bar) :- baz(Bar).
   "
 :- module(sweeprolog_test_export_predicate, []).
 
-%!  foo(+Bar) is det
+%!  foo(+Bar) is det.
 
 foo(Bar) :- bar(Bar).
 ")))
@@ -231,11 +231,77 @@ foo(Bar) :- bar(Bar).
 :- module(sweeprolog_test_export_predicate, [foo/1  % +Bar
 ]).
 
-%!  foo(+Bar) is det
+%!  foo(+Bar) is det.
 
 foo(Bar) :- bar(Bar).
 "
 
+(ert-deftest export-predicate-with-op ()
+  "Test exporting a predicate in presence of an exported operator."
+  (let ((temp (make-temp-file "sweeprolog-test"
+  nil
+  ".pl"
+  "
+:- module(tester,
+  [ instantiate_test_template/4,  % +In,+Replacement,-Dict,-Map
+op(200, fy, @)   % @name
+  ]).
+
+%!  foo(+Bar) is det.
+
+foo(Bar).
+")))
+(find-file-literally temp)
+(sweeprolog-mode)
+(goto-char (point-max))
+(backward-word)
+(call-interactively #'sweeprolog-export-predicate)
+(should (equal (buffer-string)
+  "
+:- module(tester,
+  [ instantiate_test_template/4, % +In,+Replacement,-Dict,-Map
+foo/1,   % +Bar
+op(200, fy, @)  % @name
+  ]).
+
+%!  foo(+Bar) is det.
+
+foo(Bar).
+"
+  
+
+(ert-deftest export-predicate-with-only-op ()
+  "Test exporting a predicate in presence of only exported operators."
+  (let ((temp (make-temp-file "sweeprolog-test"
+  nil
+  ".pl"
+  "
+:- module(tester,
+  [ op(200, fy, @)   % @name
+  ]).
+
+%!  foo(+Bar) is det.
+
+foo(Bar).
+")))
+(find-file-literally temp)
+(sweeprolog-mode)
+(goto-char (point-max))
+(backward-word)
+(call-interactively #'sweeprolog-export-predicate)
+(should (equal (buffer-string)
+  "
+:- module(tester,
+  [ foo/1, % +Bar
+op(200, fy, @) % @name
+  ]).
+
+%!  foo(+Bar) is det.
+
+foo(Bar).
+"
+  
+
 (ert-deftest identifier-at-point ()
   "Test recognizing predicate invocations."
   (let ((temp (make-temp-file "sweeprolog-test"
diff --git a/sweeprolog.el b/sweeprolog.el
index b514c5be74..74af0879cd 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -438,8 +438,6 @@ buffer where the new predicate defintion should be 
inserted."
 
  Local variables
 
-(defvar-local sweeprolog--module-term nil)
-
 (defvar-local sweeprolog--diagnostics nil)
 
 (defvar-local sweeprolog--diagnostics-report-fn nil)
@@ -448,8 +446,6 @@ buffer where the new predicate defintion should be 
inserted."
 
 (defvar-local sweeprolog--diagnostics-changes-end nil)
 
-(defvar-local sweeprolog--exportable-predicates nil)
-
 (defvar-local sweeprolog--timer nil)
 
 (defvar-local sweeprolog--analyze-buffer-duration 0.2)
@@ -2009,21 +2005,6 @@ resulting list even when found in the current clause."
  :region (cons beg end))
 (setq sweeprolog--diagnostics-report-fn nil)))
 
-(

[elpa] externals/corfu 0203139e53 1/3: corfu-popupinfo: Improve toggles

[ELPA Syncer]

branch: externals/corfu
commit 0203139e5341c7203b88e8aa9b51c1ab0e1186d1
Author: Daniel Mendler 
Commit: Daniel Mendler 

corfu-popupinfo: Improve toggles
---
 extensions/corfu-info.el  |  2 +-
 extensions/corfu-popupinfo.el | 54 ---
 2 files changed, 31 insertions(+), 25 deletions(-)

diff --git a/extensions/corfu-info.el b/extensions/corfu-info.el
index dfe9d58a97..c9bf1b96a3 100644
--- a/extensions/corfu-info.el
+++ b/extensions/corfu-info.el
@@ -87,7 +87,7 @@
   (goto-char (point-min))
   (forward-line (1- (cdr loc
 (set-window-start nil (point)
-(user-error "No candidate location available")))
+(user-error "Location is unknown")))
 
 ;; Emacs 28: Do not show Corfu commands with M-X
 (put #'corfu-info-location 'completion-predicate #'ignore)
diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index b4729530ad..77beac627d 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -112,7 +112,7 @@ popup can be requested manually via 
`corfu-popupinfo-toggle',
 (fringe-indicator-alist (continuation)))
   "Buffer parameters.")
 
-(defvar-local corfu-popupinfo--toggle t
+(defvar-local corfu-popupinfo--toggle 'init
   "Local toggle state.")
 
 (defvar-local corfu-popupinfo--function
@@ -154,7 +154,8 @@ all values are in pixels relative to the origin. See
   "Get source at location of CANDIDATE."
   (save-excursion
 (when-let* ((fun (plist-get corfu--extra :company-location))
-(loc (funcall fun candidate))
+;; BUG: company-location may throw errors if location is not 
found
+(loc (ignore-errors (funcall fun candidate)))
 (res (or (and (bufferp (car loc)) (car loc))
  (find-file-noselect (car loc) t
   (with-current-buffer res
@@ -327,8 +328,14 @@ the candidate popup, its value is 'bottom, 'top, 'right or 
'left."
 (set (make-local-variable (car var)) (cdr var)))
   (setf face-remapping-alist (copy-tree face-remapping-alist)
 (alist-get 'default face-remapping-alist) 
'corfu-popupinfo))
+  (unless (eq corfu-popupinfo--toggle 'init)
+(message
+ ;; TODO support custom functions, don't hard code the error!
+ (if (eq corfu-popupinfo--function 
#'corfu-popupinfo--get-documentation)
+ "No documentation available"
+   "Location is unknown")))
   (corfu-popupinfo--hide)
-  (setq doc-changed nil coords-changed nil)))
+  (setq doc-changed nil coords-changed nil corfu-popupinfo--toggle 
nil)))
   (when (or doc-changed coords-changed)
 (pcase-let* ((border (alist-get 'child-frame-border-width 
corfu--frame-parameters))
  (`(,area-x ,area-y ,area-w ,area-h ,area-d)
@@ -369,25 +376,31 @@ If ARG is omitted or nil, scroll down by a near full 
screen."
   (interactive "p")
   (corfu-popupinfo-scroll-up (- (or n 1
 
-(defun corfu-popupinfo--set-function (fun)
-  "Set popup documentation getter FUN."
-  (setq corfu-popupinfo--function fun
-corfu-popupinfo--candidate nil
-corfu-popupinfo--toggle nil)
-  (when-let (candidate (and (>= corfu--index 0)
-(nth corfu--index corfu--candidates)))
-(setq corfu-popupinfo--toggle t)
-(corfu-popupinfo--show candidate)))
+(defun corfu-popupinfo--toggle (fun)
+  "Set documentation getter FUN and toggle popup."
+  (when (< corfu--index 0)
+(corfu-popupinfo--hide)
+(user-error "No candidate selected"))
+  (setq corfu-popupinfo--toggle
+(not (and (corfu-popupinfo--visible-p)
+  (eq corfu-popupinfo--function fun
+  (if (not corfu-popupinfo--toggle)
+  (corfu-popupinfo--hide)
+(setq corfu-popupinfo--function fun
+  corfu-popupinfo--candidate nil)
+(corfu-popupinfo--show (nth corfu--index corfu--candidates
 
 (defun corfu-popupinfo-documentation ()
-  "Show documentation in popup."
+  "Show or hide documentation in popup.
+Behaves like `corfu-popupinfo-toggle'."
   (interactive)
-  (corfu-popupinfo--set-function #'corfu-popupinfo--get-documentation))
+  (corfu-popupinfo--toggle #'corfu-popupinfo--get-documentation))
 
 (defun corfu-popupinfo-location ()
-  "Show location in popup."
+  "Show or hide location in popup.
+Behaves like `corfu-popupinfo-toggle'."
   (interactive)
-  (corfu-popupinfo--set-function #'corfu-popupinfo--get-location))
+  (corfu-popupinfo--toggle #'corfu-popupinfo--get-location))
 
 (defun corfu-popupinfo-toggle ()
   "Toggle the info popup display or hide.
@@ -396,14 +409,7 @@ When using this command to manually hide the info popup, 
it will
 not be displayed until this command is called again, even if
 `corfu-popupinfo-delay' is non-nil."
   (interactive)
-  (setq corfu-popupinfo--toggle nil)
-  (if-let ((candidate (and (>= corfu--index 0)
- 

[elpa] externals/corfu 8696cf979f 3/3: corfu-popupinfo: Add missing car

[ELPA Syncer]

branch: externals/corfu
commit 8696cf979f2578f856d7ca5580bf97d608f0431a
Author: Daniel Mendler 
Commit: Daniel Mendler 

corfu-popupinfo: Add missing car
---
 extensions/corfu-popupinfo.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index 657574cc36..ab97ae3855 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -330,7 +330,7 @@ the candidate popup, its value is 'bottom, 'top, 'right or 
'left."
 (alist-get 'default face-remapping-alist) 
'corfu-popupinfo))
   (unless (eq corfu-popupinfo--toggle 'init)
 (message "No %s available"
- (last (split-string (symbol-name 
corfu-popupinfo--function) "-+"
+ (car (last (split-string (symbol-name 
corfu-popupinfo--function) "-+")
   (corfu-popupinfo--hide)
   (setq doc-changed nil coords-changed nil corfu-popupinfo--toggle 
nil)))
   (when (or doc-changed coords-changed)

[elpa] externals/corfu updated (4c6779a41c -> 8696cf979f)

[ELPA Syncer]

elpasync pushed a change to branch externals/corfu.

  from  4c6779a41c corfu-popupinfo: Update commentary
   new  0203139e53 corfu-popupinfo: Improve toggles
   new  b9bc65d967 corfu-popupinfo: Fix todo
   new  8696cf979f corfu-popupinfo: Add missing car


Summary of changes:
 extensions/corfu-info.el  |  2 +-
 extensions/corfu-popupinfo.el | 51 +++
 2 files changed, 28 insertions(+), 25 deletions(-)

[elpa] externals/corfu b9bc65d967 2/3: corfu-popupinfo: Fix todo

[ELPA Syncer]

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

corfu-popupinfo: Fix todo
---
 extensions/corfu-info.el  | 2 +-
 extensions/corfu-popupinfo.el | 7 ++-
 2 files changed, 3 insertions(+), 6 deletions(-)

diff --git a/extensions/corfu-info.el b/extensions/corfu-info.el
index c9bf1b96a3..615e5d6a3d 100644
--- a/extensions/corfu-info.el
+++ b/extensions/corfu-info.el
@@ -87,7 +87,7 @@
   (goto-char (point-min))
   (forward-line (1- (cdr loc
 (set-window-start nil (point)
-(user-error "Location is unknown")))
+(user-error "No location available")))
 
 ;; Emacs 28: Do not show Corfu commands with M-X
 (put #'corfu-info-location 'completion-predicate #'ignore)
diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index 77beac627d..657574cc36 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -329,11 +329,8 @@ the candidate popup, its value is 'bottom, 'top, 'right or 
'left."
   (setf face-remapping-alist (copy-tree face-remapping-alist)
 (alist-get 'default face-remapping-alist) 
'corfu-popupinfo))
   (unless (eq corfu-popupinfo--toggle 'init)
-(message
- ;; TODO support custom functions, don't hard code the error!
- (if (eq corfu-popupinfo--function 
#'corfu-popupinfo--get-documentation)
- "No documentation available"
-   "Location is unknown")))
+(message "No %s available"
+ (last (split-string (symbol-name 
corfu-popupinfo--function) "-+"
   (corfu-popupinfo--hide)
   (setq doc-changed nil coords-changed nil corfu-popupinfo--toggle 
nil)))
   (when (or doc-changed coords-changed)

[nongnu] elpa/rfc-mode updated (93208d4451 -> 73bb2a18bb)

[ELPA Syncer]

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

  from  93208d4451 rfc-mode: Simplify the code by fetching&reading more 
lazily
   new  36710c9175 Unify redisplay after jumps, scrolling point to or near 
window top
   new  fd7ff4a765 update the changelog
   new  73bb2a18bb update screenshots


Summary of changes:
 README.md|   2 +-
 changelog.org|  19 +++
 img/browser.png  | Bin 0 -> 110570 bytes
 img/helm-browser.png | Bin 112811 -> 0 bytes
 img/reader.png   | Bin 181692 -> 178820 bytes
 rfc-mode.el  |  22 +-
 6 files changed, 33 insertions(+), 10 deletions(-)
 create mode 100644 img/browser.png
 delete mode 100644 img/helm-browser.png

[nongnu] elpa/rfc-mode 36710c9175 1/3: Unify redisplay after jumps, scrolling point to or near window top

[ELPA Syncer]

branch: elpa/rfc-mode
commit 36710c917552aae2df52fb38134a5b42f3e1d1bd
Author: Štěpán Němec 
Commit: Štěpán Němec 

Unify redisplay after jumps, scrolling point to or near window top

Jumping to a section and leaving point near page bottom makes for
strange user experience.

`rfc-mode-{backward,forward}-page' did scroll the new position to
window top already; unify the behavior using new `rfc-mode-recenter'
function, reusing the `recenter-top-bottom' machinery to respect
`scroll-margin' et al.
---
 rfc-mode.el | 22 +-
 1 file changed, 17 insertions(+), 5 deletions(-)

diff --git a/rfc-mode.el b/rfc-mode.el
index 581db426a3..09959407f1 100644
--- a/rfc-mode.el
+++ b/rfc-mode.el
@@ -153,19 +153,24 @@ If nil (the default) then use e.g. *rfc21*, otherwise use 
e.g. rfc21.txt."
 
 (define-obsolete-function-alias 'rfc-mode-quit #'quit-window "rfc-mode-1.4")
 
+(defun rfc-mode-recenter ()
+  "Do the same as `recenter-top-bottom' would for the `top' position."
+  (let ((recenter-positions '(top)))
+(recenter-top-bottom)))
+
 (defun rfc-mode-backward-page ()
   "Scroll to the previous page of the current buffer."
   (interactive)
   (backward-page)
   (rfc-mode-previous-header)
-  (recenter 0))
+  (rfc-mode-recenter))
 
 (defun rfc-mode-forward-page ()
   "Scroll to the next page of the current buffer."
   (interactive)
   (forward-page)
   (rfc-mode-previous-header)
-  (recenter 0))
+  (rfc-mode-recenter))
 
 (defun rfc-mode-goto-section (section)  ;FIXME: Why not use imenu for that?
   "Move point to SECTION."
@@ -189,7 +194,10 @@ Returns t if section is found, nil otherwise."
 (case-fold-search nil))
 (goto-char (point-min))
 (if (re-search-forward (concat "^" section) (point-max) t)
-(progn (beginning-of-line) t)
+(progn
+  (beginning-of-line)
+  (rfc-mode-recenter)
+  t)
   (goto-char curpos)
   nil)))
 
@@ -201,7 +209,9 @@ Returns t if section is found, nil otherwise."
 (if (looking-at rfc-mode-title-regexp)
 (forward-line 1))
 (if (re-search-forward rfc-mode-title-regexp (point-max) t n)
-(beginning-of-line)
+(progn
+  (beginning-of-line)
+  (rfc-mode-recenter))
   (goto-char (point-max))
   ;; The last line doesn't belong to any section.
   (forward-line -1))
@@ -215,7 +225,9 @@ Returns t if section is found, nil otherwise."
 (if (looking-at rfc-mode-title-regexp)
 (forward-line -1))
 (if (re-search-backward rfc-mode-title-regexp (point-min) t n)
-(beginning-of-line)
+(progn
+  (beginning-of-line)
+  (rfc-mode-recenter))
   (goto-char (point-min)
 
 ;;;###autoload

[nongnu] elpa/rfc-mode fd7ff4a765 2/3: update the changelog

[ELPA Syncer]

branch: elpa/rfc-mode
commit fd7ff4a765dcc9e35e3a2a11c760031aac0e963c
Author: Nicolas Martyanoff 
Commit: Nicolas Martyanoff 

update the changelog
---
 changelog.org | 19 +++
 1 file changed, 15 insertions(+), 4 deletions(-)

diff --git a/changelog.org b/changelog.org
index df64ca1e72..b13e690307 100644
--- a/changelog.org
+++ b/changelog.org
@@ -1,15 +1,26 @@
 #+TITLE: rfc-mode changelog
 
 * Next Version
+/Work in progress./
+
+* 1.4.0
+I should have released minor versions for bug fixes, but it seems everyone is
+using the =master= branch from MELPA, and so am I. So major only it is. I will
+release a minor version if a severe issue is found of course.
 
 ** Features
-- ~rfc-mode-read~ now supports a numeric prefix argument, so you can
-  simply type ~C-u 1 2 3 4 M-x rfc-mode-read~ to read RFC
-  number 1234. Also, if you call ~rfc-mode-read~ when point is on a
-  number, you will be offered that number as default.
+- ~rfc-mode-read~ now supports a numeric prefix argument, so you can simply
+  type ~C-u 1 2 3 4 M-x rfc-mode-read~ to read RFC number 1234. Also, if you
+  call ~rfc-mode-read~ when point is on a number, you will be offered that
+  number as default. Thanks to Daniel Martín.
+- ~rfc-mode-goto-section~ now makes sure the title of the section is at the
+  top of the page, avoiding annoying edge cases where a section is at the end
+  of a page (thanks to Štěpán Němec).
 
 ** Misc
 - Make the dependency on Helm optional (thanks to Jonas Bernoulli).
+- Code cleaning and simplifications (thanks to Stefan Monnier, Jonas Bernoulli
+  and Basil L. Contovounesios).
 
 * 1.3.0
 This release improves navigation and introduce section detection, thanks to

[nongnu] elpa/rfc-mode 73bb2a18bb 3/3: update screenshots

[ELPA Syncer]

branch: elpa/rfc-mode
commit 73bb2a18bb34136c9eeddef5f138840872ece752
Author: Nicolas Martyanoff 
Commit: Nicolas Martyanoff 

update screenshots
---
 README.md|   2 +-
 img/browser.png  | Bin 0 -> 110570 bytes
 img/helm-browser.png | Bin 112811 -> 0 bytes
 img/reader.png   | Bin 181692 -> 178820 bytes
 4 files changed, 1 insertion(+), 1 deletion(-)

diff --git a/README.md b/README.md
index 9d719342a2..18c8ea1add 100644
--- a/README.md
+++ b/README.md
@@ -35,7 +35,7 @@ enter the reference of the RFC document yourself.
 
 ## Screenshots
 ### Browser
-![Helm-based browser](img/helm-browser.png)
+![Helm-based browser](img/browser.png)
 
 ### Reader
 ![Reader](img/reader.png)
diff --git a/img/browser.png b/img/browser.png
new file mode 100644
index 00..eb87ed8d94
Binary files /dev/null and b/img/browser.png differ
diff --git a/img/helm-browser.png b/img/helm-browser.png
deleted file mode 100644
index 54bd72c774..00
Binary files a/img/helm-browser.png and /dev/null differ
diff --git a/img/reader.png b/img/reader.png
index 4556e18191..0936fc2c2d 100644
Binary files a/img/reader.png and b/img/reader.png differ

[nongnu] elpa/typescript-mode 17d06bdf93: Add note on incoming ts-mode

[ELPA Syncer]

branch: elpa/typescript-mode
commit 17d06bdf938281cf7cd9157189966a2fdfd4f62b
Author: Theodor Thornhill 
Commit: Theodor Thornhill 

Add note on incoming ts-mode
---
 README.md | 7 +++
 1 file changed, 7 insertions(+)

diff --git a/README.md b/README.md
index 68d8cba904..d47a2b6534 100644
--- a/README.md
+++ b/README.md
@@ -47,6 +47,13 @@ does at least have an option for working with Typescript, 
even though it may not
 But once new Emacs ships with tree-sitter support, you are adviced to upgrade 
to the newer modes for better TypeScript-support, rather
 than keeping this old version around.
 
+## Good news!
+Emacs 29 will ship with tree-sitter support, and it will actually have in-tree
+support for TypeScript!  So now you can just use the provided `ts-mode` and get
+the fresh tree-sitter powered functionalities for free.  Yes, that means both
+tsx and regular types will actually work.  Development will continue in emacs
+core, rather than this repo.  We hope you'll like the new experience.
+
 # Installation
 
 `typescript.el` can be installed from source directly using your

[elpa] externals/corfu 8e6b5fd2ed 1/2: corfu-popupinfo: Fix popup size computation

[ELPA Syncer]

branch: externals/corfu
commit 8e6b5fd2ed06b12eb9218a0ae919be7ba5d7758b
Author: Daniel Mendler 
Commit: Daniel Mendler 

corfu-popupinfo: Fix popup size computation
---
 extensions/corfu-popupinfo.el | 74 +++
 1 file changed, 40 insertions(+), 34 deletions(-)

diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index ab97ae3855..c426040d80 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -46,6 +46,7 @@
 
 (require 'corfu)
 (eval-when-compile
+  (require 'cl-lib)
   (require 'subr-x))
 
 (defface corfu-popupinfo
@@ -74,23 +75,23 @@ popup can be requested manually via 
`corfu-popupinfo-toggle',
 
 (defcustom corfu-popupinfo-hide t
   "Hide the popup during the transition between candidates."
-  :group 'corfu
-  :type 'boolean)
+  :type 'boolean
+  :group 'corfu)
 
-(defcustom corfu-popupinfo-max-width 70
+(defcustom corfu-popupinfo-max-width 80
   "The max width of the info popup in characters."
-  :group 'corfu
-  :type 'integer)
+  :type 'integer
+  :group 'corfu)
 
 (defcustom corfu-popupinfo-max-height 10
   "The max height of the info popup in characters."
-  :group 'corfu
-  :type 'integer)
+  :type 'integer
+  :group 'corfu)
 
 (defcustom corfu-popupinfo-resize t
   "Resize the info popup automatically if non-nil."
-  :group 'corfu
-  :type 'boolean)
+  :type 'boolean
+  :group 'corfu)
 
 (defvar corfu-popupinfo-map
   (let ((map (make-sparse-keymap)))
@@ -103,8 +104,7 @@ popup can be requested manually via 
`corfu-popupinfo-toggle',
   "Additional keymap activated in popupinfo mode.")
 
 (defvar corfu-popupinfo--buffer-parameters
-  '((line-move-visual . t)
-(truncate-partial-width-windows . nil)
+  '((truncate-partial-width-windows . nil)
 (truncate-lines . nil)
 (left-margin-width . 1)
 (right-margin-width . 1)
@@ -186,24 +186,28 @@ all values are in pixels relative to the origin. See
 corfu-popupinfo-max-height)))
(funcall fun candidate)
 (with-current-buffer (or (car-safe res) res)
-  (setq res (replace-regexp-in-string
- "[\\s-\n]*\\[back\\][\\s-\n]*" ""
- (buffer-string)))
+  (setq res (string-trim
+ (replace-regexp-in-string
+  "[\\s-\n]*\\[back\\][\\s-\n]*" ""
+  (buffer-string
   (and (not (string-blank-p res)) res
 
 (defun corfu-popupinfo--size ()
   "Return popup size as pair."
-  (let ((max-width (* (frame-char-width) corfu-popupinfo-max-width))
-(max-height (* (default-line-height) corfu-popupinfo-max-height)))
-(if corfu-popupinfo-resize
-(pcase-let ((`(,width . ,height)
- (save-window-excursion
-   (with-current-buffer " *corfu-popupinfo*"
- (set-window-dedicated-p nil nil)
- (set-window-buffer nil (current-buffer))
- (window-text-pixel-size nil (point-min) (point-max)
- (* 2 max-width) (* 2 
max-height))
-  (cons (min width max-width) (min height max-height)))
+  (let* ((cw (default-font-width))
+ (margin (* cw (+ (alist-get 'left-margin-width 
corfu--buffer-parameters)
+  (alist-get 'right-margin-width 
corfu--buffer-parameters
+ (max-height (* (default-line-height) corfu-popupinfo-max-height))
+ (max-width (+ margin (* cw corfu-popupinfo-max-width
+  (if corfu-popupinfo-resize
+  (with-current-buffer " *corfu-popupinfo*"
+(cl-letf* (((window-dedicated-p) nil)
+   ((window-buffer) (current-buffer))
+   (size (window-text-pixel-size
+  nil (point-min) (point-max)
+  (* 2 max-width) (* 2 max-height
+  (cons (min (+ margin (car size)) max-width)
+(min (cdr size) max-height
   (cons max-width max-height
 
 (defun corfu-popupinfo--frame-geometry (frame)
@@ -287,21 +291,19 @@ The pixel size of the info popup can be specified by 
WIDTH and HEIGHT.
 The calculated area is in the form (X Y WIDTH HEIGHT DIR).
 DIR indicates the position direction of the info popup relative to
 the candidate popup, its value is 'bottom, 'top, 'right or 'left."
+  (unless (and width height)
+(let ((size (corfu-popupinfo--size)))
+  (setq width (car size)
+height (cdr size
   ;; TODO Direction handling is incomplete. Fix not only horizontal/vertical,
   ;; but left/right/bottom/top.
   (cond
((memq dir '(right left))
-(let ((size (corfu-popupinfo--size)))
-  (corfu-popupinfo--display-area-horizontal (car size) (cdr size
+(corfu-popupinfo--display-area-horizontal width height))
((memq dir '(bottom top))
-(let ((size (corfu-popupinfo--size)))
-  (corfu-popupinfo--d

[elpa] externals/corfu bafd813742 2/2: corfu-popupinfo: Compute popup size from smaller area

[ELPA Syncer]

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

corfu-popupinfo: Compute popup size from smaller area
---
 extensions/corfu-popupinfo.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index c426040d80..879ab79243 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -205,7 +205,7 @@ all values are in pixels relative to the origin. See
((window-buffer) (current-buffer))
(size (window-text-pixel-size
   nil (point-min) (point-max)
-  (* 2 max-width) (* 2 max-height
+  max-width max-height)))
   (cons (min (+ margin (car size)) max-width)
 (min (cdr size) max-height
   (cons max-width max-height

[elpa] externals/corfu updated (8696cf979f -> bafd813742)

[ELPA Syncer]

elpasync pushed a change to branch externals/corfu.

  from  8696cf979f corfu-popupinfo: Add missing car
   new  8e6b5fd2ed corfu-popupinfo: Fix popup size computation
   new  bafd813742 corfu-popupinfo: Compute popup size from smaller area


Summary of changes:
 extensions/corfu-popupinfo.el | 74 +++
 1 file changed, 40 insertions(+), 34 deletions(-)

[elpa] externals/csharp-mode 33a74ff256: Add note on development status

[ELPA Syncer]

branch: externals/csharp-mode
commit 33a74ff25610153d7e262a1d4c6bb5f3d95be493
Author: Theodor Thornhill 
Commit: Theodor Thornhill 

Add note on development status
---
 README.org | 10 ++
 1 file changed, 10 insertions(+)

diff --git a/README.org b/README.org
index 29e1f07cb3..8db3c215f7 100644
--- a/README.org
+++ b/README.org
@@ -2,6 +2,16 @@
 
[[https://melpa.org/#/csharp-mode][file:https://melpa.org/packages/csharp-mode-badge.svg]]
 
[[https://stable.melpa.org/#/csharp-mode][file:https://stable.melpa.org/packages/csharp-mode-badge.svg]]
 
[[https://elpa.gnu.org/packages/csharp-mode.html][file:https://elpa.gnu.org/packages/csharp-mode.svg]]
+
+* Development status of this mode
+This mode is now strictly in maintenance mode.  That means that /no/ new 
features
+will be added, and the mode itself will be moved into core.  Thus development 
of
+support for C# will continue in core Emacs.  However, this repo will continue
+being available from (M)ELPA for some time for backwards compatibility.  If you
+are running Emacs 29 or larger you are advised to remove this package and rely
+on what's in core.  Bug reports should be directed to the Emacs bug tracker
+after Emacs 29 is released.
+
 * csharp-mode
 
 This is a mode for editing C# in emacs. It's using CC mode or 
[[https://github.com/ubolonton/emacs-tree-sitter][tree-sitter]] for

[elpa] externals/corfu aab6f7e34d: Version 0.30

[ELPA Syncer]

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

Version 0.30
---
 CHANGELOG.org | 8 ++--
 corfu.el  | 2 +-
 extensions/corfu-echo.el  | 2 +-
 extensions/corfu-history.el   | 2 +-
 extensions/corfu-indexed.el   | 2 +-
 extensions/corfu-info.el  | 2 +-
 extensions/corfu-popupinfo.el | 2 +-
 extensions/corfu-quick.el | 2 +-
 8 files changed, 13 insertions(+), 9 deletions(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index 300814839b..b2506c41b5 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -2,13 +2,17 @@
 #+author: Daniel Mendler
 #+language: en
 
+* Version 0.30 (2022-11-19)
+
+- =corfu-popupinfo-mode=: Bugfixes and improvements.
+
 * Version 0.29 (2022-11-19)
 
 - BREAKING: Extract the =corfu-echo= extension from =corfu.el=. In order to 
see echo
   messages, enable =corfu-echo-mode=. You probably want to enable either
-  =corfu-echo-mode= or =corfu-infoframe-mode=.
+  =corfu-echo-mode= or =corfu-popupinfo-mode=.
 - BREAKING: Rename =corfu-echo-documentation= to =corfu-echo-delay=.
-- Add =corfu-infoframe= extension to display candidate documentation and 
location
+- Add =corfu-popupinfo= extension to display candidate documentation and 
location
   in a small child frame next to the candidate menu. This extension has been
   contributed by Yuwei Tian who assigned copyright to the FSF. The extension
   supersedes Yuwei's =corfu-doc= package.
diff --git a/corfu.el b/corfu.el
index 67d9d01474..0d1a3d6095 100644
--- a/corfu.el
+++ b/corfu.el
@@ -5,7 +5,7 @@
 ;; Author: Daniel Mendler 
 ;; Maintainer: Daniel Mendler 
 ;; Created: 2021
-;; Version: 0.29
+;; Version: 0.30
 ;; Package-Requires: ((emacs "27.1"))
 ;; Homepage: https://github.com/minad/corfu
 
diff --git a/extensions/corfu-echo.el b/extensions/corfu-echo.el
index 61137121cb..30c89ec464 100644
--- a/extensions/corfu-echo.el
+++ b/extensions/corfu-echo.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Daniel Mendler 
 ;; Created: 2022
 ;; Version: 0.1
-;; Package-Requires: ((emacs "27.1") (corfu "0.29"))
+;; Package-Requires: ((emacs "27.1") (corfu "0.30"))
 ;; Homepage: https://github.com/minad/corfu
 
 ;; This file is part of GNU Emacs.
diff --git a/extensions/corfu-history.el b/extensions/corfu-history.el
index 2ddcd3b4fc..2e321906f8 100644
--- a/extensions/corfu-history.el
+++ b/extensions/corfu-history.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Daniel Mendler 
 ;; Created: 2022
 ;; Version: 0.1
-;; Package-Requires: ((emacs "27.1") (corfu "0.29"))
+;; Package-Requires: ((emacs "27.1") (corfu "0.30"))
 ;; Homepage: https://github.com/minad/corfu
 
 ;; This file is part of GNU Emacs.
diff --git a/extensions/corfu-indexed.el b/extensions/corfu-indexed.el
index 39470fabaa..d0ec97ac7f 100644
--- a/extensions/corfu-indexed.el
+++ b/extensions/corfu-indexed.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Daniel Mendler 
 ;; Created: 2022
 ;; Version: 0.1
-;; Package-Requires: ((emacs "27.1") (corfu "0.29"))
+;; Package-Requires: ((emacs "27.1") (corfu "0.30"))
 ;; Homepage: https://github.com/minad/corfu
 
 ;; This file is part of GNU Emacs.
diff --git a/extensions/corfu-info.el b/extensions/corfu-info.el
index 615e5d6a3d..1bc5277504 100644
--- a/extensions/corfu-info.el
+++ b/extensions/corfu-info.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Daniel Mendler 
 ;; Created: 2022
 ;; Version: 0.1
-;; Package-Requires: ((emacs "27.1") (corfu "0.29"))
+;; Package-Requires: ((emacs "27.1") (corfu "0.30"))
 ;; Homepage: https://github.com/minad/corfu
 
 ;; This file is part of GNU Emacs.
diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index 879ab79243..209973a203 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Daniel Mendler 
 ;; Created: 2022
 ;; Version: 0.1
-;; Package-Requires: ((emacs "27.1") (corfu "0.29"))
+;; Package-Requires: ((emacs "27.1") (corfu "0.30"))
 ;; Homepage: https://github.com/minad/corfu
 
 ;; This file is part of GNU Emacs.
diff --git a/extensions/corfu-quick.el b/extensions/corfu-quick.el
index be4db39204..b3dbfc1b3a 100644
--- a/extensions/corfu-quick.el
+++ b/extensions/corfu-quick.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Daniel Mendler 
 ;; Created: 2022
 ;; Version: 0.1
-;; Package-Requires: ((emacs "27.1") (corfu "0.29"))
+;; Package-Requires: ((emacs "27.1") (corfu "0.30"))
 ;; Homepage: https://github.com/minad/corfu
 
 ;; This file is part of GNU Emacs.

[nongnu] elpa/sweeprolog updated (8133821499 -> 7dfb85c88f)

[ELPA Syncer]

elpasync pushed a change to branch elpa/sweeprolog.

  from  8133821499 FIXED: exporting predicates in presence of exported 
operators
   new  d7b3dd6f87 * (sweeprolog-maybe-syntax-error-face): don't error in 
top-level
   new  2c99b60683 * (sweeprolog-identifier-at-point): fix module 
qualification
   new  1683c9a6c8 * (sweeprolog-predicate-completion-at-point): use holes 
for args
   new  c131fdd5a5 Don't error in sweeprolog-analyze-term-at-point
   new  e49e93bfc5 * (sweeprolog-analyze-fragment-to-faces) fix comment 
highlighting
   new  ac344f888b * (sweeprolog-predicate-completion-at-point): fix pcase 
match
   new  5399f38aa2 * (sweeprolog-analyze-fragment-flymake): restrict syntax 
errors
   new  7dfb85c88f Announce recent changes in NEWS.org and bump version to 
0.8.9


Summary of changes:
 NEWS.org| 20 
 README.org  |  4 +++-
 sweep.pl| 13 ++-
 sweeprolog-tests.el |  2 +-
 sweeprolog.el   | 66 +
 5 files changed, 82 insertions(+), 23 deletions(-)

[nongnu] elpa/sweeprolog e49e93bfc5 5/8: * (sweeprolog-analyze-fragment-to-faces) fix comment highlighting

[ELPA Syncer]

branch: elpa/sweeprolog
commit e49e93bfc51f49404edb14269a5b515e2a2046ce
Author: Eshel Yaron 
Commit: Eshel Yaron 

* (sweeprolog-analyze-fragment-to-faces) fix comment highlighting
---
 sweeprolog.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sweeprolog.el b/sweeprolog.el
index 76a1a274b5..4d66835e01 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -1887,7 +1887,7 @@ resulting list even when found in the current clause."
(setq cur (point)))
  (skip-chars-forward " \t\n")
  (push (list cur (point) nil) ws)
- (cons (list beg (point) nil)
+ (cons (list beg end nil)
(cons (list beg end (sweeprolog-fullstop-face))
  ws)
 ("functor"

[nongnu] elpa/sweeprolog d7b3dd6f87 1/8: * (sweeprolog-maybe-syntax-error-face): don't error in top-level

[ELPA Syncer]

branch: elpa/sweeprolog
commit d7b3dd6f8707f50ea7538b0ecbe829002d6db8b1
Author: Eshel Yaron 
Commit: Eshel Yaron 

* (sweeprolog-maybe-syntax-error-face): don't error in top-level
---
 sweeprolog.el | 13 +++--
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/sweeprolog.el b/sweeprolog.el
index 74af0879cd..92cc38d8e4 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -1717,12 +1717,13 @@ resulting list even when found in the current clause."
 (font-lock-unfontify-region beg end)))
 
 (defun sweeprolog-maybe-syntax-error-face (end)
-  (or (and (or (and sweeprolog--analyze-point
-(<= (save-excursion
-  (goto-char sweeprolog--analyze-point)
-  (sweeprolog-beginning-of-top-term)
-  (1- (point)))
-(1+ end) sweeprolog--analyze-point))
+  (or (and (or (derived-mode-p 'sweeprolog-top-level-mode)
+   (and sweeprolog--analyze-point
+   (<= (save-excursion
+ (goto-char sweeprolog--analyze-point)
+ (sweeprolog-beginning-of-top-term)
+ (1- (point)))
+   (1+ end) sweeprolog--analyze-point))
(< (save-excursion
 (goto-char sweeprolog--analyze-point)
 (sweeprolog-end-of-top-term) (point))

[nongnu] elpa/sweeprolog 1683c9a6c8 3/8: * (sweeprolog-predicate-completion-at-point): use holes for args

[ELPA Syncer]

branch: elpa/sweeprolog
commit 1683c9a6c81c0f85a04a26c7259be74192d2f4de
Author: Eshel Yaron 
Commit: Eshel Yaron 

* (sweeprolog-predicate-completion-at-point): use holes for args
---
 sweep.pl  |  5 +++--
 sweeprolog.el | 20 +++-
 2 files changed, 22 insertions(+), 3 deletions(-)

diff --git a/sweep.pl b/sweep.pl
index 7645e55b1c..84f6dbc9b0 100644
--- a/sweep.pl
+++ b/sweep.pl
@@ -761,13 +761,14 @@ sweep_predicate_completion_candidates(_, Ps) :-
 Hs),
 maplist(sweep_format_predicate, Hs, Ps).
 
-sweep_format_predicate(H, S) :-
+sweep_format_predicate(H, [S|SP]) :-
 term_variables(H, Vs),
 maplist(=('$VAR'('_')), Vs),
 term_string(H, S, [quoted(true),
character_escapes(true),
spacing(next_argument),
-   numbervars(true)]).
+   numbervars(true)]),
+term_string(_, S, [subterm_positions(SP)]).
 
 sweep_context_callable([H|T], R) :-
 H = [F0|_],
diff --git a/sweeprolog.el b/sweeprolog.el
index 92cc38d8e4..8e116e81f5 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -1059,7 +1059,25 @@ resulting list even when found in the current clause."
 (list beg end col
   :exclusive 'no
   :annotation-function
-  (lambda (_) " Predicate"))
+  (lambda (_) " Predicate")
+  :exit-function
+  (lambda (string status)
+(pcase status
+  ('finished (pcase (cdr (assoc-string string col))
+   (`(compound
+  "term_position"
+  0 ,length
+  fbeg fend
+  ,holes)
+(with-silent-modifications
+  (dolist (hole holes)
+(pcase hole
+  (`(compound "-" ,hbeg ,hend)
+   (put-text-property (- (point) length (- 
hbeg))
+  (- (point) length (- 
hend))
+  'sweeprolog-hole 
t)
+(backward-char length)
+(sweeprolog-forward-hole)))
 
 
  Packages

[nongnu] elpa/sweeprolog 2c99b60683 2/8: * (sweeprolog-identifier-at-point): fix module qualification

[ELPA Syncer]

branch: elpa/sweeprolog
commit 2c99b60683640db3fbc2ec9944768105e84ca14b
Author: Eshel Yaron 
Commit: Eshel Yaron 

* (sweeprolog-identifier-at-point): fix module qualification
---
 sweep.pl| 8 
 sweeprolog-tests.el | 2 +-
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/sweep.pl b/sweep.pl
index ec1be7af96..7645e55b1c 100644
--- a/sweep.pl
+++ b/sweep.pl
@@ -706,12 +706,12 @@ sweep_functor_arity_pi([F0,A], PI)   :-
 sweep_current_module(M0),
 (   @(predicate_property(M:Head, visible), M0),
 \+ @(predicate_property(M:Head, imported_from(_)), M0)
-->  true
+->  T = M:F/A
 ;   xref_defined(_, Head, imported(Other)), xref_module(Other, M)
-->  true
-;   M = M0
+->  T = M:F/A
+;   T = F/A
 ),
-term_string(M:F/A, PI).
+term_string(T, PI).
 sweep_functor_arity_pi([M,F0,A], PI) :-
 atom_string(F, F0), term_string(M:F/A, PI).
 
diff --git a/sweeprolog-tests.el b/sweeprolog-tests.el
index 9bc0ad8286..59af86f546 100644
--- a/sweeprolog-tests.el
+++ b/sweeprolog-tests.el
@@ -313,7 +313,7 @@ foo(Bar).
 (goto-char (point-max))
 (backward-word)
 (should (equal (sweeprolog-identifier-at-point)
-   "user:bar/1"
+   "bar/1"
 
 (ert-deftest definition-at-point ()
   "Test recognizing predicate defintions."

[nongnu] elpa/sweeprolog ac344f888b 6/8: * (sweeprolog-predicate-completion-at-point): fix pcase match

[ELPA Syncer]

branch: elpa/sweeprolog
commit ac344f888b835d244cad2a3200c9e4a55404f590
Author: Eshel Yaron 
Commit: Eshel Yaron 

* (sweeprolog-predicate-completion-at-point): fix pcase match
---
 sweeprolog.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sweeprolog.el b/sweeprolog.el
index 4d66835e01..2ccd786b27 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -1068,7 +1068,7 @@ resulting list even when found in the current clause."
(`(compound
   "term_position"
   0 ,length
-  fbeg fend
+  ,_fbeg ,_fend
   ,holes)
 (with-silent-modifications
   (dolist (hole holes)

[nongnu] elpa/sweeprolog 5399f38aa2 7/8: * (sweeprolog-analyze-fragment-flymake): restrict syntax errors

[ELPA Syncer]

branch: elpa/sweeprolog
commit 5399f38aa2e2fce75944f7a9efbaa5a96d3826d9
Author: Eshel Yaron 
Commit: Eshel Yaron 

* (sweeprolog-analyze-fragment-flymake): restrict syntax errors
---
 sweeprolog.el | 17 -
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/sweeprolog.el b/sweeprolog.el
index 2ccd786b27..7ea364a4bf 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -1994,7 +1994,22 @@ resulting list even when found in the current clause."
 ("type_error"
  (cons :warning "Type error"))
 (`("syntax_error" ,message . ,_)
- (cons :error message))
+ (and (or (and sweeprolog--analyze-point
+   (<= (save-excursion
+ (goto-char sweeprolog--analyze-point)
+ (sweeprolog-beginning-of-top-term)
+ (1- (point)))
+   (1+ end) sweeprolog--analyze-point))
+  (< (save-excursion
+   (goto-char sweeprolog--analyze-point)
+   (sweeprolog-end-of-top-term)
+   (point))
+ (save-excursion
+   (goto-char sweeprolog--analyze-point)
+   (sweeprolog-beginning-of-next-top-term)
+   (point))
+ (point-max)))
+  (cons :error message)))
 ("unused_import"
  (cons :note "Unused import"))
 ("undefined_import"

[nongnu] elpa/sweeprolog c131fdd5a5 4/8: Don't error in sweeprolog-analyze-term-at-point

[ELPA Syncer]

branch: elpa/sweeprolog
commit c131fdd5a5b8e598b2e3946ba523fac721ee6a66
Author: Eshel Yaron 
Commit: Eshel Yaron 

Don't error in sweeprolog-analyze-term-at-point
---
 sweeprolog.el | 12 +++-
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/sweeprolog.el b/sweeprolog.el
index 8e116e81f5..76a1a274b5 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -872,8 +872,9 @@ module name, F is a functor name and N is its arity."
 `("head" ,_ ,f ,a)
 `("goal" ,_ ,f ,a))
 (setq id-at-point (list f a)))
-(sweeprolog--query-once "sweep" "sweep_functor_arity_pi"
-id-at-point)
+(when id-at-point
+  (sweeprolog--query-once "sweep" "sweep_functor_arity_pi"
+  id-at-point))
 
 
  Modules
@@ -2633,9 +2634,10 @@ of them signal success by returning non-nil."
(not (looking-at-p (rx bol (or "%" "/*"))
 
 (defun sweeprolog-analyze-term-at-point (cb)
-  (add-hook 'sweeprolog-analyze-region-fragment-hook cb nil t)
-  (sweeprolog-analyze-term (point))
-  (remove-hook 'sweeprolog-analyze-region-fragment-hook cb t))
+  (let ((sweeprolog--analyze-point (point)))
+(add-hook 'sweeprolog-analyze-region-fragment-hook cb nil t)
+(sweeprolog-analyze-term (point))
+(remove-hook 'sweeprolog-analyze-region-fragment-hook cb t)))
 
 (defun sweeprolog-definition-at-point (&optional point)
   (save-excursion

[nongnu] elpa/sweeprolog 7dfb85c88f 8/8: Announce recent changes in NEWS.org and bump version to 0.8.9

[ELPA Syncer]

branch: elpa/sweeprolog
commit 7dfb85c88f1ba0360b66a4cb83f2812f3bb0d28c
Author: Eshel Yaron 
Commit: Eshel Yaron 

Announce recent changes in NEWS.org and bump version to 0.8.9
---
 NEWS.org  | 20 
 README.org|  4 +++-
 sweeprolog.el |  2 +-
 3 files changed, 24 insertions(+), 2 deletions(-)

diff --git a/NEWS.org b/NEWS.org
index 277d64ee45..c8a854cb6d 100644
--- a/NEWS.org
+++ b/NEWS.org
@@ -11,6 +11,26 @@ SWI-Prolog in Emacs.
 For further details, please consult the manual:
 .
 
+* Version 0.8.9 on 2022-11-19
+
+** Predicate completions now use holes for arguments
+
+When completing a predicate with ~completion-at-point~ (~C-M-i~) and
+choosing a predicate that takes arguments, holes are inserted is place
+of each required argument.
+
+** Syntax errors are now less intrusive
+
+Syntax errors that occur due to incomplete terms are no longer
+immediately highlighted as such.
+
+** ~auto-insert~ now leaves point at start of module summary
+
+** Fixes
+
+- Fixed error in ~sweeprolog-export-predicate~ (~C-c C-e~) in presence of
+  exported predicates.  Reported by Jan Wielemaker.
+
 * Version 0.8.8 on 2022-11-16
 
 ** Added electric layout minor mode
diff --git a/README.org b/README.org
index 5ba7cb7ee9..6f7d38d0e3 100644
--- a/README.org
+++ b/README.org
@@ -1012,7 +1012,9 @@ In ~sweeprolog-mode~ buffers, the following enhancements 
are provided:
   as completion candidates.
 - Predicate completion :: If point is at a callable position,
   ~completion-at-point~ suggests matching predicates as completion
-  candidates.
+  candidates.  Predicate calls are inserted as complete term.  If the
+  chosen predicate takes arguments, holes are inserted in their places
+  (see [[#filling-holes][Filling Holes]]).
 - Atom completion :: If point is at a non-callable,
   ~completion-at-point~ suggests matching atoms as completion
   candidates.
diff --git a/sweeprolog.el b/sweeprolog.el
index 7ea364a4bf..89e2eccfed 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Eshel Yaron <~eshel/d...@lists.sr.ht>
 ;; Keywords: prolog languages extensions
 ;; URL: https://git.sr.ht/~eshel/sweep
-;; Package-Version: 0.8.8
+;; Package-Version: 0.8.9
 ;; Package-Requires: ((emacs "28.1"))
 
 ;; This file is NOT part of GNU Emacs.

[elpa] externals/corfu 971de05df4: Fix corfu-echo and corfu-quick interaction (Fix #252)

[ELPA Syncer]

branch: externals/corfu
commit 971de05df4749cb5e7eff0c051ef5cc4c0693537
Author: Daniel Mendler 
Commit: Daniel Mendler 

Fix corfu-echo and corfu-quick interaction (Fix #252)
---
 extensions/corfu-echo.el  | 2 +-
 extensions/corfu-quick.el | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/extensions/corfu-echo.el b/extensions/corfu-echo.el
index 30c89ec464..feb7edb3be 100644
--- a/extensions/corfu-echo.el
+++ b/extensions/corfu-echo.el
@@ -67,7 +67,7 @@ floats to specify initial and subsequent delay."
 (cancel-timer corfu-echo--timer)
 (setq corfu-echo--timer nil))
   (corfu-echo--show msg)
-  (unless corfu--echo-message
+  (unless corfu-echo--message
 (kill-local-variable 'corfu-echo--timer)
 (kill-local-variable 'corfu-echo--message)))
 
diff --git a/extensions/corfu-quick.el b/extensions/corfu-quick.el
index b3dbfc1b3a..5f10a660fc 100644
--- a/extensions/corfu-quick.el
+++ b/extensions/corfu-quick.el
@@ -124,7 +124,8 @@ TWO is non-nil if two keys should be displayed."
 (defun corfu-quick-jump ()
   "Jump to candidate using quick keys."
   (interactive)
-  (corfu--echo-cancel)
+  (when (fboundp 'corfu-echo--cancel)
+(corfu-echo--cancel))
   (if (= corfu--total 0)
   (and (message "No match") nil)
 (let ((idx (corfu-quick--read)))

[elpa] externals/cape fe068552e5: cape-symbol: Add extra metadata functions on Emacs 28

[ELPA Syncer]

branch: externals/cape
commit fe068552e5f85a8e2476ff32555a13fa643d7b71
Author: Daniel Mendler 
Commit: Daniel Mendler 

cape-symbol: Add extra metadata functions on Emacs 28
---
 cape.el | 28 +---
 1 file changed, 13 insertions(+), 15 deletions(-)

diff --git a/cape.el b/cape.el
index 81286fa849..f3bd0da5de 100644
--- a/cape.el
+++ b/cape.el
@@ -284,10 +284,19 @@ If INTERACTIVE is nil the function acts like a Capf."
 ; cape-symbol
 
 (defvar cape--symbol-properties
-  (list :annotation-function #'cape--symbol-annotation
-:exit-function #'cape--symbol-exit
-:company-kind #'cape--symbol-kind
-:exclusive 'no)
+  (append
+   (list :annotation-function #'cape--symbol-annotation
+ :exit-function #'cape--symbol-exit
+ :exclusive 'no)
+   (when (>= emacs-major-version 28)
+ (autoload 'elisp--company-kind "elisp-mode")
+ (autoload 'elisp--company-doc-buffer "elisp-mode")
+ (autoload 'elisp--company-doc-string "elisp-mode")
+ (autoload 'elisp--company-location "elisp-mode")
+ (list :company-kind 'elisp--company-kind
+   :company-doc-buffer 'elisp--company-doc-buffer
+   :company-docsig 'elisp--company-doc-string
+   :company-location 'elisp--company-location)))
   "Completion extra properties for `cape-symbol'.")
 
 (defun cape--symbol-exit (name status)
@@ -301,17 +310,6 @@ STATUS is the exit status."
   (insert c))
 (insert c)))
 
-(defun cape--symbol-kind (sym)
-  "Return kind of SYM."
-  (setq sym (intern-soft sym))
-  (cond
-   ((or (macrop sym) (special-form-p sym)) 'keyword)
-   ((fboundp sym) 'function)
-   ((boundp sym) 'variable)
-   ((featurep sym) 'module)
-   ((facep sym) 'color)
-   (t 'text)))
-
 (defun cape--symbol-annotation (sym)
   "Return kind of SYM."
   (setq sym (intern-soft sym))

[elpa] externals/corfu ec6d21a939 8/8: corfu-popupinfo: Delay mode hooks for file preview

[ELPA Syncer]

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

corfu-popupinfo: Delay mode hooks for file preview
---
 extensions/corfu-popupinfo.el | 7 ++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index e5e1a38d07..08e0246139 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -157,7 +157,12 @@ all values are in pixels relative to the origin. See
 ;; BUG: company-location may throw errors if location is not 
found
 (loc (ignore-errors (funcall fun candidate)))
 (buf (or (and (bufferp (car loc)) (car loc))
- (find-file-noselect (car loc) t
+ (let ((inhibit-message . t)
+   (enable-dir-local-variables . nil)
+   (enable-local-variables . :safe)
+   (non-essential . t)
+   (delay-mode-hooks . t))
+   (find-file-noselect (car loc) t)
   (unwind-protect
   (with-current-buffer buf
 (save-excursion

[elpa] externals/corfu 5b34b26c7e 1/8: Update changelog

[ELPA Syncer]

branch: externals/corfu
commit 5b34b26c7e665418cab0e4aa784be6c48db425d5
Author: Daniel Mendler 
Commit: Daniel Mendler 

Update changelog
---
 CHANGELOG.org | 6 +-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index b2506c41b5..58c4001e15 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -2,9 +2,13 @@
 #+author: Daniel Mendler
 #+language: en
 
+* Development
+
+- =corfu-echo=, =corfu-quick=: Bugfixes for interaction issue.
+
 * Version 0.30 (2022-11-19)
 
-- =corfu-popupinfo-mode=: Bugfixes and improvements.
+- =corfu-popupinfo=: Bugfixes and improvements.
 
 * Version 0.29 (2022-11-19)
 

[elpa] externals/corfu 7739f8e39a 3/8: corfu-popupinfo: Indentation

[ELPA Syncer]

branch: externals/corfu
commit 7739f8e39a642d28e07373cde796b684ae7333f6
Author: Daniel Mendler 
Commit: Daniel Mendler 

corfu-popupinfo: Indentation
---
 extensions/corfu-popupinfo.el | 18 +-
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index 209973a203..376177a696 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -199,15 +199,15 @@ all values are in pixels relative to the origin. See
   (alist-get 'right-margin-width 
corfu--buffer-parameters
  (max-height (* (default-line-height) corfu-popupinfo-max-height))
  (max-width (+ margin (* cw corfu-popupinfo-max-width
-  (if corfu-popupinfo-resize
-  (with-current-buffer " *corfu-popupinfo*"
-(cl-letf* (((window-dedicated-p) nil)
-   ((window-buffer) (current-buffer))
-   (size (window-text-pixel-size
-  nil (point-min) (point-max)
-  max-width max-height)))
-  (cons (min (+ margin (car size)) max-width)
-(min (cdr size) max-height
+(if corfu-popupinfo-resize
+(with-current-buffer " *corfu-popupinfo*"
+  (cl-letf* (((window-dedicated-p) nil)
+ ((window-buffer) (current-buffer))
+ (size (window-text-pixel-size
+nil (point-min) (point-max)
+max-width max-height)))
+(cons (min (+ margin (car size)) max-width)
+  (min (cdr size) max-height
   (cons max-width max-height
 
 (defun corfu-popupinfo--frame-geometry (frame)

[elpa] externals/corfu e23a750231 7/8: corfu-popupinfo--get-location: Kill new buffers

[ELPA Syncer]

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

corfu-popupinfo--get-location: Kill new buffers
---
 extensions/corfu-popupinfo.el | 35 +++
 1 file changed, 19 insertions(+), 16 deletions(-)

diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index 36e90bc9d9..e5e1a38d07 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -156,23 +156,26 @@ all values are in pixels relative to the origin. See
 (when-let* ((fun (plist-get corfu--extra :company-location))
 ;; BUG: company-location may throw errors if location is not 
found
 (loc (ignore-errors (funcall fun candidate)))
-(res (or (and (bufferp (car loc)) (car loc))
+(buf (or (and (bufferp (car loc)) (car loc))
  (find-file-noselect (car loc) t
-  (with-current-buffer res
-(save-excursion
-  (save-restriction
-(widen)
-(if (bufferp (car loc))
-(goto-char (cdr loc))
-  (goto-char (point-min))
-  (forward-line (1- (cdr loc
-(let ((beg (point)))
-  ;; Support a little bit of scrolling.
-  (forward-line (* 10 corfu-popupinfo-max-height))
-  (when jit-lock-mode
-(jit-lock-fontify-now beg (point)))
-  (setq res (buffer-substring beg (point)))
-  (and (not (string-blank-p res)) res
+  (unwind-protect
+  (with-current-buffer buf
+(save-excursion
+  (save-restriction
+(widen)
+(if (bufferp (car loc))
+(goto-char (cdr loc))
+  (goto-char (point-min))
+  (forward-line (1- (cdr loc
+(let ((beg (point)))
+  ;; Support a little bit of scrolling.
+  (forward-line (* 10 corfu-popupinfo-max-height))
+  (when jit-lock-mode
+(jit-lock-fontify-now beg (point)))
+  (let ((res (buffer-substring beg (point
+(and (not (string-blank-p res)) res))
+(unless (bufferp (car loc))
+  (kill-buffer buf))
 
 (defun corfu-popupinfo--get-documentation (candidate)
   "Get the documentation for CANDIDATE."

[elpa] externals/corfu c735db62c2 4/8: README: Add more screenshots

[ELPA Syncer]

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

README: Add more screenshots
---
 README.org | 4 
 1 file changed, 4 insertions(+)

diff --git a/README.org b/README.org
index 2eb4e6185e..2e2e47f28b 100644
--- a/README.org
+++ b/README.org
@@ -33,6 +33,10 @@ provides an alternative overlay-based display.
 
 #+html: https://github.com/minad/corfu/blob/screenshots/dark.png?raw=true";>
 
+#+html: https://github.com/minad/corfu/blob/screenshots/popupinfo-light.png?raw=true";>
+
+#+html: https://github.com/minad/corfu/blob/screenshots/popupinfo-dark.png?raw=true";>
+
 #+toc: headlines 8
 
 * Features

[elpa] externals/corfu 352d719a1f 5/8: Expand docstrings

[ELPA Syncer]

branch: externals/corfu
commit 352d719a1ff657446aced15ad730669553446795
Author: Daniel Mendler 
Commit: Daniel Mendler 

Expand docstrings
---
 extensions/corfu-popupinfo.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index 376177a696..52ea5556cc 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -364,7 +364,8 @@ the candidate popup, its value is 'bottom, 'top, 'right or 
'left."
   "Scroll text of info popup window upward N lines.
 
 If ARG is omitted or nil, scroll upward by a near full screen.
-See `scroll-up' for details."
+See `scroll-up' for details. If the info popup is not visible,
+the other window is scrolled."
   (interactive "p")
   (if (corfu-popupinfo--visible-p)
   (with-selected-frame corfu-popupinfo--frame
@@ -375,7 +376,7 @@ See `scroll-up' for details."
 (defun corfu-popupinfo-scroll-down (&optional n)
   "Scroll text of info popup window down N lines.
 
-If ARG is omitted or nil, scroll down by a near full screen."
+See `corfu-popupinfo-scroll-up' for more details."
   (interactive "p")
   (corfu-popupinfo-scroll-up (- (or n 1
 

[elpa] externals/corfu 633ecfb003 2/8: Update readme

[ELPA Syncer]

branch: externals/corfu
commit 633ecfb003edce15248448bbab4889b5a7721e7f
Author: Daniel Mendler 
Commit: Daniel Mendler 

Update readme
---
 README.org | 19 +++
 1 file changed, 11 insertions(+), 8 deletions(-)

diff --git a/README.org b/README.org
index 5e08230138..2eb4e6185e 100644
--- a/README.org
+++ b/README.org
@@ -226,13 +226,14 @@ enable Corfu completion for commands like ~M-:~ 
(~eval-expression~) or ~M-!~
 effect.
 
 #+begin_src emacs-lisp
-  (defun corfu-enable-in-minibuffer ()
-"Enable Corfu in the minibuffer if `completion-at-point' is bound."
-(when (where-is-internal #'completion-at-point (list (current-local-map)))
-  ;; (setq-local corfu-auto nil) ;; Enable/disable auto completion
-  (setq-local corfu-echo-delay nil) ;; Disable echo
-  (corfu-mode 1)))
-  (add-hook 'minibuffer-setup-hook #'corfu-enable-in-minibuffer)
+(defun corfu-enable-in-minibuffer ()
+  "Enable Corfu in the minibuffer if `completion-at-point' is bound."
+  (when (where-is-internal #'completion-at-point (list 
(current-local-map)))
+;; (setq-local corfu-auto nil) ;; Enable/disable auto completion
+(setq-local corfu-echo-delay nil ;; Disable automatic echo and popup
+corfu-popupinfo-delay nil)
+(corfu-mode 1)))
+(add-hook 'minibuffer-setup-hook #'corfu-enable-in-minibuffer)
 #+end_src
 
 You can also enable Corfu more generally for every minibuffer, as long as no
@@ -244,7 +245,9 @@ completion UI, the following snippet should yield the 
desired result.
 "Enable Corfu in the minibuffer if Vertico/Mct are not active."
 (unless (or (bound-and-true-p mct--active)
 (bound-and-true-p vertico--input))
-  ;; (setq-local corfu-auto nil) Enable/disable auto completion
+  ;; (setq-local corfu-auto nil) ;; Enable/disable auto completion
+  (setq-local corfu-echo-delay nil ;; Disable automatic echo and popup
+  corfu-popupinfo-delay nil)
   (corfu-mode 1)))
   (add-hook 'minibuffer-setup-hook #'corfu-enable-always-in-minibuffer 1)
 #+end_src

[elpa] externals/denote e20511b0fe: Update manual on Org Dynamic blocks

[ELPA Syncer]

branch: externals/denote
commit e20511b0fe54d4f348593d4d106dbc8bf77a873c
Author: Elias Storms 
Commit: Protesilaos Stavrou 

Update manual on Org Dynamic blocks
---
 README.org | 37 +++--
 1 file changed, 19 insertions(+), 18 deletions(-)

diff --git a/README.org b/README.org
index 6aa38ce8bd..da2d9d6ab4 100644
--- a/README.org
+++ b/README.org
@@ -1664,20 +1664,21 @@ facility.  Start by loading the relevant library:
 (require 'denote-org-dblock)
 #+end_src
 
-A dynamic block gets its contents by evaluating a given function.  The
-function and its parameters are stated in the opening =#+BEGIN= line
-of the block.  Typing =C-c C-c= with point on that line runs the
-function, with the given arguments, and populates the block's contents
-accordingly.
+A dynamic block gets its contents by evaluating a given function,
+depending on the type of block.  The type of block and its parameters
+are stated in the opening =#+BEGIN= line of the block.  Typing =C-c C-c=
+with point on that line runs the function, with the given arguments,
+and populates the block's contents accordingly.
 
 Denote leverages Org dynamic blocks to streamline the inclusion of (i)
-links that match a given search query and (ii) backlinks to the
-current note.
+links to notes whose name matches a given search query (like
+~denote-link-add-links~) and (ii) backlinks to the current note (like
+~denote-link-add-backlinks~).
 
-The two blocks that Denote registers are named =denote-links= and
-=denote-backlinks=.  The latter does not accept any parameters, while
-the former does, which we explain below by also demonstrating how
-dynamic blocks are written.
+These two types of blocks are named =denote-links= and =denote-backlinks=
+respectively.  The latter does not accept any parameters, while the
+former does, which we explain below by also demonstrating how dynamic
+blocks are written.
 
 A dynamic block looks like this:
 
@@ -1686,7 +1687,7 @@ A dynamic block looks like this:
 : #+END:
 
 Here we have the =denote-links= type, with the =:regexp= parameter.
-The value of the =:regexp= parameter iss the same as that of the
+The value of the =:regexp= parameter is the same as that of the
 command ~denote-link-add-links~ 
([[#h:9bec2c83-36ca-4951-aefc-7187c5463f90][Insert links matching a regexp]]).  
The
 linked entry provides practical examples of patterns that make good
 use of Denote's file-naming scheme 
([[#h:4e9c7512-84dc-4dfb-9fa9-e15d51178e5d][The file-naming scheme]]).
@@ -1708,13 +1709,13 @@ Becomes something like this once we type =C-c C-c= with 
point on the
 : #+END:
 
 The dynamic block takes care to keep the list in order and to add any
-missing links.
+missing links when the block is evaluated anew.
 
-Depending on one's workflow, an additional dynamic block can be
-included in the file to list only those links which are missing from
-the original dynamic block (e.g. due to new notes being added over
-time).  Adding the =:missing-only= parameter with a non-~nil~ value
-achieves this effect.  The =#+BEGIN= line looks like this:
+Depending on one's workflow, the dynamic block can be instructed to
+list only those links which are missing from the current buffer
+(similar to ~denote-link-add-missing-links~).  Adding the =:missing-only=
+parameter with a non-~nil~ value achieves this effect. The =#+BEGIN= line
+looks like this:
 
 : #+BEGIN: denote-links :regexp "_journal" :missing-only t
 

[elpa] externals/corfu updated (971de05df4 -> ec6d21a939)

[ELPA Syncer]

elpasync pushed a change to branch externals/corfu.

  from  971de05df4 Fix corfu-echo and corfu-quick interaction (Fix #252)
   new  5b34b26c7e Update changelog
   new  633ecfb003 Update readme
   new  7739f8e39a corfu-popupinfo: Indentation
   new  c735db62c2 README: Add more screenshots
   new  352d719a1f Expand docstrings
   new  01ddb3b13e Version 0.31
   new  e23a750231 corfu-popupinfo--get-location: Kill new buffers
   new  ec6d21a939 corfu-popupinfo: Delay mode hooks for file preview


Summary of changes:
 CHANGELOG.org |  6 +++-
 README.org| 23 +--
 corfu.el  |  2 +-
 extensions/corfu-echo.el  |  2 +-
 extensions/corfu-history.el   |  2 +-
 extensions/corfu-indexed.el   |  2 +-
 extensions/corfu-info.el  |  2 +-
 extensions/corfu-popupinfo.el | 67 ---
 extensions/corfu-quick.el |  2 +-
 9 files changed, 64 insertions(+), 44 deletions(-)

[elpa] externals/corfu 01ddb3b13e 6/8: Version 0.31

[ELPA Syncer]

branch: externals/corfu
commit 01ddb3b13e7b32c640cce208fe3bdac04a3e5bb0
Author: Daniel Mendler 
Commit: Daniel Mendler 

Version 0.31
---
 CHANGELOG.org | 2 +-
 corfu.el  | 2 +-
 extensions/corfu-echo.el  | 2 +-
 extensions/corfu-history.el   | 2 +-
 extensions/corfu-indexed.el   | 2 +-
 extensions/corfu-info.el  | 2 +-
 extensions/corfu-popupinfo.el | 2 +-
 extensions/corfu-quick.el | 2 +-
 8 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index 58c4001e15..0e5d70d3d8 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -2,7 +2,7 @@
 #+author: Daniel Mendler
 #+language: en
 
-* Development
+* Version 0.31 (2022-11-20)
 
 - =corfu-echo=, =corfu-quick=: Bugfixes for interaction issue.
 
diff --git a/corfu.el b/corfu.el
index 0d1a3d6095..aa0485445b 100644
--- a/corfu.el
+++ b/corfu.el
@@ -5,7 +5,7 @@
 ;; Author: Daniel Mendler 
 ;; Maintainer: Daniel Mendler 
 ;; Created: 2021
-;; Version: 0.30
+;; Version: 0.31
 ;; Package-Requires: ((emacs "27.1"))
 ;; Homepage: https://github.com/minad/corfu
 
diff --git a/extensions/corfu-echo.el b/extensions/corfu-echo.el
index feb7edb3be..824d9cb3a4 100644
--- a/extensions/corfu-echo.el
+++ b/extensions/corfu-echo.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Daniel Mendler 
 ;; Created: 2022
 ;; Version: 0.1
-;; Package-Requires: ((emacs "27.1") (corfu "0.30"))
+;; Package-Requires: ((emacs "27.1") (corfu "0.31"))
 ;; Homepage: https://github.com/minad/corfu
 
 ;; This file is part of GNU Emacs.
diff --git a/extensions/corfu-history.el b/extensions/corfu-history.el
index 2e321906f8..70d8957bcd 100644
--- a/extensions/corfu-history.el
+++ b/extensions/corfu-history.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Daniel Mendler 
 ;; Created: 2022
 ;; Version: 0.1
-;; Package-Requires: ((emacs "27.1") (corfu "0.30"))
+;; Package-Requires: ((emacs "27.1") (corfu "0.31"))
 ;; Homepage: https://github.com/minad/corfu
 
 ;; This file is part of GNU Emacs.
diff --git a/extensions/corfu-indexed.el b/extensions/corfu-indexed.el
index d0ec97ac7f..0e06df101d 100644
--- a/extensions/corfu-indexed.el
+++ b/extensions/corfu-indexed.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Daniel Mendler 
 ;; Created: 2022
 ;; Version: 0.1
-;; Package-Requires: ((emacs "27.1") (corfu "0.30"))
+;; Package-Requires: ((emacs "27.1") (corfu "0.31"))
 ;; Homepage: https://github.com/minad/corfu
 
 ;; This file is part of GNU Emacs.
diff --git a/extensions/corfu-info.el b/extensions/corfu-info.el
index 1bc5277504..5d74f88d04 100644
--- a/extensions/corfu-info.el
+++ b/extensions/corfu-info.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Daniel Mendler 
 ;; Created: 2022
 ;; Version: 0.1
-;; Package-Requires: ((emacs "27.1") (corfu "0.30"))
+;; Package-Requires: ((emacs "27.1") (corfu "0.31"))
 ;; Homepage: https://github.com/minad/corfu
 
 ;; This file is part of GNU Emacs.
diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index 52ea5556cc..36e90bc9d9 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Daniel Mendler 
 ;; Created: 2022
 ;; Version: 0.1
-;; Package-Requires: ((emacs "27.1") (corfu "0.30"))
+;; Package-Requires: ((emacs "27.1") (corfu "0.31"))
 ;; Homepage: https://github.com/minad/corfu
 
 ;; This file is part of GNU Emacs.
diff --git a/extensions/corfu-quick.el b/extensions/corfu-quick.el
index 5f10a660fc..cdbe3175ab 100644
--- a/extensions/corfu-quick.el
+++ b/extensions/corfu-quick.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Daniel Mendler 
 ;; Created: 2022
 ;; Version: 0.1
-;; Package-Requires: ((emacs "27.1") (corfu "0.30"))
+;; Package-Requires: ((emacs "27.1") (corfu "0.31"))
 ;; Homepage: https://github.com/minad/corfu
 
 ;; This file is part of GNU Emacs.

[elpa] externals/corfu updated (ec6d21a939 -> 5380f0a232)

[ELPA Syncer]

elpasync pushed a change to branch externals/corfu.

  from  ec6d21a939 corfu-popupinfo: Delay mode hooks for file preview
   new  59c412cecd Fix latest commit
   new  4ad4c1af4a corfu-popupinfo: Improve corfu-popupinfo--get-location
   new  5380f0a232 corfu-popupinfo: Minor cleanup


Summary of changes:
 extensions/corfu-popupinfo.el | 59 ++-
 1 file changed, 30 insertions(+), 29 deletions(-)

[elpa] externals/corfu 59c412cecd 1/3: Fix latest commit

[ELPA Syncer]

branch: externals/corfu
commit 59c412cecd009e606e9cf3cd16b295b368c514a6
Author: Daniel Mendler 
Commit: Daniel Mendler 

Fix latest commit
---
 extensions/corfu-popupinfo.el | 10 +-
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index 08e0246139..9bdfbdf0d1 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -157,11 +157,11 @@ all values are in pixels relative to the origin. See
 ;; BUG: company-location may throw errors if location is not 
found
 (loc (ignore-errors (funcall fun candidate)))
 (buf (or (and (bufferp (car loc)) (car loc))
- (let ((inhibit-message . t)
-   (enable-dir-local-variables . nil)
-   (enable-local-variables . :safe)
-   (non-essential . t)
-   (delay-mode-hooks . t))
+ (let ((inhibit-message t)
+   (enable-dir-local-variables nil)
+   (enable-local-variables :safe)
+   (non-essential t)
+   (delay-mode-hooks t))
(find-file-noselect (car loc) t)
   (unwind-protect
   (with-current-buffer buf

[elpa] externals/corfu 5380f0a232 3/3: corfu-popupinfo: Minor cleanup

[ELPA Syncer]

branch: externals/corfu
commit 5380f0a232561f8268f494044379a778895f5659
Author: Daniel Mendler 
Commit: Daniel Mendler 

corfu-popupinfo: Minor cleanup
---
 extensions/corfu-popupinfo.el | 11 +--
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index 57db7bad66..1839eeaf18 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -158,7 +158,7 @@ all values are in pixels relative to the origin. See
   (when-let* ((fun (plist-get corfu--extra :company-location))
   ;; BUG: company-location may throw errors if location is 
not found
   (loc (ignore-errors (funcall fun candidate)))
-  (buf (or (and (bufferp (car loc)) (car loc))
+  (res (or (and (bufferp (car loc)) (car loc))
(get-file-buffer (car loc))
(let ((inhibit-message t)
  (enable-dir-local-variables nil)
@@ -166,7 +166,7 @@ all values are in pixels relative to the origin. See
  (non-essential t)
  (delay-mode-hooks t))
  (setq cleanup (find-file-noselect (car loc) 
t))
-(with-current-buffer buf
+(with-current-buffer res
   (save-excursion
 (save-restriction
   (widen)
@@ -179,10 +179,9 @@ all values are in pixels relative to the origin. See
 (forward-line (* 10 corfu-popupinfo-max-height))
 (when jit-lock-mode
   (jit-lock-fontify-now beg (point)))
-(let ((res (buffer-substring beg (point
-  (and (not (string-blank-p res)) res
-(unless (bufferp (car loc))
-  (kill-buffer buf))
+(setq res (buffer-substring beg (point)))
+(and (not (string-blank-p res)) res)))
+  (when cleanup (kill-buffer cleanup)
 
 (defun corfu-popupinfo--get-documentation (candidate)
   "Get the documentation for CANDIDATE."

[elpa] externals/corfu 4ad4c1af4a 2/3: corfu-popupinfo: Improve corfu-popupinfo--get-location

[ELPA Syncer]

branch: externals/corfu
commit 4ad4c1af4acc93f36343f18596639a5e092129ef
Author: Daniel Mendler 
Commit: Daniel Mendler 

corfu-popupinfo: Improve corfu-popupinfo--get-location
---
 extensions/corfu-popupinfo.el | 60 ++-
 1 file changed, 31 insertions(+), 29 deletions(-)

diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index 9bdfbdf0d1..57db7bad66 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -152,35 +152,37 @@ all values are in pixels relative to the origin. See
 
 (defun corfu-popupinfo--get-location (candidate)
   "Get source at location of CANDIDATE."
-  (save-excursion
-(when-let* ((fun (plist-get corfu--extra :company-location))
-;; BUG: company-location may throw errors if location is not 
found
-(loc (ignore-errors (funcall fun candidate)))
-(buf (or (and (bufferp (car loc)) (car loc))
- (let ((inhibit-message t)
-   (enable-dir-local-variables nil)
-   (enable-local-variables :safe)
-   (non-essential t)
-   (delay-mode-hooks t))
-   (find-file-noselect (car loc) t)
-  (unwind-protect
-  (with-current-buffer buf
-(save-excursion
-  (save-restriction
-(widen)
-(if (bufferp (car loc))
-(goto-char (cdr loc))
-  (goto-char (point-min))
-  (forward-line (1- (cdr loc
-(let ((beg (point)))
-  ;; Support a little bit of scrolling.
-  (forward-line (* 10 corfu-popupinfo-max-height))
-  (when jit-lock-mode
-(jit-lock-fontify-now beg (point)))
-  (let ((res (buffer-substring beg (point
-(and (not (string-blank-p res)) res))
-(unless (bufferp (car loc))
-  (kill-buffer buf))
+  (let (cleanup)
+(unwind-protect
+(save-excursion
+  (when-let* ((fun (plist-get corfu--extra :company-location))
+  ;; BUG: company-location may throw errors if location is 
not found
+  (loc (ignore-errors (funcall fun candidate)))
+  (buf (or (and (bufferp (car loc)) (car loc))
+   (get-file-buffer (car loc))
+   (let ((inhibit-message t)
+ (enable-dir-local-variables nil)
+ (enable-local-variables :safe)
+ (non-essential t)
+ (delay-mode-hooks t))
+ (setq cleanup (find-file-noselect (car loc) 
t))
+(with-current-buffer buf
+  (save-excursion
+(save-restriction
+  (widen)
+  (if (bufferp (car loc))
+  (goto-char (cdr loc))
+(goto-char (point-min))
+(forward-line (1- (cdr loc
+  (let ((beg (point)))
+;; Support a little bit of scrolling.
+(forward-line (* 10 corfu-popupinfo-max-height))
+(when jit-lock-mode
+  (jit-lock-fontify-now beg (point)))
+(let ((res (buffer-substring beg (point
+  (and (not (string-blank-p res)) res
+(unless (bufferp (car loc))
+  (kill-buffer buf))
 
 (defun corfu-popupinfo--get-documentation (candidate)
   "Get the documentation for CANDIDATE."

[elpa] externals/ef-themes updated (79237c3d7c -> 999d57a21f)

[ELPA Syncer]

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

  from  79237c3d7c Add correct index value to manual's indices
   new  1848082996 Fix typos in the manual
   new  b84b80d1b0 Clarify manual's reference to Fontaine package
   new  aa70e6c3cb Clarify comment about ef-themes-headings
   new  999d57a21f Reword a couple of expressions for clarity


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

[elpa] externals/ef-themes aa70e6c3cb 3/4: Clarify comment about ef-themes-headings

[ELPA Syncer]

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

Clarify comment about ef-themes-headings
---
 README.org | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/README.org b/README.org
index 27b10f69d4..ad921f3b37 100644
--- a/README.org
+++ b/README.org
@@ -366,12 +366,12 @@ will retain the original aesthetic for that level.  For 
example:
 (setq ef-themes-headings
   '((1 . t)   ; keep the default style
 (2 . (variable-pitch 1.2))
-(t . (variable-pitch ; style for all other headings
+(t . (variable-pitch ; style for all unspecified headings
 
 (setq ef-themes-headings
   '((1 . (variable-pitch 1.6))
 (2 . (1.3))
-(t . t))) ; default style for all other levels
+(t . t))) ; default style for all unspecified levels
 #+end_src
 
 ** Style of region highlight

[elpa] externals/ef-themes b84b80d1b0 2/4: Clarify manual's reference to Fontaine package

[ELPA Syncer]

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

Clarify manual's reference to Fontaine package
---
 README.org | 14 --
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/README.org b/README.org
index 83ce07beb6..27b10f69d4 100644
--- a/README.org
+++ b/README.org
@@ -254,9 +254,10 @@ A temporary switch to a proportionately spaced font (known 
in Emacs as
 ~variable-pitch~) can be enabled in the current buffer with the
 activation of the built-in ~variable-pitch-mode~.
 
-To get consistent typography, the user may need to edit the font family
-of the ~fixed-pitch~ face.  The =fontaine= package on GNU ELPA (by
-Protesilaos) can be helpful in that regard.
+To get consistent typography, the user may need to edit the font
+family of the ~fixed-pitch~ and ~variable-pitch~ faces.  The
+=fontaine= package on GNU ELPA (by Protesilaos) can be helpful in this
+regard.
 
 ** UI typeface
 :PROPERTIES:
@@ -278,9 +279,10 @@ In this context, the UI elements are:
 - ~tab-bar-mode~
 - ~tab-line-mode~
 
-To get consistent typography, the user may need to edit the font family
-of the ~variable-pitch~ face.  The =fontaine= package on GNU ELPA (by
-Protesilaos) can be helpful in that regard.
+To get consistent typography, the user may need to edit the font
+family of the ~fixed-pitch~ and ~variable-pitch~ faces.  The
+=fontaine= package on GNU ELPA (by Protesilaos) can be helpful in this
+regard.
 
 ** Option for headings
 :PROPERTIES:

[elpa] externals/ef-themes 999d57a21f 4/4: Reword a couple of expressions for clarity

[ELPA Syncer]

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

Reword a couple of expressions for clarity
---
 README.org | 19 +--
 1 file changed, 13 insertions(+), 6 deletions(-)

diff --git a/README.org b/README.org
index ad921f3b37..bb7a170b73 100644
--- a/README.org
+++ b/README.org
@@ -615,11 +615,12 @@ We need to wrap our code in the ~ef-themes-with-colors~ 
and declare it
 as a function which we then add to the hook.  Here we show the general
 approach of putting those pieces together.
 
-To customize faces we use the built-in ~custom-set-faces~.  The value it
-accepts has the same syntax as that found in =ef-themes.el=,
-specifically the ~ef-themes-faces~ constant.  It thus is easy to copy
-lines from there and tweak them.  Let's pick a couple of font-lock faces
-(used in all programming modes, among others):
+To customize faces in a way that mirrors the Ef themes' source code,
+we use the built-in ~custom-set-faces~.  The value it accepts has the
+same syntax as that found in =ef-themes.el=, specifically the
+~ef-themes-faces~ constant.  It thus is easy to copy lines from there
+and tweak them.  Let's pick a couple of font-lock faces (used in all
+programming modes, among others):
 
 #+begin_src emacs-lisp
 (defun my-ef-themes-custom-faces ()
@@ -723,9 +724,15 @@ also has the benefit that it does not depend on functions 
such as
 function ~enable-theme~ is called internally by ~load-theme~, so the
 hook works everywhere.
 
+The downside of the theme-agnostic hook is that any functions added to
+it will likely not be able to benefit from macro calls that read the
+active theme, such as ~ef-themes-with-colors~ (the Modus themes have
+an equivalent macro).  Not all Emacs themes have the same
+capabilities.
+
 In this document, we always mention ~ef-themes-post-load-hook~ though
 the user can replace it with ~after-enable-theme-hook~ should they need
-to.
+to (provided they understand the implications).
 
 ** Add support for hl-todo
 :PROPERTIES:

[elpa] externals/ef-themes 1848082996 1/4: Fix typos in the manual

[ELPA Syncer]

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

Fix typos in the manual
---
 README.org | 29 +++--
 1 file changed, 15 insertions(+), 14 deletions(-)

diff --git a/README.org b/README.org
index 3660f05e3f..83ce07beb6 100644
--- a/README.org
+++ b/README.org
@@ -242,12 +242,13 @@ By default (a ~nil~ value for this user option) no face 
inherits from
 ~fixed-pitch~: they all use the default font family, regardless of
 whether it is monospaced or not.
 
-When ~ef-themes-mixed-fonts~ is set to a non-~nil~ value, faces such as
-Org tables, inline code, code blocks, and the like, are rendered in a
-monospaced font at all times.  The user can thus set their default font
-family to a proportionately spaced font without worrying about breaking
-the alignment of relevant elements, or if they simply prefer the
-aesthetics of mixed mono and proportionately spaced font families.
+When ~ef-themes-mixed-fonts~ is set to a non-~nil~ value, faces such
+as for Org tables, inline code, code blocks, and the like, are
+rendered in a monospaced font at all times.  The user can thus set
+their default font family to a proportionately spaced font without
+worrying about breaking the alignment of relevant elements, or if they
+simply prefer the aesthetics of mixed mono and proportionately spaced
+font families.
 
 A temporary switch to a proportionately spaced font (known in Emacs as
 ~variable-pitch~) can be enabled in the current buffer with the
@@ -265,10 +266,10 @@ Protesilaos) can be helpful in that regard.
 #+vindex: ef-themes-variable-pitch-ui
 The user option ~ef-themes-variable-pitch-ui~ controls whether the
 elements of the User Interface (UI) use a proportionately spaced font.
-By default (a ~nil~ value), all UI elements use the default font family.
-When this user option is set to a non-~nil~ value, all UI elements will
-inherit the face ~variable-pitch~ instead thus rendering them in a
-proportionately spaced font.
+By default (a ~nil~ value), all UI elements use the default font
+family.  When this user option is set to a non-~nil~ value, all UI
+elements will inherit the face ~variable-pitch~, thus rendering them
+in a proportionately spaced font.
 
 In this context, the UI elements are:
 
@@ -633,10 +634,10 @@ This function is added to the `ef-themes-post-load-hook'."
 (add-hook 'ef-themes-post-load-hook #'my-ef-themes-custom-faces)
 #+end_src
 
-Each item in the Ef themes collection has its own color mapping.  So the
-color value of the =comment= variable will differ from theme-to-theme.
-For the purpose of our demonstration, we make variables look like
-comments and comments like variables:
+Each item in the Ef themes collection has its own color mapping.  So
+the color value of the =comment= variable will differ from theme to
+theme.  For the purpose of our demonstration, we make variables look
+like comments and comments like variables:
 
 #+begin_src emacs-lisp
 (defun my-ef-themes-custom-faces ()

[elpa] externals/org 4c40fc3d4d 1/3: org: Allow spaces in #+LINK abbreviation definitions

[ELPA Syncer]

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

org: Allow spaces in #+LINK abbreviation definitions

* lisp/org.el (org-set-regexps-and-options): Allow spaces when
defining link abbreviations via #+LINK keyword.
* testing/lisp/test-org-element.el (test-org-element/link-parser): Add
a new test.
* doc/org-manual.org (Link Abbreviations): Add example demonstrating
link abbreviation with spaces.

Reported-by: Rudolf Adamkovič 
Link: https://orgmode.org/list/87zgf7zujc.fsf@localhost
---
 doc/org-manual.org   | 3 +++
 lisp/org.el  | 6 +-
 testing/lisp/test-org-element.el | 9 +
 3 files changed, 17 insertions(+), 1 deletion(-)

diff --git a/doc/org-manual.org b/doc/org-manual.org
index 318a12bfa2..25e06fe2ae 100644
--- a/doc/org-manual.org
+++ b/doc/org-manual.org
@@ -3652,8 +3652,11 @@ can define them in the file with
 #+begin_example
 ,#+LINK: bugzilla  https://10.1.2.9/bugzilla/show_bug.cgi?id=
 ,#+LINK: duckduckgo https://duckduckgo.com/?q=%s
+,#+LINK: "Nu Html Checker" https://validator.w3.org/nu/?doc=%h
 #+end_example
 
+The abbreviations containing spaces must be quoted.
+
 In-buffer completion (see [[*Completion]]) can be used after =[= to
 complete link abbreviations.  You may also define a Lisp function that
 implements special (e.g., completion) support for inserting such a
diff --git a/lisp/org.el b/lisp/org.el
index 857c3147c5..26a8db3535 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -4227,7 +4227,11 @@ related expressions."
   (delq nil
 (mapcar
  (lambda (value)
-   (and (string-match "\\`\\(\\S-+\\)[ \t]+\\(.+\\)" value)
+   (and (or
+  ;; "abbrev with spaces" spec
+  (string-match "\\`\"\\(.+[^\\]\\)\"[ 
\t]+\\(.+\\)" value)
+  ;; abbrev spec
+  (string-match "\\`\\(\\S-+\\)[ \t]+\\(.+\\)" 
value))
 (cons (match-string-no-properties 1 value)
   (match-string-no-properties 2 value
  (cdr (assoc "LINK" alist))
diff --git a/testing/lisp/test-org-element.el b/testing/lisp/test-org-element.el
index eb5b95e86e..78a735efec 100644
--- a/testing/lisp/test-org-element.el
+++ b/testing/lisp/test-org-element.el
@@ -2007,6 +2007,15 @@ e^{i\\pi}+1=0
(progn (org-mode-restart)
   (goto-char (1- (point-max)))
   (org-element-property :type (org-element-context))
+  ;; Link abbreviation with spaces.
+  (should
+   (equal "https"
+  (org-test-with-temp-text
+  "#+LINK: \"Nu Html Checker\" https://validator.w3.org/nu/?doc=%h
+  [[Nu Html Checker:test]]"
+   (progn (org-mode-restart)
+  (goto-char (1- (point-max)))
+  (org-element-property :type (org-element-context))
   ;; Link abbreviation in a secondary string.
   (should
(equal "https"

[elpa] externals/org updated (0737112852 -> 1d985406d8)

[ELPA Syncer]

elpasync pushed a change to branch externals/org.

  from  0737112852 mk/orgcard2txt.pl: Escape { to remove deprecation 
warnings
   new  4c40fc3d4d org: Allow spaces in #+LINK abbreviation definitions
   new  5347f4c75a ob-core: Do not limit table size in babel output
   new  1d985406d8 Revert "ob-core: Do not limit table size in babel output"


Summary of changes:
 doc/org-manual.org   | 3 +++
 lisp/org.el  | 6 +-
 testing/lisp/test-org-element.el | 9 +
 3 files changed, 17 insertions(+), 1 deletion(-)

[elpa] externals/org 5347f4c75a 2/3: ob-core: Do not limit table size in babel output

[ELPA Syncer]

branch: externals/org
commit 5347f4c75a84867b69103928c812b702284fcb06
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

ob-core: Do not limit table size in babel output

* lisp/ob-core.el (org-babel-import-elisp-from-file): Do not limit the
maximum possible resulting table to
`org-table-convert-region-max-lines'.

Reported-by: Daniel Ortmann 
Link: 
https://orgmode.org/list/b7021ff3-60d7-863a-5579-dff60f7e1...@oracle.com
---
 lisp/ob-core.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/ob-core.el b/lisp/ob-core.el
index 1259909a02..060b0e8279 100644
--- a/lisp/ob-core.el
+++ b/lisp/ob-core.el
@@ -3208,7 +3208,9 @@ If the table is trivial, then return it as a scalar."
   ;; If the file was empty, don't bother trying to
   ;; convert the table.
   (when (> pmax 1)
-(org-table-convert-region (point-min) pmax separator)
+ ;; Convert tables of arbitrary size.
+ (let ((org-table-convert-region-max-lines 
most-positive-fixnum))
+  (org-table-convert-region (point-min) pmax separator))
 (delq nil
   (mapcar (lambda (row)
 (and (not (eq row 'hline))

[elpa] externals/org 1d985406d8 3/3: Revert "ob-core: Do not limit table size in babel output"

[ELPA Syncer]

branch: externals/org
commit 1d985406d88adca39071f7d92ebd3b1161b5abda
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

Revert "ob-core: Do not limit table size in babel output"

This reverts commit 5347f4c75a84867b69103928c812b702284fcb06.

`org-table-convert-region-max-lines' has been introduced explicitly
for the problem of babel output.  Therefore the commit was against the
established logic.  A different approach needs to be used to tackle
the reported problem.
---
 lisp/ob-core.el | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/lisp/ob-core.el b/lisp/ob-core.el
index 060b0e8279..1259909a02 100644
--- a/lisp/ob-core.el
+++ b/lisp/ob-core.el
@@ -3208,9 +3208,7 @@ If the table is trivial, then return it as a scalar."
   ;; If the file was empty, don't bother trying to
   ;; convert the table.
   (when (> pmax 1)
- ;; Convert tables of arbitrary size.
- (let ((org-table-convert-region-max-lines 
most-positive-fixnum))
-  (org-table-convert-region (point-min) pmax separator))
+(org-table-convert-region (point-min) pmax separator)
 (delq nil
   (mapcar (lambda (row)
 (and (not (eq row 'hline))