[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/jarchive eb48ee60d6 2/3: Make jarchive-patch-eglot obso
From: |
ELPA Syncer |
Subject: |
[elpa] externals/jarchive eb48ee60d6 2/3: Make jarchive-patch-eglot obsolete |
Date: |
Thu, 5 Oct 2023 00:58:25 -0400 (EDT) |
branch: externals/jarchive
commit eb48ee60d668f5cde1a28aa44fb39e02e7d40c57
Author: Danny Freeman <danny@dfreeman.email>
Commit: Danny Freeman <danny@dfreeman.email>
Make jarchive-patch-eglot obsolete
---
jarchive.el | 9 +++++++--
1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/jarchive.el b/jarchive.el
index 9df48ae811..0f2639cf83 100644
--- a/jarchive.el
+++ b/jarchive.el
@@ -163,14 +163,19 @@ handle it. If it is not a jar call ORIGINAL-FN."
;;;###autoload
(defun jarchive-patch-eglot ()
- "Patch old versions of Eglot to work with Jarchive."
+ "This should no longer be used.
+Recent versions of Eglot take care of this."
(interactive) ;; TODO, remove when eglot is updated in melpa
(unless (or (and (advice-member-p #'jarchive--wrap-legacy-eglot--path-to-uri
'eglot--path-to-uri)
(advice-member-p #'jarchive--wrap-legacy-eglot--uri-to-path
'eglot--uri-to-path))
(<= 29 emacs-major-version))
(advice-add 'eglot--path-to-uri :around
#'jarchive--wrap-legacy-eglot--path-to-uri)
(advice-add 'eglot--uri-to-path :around
#'jarchive--wrap-legacy-eglot--uri-to-path)
- (message "[jarchive] Eglot successfully patched.")))
+ (message "[jarchive] Eglot successfully patched."))
+ (warn "`jarchive-patch-eglot' is obsolete and should not be needed with
+recent versions of Eglot (including the version shipped in Emacs 29+)"))
+
+(make-obsolete 'jarchive-patch-eglot nil "0.11.0")
(defvar jarchive--file-name-handler
(cons jarchive--uri-regex #'jarchive--file-name-handler))