Remove pkg-info dependency

Author: phikal

elixir-mode.el

@@ -11,7 +11,7 @@
 ;; Created: Mon Nov 7 2011
 ;; Keywords: languages elixir
 ;; Version: 2.4.0
-;; Package-Requires: ((emacs "25") (pkg-info "0.6"))
+;; Package-Requires: ((emacs "25"))
 
 ;; This file is not a part of GNU Emacs.
 
@@ -38,7 +38,6 @@
 
 (require 'easymenu)           ; Elixir Mode menu definition
 (require 'elixir-smie)        ; Syntax and indentation support
-(require 'pkg-info)           ; Display Elixir Mode package version
 (require 'elixir-format)      ; Elixir Format functions
 
 (defgroup elixir nil
@@ -464,6 +463,23 @@ is used to limit the scan."
   (interactive)
   (browse-url elixir-mode-doc-url))
 
+(defvar elixir-mode--version
+  (let ((file (or load-file-name (buffer-file-name))))
+    (if file
+	(with-temp-buffer
+	  (insert-file-contents		;handle .elc files
+	   (cond ((string= (file-name-extension file) "elc")
+		  (concat (file-name-sans-extension file) ".el"))
+		 ((string= (file-name-extension file) "el")
+		  file)
+		 ((error "Unknown extension"))))
+	  (goto-char (point-min))
+	  (if (search-forward-regexp "^;+ Version: \\(.+\\)" nil t)
+	      (match-string-no-properties 1)
+	    "Unspecified"))
+      "Unknown"))
+  "Current version number of Elixir-Mode.")
+
 ;;;###autoload
 (defun elixir-mode-version (&optional show-version)
   "Get the Elixir-Mode version as string.
@@ -478,10 +494,9 @@ If the version number could not be determined, signal an error,
 if called interactively, or if SHOW-VERSION is non-nil, otherwise
 just return nil."
   (interactive (list t))
-  (let ((version (pkg-info-version-info 'elixir-mode)))
-    (when show-version
-      (message "Elixir-Mode version: %s" version))
-    version))
+  (when show-version
+    (message "Elixir-Mode version: %s" elixir-mode--version))
+  elixir-mode--version)
 
 (defun elixir-mode-fill-doc-string ()
   (interactive)