[elpa] elpa-admin 0190d7faba: ; Fix typo

[Stefan Kangas]

branch: elpa-admin
commit 0190d7faba5c504d18f104c55a192118e67f29be
Author: Stefan Kangas 
Commit: Stefan Kangas 

; Fix typo
---
 elpa-admin.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/elpa-admin.el b/elpa-admin.el
index 947f40dbb7..18151d69ab 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -96,7 +96,7 @@ See variable `org-export-options-alist'.")
 (insert-file-contents filename)
 ;; This is unnecessary because ‘with-temp-buffer’ generates a new
 ;; (empty) buffer, and ‘insert-file-contents’ inserts after point.
-;; In other words, point is alraedy at bob.
+;; In other words, point is already at bob.
 ;;- (goto-char (point-min))
 (read (current-buffer
 

[elpa] externals/pyim updated (16f7c3cf07 -> 65af410a66)

[ELPA Syncer]

elpasync pushed a change to branch externals/pyim.

  from  16f7c3cf07 Update README
   new  89f9c3518a Fix baidu cloudim.
   new  b12ae0fab4 Add .elpaignore file
   new  65af410a66 v5.2.9


Summary of changes:
 .elpaignore |  2 ++
 pyim-cloudim.el | 25 ++---
 pyim.el |  2 +-
 tests/pyim-tests.el |  8 ++--
 4 files changed, 27 insertions(+), 10 deletions(-)
 create mode 100644 .elpaignore

[elpa] externals/pyim 65af410a66 3/3: v5.2.9

[ELPA Syncer]

branch: externals/pyim
commit 65af410a6671725727593e2ea2767a97bdeb79b0
Author: Feng Shu 
Commit: Feng Shu 

v5.2.9
---
 pyim.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pyim.el b/pyim.el
index c3e5fcff8c..fdff16cb1e 100644
--- a/pyim.el
+++ b/pyim.el
@@ -7,7 +7,7 @@
 ;; Feng Shu 
 ;; Maintainer: Feng Shu 
 ;; URL: https://github.com/tumashu/pyim
-;; Version: 5.2.8
+;; Version: 5.2.9
 ;; Keywords: convenience, Chinese, pinyin, input-method
 ;; Package-Requires: ((emacs "25.1") (async "1.6") (xr "1.13"))
 

[elpa] externals/pyim 89f9c3518a 1/3: Fix baidu cloudim.

[ELPA Syncer]

branch: externals/pyim
commit 89f9c3518a80e80aa61b926accc387cc0dd915e1
Author: Feng Shu 
Commit: Feng Shu 

Fix baidu cloudim.
---
 pyim-cloudim.el | 25 ++---
 tests/pyim-tests.el |  8 ++--
 2 files changed, 24 insertions(+), 9 deletions(-)

diff --git a/pyim-cloudim.el b/pyim-cloudim.el
index 098b3275aa..d39738798f 100644
--- a/pyim-cloudim.el
+++ b/pyim-cloudim.el
@@ -61,13 +61,24 @@
   ;; NOTE: 以前这个函数使用 `json-parse-buffer' 来处理返回的结果，但因为旧版本
   ;; Emacs 没有 `json-parse-buffer' 函数，所以现在改用这种简单粗暴的方式，虽然没
   ;; 有使用 json 得到的结果精确，但应该适用于大多数情况，同时也减少了一个包依赖。
-  (let ((word (replace-regexp-in-string
-   "\\CC" ""
-   (decode-coding-string
-(buffer-string)
-'utf-8
-(when (> (length word) 0)
-  (list (propertize word :comment "(云)")
+  (let ((words (pyim-cloudim--parse-baidu-buffer-string (buffer-string
+(when (> (length words) 0)
+  (mapcar (lambda (word)
+(propertize word :comment "(云)"))
+  words
+
+(defun pyim-cloudim--parse-baidu-buffer-string (string)
+  "从 baidu buffer STRING 中抓取中文词条，返回对应的词条列表."
+  (let ((string (decode-coding-string string 'utf-8))
+(sep "丨"))
+(cl-remove-if-not
+ (lambda (x)
+   (> (length x) 0))
+ (split-string
+  (replace-regexp-in-string
+   "\\CC" ""
+   (replace-regexp-in-string "," sep string))
+  (format "[%s]+" sep)
 
 (cl-defmethod pyim-candidates-create-async
   (imobjs (scheme pyim-scheme-quanpin) callback
diff --git a/tests/pyim-tests.el b/tests/pyim-tests.el
index 9fb3e98eb8..b0e0083123 100644
--- a/tests/pyim-tests.el
+++ b/tests/pyim-tests.el
@@ -1546,10 +1546,14 @@ Content-Length: 88
 Content-Type: text/plain; charset=utf-8
 Date: Sun, 08 May 2022 00:56:13 GMT
 
-{\"0\":[[[\"你好\",5,{\"pinyin\":\"ni'hao\",\"type\":\"IMEDICT\"}]]],\"1\":\"ni'hao\",\"result\":[null]}")
-(should (equal (pyim-cloudim--parse-baidu-buffer) '("你好")))
+{\"0\":[[[\"嘻嘻\",4,{\"pinyin\":\"xi'xi\",\"type\":\"IMEDICT\"}],[\"茜茜\",8,{\"pinyin\":\"qian'qian\",\"type\":\"IMEDICT\"}],[\"洗洗\",4,{\"pinyin\":\"xi'xi\",\"type\":\"IMEDICT\"}]]],\"1\":\"xi'xi\",\"result\":[null]}")
+(should (equal (pyim-cloudim--parse-baidu-buffer) '("嘻嘻" "茜茜" "洗洗")))
 (should (equal (get-text-property 0 :comment (car 
(pyim-cloudim--parse-baidu-buffer))) "(云)")))
 
+  (should (equal (pyim-cloudim--parse-baidu-buffer-string
+  
"{\"0\":[[[\"嘻嘻\",4,{\"pinyin\":\"xi'xi\",\"type\":\"IMEDICT\"}],[\"茜茜\",8,{\"pinyin\":\"qian'qian\",\"type\":\"IMEDICT\"}],[\"洗洗\",4,{\"pinyin\":\"xi'xi\",\"type\":\"IMEDICT\"}]]],\"1\":\"xi'xi\",\"result\":[null]}")
+ '("嘻嘻" "茜茜" "洗洗")))
+
   (with-temp-buffer
 (insert "HTTP/1.1 200 OK
 Date: Sun, 08 May 2022 03:33:56 GMT

[elpa] externals/pyim b12ae0fab4 2/3: Add .elpaignore file

[ELPA Syncer]

branch: externals/pyim
commit b12ae0fab4b4b6ea957c97a8b696a7c6a21c337b
Author: Feng Shu 
Commit: Feng Shu 

Add .elpaignore file
---
 .elpaignore | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/.elpaignore b/.elpaignore
new file mode 100644
index 00..9831f909b2
--- /dev/null
+++ b/.elpaignore
@@ -0,0 +1,2 @@
+snapshots
+.github
\ No newline at end of file

[elpa] externals/eev ae6aef1337: Factored `find-slyprocess'.

[ELPA Syncer]

branch: externals/eev
commit ae6aef1337536e1e193ca9d2219b8aed50bb113a
Author: Eduardo Ochs 
Commit: Eduardo Ochs 

