From 3bd0699dc01385ad90a53dd37d7513f708f675e8 Mon Sep 17 00:00:00 2001
From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 19 Jun 2024 22:05:36 -0400
Subject: [PATCH] * lisp/editorconfig.el (editorconfig-version): Delete
 function

Better use a generic command like `C-h P` or `M-x list-packages`
which works uniformly for all packages.

(cherry picked from commit b72826eef971e5c0179c8b4ebca652992f33b636)
---
 lisp/editorconfig.el | 60 ++++++++++++++++++++++----------------------
 1 file changed, 30 insertions(+), 30 deletions(-)

diff --git a/lisp/editorconfig.el b/lisp/editorconfig.el
index 46b5843f99f..02186e42891 100644
--- a/lisp/editorconfig.el
+++ b/lisp/editorconfig.el
@@ -761,36 +761,36 @@ Meant to be used on `hack-dir-local-get-variables-functions'."
 ;;     (lm-version))
 ;;   "EditorConfig version.")
 
-;;;###autoload
-(defun editorconfig-version (&optional show-version)
-  "Get EditorConfig version as string.
-
-If called interactively or if SHOW-VERSION is non-nil, show the
-version in the echo area and the messages buffer."
-  (interactive (list t))
-  (let ((version-full
-         (if (fboundp 'package-get-version)
-             (package-get-version)
-           (let* ((version
-                   (with-temp-buffer
-                     (require 'find-func)
-                     (declare-function find-library-name "find-func" (library))
-                     (insert-file-contents (find-library-name "editorconfig"))
-                     (require 'lisp-mnt)
-                     (declare-function lm-version "lisp-mnt" nil)
-                     (lm-version)))
-                  (pkg (and (eval-and-compile (require 'package nil t))
-                            (cadr (assq 'editorconfig
-                                        package-alist))))
-                  (pkg-version (and pkg (package-version-join
-                                         (package-desc-version pkg)))))
-             (if (and pkg-version
-                      (not (string= version pkg-version)))
-                 (concat version "-" pkg-version)
-               version)))))
-    (when show-version
-      (message "EditorConfig Emacs v%s" version-full))
-    version-full))
+;; ;;;###autoload
+;; (defun editorconfig-version (&optional show-version)
+;;   "Get EditorConfig version as string.
+;;
+;; If called interactively or if SHOW-VERSION is non-nil, show the
+;; version in the echo area and the messages buffer."
+;;   (interactive (list t))
+;;   (let ((version-full
+;;          (if (fboundp 'package-get-version)
+;;              (package-get-version)
+;;            (let* ((version
+;;                    (with-temp-buffer
+;;                      (require 'find-func)
+;;                      (declare-function find-library-name "find-func" (library))
+;;                      (insert-file-contents (find-library-name "editorconfig"))
+;;                      (require 'lisp-mnt)
+;;                      (declare-function lm-version "lisp-mnt" nil)
+;;                      (lm-version)))
+;;                   (pkg (and (eval-and-compile (require 'package nil t))
+;;                             (cadr (assq 'editorconfig
+;;                                         package-alist))))
+;;                   (pkg-version (and pkg (package-version-join
+;;                                          (package-desc-version pkg)))))
+;;              (if (and pkg-version
+;;                       (not (string= version pkg-version)))
+;;                  (concat version "-" pkg-version)
+;;                version)))))
+;;     (when show-version
+;;       (message "EditorConfig Emacs v%s" version-full))
+;;     version-full))
 
 (provide 'editorconfig)
 ;;; editorconfig.el ends here
-- 
2.39.2