[elpa] externals/org updated (58db28d -> 652e8db)

[ELPA Syncer]

elpasync pushed a change to branch externals/org.

  from  58db28d   ob-R: Tidy up bits of the async implementation
  adds  35e21b6   org-goto: Fix UI
   new  a51e4dc   ox-icalendar: Fix error dangling footnotes
   new  652e8db   Merge branch 'bugfix'


Summary of changes:
 lisp/ox-icalendar.el | 6 ++
 1 file changed, 6 insertions(+)

[elpa] externals-release/org a51e4dc: ox-icalendar: Fix error dangling footnotes

[ELPA Syncer]

branch: externals-release/org
commit a51e4dc710d91678126d4cca3970f4b5992474e4
Author: Nicolas Goaziou 
Commit: Nicolas Goaziou 

ox-icalendar: Fix error dangling footnotes

* lisp/ox-icalendar.el (icalendar): Add an inner-template function so
as to not use "ox-ascii"'s.
(org-icalendar-inner-template): New function.

This fixes 

and .

Footnote definition is lost, but references are already removed from
the description anyway, so the problem is not worse.
---
 lisp/ox-icalendar.el | 6 ++
 1 file changed, 6 insertions(+)

diff --git a/lisp/ox-icalendar.el b/lisp/ox-icalendar.el
index 9170059..081a283 100644
--- a/lisp/ox-icalendar.el
+++ b/lisp/ox-icalendar.el
@@ -280,6 +280,7 @@ re-read the iCalendar file.")
 (footnote-definition . ignore)
 (footnote-reference . ignore)
 (headline . org-icalendar-entry)
+ (inner-template . org-icalendar-inner-template)
 (inlinetask . ignore)
 (planning . ignore)
 (section . ignore)
@@ -805,6 +806,11 @@ END:VALARM\n"
 
  Template
 
