[elpa] main 5471b90: * elpa-packages ("tramp"): Autosync.
branch: main
commit 5471b90140c6fbee20e94fc0a248ed921cf84459
Author: Michael Albinus
Commit: Michael Albinus
* elpa-packages ("tramp"): Autosync.
---
elpa-packages | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/elpa-packages b/elpa-packages
index c4d49d2..6cade69 100644
--- a/elpa-packages
+++ b/elpa-packages
@@ -366,7 +366,8 @@
:branch "externals/tramp"
:main-file "trampver.el"
:make ("autoloads" "info")
- :doc "tramp.info")
+ :doc "tramp.info"
+ :auto-sync t)
("tramp-theme":url nil)
("transcribe" :url nil)
("transient" :url "https://github.com/magit/transient";
[elpa] externals/tramp 2869f5f: Test of autosync
branch: externals/tramp commit 2869f5f217dc9a3300121ea8c523f513acd077f3 Author: Michael Albinus Commit: Michael Albinus Test of autosync --- texi/trampver.texi | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/texi/trampver.texi b/texi/trampver.texi index c48d07b..10c951d 100644 --- a/texi/trampver.texi +++ b/texi/trampver.texi @@ -8,7 +8,7 @@ @c In the Tramp GIT, the version numbers are auto-frobbed from @c tramp.el, and the bug report address is auto-frobbed from @c configure.ac. -@set trampver 2.5.0.5 +@set trampver 2.5.1 @set trampurl https://www.gnu.org/software/tramp/ @set tramp-bug-report-address tramp-devel@@gnu.org @set emacsver 25.1
[elpa] externals/org 7666d6b: org-keys: improve the call for speed key "g"
branch: externals/org
commit 7666d6bb99d92fbc5170f65bf5fbbe593c6cd868
Author: Marco Wahl
Commit: Marco Wahl
org-keys: improve the call for speed key "g"
* lisp/org-keys.el (org-speed-commands): Use the right argument to
call the "goto variant" of org-refile with non-confusing user promt
for speed key "g".
---
lisp/org-keys.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/org-keys.el b/lisp/org-keys.el
index 12d6226..b7ac337 100644
--- a/lisp/org-keys.el
+++ b/lisp/org-keys.el
@@ -726,7 +726,7 @@ hook. The default setting is `org-speed-command-activate'."
("B" . org-previous-block)
("u" . (org-speed-move-safe 'outline-up-heading))
("j" . org-goto)
-("g" . (org-refile t))
+("g" . (org-refile '(4)))
("Outline Visibility")
("c" . org-cycle)
("C" . org-shifttab)
[elpa] externals/tramp 41bdf56: Tramp ELPA version 2.5.1 released
branch: externals/tramp
commit 41bdf56b37f1b869f8f40eb811b222c562302e7f
Author: Michael Albinus
Commit: Michael Albinus
Tramp ELPA version 2.5.1 released
---
test/tramp-tests.el | 90 ++-
texi/tramp.texi | 17 +---
tramp-adb.el| 3 +-
tramp-archive.el| 2 +
tramp-cache.el | 7 ++--
tramp-sh.el | 15 ++-
tramp.el| 118
trampver.el | 6 +--
8 files changed, 186 insertions(+), 72 deletions(-)
diff --git a/test/tramp-tests.el b/test/tramp-tests.el
index 66bfe73..68caadb 100644
--- a/test/tramp-tests.el
+++ b/test/tramp-tests.el
@@ -229,6 +229,16 @@ is greater than 10.
"%s %f sec"
,message (float-time (time-subtract (current-time) start))
+;; `always' is introduced with Emacs 28.1.
+(defalias 'tramp--test-always
+ (if (fboundp 'always)
+ #'always
+(lambda (&rest _arguments)
+ "Do nothing and return t.
+This function accepts any number of ARGUMENTS, but ignores them.
+Also see `ignore'."
+ t)))
+
(ert-deftest tramp-test00-availability ()
"Test availability of Tramp functions."
:expected-result (if (tramp--test-enabled) :passed :failed)
@@ -2454,9 +2464,9 @@ This checks also `file-name-as-directory',
`file-name-directory',
tramp--test-messages
;; Do not overwrite if excluded.
- (cl-letf (((symbol-function #'y-or-n-p) (lambda (_prompt) t))
+ (cl-letf (((symbol-function #'y-or-n-p) #'tramp--test-always)
;; Ange-FTP.
- ((symbol-function 'yes-or-no-p) (lambda (_prompt) t)))
+ ((symbol-function 'yes-or-no-p) #'tramp--test-always))
(write-region "foo" nil tmp-name nil nil nil 'mustbenew))
;; `mustbenew' is passed to Tramp since Emacs 26.1.
(when (tramp--test-emacs26-p)
@@ -3671,7 +3681,7 @@ This tests also `make-symbolic-link', `file-truename' and
`add-name-to-file'."
(should-error
(make-symbolic-link tmp-name1 tmp-name2 0)
:type 'file-already-exists)))
- (cl-letf (((symbol-function #'yes-or-no-p) (lambda (_prompt) t)))
+ (cl-letf (((symbol-function #'yes-or-no-p) #'tramp--test-always))
(make-symbolic-link tmp-name1 tmp-name2 0)
(should
(string-equal
@@ -3747,7 +3757,7 @@ This tests also `make-symbolic-link', `file-truename' and
`add-name-to-file'."
(should-error
(add-name-to-file tmp-name1 tmp-name2 0)
:type 'file-already-exists))
-(cl-letf (((symbol-function #'yes-or-no-p) (lambda (_prompt) t)))
+(cl-letf (((symbol-function #'yes-or-no-p) #'tramp--test-always))
(add-name-to-file tmp-name1 tmp-name2 0)
(should (file-regular-p tmp-name2)))
(add-name-to-file tmp-name1 tmp-name2 'ok-if-already-exists)
@@ -4545,7 +4555,7 @@ This tests also `make-symbolic-link', `file-truename' and
`add-name-to-file'."
If UNSTABLE is non-nil, the test is tagged as `:unstable'."
(declare (indent 1))
;; `make-process' supports file name handlers since Emacs 27.
- (when (let ((file-name-handler-alist '(("" . (lambda (&rest _) t)
+ (when (let ((file-name-handler-alist '(("" . #'tramp--test-always
(ignore-errors (make-process :file-handler t)))
`(ert-deftest ,(intern (concat (symbol-name test) "-direct-async")) ()
,docstring
@@ -4561,7 +4571,7 @@ If UNSTABLE is non-nil, the test is tagged as
`:unstable'."
;; `file-truename' does it by side-effect. Suppress
;; `tramp--test-enabled', in order to keep the connection.
;; Suppress "Process ... finished" messages.
-(cl-letf (((symbol-function #'tramp--test-enabled) (lambda nil t))
+(cl-letf (((symbol-function #'tramp--test-enabled)
#'tramp--test-always)
((symbol-function #'internal-default-process-sentinel)
#'ignore))
(file-truename tramp-test-temporary-file-directory)
@@ -5554,11 +5564,38 @@ Use direct async.")
("]" . "_r"))
(tramp-compat-file-name-unquote tmp-name1)))
tmp-name2)))
- (should (file-directory-p tmp-name2))
+ (should (file-directory-p tmp-name2)
+
+ ;; Create temporary file. This shall check for sensible
+ ;; files, owned by root.
+ (let ((tramp-auto-save-directory temporary-file-directory)
+ tramp-allow-unsafe-temporary-files)
+ (write-region "foo" nil tmp-name1)
+ (when (zerop (or (tramp-compat-file-attribute-user-id
+ (file-attributes tmp-name1))
+ tramp-unknown-id-integer))
+ (with-temp-buffer
+
[elpa] externals/consult updated (ecdefab -> 6ce9aa5)
elpasync pushed a change to branch externals/consult. from ecdefab Remove comment new f567690 consult-completion-in-region: Evaluate completion table in the original buffer new 6ce9aa5 Expand comment Summary of changes: consult.el | 13 - 1 file changed, 12 insertions(+), 1 deletion(-)
[elpa] externals/consult 6ce9aa5 2/2: Expand comment
branch: externals/consult commit 6ce9aa58e74da92e391cfe938bc3da4f47ab591e Author: Daniel Mendler Commit: Daniel Mendler Expand comment --- consult.el | 5 - 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/consult.el b/consult.el index 92c2763..d3d6232 100644 --- a/consult.el +++ b/consult.el @@ -2696,7 +2696,10 @@ These configuration options are supported: ;; directory, but also the filename. (read-file-name prompt initial initial require-match nil predicate) (completing-read prompt - ;; Evaluate completion table in the original buffer + ;; Evaluate completion table in the original buffer. + ;; This is a reasonable thing to do and required + ;; by some completion tables in particular by lsp-mode. + ;; See https://github.com/minad/vertico/issues/61. (if (functionp collection) (lambda (&rest args) (with-current-buffer buffer
[elpa] externals/consult f567690 1/2: consult-completion-in-region: Evaluate completion table in the original buffer
branch: externals/consult commit f567690c1c5374d535b44a0d53ae5f2e827bd93e Author: Daniel Mendler Commit: Daniel Mendler consult-completion-in-region: Evaluate completion table in the original buffer See https://github.com/minad/vertico/issues/61 --- consult.el | 10 +- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/consult.el b/consult.el index 878436f..92c2763 100644 --- a/consult.el +++ b/consult.el @@ -2665,6 +2665,7 @@ These configuration options are supported: (let* ((limit (car (completion-boundaries initial collection predicate ""))) (category (completion-metadata-get metadata 'category)) (exit-status 'finished) + (buffer (current-buffer)) (completion (cond ((atom all) nil) @@ -2694,7 +2695,14 @@ These configuration options are supported: ;; However this is undefined behavior since initial does not only contain the ;; directory, but also the filename. (read-file-name prompt initial initial require-match nil predicate) - (completing-read prompt collection predicate require-match initial) + (completing-read prompt + ;; Evaluate completion table in the original buffer + (if (functionp collection) + (lambda (&rest args) +(with-current-buffer buffer + (apply collection args))) +collection) + predicate require-match initial) (if completion (progn (delete-region start end)
[nongnu] elpa/sly 954e5da: Per #339: don't sly-eval from c-a-p-f function unless SLY connected
branch: elpa/sly commit 954e5dad72fb5712dfa968222e2b46dfdf9a476c Author: João Távora Commit: João Távora Per #339: don't sly-eval from c-a-p-f function unless SLY connected * lib/sly-completion.el (sly--completion-request-completions): Check sly-connected-p. --- lib/sly-completion.el | 11 ++- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/lib/sly-completion.el b/lib/sly-completion.el index 922dc8b..4c78780 100644 --- a/lib/sly-completion.el +++ b/lib/sly-completion.el @@ -161,11 +161,12 @@ immediately." (defun sly--completion-request-completions (pattern slyfun) "Request completions for PATTERN using SLYFUN. SLYFUN takes two arguments, a pattern and a package." - (let* ((sly-current-thread t)) -(sly--responsive-eval -(completions `(,slyfun ,(substring-no-properties pattern) - ',(sly-current-package))) - completions))) + (when (sly-connected-p) +(let* ((sly-current-thread t)) + (sly--responsive-eval + (completions `(,slyfun ,(substring-no-properties pattern) +',(sly-current-package))) + completions (defun sly-simple-completions (prefix) "Return (COMPLETIONS COMMON) where COMPLETIONS complete the PREFIX.