Factored `find-slyprocess'.
---
 ChangeLog|  7 +++
 VERSION  |  4 ++--
 eepitch.el   | 29 +
 eev-intro.el |  2 +-
 4 files changed, 31 insertions(+), 11 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index b0a1646b59..181725a0f6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2022-12-28  Eduardo Ochs  
+
+   * eepitch.el (find-slyprocess-reuse, find-slyprocess-create): new
+   functions.
+   (find-slyprocess): use `find-slyprocess-reuse' and
+   `find-slyprocess-create'.
+
 2022-12-27  Eduardo Ochs  
 
* eev-videolinks.el (ee-1stclassvideos-info): added an indication
diff --git a/VERSION b/VERSION
index 1f9bbb1e8a..b77a64e0ef 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Tue Dec 27 03:47:50 GMT 2022
-Tue Dec 27 00:47:50 -03 2022
+Thu Dec 29 00:29:47 GMT 2022
+Wed Dec 28 21:29:47 -03 2022
diff --git a/eepitch.el b/eepitch.el
index f24cba7ccf..b0f07e163f 100644
--- a/eepitch.el
+++ b/eepitch.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author: Eduardo Ochs 
 ;; Maintainer: Eduardo Ochs 
-;; Version:20221123
+;; Version:20221228
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eepitch.el>
@@ -904,19 +904,32 @@ The arguments are explained here:
 ;; «eepitch-sly»  (to ".eepitch-sly")
 ;; This is a prototype. See:
 ;; https://github.com/joaotavora/sly/issues/527
-;;
+;; https://github.com/joaotavora/sly/issues/550
+;;
+(defun find-slyprocess-reuse ()
+  "Go to a Sly REPL buffer (when we want to reuse an old one).
+This is an internal function used by `find-slyprocess'."
+  (find-ebuffer (sly-mrepl--find-buffer) :end))
+
+(defun find-slyprocess-create ()
+  "Go to a Sly REPL buffer (when we want to create a new one).
+This is an internal function used by `find-slyprocess'."
+  (let ((sly-command-switch-to-existing-lisp 'never)
+   (sly-auto-select-connection 'never)
+   (sly-lisp-implementations '((sbcl ("sbcl"
+   (sly-default-lisp 'sbcl))
+(save-window-excursion (sly))  ; TODO: fix this
+(find-slyprocess-reuse)))
+
 (defun find-slyprocess ()
   "Go to a Sly REPL buffer, This function is used by `eepitch-sly'."
+  (interactive)
   (require 'sly)
   (sly-setup)
   (if (and (sly-current-connection)
   (sly-mrepl--find-buffer))
-  (find-ebuffer (sly-mrepl--find-buffer) :end)
-(let ((sly-command-switch-to-existing-lisp 'never)
- (sly-auto-select-connection 'never)
- (sly-lisp-implementations '((sbcl ("sbcl"
- (sly-default-lisp 'sbcl))
-  (sly
+  (find-slyprocess-reuse)
+(find-slyprocess-create)))
 
 (defun eepitch-sly () (interactive)
   (eepitch '(find-slyprocess)))
diff --git a/eev-intro.el b/eev-intro.el
index ff45fc2ab7..3fca3ead4b 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -10407,7 +10407,7 @@ Etc:
 \(Re)generate: (find-prepared-intro)
 Source code:  (find-eev \"eev-intro.el\" \"find-prepared-intro\")
 More intros:  (find-eev-quick-intro)
-  (find-eval-intro)
+  (find-eev-intro)
   (find-eepitch-intro)
 This buffer is _temporary_ and _editable_.
 It is meant as both a tutorial and a sandbox.

[nongnu] elpa/xml-rpc 132af4f777 1/2: Fix typos found with codespell

[ELPA Syncer]

branch: elpa/xml-rpc
commit 132af4f77790a6f4f09e2cbcd9efc179b77a9caa
Author: Stefan Kangas 
Commit: Stefan Kangas 

Fix typos found with codespell
---
 README.org | 2 +-
 xml-rpc.el | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/README.org b/README.org
index e9317b0028..f281769718 100644
--- a/README.org
+++ b/README.org
@@ -13,7 +13,7 @@ xml-rpc.el represents XML-RPC datatypes as lisp values, 
automatically converting
 
 * Installation:
 
-If you use [[http://elpa.gnu.org/][ELPA]], and have configured the 
[[https://elpa.nongnu.org/][NonGNU ELPA]] or [[https://melpa.org/][MELPA]] 
repository, then =M-x package-install RET xml-rpc RET= interface. This is 
preferrable as you will have access to updates automatically.
+If you use [[http://elpa.gnu.org/][ELPA]], and have configured the 
[[https://elpa.nongnu.org/][NonGNU ELPA]] or [[https://melpa.org/][MELPA]] 
repository, then =M-x package-install RET xml-rpc RET= interface. This is 
preferable as you will have access to updates automatically.
 
 If you would like to use ELPA, but this is your first time to use it, or 
NonGNU ELPA/MELPA, then try evaluating the following code in emacs:
 #+begin_src elisp
diff --git a/xml-rpc.el b/xml-rpc.el
index f83f90a7fa..ce45ac9bf8 100644
--- a/xml-rpc.el
+++ b/xml-rpc.el
@@ -360,7 +360,7 @@ functions in xml.el."
 
 (defsubst xml-rpc-response-errorp (response)
   "An `xml-rpc-method-call' result value is always a list, where the first
-element in RESPONSE is either nil or if an error occured, a cons pair
+element in RESPONSE is either nil or if an error occurred, a cons pair
 according to (errnum . \"Error string\")."
   (eq 'fault (car-safe (caddar response
 
@@ -410,7 +410,7 @@ the parsed XML response is returned."
 
 If ASYNC-CALLBACK-FUNCTION is non-nil, the request will be performed
 asynchronously and ASYNC-CALLBACK-FUNCTION should be a callback function to
-be called when the reuest is finished.  ASYNC-CALLBACK-FUNCTION is called with
+be called when the request is finished.  ASYNC-CALLBACK-FUNCTION is called with
 a single argument being an xml.el style XML list.
 
 It returns an XML list containing the method response from the XML-RPC server,
@@ -508,7 +508,7 @@ or nil if called with ASYNC-CALLBACK-FUNCTION."
  ((listp elem)
   (setq result (append result (list (xml-rpc-clean elem)
 
- ;; everthing else, as is.
+ ;; everything else, as is.
  (t
   (setq result (append result (list elem))
   result))

[nongnu] elpa/xml-rpc 8272789df8 2/2: Merge pull request #27 from skangas/typos

[ELPA Syncer]

branch: elpa/xml-rpc
commit 8272789df8a4deab4de7d50e63b73b7d0543bc7f
Merge: 85a9fc06c5 132af4f777
Author: Mark A. Hershberger 
Commit: GitHub 

Merge pull request #27 from skangas/typos

Fix typos found with codespell
---
 README.org | 2 +-
 xml-rpc.el | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/README.org b/README.org
index e9317b0028..f281769718 100644
--- a/README.org
+++ b/README.org
@@ -13,7 +13,7 @@ xml-rpc.el represents XML-RPC datatypes as lisp values, 
automatically converting
 
 * Installation:
 
-If you use [[http://elpa.gnu.org/][ELPA]], and have configured the 
[[https://elpa.nongnu.org/][NonGNU ELPA]] or [[https://melpa.org/][MELPA]] 
repository, then =M-x package-install RET xml-rpc RET= interface. This is 
preferrable as you will have access to updates automatically.
+If you use [[http://elpa.gnu.org/][ELPA]], and have configured the 
[[https://elpa.nongnu.org/][NonGNU ELPA]] or [[https://melpa.org/][MELPA]] 
repository, then =M-x package-install RET xml-rpc RET= interface. This is 
preferable as you will have access to updates automatically.
 
 If you would like to use ELPA, but this is your first time to use it, or 
NonGNU ELPA/MELPA, then try evaluating the following code in emacs:
 #+begin_src elisp
diff --git a/xml-rpc.el b/xml-rpc.el
index f83f90a7fa..ce45ac9bf8 100644
--- a/xml-rpc.el
+++ b/xml-rpc.el
@@ -360,7 +360,7 @@ functions in xml.el."
 
 (defsubst xml-rpc-response-errorp (response)
   "An `xml-rpc-method-call' result value is always a list, where the first
-element in RESPONSE is either nil or if an error occured, a cons pair
+element in RESPONSE is either nil or if an error occurred, a cons pair
 according to (errnum . \"Error string\")."
   (eq 'fault (car-safe (caddar response
 
@@ -410,7 +410,7 @@ the parsed XML response is returned."
 
 If ASYNC-CALLBACK-FUNCTION is non-nil, the request will be performed
 asynchronously and ASYNC-CALLBACK-FUNCTION should be a callback function to
-be called when the reuest is finished.  ASYNC-CALLBACK-FUNCTION is called with
+be called when the request is finished.  ASYNC-CALLBACK-FUNCTION is called with
 a single argument being an xml.el style XML list.
 
 It returns an XML list containing the method response from the XML-RPC server,
@@ -508,7 +508,7 @@ or nil if called with ASYNC-CALLBACK-FUNCTION."
  ((listp elem)
   (setq result (append result (list (xml-rpc-clean elem)
 
- ;; everthing else, as is.
+ ;; everything else, as is.
  (t
   (setq result (append result (list elem))
   result))

[nongnu] elpa/editorconfig b8043702f3: chore: Place emacs dependency to the front (#285)

[ELPA Syncer]

branch: elpa/editorconfig
commit b8043702f3d977db0e030c6c64ee4a810cad5f45
Author: Jen-Chieh Shen 
Commit: GitHub 

chore: Place emacs dependency to the front (#285)

* chore: Place emacs dependency infront

* Update copyright year
---
 editorconfig-conf-mode.el   | 2 +-
 editorconfig-core-handle.el | 2 +-
 editorconfig-core.el| 2 +-
 editorconfig-fnmatch.el | 2 +-
 editorconfig.el | 4 ++--
 5 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/editorconfig-conf-mode.el b/editorconfig-conf-mode.el
index 9d4182caa3..f4f7de944a 100644
--- a/editorconfig-conf-mode.el
+++ b/editorconfig-conf-mode.el
@@ -1,6 +1,6 @@
 ;;; editorconfig-conf-mode.el --- Major mode for editing .editorconfig files  
-*- lexical-binding: t -*-
 
-;; Copyright (C) 2011-2021 EditorConfig Team
+;; Copyright (C) 2011-2022 EditorConfig Team
 
 ;; Author: EditorConfig Team 
 
diff --git a/editorconfig-core-handle.el b/editorconfig-core-handle.el
index 688da44397..c0dedb68f5 100644
--- a/editorconfig-core-handle.el
+++ b/editorconfig-core-handle.el
@@ -1,6 +1,6 @@
 ;;; editorconfig-core-handle.el --- Handle Class for EditorConfig File  -*- 
lexical-binding: t -*-
 
-;; Copyright (C) 2011-2021 EditorConfig Team
+;; Copyright (C) 2011-2022 EditorConfig Team
 
 ;; Author: EditorConfig Team 
 
diff --git a/editorconfig-core.el b/editorconfig-core.el
index a5a9ce72c0..b60a253c0b 100644
--- a/editorconfig-core.el
+++ b/editorconfig-core.el
@@ -1,6 +1,6 @@
 ;;; editorconfig-core.el --- EditorConfig Core library in Emacs Lisp  -*- 
lexical-binding: t -*-
 
-;; Copyright (C) 2011-2021 EditorConfig Team
+;; Copyright (C) 2011-2022 EditorConfig Team
 
 ;; Author: EditorConfig Team 
 
diff --git a/editorconfig-fnmatch.el b/editorconfig-fnmatch.el
index 3ff87fa75f..94c2580f59 100644
--- a/editorconfig-fnmatch.el
+++ b/editorconfig-fnmatch.el
@@ -1,6 +1,6 @@
 ;;; editorconfig-fnmatch.el --- Glob pattern matching in Emacs lisp  -*- 
lexical-binding: t -*-
 
-;; Copyright (C) 2011-2021 EditorConfig Team
+;; Copyright (C) 2011-2022 EditorConfig Team
 
 ;; Author: EditorConfig Team 
 
diff --git a/editorconfig.el b/editorconfig.el
index a4fb599270..7c4859ffb5 100644
--- a/editorconfig.el
+++ b/editorconfig.el
@@ -1,11 +1,11 @@
 ;;; editorconfig.el --- EditorConfig Emacs Plugin  -*- lexical-binding: t -*-
 
-;; Copyright (C) 2011-2021 EditorConfig Team
+;; Copyright (C) 2011-2022 EditorConfig Team
 
 ;; Author: EditorConfig Team 
 ;; Version: 0.9.1
 ;; URL: https://github.com/editorconfig/editorconfig-emacs#readme
-;; Package-Requires: ((cl-lib "0.5") (nadvice "0.3") (emacs "24"))
+;; Package-Requires: ((emacs "24") (cl-lib "0.5") (nadvice "0.3"))
 
 ;; See
 ;; https://github.com/editorconfig/editorconfig-emacs/graphs/contributors

[elpa] externals/mmm-mode 118ae3340e 1/2: Silence byte compiler warnings for font-lock-syntactic-keywords

[ELPA Syncer]

branch: externals/mmm-mode
commit 118ae3340e7f6ef0cc23ee8f6574ebd03ab2c701
Author: Ola Nilsson 
Commit: Ola Nilsson 

Silence byte compiler warnings for font-lock-syntactic-keywords

The variable font-lock-syntactic-keywords is obsolete since Emacs
24.1.  Even if mmm-mode only supports Emacs 25.1 and forward it still
has to handle submodes that still use it.

Silence the annoying byte compiler warning by checking if
font-lock-syntactic-keywords is bound before using it.
---
 mmm-region.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mmm-region.el b/mmm-region.el
index a0c5b4f3eb..f02b3bf8f9 100644
--- a/mmm-region.el
+++ b/mmm-region.el
@@ -874,7 +874,7 @@ calls each respective submode's 
`syntax-propertize-function'."
   (cond
(func
 (funcall func beg end))
-   (font-lock-syntactic-keywords
+   ((bound-and-true-p font-lock-syntactic-keywords)
 (let ((syntax-propertize-function nil))
   (font-lock-fontify-syntactic-keywords-region beg 
end
   (run-hook-with-args 
'mmm-after-syntax-propertize-functions

[elpa] externals/mmm-mode 171bf6395b 2/2: Merge pull request #135 from snogge/font-lock-syntactic-keywords

[ELPA Syncer]

branch: externals/mmm-mode
commit 171bf6395b8a95a2d08d41fa38cc1799025d3916
Merge: 8725cfc12b 118ae3340e
Author: Dmitry Gutov 
Commit: GitHub 

Merge pull request #135 from snogge/font-lock-syntactic-keywords

Silence byte compiler warnings for font-lock-syntactic-keywords
---
 mmm-region.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mmm-region.el b/mmm-region.el
index a0c5b4f3eb..f02b3bf8f9 100644
--- a/mmm-region.el
+++ b/mmm-region.el
@@ -874,7 +874,7 @@ calls each respective submode's 
`syntax-propertize-function'."
   (cond
(func
 (funcall func beg end))
-   (font-lock-syntactic-keywords
+   ((bound-and-true-p font-lock-syntactic-keywords)
 (let ((syntax-propertize-function nil))
   (font-lock-fontify-syntactic-keywords-region beg 
end
   (run-hook-with-args 
'mmm-after-syntax-propertize-functions

[nongnu] elpa/go-mode c8525e627d 1/7: Remove superfluous quotes from cl-case branches

[ELPA Syncer]

branch: elpa/go-mode
commit c8525e627d2ddef8e13e4e25403cbc6b3a819c07
Author: Dominik Honnef 
Commit: Dominik Honnef 

Remove superfluous quotes from cl-case branches
---
 go-mode.el | 10 +-
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/go-mode.el b/go-mode.el
index 8bc912e1ab..be7e0a08b2 100644
--- a/go-mode.el
+++ b/go-mode.el
@@ -2206,18 +2206,18 @@ uncommented, otherwise a new import will be added."
   (if (re-search-forward (concat "^[[:space:]]*//[[:space:]]*import " line 
"$") nil t)
   (uncomment-region (line-beginning-position) (line-end-position))
 (cl-case (go-goto-imports)
-  ('fail (message "Could not find a place to add import."))
-  ('block-empty
+  (fail (message "Could not find a place to add import."))
+  (block-empty
(insert "\n\t" line "\n"))
-  ('block
+  (block
   (save-excursion
 (re-search-backward "^import (")
 (setq import-start (point)))
 (if (re-search-backward (concat "^[[:space:]]*//[[:space:]]*" line 
"$")  import-start t)
 (uncomment-region (line-beginning-position) 
(line-end-position))
   (insert "\n\t" line)))
-  ('single (insert "import " line "\n"))
-  ('none (insert "\nimport (\n\t" line "\n)\n")))
+  (single (insert "import " line "\n"))
+  (none (insert "\nimport (\n\t" line "\n)\n")))
 
 (defun go-root-and-paths ()
   (let* ((output (process-lines go-command "env" "GOROOT" "GOPATH"))

[nongnu] elpa/go-mode d9a9e51731 5/7: Deprecate functions and customization pertaining to GOPATH

[ELPA Syncer]

branch: elpa/go-mode
commit d9a9e517313855b62f56eb55b739073eb862cefe
Author: Dominik Honnef 
Commit: Dominik Honnef 

Deprecate functions and customization pertaining to GOPATH

Updates: gh-174
---
 README.md  | 9 -
 go-mode.el | 9 +++--
 2 files changed, 7 insertions(+), 11 deletions(-)

diff --git a/README.md b/README.md
index 283cfb7a67..e8f985237c 100644
--- a/README.md
+++ b/README.md
@@ -61,15 +61,6 @@ the following extra features to provide an improved 
experience:
 
   All of these functions accept a prefix argument (`C-u`), causing
   them to skip anonymous functions.
-- GOPATH detection – the function `go-guess-gopath` will guess a
-  suitable value for GOPATH, based on gb or wgo projects, Godeps and
-  src folders for plain GOPATH workspaces. The command
-  `go-set-project` uses the return value of `go-guess-gopath` to set
-  the GOPATH environment variable.
-
-  You can either call `go-set-project` manually, or integrate it with
-  Projectile's project switching hooks, or any other means of
-  switching projects you may employ.
 
 # Installation
 
diff --git a/go-mode.el b/go-mode.el
index 2dc253462b..ba4dcc8b36 100644
--- a/go-mode.el
+++ b/go-mode.el
@@ -214,6 +214,8 @@ look like others."
   :type '(repeat function)
   :group 'go)
 
+(make-obsolete-variable 'go-guess-gopath-functions "GOPATH has been deprecated 
in favour of Go modules." "1.7.0")
+
 (defcustom go-confirm-playground-uploads t
   "Ask before uploading code to the public Go Playground.
 
@@ -1749,8 +1751,6 @@ The following extra functions are defined:
 - `go-download-play'
 - `godef-describe' and `godef-jump'
 - `go-coverage'
-- `go-set-project'
-- `go-reset-gopath'
 
 If you want to automatically run `gofmt' before saving a file,
 add the following hook to your Emacs configuration:
@@ -2760,6 +2760,7 @@ returned."
 
 (defun go-guess-gopath ( buffer)
   "Determine a suitable GOPATH for BUFFER, or the current buffer if BUFFER is 
nil."
+  (declare (obsolete "GOPATH has been deprecated in favour of Go modules." 
"1.7.0"))
   (with-current-buffer (or buffer (current-buffer))
 (let ((gopath (cl-some (lambda (el) (funcall el))
go-guess-gopath-functions)))
@@ -2772,6 +2773,7 @@ returned."
 (defun go-plain-gopath ()
   "Detect a normal GOPATH, by looking for the first `src'
 directory up the directory tree."
+  (declare (obsolete "GOPATH has been deprecated in favour of Go modules." 
"1.7.0"))
   (let ((d (locate-dominating-file buffer-file-name "src")))
 (if d
 (list d
@@ -2787,6 +2789,7 @@ of when Emacs was started.
 This function can for example be used as a
 projectile-switch-project-hook, or simply be called manually when
 switching projects."
+  (declare (obsolete "GOPATH has been deprecated in favour of Go modules." 
"1.7.0"))
   (interactive)
   (let ((gopath (or (go-guess-gopath buffer)
 (go-original-gopath
@@ -2795,6 +2798,7 @@ switching projects."
 
 (defun go-reset-gopath ()
   "Reset GOPATH to the value it had when Emacs started."
+  (declare (obsolete "GOPATH has been deprecated in favour of Go modules." 
"1.7.0"))
   (interactive)
   (let ((gopath (go-original-gopath)))
 (setenv "GOPATH" gopath)
@@ -2802,6 +2806,7 @@ switching projects."
 
 (defun go-original-gopath ()
   "Return the original value of GOPATH from when Emacs was started."
+  (declare (obsolete "GOPATH has been deprecated in favour of Go modules." 
"1.7.0"))
   (let ((process-environment initial-environment)) (getenv "GOPATH")))
 
 (defun go--insert-modified-files ()

[nongnu] elpa/go-mode 8db253d0d3 6/7: Actually mark go-packages-native as obsolete

[ELPA Syncer]

branch: elpa/go-mode
commit 8db253d0d331b7490286db071de0242042fca558
Author: Dominik Honnef 
Commit: Dominik Honnef 

Actually mark go-packages-native as obsolete
---
 go-mode.el | 7 ++-
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/go-mode.el b/go-mode.el
index ba4dcc8b36..0a8b7c5499 100644
--- a/go-mode.el
+++ b/go-mode.el
@@ -2248,11 +2248,8 @@ If IGNORE-CASE is non-nil, the comparison is 
case-insensitive."
   (funcall go-packages-function))
 
 (defun go-packages-native ()
-  "Return a list of all installed Go packages. Obsolete.
-It looks for archive files in /pkg/. This strategy does not work
-well with the Go build cache or Go modules.
-
-You should use `go-packages-go-list' instead."
+  "Return a list of all installed Go packages."
+  (declare (obsolete "this function does not work well with modern versions of 
Go. You should use `go-packages-go-list' instead." "1.7.0"))
   (sort
(delete-dups
 (cl-mapcan

[nongnu] elpa/go-mode 8dbafe8b30 3/7: Capitalize Emacs in docstring

[ELPA Syncer]

branch: elpa/go-mode
commit 8dbafe8b30ce56db1dd1676cbbae6718772a1088
Author: Dominik Honnef 
Commit: Dominik Honnef 

Capitalize Emacs in docstring
---
 go-mode.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/go-mode.el b/go-mode.el
index d5116a6434..aad956db12 100644
--- a/go-mode.el
+++ b/go-mode.el
@@ -1753,7 +1753,7 @@ The following extra functions are defined:
 - `go-reset-gopath'
 
 If you want to automatically run `gofmt' before saving a file,
-add the following hook to your emacs configuration:
+add the following hook to your Emacs configuration:
 
 \(add-hook 'before-save-hook #'gofmt-before-save)
 

[nongnu] elpa/go-mode 8d9b814576 2/7: Remove trailing newlines from docstrings

[ELPA Syncer]

branch: elpa/go-mode
commit 8d9b8145765cb4236c745f0b7042ce714b9a08aa
Author: Dominik Honnef 
Commit: Dominik Honnef 

Remove trailing newlines from docstrings
---
 go-mode.el | 15 +--
 1 file changed, 5 insertions(+), 10 deletions(-)

diff --git a/go-mode.el b/go-mode.el
index be7e0a08b2..d5116a6434 100644
--- a/go-mode.el
+++ b/go-mode.el
@@ -217,8 +217,7 @@ look like others."
 (defcustom go-confirm-playground-uploads t
   "Ask before uploading code to the public Go Playground.
 
-Set this to nil to upload without prompting.
-"
+Set this to nil to upload without prompting."
   :type 'boolean
   :group 'go)
 
@@ -1024,8 +1023,7 @@ open paren, the next line will have an additional indent.
 For example:
 foo ||
   foo && // this continuation line opens another indent
-foo
-"
+foo"
   (save-excursion
 (let (prev-op (all-tighter t))
 
@@ -1317,8 +1315,7 @@ until you see the end. For example:
 func foo(int, string) {}
 
 // names and types (don't know so until you see the \"int\").
-func foo(i, j int) {}
-"
+func foo(i, j int) {}"
   (setq go--fontify-param-has-name (eq
 (go--parameter-list-type (point-max))
 'present))
@@ -1347,8 +1344,7 @@ func foo(i, j int) {}
 
 This is used as an anchored font lock keyword POST-MATCH-FORM. We
 move point back to the opening \"(\" so we find nested param
-lists.
-"
+lists."
   (goto-char go--fontify-param-beg))
 
 (defun go--match-param-start (end)
@@ -2126,8 +2122,7 @@ Playground URL.
 
 By default this function will prompt to confirm you want to upload
 code to the Playground. You can disable the confirmation by setting
-`go-confirm-playground-uploads' to nil.
-"
+`go-confirm-playground-uploads' to nil."
   (interactive "r")
   (if (and go-confirm-playground-uploads
(not (yes-or-no-p "Upload to public Go Playground? ")))

[nongnu] elpa/go-mode 166dfb1e09 7/7: Deprecate go-remove-unused-imports

[ELPA Syncer]

branch: elpa/go-mode
commit 166dfb1e090233c4609a50c2ec9f57f113c1da72
Author: Dominik Honnef 
Commit: Dominik Honnef 

Deprecate go-remove-unused-imports

Most people use goimports or LSP, which provide more robust alternatives
to parsing compiler errors. In fact, the function doesn't work for newer
versions of Go because the format of the error has changed.
---
 README.md  | 2 --
 go-mode.el | 3 +--
 2 files changed, 1 insertion(+), 4 deletions(-)

diff --git a/README.md b/README.md
index e8f985237c..25fec17c2f 100644
--- a/README.md
+++ b/README.md
@@ -32,8 +32,6 @@ the following extra features to provide an improved 
experience:
 `C-c C-f i`)
   - A function for adding imports, including tab completion
 (`go-import-add`, bound to `C-c C-a`)
-  - A function for removing or commenting unused imports
-(`go-remove-unused-imports`)
   - It is recommended that you use `goimports` or the
 `organize-imports` feature of `gopls` to manage
 adding/removing/organizing imports automatically.
diff --git a/go-mode.el b/go-mode.el
index 0a8b7c5499..c41a94aa1d 100644
--- a/go-mode.el
+++ b/go-mode.el
@@ -544,7 +544,6 @@ statements."
 ["Jump to Definition"godef-jump t]
 "---"
 ["Add Import"go-import-add t]
-["Remove Unused Imports" go-remove-unused-imports t]
 ["Go to Imports" go-goto-imports t]
 "---"
 ("Playground"
@@ -1739,7 +1738,6 @@ The following extra functions are defined:
 - `gofmt'
 - `godoc' and `godoc-at-point'
 - `go-import-add'
-- `go-remove-unused-imports'
 - `go-goto-arguments'
 - `go-goto-docstring'
 - `go-goto-function'
@@ -2293,6 +2291,7 @@ If IGNORE-CASE is non-nil, the comparison is 
case-insensitive."
   "Remove all unused imports.
 If ARG is non-nil, unused imports will be commented, otherwise
 they will be removed completely."
+  (declare (obsolete "set `gofmt-command' to goimports instead, or use LSP and 
gopls's \"Organize Imports\" code action." "1.7.0"))
   (interactive "P")
   (save-excursion
 (let ((cur-buffer (current-buffer)) flymake-state lines)

[nongnu] elpa/go-mode 3becce232b 4/7: Replace calls of deprecated point-at-{bol, eol}

[ELPA Syncer]

branch: elpa/go-mode
commit 3becce232b301fa24857e663b4e32d390f4b5b42
Author: Dominik Honnef 
Commit: Dominik Honnef 

Replace calls of deprecated point-at-{bol,eol}
---
 go-mode.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/go-mode.el b/go-mode.el
index aad956db12..2dc253462b 100644
--- a/go-mode.el
+++ b/go-mode.el
@@ -2470,7 +2470,7 @@ divisor for FILE-NAME."
   (insert-file-contents coverage-file)
   (go--goto-line 2) ;; Skip over mode
   (while (not (eobp))
-(let* ((parts (split-string (buffer-substring (point-at-bol) 
(point-at-eol)) ":"))
+(let* ((parts (split-string (buffer-substring 
(line-beginning-position) (line-end-position)) ":"))
(file (car parts))
(rest (split-string (nth 1 parts) "[., ]")))
 

[nongnu] elpa/go-mode updated (f03998154b -> 166dfb1e09)

[ELPA Syncer]

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

  from  f03998154b go-beginning-of-defun: only move to end of line when 
we're on a declaration
   new  c8525e627d Remove superfluous quotes from cl-case branches
   new  8d9b814576 Remove trailing newlines from docstrings
   new  8dbafe8b30 Capitalize Emacs in docstring
   new  3becce232b Replace calls of deprecated point-at-{bol,eol}
   new  d9a9e51731 Deprecate functions and customization pertaining to 
GOPATH
   new  8db253d0d3 Actually mark go-packages-native as obsolete
   new  166dfb1e09 Deprecate go-remove-unused-imports


Summary of changes:
 README.md  | 11 ---
 go-mode.el | 48 ++--
 2 files changed, 22 insertions(+), 37 deletions(-)

[elpa] externals/gnu-elpa-keyring-update 685192692f: Update with the new GPG keys

[Stefan Monnier via]

branch: externals/gnu-elpa-keyring-update
commit 685192692f809e3d8c336e27170a2b819925202f
Author: Stefan Monnier 
Commit: Stefan Monnier 

Update with the new GPG keys

* etc/gnu-elpa.gpg-keyring: Update with new keys.
* gnu-elpa-keyring-update.el: Remove GPG commands from Commentary
since they're alternatives to the package rather than ways to install
the packge (and the GPG keyservers are kinda problematic these days).
(gnu-elpa-keyring-update--keyring): Simplify and use
`macroexp-file-name` when available.
---
 etc/gnu-elpa.gpg-keyring   | Bin 2069 -> 2043 bytes
 gnu-elpa-keyring-update.el |  36 ++--
 2 files changed, 14 insertions(+), 22 deletions(-)

diff --git a/etc/gnu-elpa.gpg-keyring b/etc/gnu-elpa.gpg-keyring
index 490dee41a9..563acbb16b 100644
Binary files a/etc/gnu-elpa.gpg-keyring and b/etc/gnu-elpa.gpg-keyring differ
diff --git a/gnu-elpa-keyring-update.el b/gnu-elpa-keyring-update.el
index 6485a9d7ef..758ae1ab1a 100644
--- a/gnu-elpa-keyring-update.el
+++ b/gnu-elpa-keyring-update.el
@@ -1,11 +1,11 @@
 ;;; gnu-elpa-keyring-update.el --- Update Emacs's GPG keyring for GNU ELPA  
-*- lexical-binding: t; -*-
 
-;; Copyright (C) 2019  Free Software Foundation, Inc.
+;; Copyright (C) 2019-2022  Free Software Foundation, Inc.
 
 ;; Author: Stefan Monnier 
 ;; Keywords: maint, tools
 ;; Package-Type: multi
-;; Version: 2019.3
+;; Version: 2022.12
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -32,33 +32,23 @@
 ;; installing packages.
 ;; 
 ;; If your keys are already too old, causing signature verification errors when
-;; installing packages, then in order to install this package you can do the
-;; following:
-;;
-;; - Fetch the new key manually, e.g. with something like:
-;;
-;;   gpg --homedir ~/.emacs.d/elpa/gnupg --receive-keys 066DAFCB81E42C40
-;;
-;; - Modify the expiration date of the old key, e.g. with something like:
-;;
-;;   gpg --homedir ~/.emacs.d/elpa/gnupg \
-;;   --quick-set-expire 474F05837FBDEF9B 1y
-;;
-;; - temporarily disable signature verification (see variable
-;;   `package-check-signature').
+;; installing packages, then in order to install this package you have to
+;; temporarily disable signature verification (see variable
+;;   `package-check-signature') :-(
 
 ;;; Code:
 
 ;;;###autoload
 (defvar gnu-elpa-keyring-update--keyring
-  ;; FIXME: Avoid using a `.gpg' extension, because it triggers a bug in
+  ;; FIXME: We avoid using a `.gpg' extension, because it triggers a bug in
   ;; tar-untar-buffer (which is used internally by `package.el' when installing
   ;; the package).
-  (let ((kr (expand-file-name "etc/gnu-elpa.gpg-keyring"
-  (file-name-directory load-file-name
-(if (and load-file-name (file-readable-p kr))
-kr
-  "etc/gnu-elpa.gpg-keyring")))
+  (expand-file-name "etc/gnu-elpa.gpg-keyring"
+(file-name-directory
+ (or (if (fboundp 'macroexp-file-name)
+ (macroexp-file-name)
+   load-file-name)
+ ""
 
 (defun gnu-elpa-keyring-update--keyring ( noerror)
   (if (and (file-name-absolute-p gnu-elpa-keyring-update--keyring)
@@ -87,6 +77,8 @@
   (write-region "" nil (expand-file-name "gnu-elpa.timestamp" 
gnupghome-dir)
 nil 'silent
 
+;; FIXME: Maybe we should use an advice on `package--check-signature'
+;; so as to avoid this startup cost?
 ;;;###autoload (eval-after-load 'package
 ;;;###autoload   `(and (bound-and-true-p package-user-dir)
 ;;;###autoload (file-directory-p package-user-dir)

[elpa] externals/gnat-compiler 2273ebad7f 1/2: Misc fixes

[Stephen Leake]

branch: externals/gnat-compiler
commit 2273ebad7f31e149c3fa0b9a2c82707f398dad0c
Author: Stephen Leake 
Commit: Stephen Leake 

Misc fixes

* gnat-alire.el (create-alire-project): Call wisi-compiler-parse-one
as well.

* gnat-compiler.el (gnat-find-als): Handle locate-file return nil.
---
 gnat-alire.el| 3 ++-
 gnat-compiler.el | 9 -
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/gnat-alire.el b/gnat-alire.el
index 489df1d450..7dc8090c54 100644
--- a/gnat-alire.el
+++ b/gnat-alire.el
@@ -117,7 +117,8 @@
 (setf (wisi-prj-xref project)
  (funcall (intern (format "create-%s-xref" (symbol-name xref-label)
 
-(wisi-xref-parse-one (wisi-prj-xref project) project "gpr_file" 
abs-gpr-file)
+(wisi-compiler-parse-one (wisi-prj-compiler project) project "gpr_file" 
abs-gpr-file)
+(wisi-xref-parse-one (wisi-prj-xref project) project "gpr_file" 
abs-gpr-file)
 
 project))
 
diff --git a/gnat-compiler.el b/gnat-compiler.el
index cc0a004ce9..c46ce65e15 100644
--- a/gnat-compiler.el
+++ b/gnat-compiler.el
@@ -782,11 +782,10 @@ to AdaCore ada_language_server in `exec-path', then in a 
gnat
 installation found in `exec-path'.  If NO-ERROR, return nil if
 server executable not found; otherwise signal user-error."
   (if gnat-lsp-server-exec
-  (progn
-(setq gnat-lsp-server-exec (locate-file gnat-lsp-server-exec exec-path 
exec-suffixes))
-(if (and gnat-lsp-server-exec
-(file-readable-p gnat-lsp-server-exec))
-   gnat-lsp-server-exec
+  (let ((tmp (locate-file gnat-lsp-server-exec exec-path exec-suffixes)))
+(if (and tmp
+(file-readable-p tmp))
+(setq gnat-lsp-server-exec tmp)
  (user-error "gnat-lsp-server-exec '%s' not a readable file"
  gnat-lsp-server-exec)))
 

[elpa] externals/gnat-compiler 8ca2e5bcd2 2/2: Finish merge

[Stephen Leake]

branch: externals/gnat-compiler
commit 8ca2e5bcd244c8d191035c3c4e011e31e534738e
Merge: 2273ebad7f 7496273a2e
Author: Stephen Leake 
Commit: Stephen Leake 

Finish merge
---
 ELPA.make|  6 +-
 gnat-alire.el|  2 +-
 gnat-compiler.el | 16 
 gnat-xref.el |  4 ++--
 4 files changed, 12 insertions(+), 16 deletions(-)

diff --git a/ELPA.make b/ELPA.make
index b0953e309f..157c9a0371 100644
--- a/ELPA.make
+++ b/ELPA.make
@@ -6,23 +6,19 @@ all : byte-compile autoloads
 
 ifeq ($(shell uname),Linux)
 EMACS_EXE ?= emacs
-WISI ?= /Projects/org.emacs.wisi
 
 else ifeq ($(shell uname),Darwin)
 EMACS_EXE ?= "/Applications/Emacs.app/Contents/MacOS/Emacs"
-WISI ?= /Projects/org.emacs.wisi
 
 else
 # windows
-# specify uniscribe to workaround weird Windows harfbuzz bug
-EMACS_EXE ?= emacs -xrm Emacs.fontBackend:uniscribe
+EMACS_EXE ?= emacs
 WISI ?= c:/Projects/elpa/packages/wisi
 
 endif
 
 BYTE_COMPILE := "(progn (setq byte-compile-error-on-warn 
t)(batch-byte-compile))"
 byte-compile : byte-compile-clean
-   $(MAKE) -C $(WISI)/build byte-compile autoloads
$(EMACS_EXE) -Q -batch -L . -L $(WISI) --eval $(BYTE_COMPILE) *.el
 
 byte-compile-clean :
diff --git a/gnat-alire.el b/gnat-alire.el
index 7dc8090c54..b946cce19e 100644
--- a/gnat-alire.el
+++ b/gnat-alire.el
@@ -18,7 +18,7 @@
 ;; GNU General Public License for more details.
 ;;
 ;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs.  If not, see .
+;; along with GNU Emacs.  If not, see .
 
 ;; See https://alire.ada.dev/
 
diff --git a/gnat-compiler.el b/gnat-compiler.el
index c46ce65e15..3aa0d3fb06 100644
--- a/gnat-compiler.el
+++ b/gnat-compiler.el
@@ -22,7 +22,7 @@
 ;; GNU General Public License for more details.
 ;;
 ;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs.  If not, see .
+;; along with GNU Emacs.  If not, see .
 
 (require 'cl-lib)
 (require 'wisi-prj)
@@ -715,10 +715,10 @@ Prompt user if more than one."
 (wisi-case-adjust-identifier)
 (delete-char 1)))
 
-(defun gnat-context-clause ()
-  (if (fboundp 'ada-fix-context-clause);; in ada-mode
-  (ada-fix-context-clause)
-(user-error "ada-fix-context-clause not defined; can't find context 
clause")))
+(defun gnat-context-clause-region ()
+  (if (fboundp 'ada-context-clause-region);; in ada-mode
+  (ada-context-clause-region)
+(user-error "ada-context-clause-region not defined; can't find context 
clause")))
 
 (defun gnat-extend-with-clause (partial-parent-name child-name)
   "Assuming point is in a selected name, just before CHILD-NAME, add or
@@ -732,10 +732,10 @@ extend a with_clause to include CHILD-NAME."
 (skip-syntax-backward "w_.")
 (search-forward-regexp gnat-name-regexp parent-name-end t)
 (let ((parent-name (match-string 0))
- (context-clause (gnat-context-clause)))
+ (context-clause (gnat-context-clause-region)))
   (goto-char (car context-clause))
   (if (search-forward-regexp (concat "^with " parent-name ";") (cdr 
context-clause) t)
- ;; found exisiting 'with' for parent; extend it
+ ;; found existing 'with' for parent; extend it
  (progn
(forward-char -1) ; skip back over semicolon
(insert "." child-name))
@@ -1456,7 +1456,7 @@ server executable not found; otherwise signal user-error."
;;   foo.c:2: `TRUE' undeclared here (not in a function)
;;   foo.c:2 : `TRUE' undeclared here (not in a function)
;;
-   ;; we can't handle secondary errors here, because a regexp can't 
distinquish "message" from "filename"
+   ;; we can't handle secondary errors here, because a regexp can't 
distinguish "message" from "filename"
"^\\(\\(.:\\)?[^ :\n]+\\):\\([0-9]+\\)\\s-?:?\\([0-9]+\\)?" 1 3 4))
 
 (eval-after-load 'ada-mode '(add-hook 'ada-mode-hook #'gnatprep-setup))
diff --git a/gnat-xref.el b/gnat-xref.el
index bba675caac..2a9e9a33f8 100644
--- a/gnat-xref.el
+++ b/gnat-xref.el
@@ -3,7 +3,7 @@
 ;; These tools are all Ada-specific; see gpr-query for multi-language
 ;; GNAT cross-reference tools.
 ;;
-;; GNAT is provided by AdaCore; see http://libre.adacore.com/
+;; GNAT is provided by AdaCore; see https://libre.adacore.com/
 ;;
 ;;; Copyright (C) 2012 - 2022  Free Software Foundation, Inc.
 ;;
@@ -23,7 +23,7 @@
 ;; GNU General Public License for more details.
 ;;
 ;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs.  If not, see .
+;; along with GNU Emacs.  If not, see .
 
 (require 'compile)
 (require 'gnat-compiler)

[nongnu] elpa/eat updated (5314be930e -> 9a432eef11)

[ELPA Syncer]

elpasync pushed a change to branch elpa/eat.

  from  5314be930e * eat.el (eat): Use buffer name for process name
   new  c9a7aef4f6 Don't error while handling the sequence '\e[>c'
   new  9a432eef11 ; Release version 0.4


Summary of changes:
 ChangeLog | 35 +++
 eat.el|  7 +++
 eat.texi  |  4 ++--
 3 files changed, 40 insertions(+), 6 deletions(-)

[nongnu] elpa/eat c9a7aef4f6 1/2: Don't error while handling the sequence '\e[>c'

[ELPA Syncer]

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

Don't error while handling the sequence '\e[>c'

* eat.el (eat--t-send-device-attrs): Accept '((nil))' as the
value of the parameter PARAMS, but don't accept 'nil'.
---
 eat.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/eat.el b/eat.el
index 280f9e138d..193030e61e 100644
--- a/eat.el
+++ b/eat.el
@@ -2455,14 +2455,13 @@ the format \"file://HOST/CWD/\"; HOST can be empty."
 
 PARAMS is the parameter list and FORMAT is the format of parameters in
 output."
-  (setq params (or params '((0
   (pcase-exhaustive format
 ('nil
- (when (= (caar params) 0)
+ (when (= (or (caar params) 1) 0)
(funcall (eat--t-term-input-fn eat--t-term) eat--t-term
 "\e[?1;2c")))
 (?>
- (when (= (caar params) 0)
+ (when (= (or (caar params) 1) 0)
(funcall (eat--t-term-input-fn eat--t-term) eat--t-term
 "\e[>0;242;0c")
 

[nongnu] elpa/eat 9a432eef11 2/2: ; Release version 0.4

[ELPA Syncer]

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

; Release version 0.4

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

diff --git a/ChangeLog b/ChangeLog
index 4716ebc7ae..75d4d64107 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,38 @@
+2022-12-28  Akib Azmain Turja  
+
+   Don't error while handling the sequence '\e[>c'
+
+   * eat.el (eat--t-send-device-attrs): Accept '((nil))' as the
+   value of the parameter PARAMS, but don't accept 'nil'.
+
+2022-12-28  Akib Azmain Turja  
+
+   * eat.el (eat): Use buffer name for process name
+
+   * eat.el (eat-eshell-exec-hook): Make customizable
+
+   * eat.el (eat-exec-hook): Make customizable
+
+2022-12-28  Akib Azmain Turja  
+
+   Run eat-eshell-exec-hook as Eshell process is run
+
+   * eat.el (eat--eshell-setup-proc-and-term): Run
+   'eat-eshell-exec-hook' at the very end.
+
+2022-12-22  Akib Azmain Turja  
+
+   * README.org (Straight.el): New section
+
+2022-12-22  Akib Azmain Turja  
+
+   Don't let font-lock to mess up text face
+
+   * eat.el (eat--t-repeated-insert, eat--t-write)
+   (eat--t-fix-partial-multi-col-char): Add 'font-lock-face' text
+   property along with 'face' to stop font-lock from removing the
+   face.
+
 2022-12-21  Akib Azmain Turja  
 
Fix terminfo path on case-insensitive filesystems
diff --git a/eat.el b/eat.el
index 193030e61e..b4d7ab29f1 100644
--- a/eat.el
+++ b/eat.el
@@ -4,7 +4,7 @@
 
 ;; Author: Akib Azmain Turja 
 ;; Created: 2022-08-15
-;; Version: 0.3.1
+;; Version: 0.4
 ;; Package-Requires: ((emacs "28.1"))
 ;; Keywords: terminals processes
 ;; Homepage: https://codeberg.org/akib/emacs-eat
diff --git a/eat.texi b/eat.texi
index 41ec213ee3..e34daabd23 100644
--- a/eat.texi
+++ b/eat.texi
@@ -3,8 +3,8 @@
 @comment %**start of header
 @setfilename eat.info
 @set UPDATED 10 December 2022
-@set EDITION 0.3.1
-@set VERSION 0.3.1
+@set EDITION 0.4
+@set VERSION 0.4
 @documentencoding UTF-8
 @codequotebacktick on
 @codequoteundirected on

[elpa] externals/consult 16b2dc5e34: consult-history: Use current input as initial completion input (Fix #706)

[ELPA Syncer]

branch: externals/consult
commit 16b2dc5e34c8a500adbee394b42c0e0d7fd24ad8
Author: Daniel Mendler 
Commit: Daniel Mendler 

consult-history: Use current input as initial completion input (Fix #706)
---
 CHANGELOG.org |   1 +
 consult.el| 108 +-
 2 files changed, 63 insertions(+), 46 deletions(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index f55323f231..719624a444 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -10,6 +10,7 @@
 - Deprecate =consult-multi-occur=. The =multi-occur= command should be improved
   upstream to take advantage of =completing-read-multiple=. Consult provides 
the
   command =consult-line-multi= as an alternative.
+- =consult-history=: Use input as initial completion input
 
 * Version 0.29 (2022-12-03)
 
diff --git a/consult.el b/consult.el
index d59be15fba..baf229feaf 100644
--- a/consult.el
+++ b/consult.el
@@ -139,18 +139,19 @@ This applies to asynchronous commands, e.g., 
`consult-grep'."
   :type '(alist :key-type symbol :value-type plist))
 
 (defcustom consult-mode-histories
-  '((eshell-mode eshell-history-ring eshell-history-index)
-(comint-mode comint-input-ring   comint-input-ring-index)
-(term-mode   term-input-ring term-input-ring-index))
-  "Alist of mode histories as (mode . history) or (mode history index).
-The histories can be rings or lists. INDEX, if provided, is a
+  '((eshell-mode eshell-history-ring eshell-history-indexeshell-bol)
+(comint-mode comint-input-ring   comint-input-ring-index comint-bol)
+(term-mode   term-input-ring term-input-ring-index   term-bol))
+  "Alist of mode histories (mode history index bol).
+The histories can be rings or lists. Index, if provided, is a
 variable to set to the index of the selection within the ring or
-list."
+list. Bol, if provided is a function which jumps to the beginning
+of the line after the prompt."
   :type '(alist :key-type symbol
-:value-type (choice (symbol :tag "List or Ring Name")
-(group :tag "Include Index"
-   (symbol :tag "List/Ring")
-   (symbol :tag "Index Variable")
+:value-type (group :tag "Include Index"
+   (symbol :tag "List/Ring")
+   (symbol :tag "Index Variable")
+   (symbol :tag "Bol Function"
 
 (defcustom consult-themes nil
   "List of themes (symbols or regexps) to be presented for selection.
@@ -3804,18 +3805,20 @@ otherwise the history corresponding to the mode. There 
is a
 special case for `repeat-complex-command', for which the command
 history is used."
   (cond
-   ;; If pressing "C-x M-:", i.e., `repeat-complex-command',
-   ;; we are instead querying the `command-history' and get a full 
s-expression.
-   ;; Alternatively you might want to use `consult-complex-command',
-   ;; which can also be bound to "C-x M-:"!
-   ((eq last-command 'repeat-complex-command)
-(list (mapcar #'prin1-to-string command-history)))
;; In the minibuffer we use the current minibuffer history,
;; which can be configured by setting `minibuffer-history-variable'.
((minibufferp)
 (when (eq minibuffer-history-variable t)
   (user-error "Minibuffer history is disabled for `%s'" this-command))
-(list (mapcar #'consult--tofu-hide (symbol-value 
minibuffer-history-variable
+(list (mapcar #'consult--tofu-hide
+  (if (eq minibuffer-history-variable 'command-history)
+  ;; If pressing "C-x M-:", i.e., `repeat-complex-command',
+  ;; we are instead querying the `command-history' and get 
a
+  ;; full s-expression. Alternatively you might want to use
+  ;; `consult-complex-command', which can also be bound to
+  ;; "C-x M-:"!
+  (mapcar #'prin1-to-string command-history)
+(symbol-value minibuffer-history-variable)
;; Otherwise we use a mode-specific history, see `consult-mode-histories'.
(t (let ((found (seq-find (lambda (h)
(and (derived-mode-p (car h))
@@ -3824,39 +3827,52 @@ history is used."
 (unless found
   (user-error "No history configured for `%s', see 
`consult-mode-histories'"
   major-mode))
-(if (consp (cdr found))
-(cons (symbol-value (cadr found)) (caddr found))
-  (list (symbol-value (cdr found
+(unless (consp (cdr found))
+  (user-error "Obsolete mode history entry: %S" found))
+(cons (symbol-value (cadr found)) (cddr found))
 
 ;;;###autoload
-(defun consult-history ( history index)
+(defun consult-history ( history index bol)
   "Insert string from HISTORY of current buffer.
-In order to select from a specific HISTORY, pass 

[nongnu] elpa/eat 328c9d629d 1/4: Run eat-eshell-exec-hook as Eshell process is run

[ELPA Syncer]

branch: elpa/eat
commit 328c9d629d2c4abfd75805cbd984fa531063245a
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

Run eat-eshell-exec-hook as Eshell process is run

* eat.el (eat--eshell-setup-proc-and-term): Run
'eat-eshell-exec-hook' at the very end.
---
 eat.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/eat.el b/eat.el
index 7977c062e6..caa9e01195 100644
--- a/eat.el
+++ b/eat.el
@@ -5582,7 +5582,8 @@ PROGRAM can be a shell command."
 (setq-local eshell-output-filter-functions
 '(eat--eshell-output-filter))
 (eat--eshell-process-running-mode +1)
-(eat-eshell-semi-char-mode)))
+(eat-eshell-semi-char-mode)
+(run-hooks 'eat-eshell-exec-hook)))
 
 (defun eat--eshell-cleanup ()
   "Cleanup everything."

[nongnu] elpa/eat 5314be930e 4/4: * eat.el (eat): Use buffer name for process name

[ELPA Syncer]

branch: elpa/eat
commit 5314be930ed08a9b391f85be63cefbd04e9474c4
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

* eat.el (eat): Use buffer name for process name
---
 eat.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/eat.el b/eat.el
index ef95ea1258..280f9e138d 100644
--- a/eat.el
+++ b/eat.el
@@ -5424,8 +5424,8 @@ PROGRAM can be a shell command."
 (eat-mode))
   (pop-to-buffer-same-window buffer)
   (unless eat--process
-(eat-exec buffer "eat" "/usr/bin/env" nil
-  `("sh" "-c" ,program)))
+(eat-exec buffer (buffer-name) "/usr/bin/env" nil
+  (list "sh" "-c" program)))
   buffer)))
 
 

[nongnu] elpa/eat e66cca3341 3/4: * eat.el (eat-eshell-exec-hook): Make customizable

[ELPA Syncer]

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

* eat.el (eat-eshell-exec-hook): Make customizable
---
 eat.el | 5 +
 1 file changed, 5 insertions(+)

diff --git a/eat.el b/eat.el
index 226769eae4..ef95ea1258 100644
--- a/eat.el
+++ b/eat.el
@@ -240,6 +240,11 @@ prompt annotation."
   :type 'hook
   :group 'eat-ui)
 
+(defcustom eat-eshell-exec-hook nil
+  "Hook run after `eat' executes a commamnd."
+  :type 'hook
+  :group 'eat-eshell)
+
 (defconst eat--cursor-type-value-type
   (let ((cur-type
  '(choice

[nongnu] elpa/eat updated (63f23b3e50 -> 5314be930e)

[ELPA Syncer]

elpasync pushed a change to branch elpa/eat.

  from  63f23b3e50 * README.org (Straight.el): New section
   new  328c9d629d Run eat-eshell-exec-hook as Eshell process is run
   new  dcbe6b861e * eat.el (eat-exec-hook): Make customizable
   new  e66cca3341 * eat.el (eat-eshell-exec-hook): Make customizable
   new  5314be930e * eat.el (eat): Use buffer name for process name


Summary of changes:
 eat.el | 17 ++---
 1 file changed, 14 insertions(+), 3 deletions(-)

[nongnu] elpa/eat dcbe6b861e 2/4: * eat.el (eat-exec-hook): Make customizable

[ELPA Syncer]

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

* eat.el (eat-exec-hook): Make customizable
---
 eat.el | 5 +
 1 file changed, 5 insertions(+)

diff --git a/eat.el b/eat.el
index caa9e01195..226769eae4 100644
--- a/eat.el
+++ b/eat.el
@@ -235,6 +235,11 @@ prompt annotation."
   :type 'number
   :group 'eat-ui)
 
+(defcustom eat-exec-hook nil
+  "Hook run after `eat' executes a commamnd."
+  :type 'hook
+  :group 'eat-ui)
+
 (defconst eat--cursor-type-value-type
   (let ((cur-type
  '(choice

[elpa] externals/async 270c3d0bd9 4/4: Merge pull request #162 from skangas/typo

[ELPA Syncer]

branch: externals/async
commit 270c3d0bd99386dd9a8538990401993a6a3cb1bc
Merge: 5f2439adf7 e72e96185e
Author: Thierry Volpiatto 
Commit: GitHub 

Merge pull request #162 from skangas/typo

Fix a typo
---
 async.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/async.el b/async.el
index ad91930d30..64e2fb57e2 100644
--- a/async.el
+++ b/async.el
@@ -282,7 +282,7 @@ its FINISH-FUNC is nil."
(plist-get value :async-message)))
 
 (defun async-send ( args)
-  "Send the given messages to the asychronous Emacs PROCESS."
+  "Send the given messages to the asynchronous Emacs PROCESS."
   (let ((args (append args '(:async-message t
 (if async-in-child-emacs
 (if async-callback
@@ -290,7 +290,7 @@ its FINISH-FUNC is nil."
   (async--transmit-sexp (car args) (list 'quote (cdr args))
 
 (defun async-receive ()
-  "Send the given messages to the asychronous Emacs PROCESS."
+  "Send the given messages to the asynchronous Emacs PROCESS."
   (async--receive-sexp))
 
 ;;;###autoload

[elpa] externals/async e72e96185e 1/4: Fix a typo

[ELPA Syncer]

branch: externals/async
commit e72e96185e486dbd17a8dfbec979ced0b3c60fac
Author: Stefan Kangas 
Commit: Stefan Kangas 

Fix a typo
---
 async.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/async.el b/async.el
index ad91930d30..64e2fb57e2 100644
--- a/async.el
+++ b/async.el
@@ -282,7 +282,7 @@ its FINISH-FUNC is nil."
(plist-get value :async-message)))
 
 (defun async-send ( args)
-  "Send the given messages to the asychronous Emacs PROCESS."
+  "Send the given messages to the asynchronous Emacs PROCESS."
   (let ((args (append args '(:async-message t
 (if async-in-child-emacs
 (if async-callback
@@ -290,7 +290,7 @@ its FINISH-FUNC is nil."
   (async--transmit-sexp (car args) (list 'quote (cdr args))
 
 (defun async-receive ()
-  "Send the given messages to the asychronous Emacs PROCESS."
+  "Send the given messages to the asynchronous Emacs PROCESS."
   (async--receive-sexp))
 
 ;;;###autoload

[elpa] externals/async updated (c4772bec68 -> 270c3d0bd9)

[ELPA Syncer]

elpasync pushed a change to branch externals/async.

  from  c4772bec68 Fix typo in dired-async-small-file-max defcustom
   new  ee463e2e11 Add file .elpaignore for GNU ELPA
   new  5f2439adf7 Merge pull request #163 from skangas/elpaignore
   new  e72e96185e Fix a typo
   new  270c3d0bd9 Merge pull request #162 from skangas/typo


Summary of changes:
 .elpaignore | 1 +
 async.el| 4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)
 create mode 100644 .elpaignore

[elpa] externals/async 5f2439adf7 3/4: Merge pull request #163 from skangas/elpaignore

[ELPA Syncer]

branch: externals/async
commit 5f2439adf725f1d04ffcb10f2b973b19968ce8cc
Merge: c4772bec68 ee463e2e11
Author: Thierry Volpiatto 
Commit: GitHub 

Merge pull request #163 from skangas/elpaignore

Add file .elpaignore for GNU ELPA
---
 .elpaignore | 1 +
 1 file changed, 1 insertion(+)

diff --git a/.elpaignore b/.elpaignore
new file mode 100644
index 00..5ecd9c64ad
--- /dev/null
+++ b/.elpaignore
@@ -0,0 +1 @@
+COPYING

[elpa] externals/async ee463e2e11 2/4: Add file .elpaignore for GNU ELPA

[ELPA Syncer]

branch: externals/async
commit ee463e2e117f99ab06572072406c0e9a7000ee01
Author: Stefan Kangas 
Commit: Stefan Kangas 

Add file .elpaignore for GNU ELPA
---
 .elpaignore | 1 +
 1 file changed, 1 insertion(+)

diff --git a/.elpaignore b/.elpaignore
new file mode 100644
index 00..5ecd9c64ad
--- /dev/null
+++ b/.elpaignore
@@ -0,0 +1 @@
+COPYING

[nongnu] elpa/helm-core updated (1a7bf27529 -> 796b84970d)

[ELPA Syncer]

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

  from  1a7bf27529 Use `helm-hide-minibuffer-maybe` by default (#2579)
  adds  796b84970d Update help string

No new revisions were added by this update.

Summary of changes:
 helm-core.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

[nongnu] elpa/helm 796b84970d: Update help string

[ELPA Syncer]

branch: elpa/helm
commit 796b84970d2bfcd1d341cada5398bb9368b82da4
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Update help string
---
 helm-core.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/helm-core.el b/helm-core.el
index b33562a0a9..7e355d8140 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -1637,8 +1637,10 @@ slow frame popup in Emacs-26, to workaround this 
slowness in Emacs-26 use instea
 #+end_src
 
 WARNING:
-There is a package called posframe and also one called helm-posframe,
+There is a package called Posframe and also one called Helm-posframe,
 you DO NOT need these packages to display helm buffers in frames.
+Thus Posframe package use child frames which have no minibuffers
+and are by the way not compatible with Helm.
 
 ** Helm's basic operations and default key bindings