+(defun org-icalendar-inner-template (contents _)
+  "Return document body string after iCalendar conversion.
+CONTENTS is the transcoded contents string."
+  contents)
+
 (defun org-icalendar-template (contents info)
   "Return complete document string after iCalendar conversion.
 CONTENTS is the transcoded contents string.  INFO is a plist used

[elpa] externals/org 652e8db: Merge branch 'bugfix'

[ELPA Syncer]

branch: externals/org
commit 652e8db8217fc69e08daaba5a59e24137d2515bc
Merge: 58db28d a51e4dc
Author: Nicolas Goaziou 
Commit: Nicolas Goaziou 

Merge branch 'bugfix'
---
 lisp/ox-icalendar.el | 6 ++
 1 file changed, 6 insertions(+)

diff --git a/lisp/ox-icalendar.el b/lisp/ox-icalendar.el
index 80ce0a8..0a682c7 100644
--- a/lisp/ox-icalendar.el
+++ b/lisp/ox-icalendar.el
@@ -280,6 +280,7 @@ re-read the iCalendar file.")
 (footnote-definition . ignore)
 (footnote-reference . ignore)
 (headline . org-icalendar-entry)
+ (inner-template . org-icalendar-inner-template)
 (inlinetask . ignore)
 (planning . ignore)
 (section . ignore)
@@ -805,6 +806,11 @@ END:VALARM\n"
 
  Template
 
+(defun org-icalendar-inner-template (contents _)
+  "Return document body string after iCalendar conversion.
+CONTENTS is the transcoded contents string."
+  contents)
+
 (defun org-icalendar-template (contents info)
   "Return complete document string after iCalendar conversion.
 CONTENTS is the transcoded contents string.  INFO is a plist used

[elpa] externals/consult 378365f: consult--read-from-kill-ring: Use kill-ring category

[ELPA Syncer]

branch: externals/consult
commit 378365f13d600b31ec23b1440bb7b239e7e18d7c
Author: Daniel Mendler 
Commit: Daniel Mendler 

consult--read-from-kill-ring: Use kill-ring category
---
 consult.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/consult.el b/consult.el
index a8427fb..d4f351c 100644
--- a/consult.el
+++ b/consult.el
@@ -3289,7 +3289,7 @@ If no MODES are specified, use currently active major and 
minor modes."
 :prompt "Yank from kill-ring: "
 :history t ;; disable history
 :sort nil
-:category 'consult-yank
+:category 'kill-ring
 :require-match t
 :state
 (consult--insertion-preview

[elpa] externals/marginalia 440e2b9: Add kill-ring category

[ELPA Syncer]

branch: externals/marginalia
commit 440e2b969ba8c33509c1e78b76ecf652c61a01d1
Author: Daniel Mendler 
Commit: Daniel Mendler 

Add kill-ring category
---
 marginalia.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/marginalia.el b/marginalia.el
index 6e47d06..d724d32 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -130,6 +130,7 @@ determine it."
 ("\\" . charset)
 ("\\" . coding-system)
 ("\\" . minor-mode)
+("\\" . kill-ring)
 ("\\<[Ll]ibrary\\>" . library))
   "Associates regexps to match against minibuffer prompts with categories."
   :type '(alist :key-type regexp :value-type symbol))

[elpa] externals/javaimp f20e36e: * javaimp-parse.el (javaimp--directive-regexp): Move above defconsts

[Filipp Gunbin]

branch: externals/javaimp
commit f20e36e8bb067ba7e3579ebf56e002674652dc4b
Author: Filipp Gunbin 
Commit: Filipp Gunbin 

* javaimp-parse.el (javaimp--directive-regexp): Move above defconsts
---
 javaimp-parse.el | 10 +-
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/javaimp-parse.el b/javaimp-parse.el
index 986e690..80f9aab 100644
--- a/javaimp-parse.el
+++ b/javaimp-parse.el
@@ -31,11 +31,6 @@
 (defconst javaimp--parse-stmt-keyword-maxlen
   (seq-max (mapcar #'length javaimp--parse-stmt-keywords)))
 
-(defconst javaimp--parse-package-regexp
-  (javaimp--directive-regexp "package"))
-(defconst javaimp--parse-import-regexp
-  (javaimp--directive-regexp "import\\(?:[[:space:]]+static\\)?"))
-
 (defun javaimp--directive-regexp (directive)
   "Return regexp suitable for matching package-like DIRECTIVE, a
 regexp.  First group is directive, second group is identifier."
@@ -44,6 +39,11 @@ regexp.  First group is directive, second group is 
identifier."
   (group (+ (any alnum ?_)) (* ?. (+ (any alnum ?_ ?*
   (* space) ?\;))
 
+(defconst javaimp--parse-package-regexp
+  (javaimp--directive-regexp "package"))
+(defconst javaimp--parse-import-regexp
+  (javaimp--directive-regexp "import\\(?:[[:space:]]+static\\)?"))
+
 (defvar-local javaimp--parse-dirty-pos nil
   "Marker which points to a buffer position after which all parsed
 information should be considered as stale.  Usually set by

[elpa] externals/csharp-mode a28999c: Tweak multiline strings regexes

[ELPA Syncer]

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

Tweak multiline strings regexes
---
 csharp-mode-tests.el| 34 ++
 csharp-mode.el  | 20 
 test-files/multiline-strings.cs |  6 +-
 3 files changed, 31 insertions(+), 29 deletions(-)

diff --git a/csharp-mode-tests.el b/csharp-mode-tests.el
index 8c431c1..f86b2d0 100644
--- a/csharp-mode-tests.el
+++ b/csharp-mode-tests.el
@@ -86,7 +86,10 @@
   "Literal1" 'font-lock-variable-name-face
   "Literal2" 'font-lock-variable-name-face
   "Literal3" 'font-lock-variable-name-face
-  "Literal4" 'font-lock-variable-name-face)))
+  "Literal4" 'font-lock-variable-name-face
+  "Literal5" 'font-lock-variable-name-face
+  "Literal6" 'font-lock-variable-name-face
+  "Literal7" 'font-lock-variable-name-face)))
 
 (ert-deftest fontification-of-constants ()
   (require 'assess)
@@ -118,21 +121,20 @@
"var import = true;"
"import" 'font-lock-variable-name-face))
 
-;; TODO: Should we really behave like this? The new CC Mode multiline strings 
doesn't
-;; (ert-deftest fontification-of-literals-allows-multi-line-strings ()
-;;   (require 'assess)
-;;   (should (assess-face-at=
-;;"string Literal = \"multi-line\nstring\";"
-;;'csharp-mode
-;;;; should be interpreted as error
-;;18 'font-lock-warning-face
-;;))
-;;   (should (assess-face-at=
-;;"string Literal = @\"multi-line\nstring\";"
-;;'csharp-mode
-;;;; should not be interpreted as error because of @
-;;19 'font-lock-string-face
-;;)))
+(ert-deftest fontification-of-literals-allows-multi-line-strings ()
+  (require 'assess)
+  (should (assess-face-at=
+   "string Literal = \"multi-line\nstring\";"
+   'csharp-mode
+   ;; should be interpreted as error
+   18 'font-lock-warning-face
+   ))
+  (should (assess-face-at=
+   "string Literal = @\"multi-line\nstring\";"
+   'csharp-mode
+   ;; should not be interpreted as error because of @
+   19 'font-lock-string-face
+   )))
 
 ;; (ert-deftest fontification-of-compiler-directives ()
 ;;   ;; this replaces the manual test of
diff --git a/csharp-mode.el b/csharp-mode.el
index eee8f29..400a8d2 100644
--- a/csharp-mode.el
+++ b/csharp-mode.el
@@ -96,18 +96,15 @@
   csharp ?@)
 
 (c-lang-defconst c-ml-string-opener-re
-  ;; "\\(?:\\=\\|[^\"]\\)\\(?:\"\"\\)*\\(\\(\"\\)\\)\\(?:[^\"]\\|\\'\\)"
+  ;; "\\(\\(?:@\\$?\\)\\(\"\\)\\)"
   csharp
   (rx
-   (seq
-(or point (not (any "\"")))
-(zero-or-more "\"\"")
-(group
- (group "\""))
-(or (not (any "\"")) eos
+   (group
+(or "@" "@$")
+(group "\""
 
 (c-lang-defconst c-ml-string-max-opener-len
-  csharp 2)
+  csharp 3)
 
 (c-lang-defconst c-ml-string-max-closer-len
   csharp 2)
@@ -123,13 +120,12 @@
 (or (not (any "\"")) eos
 
 (c-lang-defconst c-ml-string-back-closer-re
-  ;; "\\(:?\\`\\|[^\"]\\)\"*"
+  ;; "\\(?:\\`\\|[^\"]\\)\"*"
   csharp
   (rx
(seq
-(group
- (or (seq (opt ":") bos)
- (not (any "\""
+(or bos
+(not (any "\"")))
 (zero-or-more "\""
 
 (c-lang-defconst c-type-prefix-kwds
diff --git a/test-files/multiline-strings.cs b/test-files/multiline-strings.cs
index 7d87dd2..cd7ee5c 100644
--- a/test-files/multiline-strings.cs
+++ b/test-files/multiline-strings.cs
@@ -3,4 +3,8 @@ public const string Literal0 = @"\
 public const string Literal1 = @"\";
 public const string Literal2 = @"\\";
 public const string Literal3 = @"\\\";
-public const string Literal4 = @"";
+public const string Literal4 = @$"";
+public const string Literal5 = $@"
+";
+public const string Literal6 = "\t\t/* We need to ensure that \"{0}\"comes 
first in this list. */";
+public const string Literal7 = "";

[elpa] externals/mct updated (7e9069a -> 7a4c9e0)

[ELPA Syncer]

elpasync pushed a change to branch externals/mct.

  from  7e9069a   Fix check for emacs-major-version
   new  d4362de   Minor rewording of doc string
   new  54b325b   Document how to install the GNU ELPA package
   new  02049c5   Update Acknowledgements in the manual
   new  7428880   Add links to official MCT sources in the manual
   new  7a4c9e0   Update to version 0.3.0; add changelog file


Summary of changes:
 CHANGELOG.org | 286 ++
 README.org|  43 +++--
 mct.el|   4 +-
 3 files changed, 321 insertions(+), 12 deletions(-)
 create mode 100644 CHANGELOG.org

[elpa] externals/embark 388201d 1/4: Add `embark-kill-ring-map` and `embark-kill-ring-remove`

[ELPA Syncer]

branch: externals/embark
commit 388201dbb08a83dbd5d07a7c6f1672e3cf8b0222
Author: Daniel Mendler 
Commit: Daniel Mendler 

Add `embark-kill-ring-map` and `embark-kill-ring-remove`

See also:

* 
https://github.com/minad/marginalia/commit/440e2b969ba8c33509c1e78b76ecf652c61a01d1
* 
https://github.com/minad/consult/commit/378365f13d600b31ec23b1440bb7b239e7e18d7c
---
 embark-consult.el |  5 -
 embark.el | 13 +
 2 files changed, 13 insertions(+), 5 deletions(-)

diff --git a/embark-consult.el b/embark-consult.el
index bf3c17a..6c1167d 100644
--- a/embark-consult.el
+++ b/embark-consult.el
@@ -224,11 +224,6 @@ actual type."
 (setf (alist-get 'consult-register embark-collect-initial-view-alist)
   'zebra)
 
-;;; Support for consult-yank*
-
-(setf (alist-get 'consult-yank embark-collect-initial-view-alist)
-  'zebra)
-
 ;;; Bindings for consult commands in embark keymaps
 
 (define-key embark-file-map "x" #'consult-file-externally)
diff --git a/embark.el b/embark.el
index 8cf7e96..e80b636 100644
--- a/embark.el
+++ b/embark.el
@@ -138,6 +138,7 @@
 (region . embark-region-map)
 (sentence . embark-sentence-map)
 (paragraph . embark-paragraph-map)
+(kill-ring . embark-kill-ring-map)
 (t . embark-general-map))
   "Alist of action types and corresponding keymaps.
 For any type not listed here, `embark-act' will use
@@ -471,6 +472,7 @@ arguments and more details."
   '((bookmark-delete embark--restart)
 (bookmark-rename embark--restart)
 (delete-file embark--restart)
+(embark-kill-ring-remove embark--restart)
 (embark-recentf-remove embark--restart)
 (embark-history-remove embark--restart)
 (rename-file embark--restart)
@@ -2091,6 +2093,7 @@ which should be a string."
   '((file . grid)
 (buffer . grid)
 (symbol . list)
+(kill-ring . zebra)
 (t . list))
   "Initial views for Embark Collect buffers by type.
 This is an alist associating completion types to either `list',
@@ -3116,6 +3119,12 @@ When called with a prefix argument OTHER-WINDOW, open 
dired in other window."
   (interactive "fJump to Dired file: \nP")
   (dired-jump other-window file))
 
+(defun embark-kill-ring-remove (text)
+  "Remove TEXT from `kill-ring'."
+  (interactive (list (completing-read "Remove from kill-ring: " kill-ring nil 
t)))
+  (embark-history-remove text)
+  (setq kill-ring (delete text kill-ring)))
+
 (defvar recentf-list)
 (defun embark-recentf-remove (file)
   "Remove FILE from the list of recent files."
@@ -3483,6 +3492,10 @@ and leaves the point to the left of it."
   ("b" byte-compile-file)
   ("R" byte-recompile-directory))
 
+(embark-define-keymap embark-kill-ring-map
+  "Keymap for `kill-ring' commands."
+  ("\\" embark-kill-ring-remove))
+
 (embark-define-keymap embark-url-map
   "Keymap for Embark url actions."
   ("RET" browse-url)

[elpa] externals/embark aa9f0d7 2/4: Introduce embark--read-from-history

[ELPA Syncer]

branch: externals/embark
commit aa9f0d7c70ae5e939667b3d896aba0259cd0b2ed
Author: Daniel Mendler 
Commit: Daniel Mendler 

Introduce embark--read-from-history

One could argue that the remove from history commands should rather live in
Consult, since they are based on completion. However it seems that these
commands are only useful as minibuffer actions. If I recall correctly we 
came to
this conclusion before when we added `embark-recentf-remove`.
---
 embark.el | 30 +-
 1 file changed, 21 insertions(+), 9 deletions(-)

diff --git a/embark.el b/embark.el
index e80b636..e148308 100644
--- a/embark.el
+++ b/embark.el
@@ -3119,16 +3119,30 @@ When called with a prefix argument OTHER-WINDOW, open 
dired in other window."
   (interactive "fJump to Dired file: \nP")
   (dired-jump other-window file))
 
+(defun embark--read-from-history (prompt candidates &optional category)
+  "Read with completion from list of history CANDIDATES of CATEGORY.
+Sorting and history are disabled. PROMPT is the prompt message."
+  (completing-read prompt
+   (lambda (string predicate action)
+ (if (eq action 'metadata)
+ `(metadata (display-sort-function . identity)
+(cycle-sort-function . identity)
+(category . ,category))
+   (complete-with-action action candidates string 
predicate)))
+   nil t nil t))
+
 (defun embark-kill-ring-remove (text)
   "Remove TEXT from `kill-ring'."
-  (interactive (list (completing-read "Remove from kill-ring: " kill-ring nil 
t)))
+  (interactive (list (embark--read-from-history
+  "Remove from kill-ring: " kill-ring 'kill-ring)))
   (embark-history-remove text)
   (setq kill-ring (delete text kill-ring)))
 
 (defvar recentf-list)
 (defun embark-recentf-remove (file)
   "Remove FILE from the list of recent files."
-  (interactive (list (completing-read "Remove recent file: " recentf-list nil 
t)))
+  (interactive (list (embark--read-from-history
+  "Remove recent file: " recentf-list 'file)))
   (embark-history-remove file)
   (setq recentf-list (delete (expand-file-name file) recentf-list)))
 
@@ -3137,13 +3151,11 @@ When called with a prefix argument OTHER-WINDOW, open 
dired in other window."
 Many completion UIs sort by history position.  This command can be used
 to remove entries from the history, such that they are not sorted closer
 to the top."
-  (interactive
-   (list
-(completing-read "Remove history item: "
- (if (eq minibuffer-history-variable t)
- (user-error "No minibuffer history")
-   (symbol-value minibuffer-history-variable))
- nil t)))
+  (interactive (list (embark--read-from-history
+  "Remove history item: "
+  (if (eq minibuffer-history-variable t)
+  (user-error "No minibuffer history")
+(symbol-value minibuffer-history-variable)
   (unless (eq minibuffer-history-variable t)
 (set minibuffer-history-variable
  (delete str (symbol-value minibuffer-history-variable)

[elpa] externals/embark fb09ff8 4/4: Merge pull request #413 from minad/kill-ring

[ELPA Syncer]

branch: externals/embark
commit fb09ff86b943f1d8107b646fdcb3a3a48437a24a
Merge: 6e064fc 552dc4f
Author: Omar Antolín Camarena 
Commit: GitHub 

Merge pull request #413 from minad/kill-ring

Add `embark-kill-ring-map` and `embark-kill-ring-remove`
---
 embark-consult.el |  5 -
 embark.el | 46 --
 2 files changed, 36 insertions(+), 15 deletions(-)

diff --git a/embark-consult.el b/embark-consult.el
index bf3c17a..6c1167d 100644
--- a/embark-consult.el
+++ b/embark-consult.el
@@ -224,11 +224,6 @@ actual type."
 (setf (alist-get 'consult-register embark-collect-initial-view-alist)
   'zebra)
 
-;;; Support for consult-yank*
-
-(setf (alist-get 'consult-yank embark-collect-initial-view-alist)
-  'zebra)
-
 ;;; Bindings for consult commands in embark keymaps
 
 (define-key embark-file-map "x" #'consult-file-externally)
diff --git a/embark.el b/embark.el
index 8cf7e96..fc59008 100644
--- a/embark.el
+++ b/embark.el
@@ -138,6 +138,7 @@
 (region . embark-region-map)
 (sentence . embark-sentence-map)
 (paragraph . embark-paragraph-map)
+(kill-ring . embark-kill-ring-map)
 (t . embark-general-map))
   "Alist of action types and corresponding keymaps.
 For any type not listed here, `embark-act' will use
@@ -471,6 +472,7 @@ arguments and more details."
   '((bookmark-delete embark--restart)
 (bookmark-rename embark--restart)
 (delete-file embark--restart)
+(embark-kill-ring-remove embark--restart)
 (embark-recentf-remove embark--restart)
 (embark-history-remove embark--restart)
 (rename-file embark--restart)
@@ -2091,6 +2093,7 @@ which should be a string."
   '((file . grid)
 (buffer . grid)
 (symbol . list)
+(kill-ring . zebra)
 (t . list))
   "Initial views for Embark Collect buffers by type.
 This is an alist associating completion types to either `list',
@@ -2168,6 +2171,7 @@ This function is used as :after advice for 
`tabulated-list-revert'."
 (autoload 'package-delete "package")
 (declare-function package--from-builtin "package")
 (declare-function package-desc-extras "package")
+(declare-function package-desc-name "package")
 (defvar package--builtins)
 (defvar package-alist)
 (defvar package-archive-contents)
@@ -2908,13 +2912,13 @@ PRED is a predicate function used to filter the items."
   ;; We advise the serialization in order to avoid errors for nonserializable 
variables.
   (cl-letf* ((ht (make-hash-table :test #'equal))
  (orig-read (symbol-function #'read))
- (orig-write (symbol-function #'widget-sexp-value-to-internal))
+ (orig-write (symbol-function 'widget-sexp-value-to-internal))
  ((symbol-function #'read)
   (lambda (&optional str)
 (condition-case nil
 (funcall orig-read str)
   (error (gethash str ht)
- ((symbol-function #'widget-sexp-value-to-internal)
+ ((symbol-function 'widget-sexp-value-to-internal)
   (lambda (widget val)
 (let ((str (funcall orig-write widget val)))
   (puthash str val ht)
@@ -3116,10 +3120,30 @@ When called with a prefix argument OTHER-WINDOW, open 
dired in other window."
   (interactive "fJump to Dired file: \nP")
   (dired-jump other-window file))
 
+(defun embark--read-from-history (prompt candidates &optional category)
+  "Read with completion from list of history CANDIDATES of CATEGORY.
+Sorting and history are disabled. PROMPT is the prompt message."
+  (completing-read prompt
+   (lambda (string predicate action)
+ (if (eq action 'metadata)
+ `(metadata (display-sort-function . identity)
+(cycle-sort-function . identity)
+(category . ,category))
+   (complete-with-action action candidates string 
predicate)))
+   nil t nil t))
+
+(defun embark-kill-ring-remove (text)
+  "Remove TEXT from `kill-ring'."
+  (interactive (list (embark--read-from-history
+  "Remove from kill-ring: " kill-ring 'kill-ring)))
+  (embark-history-remove text)
+  (setq kill-ring (delete text kill-ring)))
+
 (defvar recentf-list)
 (defun embark-recentf-remove (file)
   "Remove FILE from the list of recent files."
-  (interactive (list (completing-read "Remove recent file: " recentf-list nil 
t)))
+  (interactive (list (embark--read-from-history
+  "Remove recent file: " recentf-list 'file)))
   (embark-history-remove file)
   (setq recentf-list (delete (expand-file-name file) recentf-list)))
 
@@ -3128,13 +3152,11 @@ When called with a prefix argument OTHER-WINDOW, open 
dired in other window."
 Many completion UIs sort by history position.  This command can be used
 to remove entries from the history, such that they are not sorted closer
 to the top."
-  (interactive
-   

[elpa] externals/embark-consult updated (6e064fc -> fb09ff8)

[ELPA Syncer]

elpasync pushed a change to branch externals/embark-consult.

  from  6e064fc   Merge pull request #411 from minad/fix-var-export2
  adds  388201d   Add `embark-kill-ring-map` and `embark-kill-ring-remove`
  adds  aa9f0d7   Introduce embark--read-from-history
  adds  552dc4f   Fix warnings
  adds  fb09ff8   Merge pull request #413 from minad/kill-ring

No new revisions were added by this update.

Summary of changes:
 embark-consult.el |  5 -
 embark.el | 46 --
 2 files changed, 36 insertions(+), 15 deletions(-)

[elpa] externals/mct 54b325b 2/5: Document how to install the GNU ELPA package

[ELPA Syncer]

branch: externals/mct
commit 54b325b313392917cb3aa44a6fdff28d318f0375
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Document how to install the GNU ELPA package
---
 README.org | 23 ++-
 1 file changed, 18 insertions(+), 5 deletions(-)

diff --git a/README.org b/README.org
index 5dc8fda..1d729e9 100644
--- a/README.org
+++ b/README.org
@@ -340,11 +340,24 @@ There are several ways to select a completion candidate.
 :CUSTOM_ID: h:1b501ed4-f16c-4118-9a4a-7a5e29143077
 :END:
 
-MCT is not in any package archive for the time being, though I plan to
-submit it to GNU ELPA (as such, any non-trivial patches require
-copyright assignment to the Free Software Foundation).  Users can rely
-on =straight.el=, =quelpa=, or equivalent to fetch the source.  Below are
-the essentials for those who prefer the manual method.
+** Install the package
+:PROPERTIES:
+:CUSTOM_ID: h:a191dbaa-22f6-4ad6-8185-1de64fe0a9bc
+:END:
+
+=mct= is available on the official GNU ELPA archive for users of Emacs
+version 27 or higher.  One can install the package without any further
+configuration.  The following commands shall suffice:
+
+#+begin_src emacs-lisp
+M-x package-refresh-contents
+M-x package-install RET mct
+#+end_src
+
+** Manual installation method
+:PROPERTIES:
+:CUSTOM_ID: h:663ec536-056b-443e-9272-2a365eb28b83
+:END:
 
 Assuming your Emacs files are found in =~/.emacs.d/=, execute the
 following commands in a shell prompt:

[elpa] externals/mct d4362de 1/5: Minor rewording of doc string

[ELPA Syncer]

branch: externals/mct
commit d4362de4d7a1fd9b646d0886811064dea70ece2e
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Minor rewording of doc string
---
 mct.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mct.el b/mct.el
index fc1a5a7..7e657b5 100644
--- a/mct.el
+++ b/mct.el
@@ -89,7 +89,7 @@ regardless of input length.
 
 When non-nil (the default), the Completions' buffer is
 automatically displayed once the `mct-minimum-input' is met and
-is hidden once the input drops below that threshold.  While
+is hidden if the input drops below that threshold.  While
 visible, the buffer is updated live to match the user input.
 
 Note that every function in the `mct-completion-passlist' ignores

[elpa] externals/mct 02049c5 3/5: Update Acknowledgements in the manual

[ELPA Syncer]

branch: externals/mct
commit 02049c53d48ad5e1baf830e9094d4364293b2aa1
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update Acknowledgements in the manual
---
 README.org | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/README.org b/README.org
index 1d729e9..e185c69 100644
--- a/README.org
+++ b/README.org
@@ -670,8 +670,9 @@ MCT is meant to be a collective effort.  Every bit of help 
matters.
 + Contributions to code or documentation :: James Norman Vladimir Cash,
   José Antonio Ortega Ruiz, Philip Kaludercic.
 
-+ Ideas and user feedback :: Jonathan Irving, José Antonio Ortega Ruiz,
-  Kostadin Ninev, Manuel Uberti, Philip Kaludercic.
++ Ideas and user feedback :: Case Duckworth, Jonathan Irving, José
+  Antonio Ortega Ruiz, Kostadin Ninev, Manuel Uberti, Philip Kaludercic,
+  Theodor Thornhill.
 
 + Inspiration for certain features :: =icomplete.el= (built-in---multiple
   authors), Daniel Mendler (=vertico=), Omar Antolín Camarena (=embark=,

[elpa] externals/mct 7a4c9e0 5/5: Update to version 0.3.0; add changelog file

[ELPA Syncer]

branch: externals/mct
commit 7a4c9e086b7806cce84a05caaf9d7a83af2ffc65
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update to version 0.3.0; add changelog file
---
 CHANGELOG.org | 286 ++
 README.org|   6 +-
 mct.el|   2 +-
 3 files changed, 290 insertions(+), 4 deletions(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
new file mode 100644
index 000..7d35994
--- /dev/null
+++ b/CHANGELOG.org
@@ -0,0 +1,286 @@
+#+TITLE: Change log of the Minibuffer and Completions in Tandem (mct)
+#+AUTHOR: Protesilaos Stavrou
+#+EMAIL: i...@protesilaos.com
+#+OPTIONS: ':nil toc:nil num:nil author:nil email:nil
+
+This document contains the release notes that are included in each
+tagged commit on the project's main git repository:
+.
+
+The newest release is at the top.  For further details, please consult
+the manual: .
+
+* Version 0.3.0 on 2021-11-19
+:PROPERTIES:
+:CUSTOM_ID: h:902574cf-edf0-4182-9d34-5e8e28730193
+:END:
+
+This entry describes the changes to Minibuffer and Completions in Tandem
+(mct) since the release of [[#h:4fab7648-d672-4af3-90b5-74242292f633][version 
0.2.0 on 2021-11-12]].  There have been
+more than 40 commits since then.  For further details, please consult
+the manual online: .  Or evaluate
+the following expression if you have the =mct= package installed:
+
+#+begin_src emacs-lisp
+(info "(mct) Top")
+#+end_src
+
+As this release is a continuation of version =0.2.0=, the changelog for
+that version is also provided below (I released version =0.2.0= earlier
+than anticipated so that users could get a stable package on GNU ELPA).
+Here is a brief description of what has been achieved in =0.3.0=.
+
+** MCT on Emacs 27
+
++ MCT now works on Emacs 27.  This was not possible in the past because
+  ~mct-mode~ was originally designed to operate with the =one-column= style
+  of the ~completions-format~, which was added in Emacs 28.  To make
+  everything behave intuitively, several parts had to be abstracted and
+  refactored (the changelog of version =0.2.0= (further below) covers
+  everything not mentioned here).
+
++ The scenaria where the functionality was thoroughly tested involve all
+  the available formats and cover commands that fulfil the following
+  criteria:
+
+  - Plain completion candidates, as in ~switch-to-buffer~.
+  - Dynamic completion like that of ~find-file~.
+  - Annotated candidates, as seen in ~describe-symbol~ for versions of
+Emacs 28 or higher.
+  - Commands where candidates are grouped by heading, as done by various
+extensions of the =consult= package, such as ~consult-imenu~.
+  - Commands where no completion category is associated with them.
+
++ The only change which is visible to the user is the implementation
+  of a bespoke overlay to highlight the current candidate.  In
+  previous versions, this was provided by the built-in ~hl-line-mode~,
+  though that does not work as intended with either the =vertical= or
+  =horizontal= layouts of the ~completions-format~ as it covers the whole
+  line instead of the candidate at point.
+
++ The highlight extends to the edge of the window when the =one-column=
+  format is used for the ~completions-format~ (Emacs 28 or higher).  In
+  the other views it stretches from the beginning to the end of the
+  completion candidate.
+
++ Thanks to Case Duckworth for the initial request and subsequent
+  testing in issue 1: .
+
+** Miscellaneous changes
+
++ There is a new command that is active in the minibuffer which allows
+  to complete and exit immediately: =C-RET= (~mct-complete-and-exit~).  This
+  economises on key presses when all the user wants is to select the
+  top-most candidate (or last highlighted one) without first switching
+  to the Completions' buffer and then confirming it from there (=RET= in
+  the =*Completions*= buffer completes and exits directly).
+
+  - Thanks to José Antonio Ortega Ruiz for the contribution in merge
+requests 3 and 4 as discussed in issue 8:
+
++ 
++ 
++ 
+
+  - Note that "exit" in this context denotes the process of terminating
+the session while accepting the current input.  The term used to
+quit without accepting the input is "abort".
+
++ The ~mct-mode~ does not get activated in contexts where (i) the
+  minibuffer is involved but (ii) no completion takes place.  For
+  example, the ~eval-expression~ command (bound to =M-:= by default).
+
++ ~mct-mode~ no longer remaps the faces of the ~display-line-numbers-mode~.
+  This was a useful experiment from the early days of the code base,
+  although it is bad practice for a user-facing package.
+
++ Various tweaks a

[elpa] externals/embark updated (6e064fc -> fb09ff8)

[ELPA Syncer]

elpasync pushed a change to branch externals/embark.

  from  6e064fc   Merge pull request #411 from minad/fix-var-export2
   new  388201d   Add `embark-kill-ring-map` and `embark-kill-ring-remove`
   new  aa9f0d7   Introduce embark--read-from-history
   new  552dc4f   Fix warnings
   new  fb09ff8   Merge pull request #413 from minad/kill-ring


Summary of changes:
 embark-consult.el |  5 -
 embark.el | 46 --
 2 files changed, 36 insertions(+), 15 deletions(-)

[elpa] externals/embark 552dc4f 3/4: Fix warnings

[ELPA Syncer]

branch: externals/embark
commit 552dc4f8bf2eca8e9e32cca2ab43b2e77abb8fe8
Author: Daniel Mendler 
Commit: Daniel Mendler 

Fix warnings
---
 embark.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/embark.el b/embark.el
index e148308..fc59008 100644
--- a/embark.el
+++ b/embark.el
@@ -2171,6 +2171,7 @@ This function is used as :after advice for 
`tabulated-list-revert'."
 (autoload 'package-delete "package")
 (declare-function package--from-builtin "package")
 (declare-function package-desc-extras "package")
+(declare-function package-desc-name "package")
 (defvar package--builtins)
 (defvar package-alist)
 (defvar package-archive-contents)
@@ -2911,13 +2912,13 @@ PRED is a predicate function used to filter the items."
   ;; We advise the serialization in order to avoid errors for nonserializable 
variables.
   (cl-letf* ((ht (make-hash-table :test #'equal))
  (orig-read (symbol-function #'read))
- (orig-write (symbol-function #'widget-sexp-value-to-internal))
+ (orig-write (symbol-function 'widget-sexp-value-to-internal))
  ((symbol-function #'read)
   (lambda (&optional str)
 (condition-case nil
 (funcall orig-read str)
   (error (gethash str ht)
- ((symbol-function #'widget-sexp-value-to-internal)
+ ((symbol-function 'widget-sexp-value-to-internal)
   (lambda (widget val)
 (let ((str (funcall orig-write widget val)))
   (puthash str val ht)

[elpa] externals/mct 7428880 4/5: Add links to official MCT sources in the manual

[ELPA Syncer]

branch: externals/mct
commit 742888066af8d93c84ab3c7587d54c479196592a
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add links to official MCT sources in the manual
---
 README.org | 9 +
 1 file changed, 9 insertions(+)

diff --git a/README.org b/README.org
index e185c69..b034962 100644
--- a/README.org
+++ b/README.org
@@ -678,6 +678,15 @@ MCT is meant to be a collective effort.  Every bit of help 
matters.
   authors), Daniel Mendler (=vertico=), Omar Antolín Camarena (=embark=,
   =live-completions=), Štěpán Němec (=stripes.el=).
 
+* Official sources
+:PROPERTIES:
+:CUSTOM_ID: h:32f474f2-f596-4a7e-a0da-023344136be1
+:END:
+
++ Manual :: 
++ Change log :: 
++ Source code :: 
+
 * GNU Free Documentation License
 :PROPERTIES:
 :APPENDIX: t

[elpa] externals/javaimp df6ad62: * javaimp.el (javaimp-help-show-scopes): Add show-all arg

[Filipp Gunbin]

branch: externals/javaimp
commit df6ad62197bc863227c7c74ba6817312de9ba681
Author: Filipp Gunbin 
Commit: Filipp Gunbin 

* javaimp.el (javaimp-help-show-scopes): Add show-all arg
---
 javaimp.el | 23 ---
 1 file changed, 16 insertions(+), 7 deletions(-)

diff --git a/javaimp.el b/javaimp.el
index 328a5ae..5a934a7 100644
--- a/javaimp.el
+++ b/javaimp.el
@@ -750,13 +750,22 @@ start (`javaimp-scope-start') instead."
(javaimp-scope-start scope)
  (javaimp-scope-open-brace scope)))
 
-(defun javaimp-help-show-scopes ()
-  "Show scopes in a *javaimp-scopes* buffer."
-  (interactive)
-  (let ((scopes (save-excursion
-  (save-restriction
-(widen)
-(javaimp--parse-get-all-scopes
+(defun javaimp-help-show-scopes (&optional show-all)
+  "Show scopes in a *javaimp-scopes* buffer, with clickable
+entries.  By default, the scopes are only those which appear in
+Imenu (`javaimp-imenu-create-index' is responsible for that), but
+with prefix arg, show all scopes."
+  (interactive "P")
+  (let ((scopes
+ (save-excursion
+   (save-restriction
+ (widen)
+ (javaimp--parse-get-all-scopes
+  (unless show-all
+(lambda (scope)
+  (javaimp-test-scope-type scope
+'(class interface enum method)
+javaimp--classlike-scope-types)))
 (file buffer-file-name)
 (buf (get-buffer-create "*javaimp-scopes*")))
 (with-current-buffer buf

[nongnu] elpa/clojure-mode 7d3c0c1: Add refactoring command for converting #() shorthand to (fn ...) (#601)

[ELPA Syncer]

branch: elpa/clojure-mode
commit 7d3c0c16e4aa14a051b393c249f0f4d307a2c74d
Author: yuhan0 
Commit: GitHub 

Add refactoring command for converting #() shorthand to (fn ...) (#601)
---
 CHANGELOG.md |  1 +
 clojure-mode.el  | 64 +
 test/clojure-mode-promote-fn-literal-test.el | 72 
 3 files changed, 137 insertions(+)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index 45e2557..0a08b4b 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -6,6 +6,7 @@
 
 * Allow additional directories, beyond the default `clj[sc]`, to be correctly 
formulated by `clojure-expected-ns` via new `defcustom` entitled 
`clojure-directory-prefixes`
 * Recognize babashka projects (identified by the presence of `bb.edn`).
+* [#601](https://github.com/clojure-emacs/clojure-mode/pull/601): Add new 
command `clojure-promote-fn-literal` for converting #() function literals to 
`fn` form 
 
 ### Changes
 
diff --git a/clojure-mode.el b/clojure-mode.el
index 599a312..0c782b4 100644
--- a/clojure-mode.el
+++ b/clojure-mode.el
@@ -263,6 +263,8 @@ The prefixes are used to generate the correct namespace."
 (define-key map (kbd "C--") #'clojure-toggle-ignore)
 (define-key map (kbd "_") #'clojure-toggle-ignore-surrounding-form)
 (define-key map (kbd "C-_") #'clojure-toggle-ignore-surrounding-form)
+(define-key map (kbd "P") #'clojure-promote-fn-literal)
+(define-key map (kbd "C-P") #'clojure-promote-fn-literal)
 map)
   "Keymap for Clojure refactoring commands.")
 (fset 'clojure-refactor-map clojure-refactor-map)
@@ -284,6 +286,7 @@ The prefixes are used to generate the correct namespace."
 ["Toggle #_ ignore form" clojure-toggle-ignore]
 ["Toggle #_ ignore of surrounding form" 
clojure-toggle-ignore-surrounding-form]
 ["Add function arity" clojure-add-arity]
+["Promote #() fn literal" clojure-promote-fn-literal]
 ("ns forms"
  ["Insert ns form at the top" clojure-insert-ns-form]
  ["Insert ns form here" clojure-insert-ns-form-at-point]
@@ -2769,6 +2772,67 @@ With a numeric prefix argument the let is introduced N 
lists up."
   (interactive)
   (clojure--move-to-let-internal (read-from-minibuffer "Name of bound symbol: 
")))
 
+;;; Promoting #() function literals
+(defun clojure--gather-fn-literal-args ()
+  "Return a cons cell (ARITY . VARARG)
+ARITY is number of arguments in the function,
+VARARG is a boolean of whether it takes a variable argument %&."
+  (save-excursion
+(let ((end (save-excursion (clojure-forward-logical-sexp) (point)))
+  (rgx (rx symbol-start "%" (group (?  (or "&" (+ (in "0-9") 
symbol-end))
+  (arity 0)
+  (vararg nil))
+  (while (re-search-forward rgx end 'noerror)
+(when (not (or (clojure--in-comment-p) (clojure--in-string-p)))
+  (let ((s (match-string 1)))
+(if (string= s "&")
+(setq vararg t)
+  (setq arity
+(max arity
+ (if (string= s "") 1
+   (string-to-number s
+  (cons arity vararg
+
+(defun clojure--substitute-fn-literal-arg (arg sub end)
+  "ARG is either a number or the symbol '&.
+SUB is a string to substitute with, and
+END marks the end of the fn expression"
+  (save-excursion
+(let ((rgx (format "\\_<%%%s\\_>" (if (eq arg 1) "1?" arg
+  (while (re-search-forward rgx end 'noerror)
+(when (and (not (clojure--in-comment-p))
+   (not (clojure--in-string-p)))
+  (replace-match sub))
+
+(defun clojure-promote-fn-literal ()
+  "Convert a #(...) function into (fn [...] ...), prompting for the argument 
names."
+  (interactive)
+  (when-let (beg (clojure-string-start))
+(goto-char beg))
+  (if (or (looking-at-p "#(")
+  (ignore-errors (forward-char 1))
+  (re-search-backward "#(" (save-excursion (beginning-of-defun) 
(point)) 'noerror))
+  (let* ((end (save-excursion (clojure-forward-logical-sexp) 
(point-marker)))
+ (argspec (clojure--gather-fn-literal-args))
+ (arity (car argspec))
+ (vararg (cdr argspec)))
+(delete-char 1)
+(save-excursion (forward-sexp 1) (insert ")"))
+(save-excursion
+  (insert "(fn [] ")
+  (backward-char 2)
+  (mapc (lambda (n)
+  (let ((name (read-string (format "Name of argument %d: " 
n
+(when (/= n 1) (insert " "))
+(insert name)
+(clojure--substitute-fn-literal-arg n name end)))
+(number-sequence 1 arity))
+  (when vararg
+(insert " & ")
+(let ((name (read-string "Name of variadic argument: ")))
+  (insert name)
+  (clojure--substitute-fn-literal-arg '& name end)
+(user-error "No #() literal at point!")))
 
 ;;; Renami

[elpa] externals/consult b70bd86: README Updates

[ELPA Syncer]

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

README Updates
---
 README.org | 21 ++---
 1 file changed, 10 insertions(+), 11 deletions(-)

diff --git a/README.org b/README.org
index 2d81130..a55757b 100644
--- a/README.org
+++ b/README.org
@@ -362,12 +362,12 @@ their descriptions.
This is mainly relevant if you use the default =*Completions*= UI or if you
want to enable preview in Embark Collect buffers.
  - =consult-completion-in-region=: This function can be set as
-   =completion-in-region-function=. Then the minibuffer completion UI will be 
used
-   for =completion-at-point=. This function is particularly useful in 
combination
-   with Vertico or Icomplete, since these UIs do not provide their own
-   =completion-in-region-function=. Selectrum already comes with its own 
function
-   similar to =consult-completion-in-region=. If you use the default 
=*Completions*=
-   UI, note that =consult-completion-in-region= is not useful.
+   =completion-in-region-function=. Then the minibuffer completion UI will be
+   used for =completion-at-point=. This function is particularly useful in
+   combination with Vertico or Icomplete, since these UIs do not provide their
+   own =completion-in-region-function=. Selectrum provides its own function
+   similar to =consult-completion-in-region=. If you use the default
+   =*Completions*= UI, note that =consult-completion-in-region= is not useful.
#+begin_src emacs-lisp
  ;; Use `consult-completion-in-region' if Vertico is enabled.
  ;; Otherwise use the default `completion--in-region' function.
@@ -477,8 +477,7 @@ their descriptions.
 
  Consult has special support for candidate groups. If the completion UI 
supports
  the grouping functionality, the UI separates the groups with thin lines and
- shows group titles. As of now, Vertico, Selectrum and Icomplete-vertical
- provide support. Grouping is useful if the list of candidates consists of
+ shows group titles. Grouping is useful if the list of candidates consists of
  candidates of multiple types or candidates from [[#multiple-sources][multiple 
sources]], like the
  =consult-buffer= command, which shows both buffers and recently opened files.
  Note that you can disable the group titles by setting the =:group= property of
@@ -824,9 +823,9 @@ configuration examples.
 ("M-s l" . consult-line)  ;; needed by 
consult-line to detect isearch
 ("M-s L" . consult-line-multi))   ;; needed by 
consult-line to detect isearch
 
- ;; Enable automatic preview at point in the *Completions* buffer.
- ;; This is relevant when you use the default completion UI,
- ;; and not necessary for Vertico, Selectrum, etc.
+ ;; Enable automatic preview at point in the *Completions* buffer. This is
+ ;; relevant when you use the default completion UI. You may want to also
+ ;; enable `consult-preview-at-point-mode` in Embark Collect buffers.
  :hook (completion-list-mode . consult-preview-at-point-mode)
 
  ;; The :init configuration is always executed (Not lazy)

[nongnu] elpa/geiser 68e0991: Fix: allow implementations to tell us if they entered their debugger

[ELPA Syncer]

branch: elpa/geiser
commit 68e0991c96b1e5bc9a1d748a05a96127c6204987
Author: jao 
Commit: jao 

Fix: allow implementations to tell us if they entered their debugger

We were always displaying the debug buffer, regardless, which is not
what we want: upon entering a debugger, we switch to the repl, and all
the needed info is already there.
---
 elisp/geiser-debug.el | 55 ++-
 1 file changed, 28 insertions(+), 27 deletions(-)

diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el
index fe1c85d..c2194d2 100644
--- a/elisp/geiser-debug.el
+++ b/elisp/geiser-debug.el
@@ -163,34 +163,35 @@ buffer.")
  (dir default-directory)
  (buffer (current-buffer))
  (debug (eq key 'geiser-debugger))
+ (debug-entered (when debug
+  (switch-to-geiser nil nil buffer)
+  (geiser-debug--enter-debugger impl)))
  (after (geiser-debug--display-after what)))
-(when debug
-  (switch-to-geiser nil nil buffer)
-  (geiser-debug--enter-debugger impl))
-(geiser-debug--with-buffer
-  (erase-buffer)
-  (when dir (setq default-directory dir))
-  (unless after (insert what "\n\n"))
-  (setq img (when (and res (not err)) (geiser-debug--insert-res res)))
-  (when (or err key output)
-(or (geiser-debug--display-error impl module key output)
-(insert "\n" (if key (format "%s\n" key) "") output "\n")))
-  (when after
-(goto-char (point-max))
-(insert "\nExpression evaluated was:\n\n")
-(insert what "\n"))
-  (cl-case geiser-debug-treat-ansi-colors
-(colors (ansi-color-apply-on-region (point-min) (point-max)))
-(remove (ansi-color-filter-region (point-min) (point-max
-  (goto-char (point-min)))
-(when (or img err output)
-  (when (or geiser-debug-jump-to-debug-p geiser-debug-show-debug-p)
-(if geiser-debug-jump-to-debug-p
-(geiser-debug--pop-to-buffer)
-  (display-buffer (geiser-debug--buffer
-  (when err
-(ignore-errors (next-error))
-(message "=> %s" output)
+(unless debug-entered
+  (geiser-debug--with-buffer
+(erase-buffer)
+(when dir (setq default-directory dir))
+(unless after (insert what "\n\n"))
+(setq img (when (and res (not err)) (geiser-debug--insert-res res)))
+(when (or err key output)
+  (or (geiser-debug--display-error impl module key output)
+  (insert "\n" (if key (format "%s\n" key) "") output "\n")))
+(when after
+  (goto-char (point-max))
+  (insert "\nExpression evaluated was:\n\n")
+  (insert what "\n"))
+(cl-case geiser-debug-treat-ansi-colors
+  (colors (ansi-color-apply-on-region (point-min) (point-max)))
+  (remove (ansi-color-filter-region (point-min) (point-max
+(goto-char (point-min)))
+  (when (or img err output)
+(when (or geiser-debug-jump-to-debug-p geiser-debug-show-debug-p)
+  (if geiser-debug-jump-to-debug-p
+  (geiser-debug--pop-to-buffer)
+(display-buffer (geiser-debug--buffer
+(when err
+  (ignore-errors (next-error))
+  (message "=> %s" output))
 
 (defsubst geiser-debug--wrap-region (str)
   (format "(begin %s\n)" str))

[nongnu] elpa/geiser-guile 040b718: Tell geiser we've entered the debugger: newest version will listen

[ELPA Syncer]

branch: elpa/geiser-guile
commit 040b7184e277ff3b3571690f73a13e934477b2c8
Author: jao 
Commit: jao 

Tell geiser we've entered the debugger: newest version will listen
---
 geiser-guile.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/geiser-guile.el b/geiser-guile.el
index 9373061..275e194 100644
--- a/geiser-guile.el
+++ b/geiser-guile.el
@@ -7,7 +7,7 @@
 ;; Maintainer: Jose Antonio Ortega Ruiz (j...@gnu.org)
 ;; Keywords: languages, guile, scheme, geiser
 ;; Homepage: https://gitlab.com/emacs-geiser/guile
-;; Package-Requires: ((emacs "24.4") (geiser "0.16"))
+;; Package-Requires: ((emacs "24.4") (geiser "0.18"))
 ;; SPDX-License-Identifier: BSD-3-Clause
 ;; Version: 0.18
 
@@ -251,7 +251,8 @@ This function uses `geiser-guile-init-file' if it exists."
 (when geiser-guile-jump-on-debug-p
   (accept-process-output (get-buffer-process (current-buffer))
  0.2 nil t)
-  (ignore-errors (next-error)
+  (ignore-errors (next-error)))
+t))
 
 (defun geiser-guile--display-error (_module key msg)
   "Display error with given KEY and message MSG."