procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/editorconfig.el (editorconfig-version): Delete function

Browse source 
Better use a generic command like `C-h P` or `M-x list-packages`
which works uniformly for all packages.
This commit is contained in:
Stefan Monnier 2024-06-19 22:05:36 -04:00
parent 8d0a7c718b
commit b72826eef9
1 changed files with 30 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

60
lisp/editorconfig.el
View file

@ -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