emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/jarchive 9f14b742fc: Add missing file-name-handler oper


From: ELPA Syncer
Subject: [elpa] externals/jarchive 9f14b742fc: Add missing file-name-handler operations
Date: Wed, 7 Dec 2022 17:57:49 -0500 (EST)

branch: externals/jarchive
commit 9f14b742fce3d3379c41dfca3039c80e6fe8c53a
Author: dannyfreeman <danny@dfreeman.email>
Commit: dannyfreeman <danny@dfreeman.email>

    Add missing file-name-handler operations
---
 CHANGELOG.md | 4 ++++
 jarchive.el  | 7 +++++--
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index 01812cda45..24e46c24a3 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,9 @@
 # Change Log
 
+## 2022-12-07 0.9.0 Release Notes
+- Add missing file-name-handler operations
+  - Thank you Michael Albinus for pointing this out on the bug-gnu-emacs 
mailing list!
+
 ## 2022-11-14 0.8.0 Release Notes
 - Readme Changes
 
diff --git a/jarchive.el b/jarchive.el
index dd8e5659b5..c614f688a7 100644
--- a/jarchive.el
+++ b/jarchive.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2022 Free Software Foundation, Inc.
 ;; Authors: Danny Freeman <danny@dfreeman.email>
 ;; Maintainer: Danny Freeman <danny@dfreeman.email>
-;; Version: 0.8.0
+;; Version: 0.9.0
 ;; Keywords: tools, languages, jvm, java, clojure
 ;; URL: https://git.sr.ht/~dannyfreeman/jarchive
 ;; Package-Requires: ((emacs "26.1"))
@@ -92,6 +92,8 @@ primitive. See `(elisp)Magic File Names'."
           ((eq op 'directory-file-name) (directory-file-name 
(file-name-directory jar-path)))
           ((eq op 'file-name-case-insensitive-p) (file-name-case-insensitive-p 
jar-path))
           ((eq op 'file-attributes) nil)
+          ((eq op 'make-auto-save-file-name) nil)
+          ((eq op 'abbreviate-file-name) uri)
 
           ;; Predicates
           ((eq op 'file-directory-p) nil)
@@ -102,6 +104,7 @@ primitive. See `(elisp)Magic File Names'."
           ((eq op 'file-symlink-p) (file-symlink-p jar-path))
           ((eq op 'file-accessible-directory-p) nil)
           ((eq op 'file-executable-p) nil)
+          ((eq op 'vc-registered) nil)
 
           ;; Custom implementations
           ((eq op 'get-file-buffer)
@@ -162,7 +165,7 @@ handle it. If it is not a jar call ORIGINAL-FN."
   "Patch old versions of Eglot to work with Jarchive."
   (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 ))
+                   (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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]