11
11
; ; Created: Mon Nov 7 2011
12
12
; ; Keywords: languages elixir
13
13
; ; Version: 2.4.0
14
- ; ; Package-Requires: ((emacs "25") (pkg-info "0.6") )
14
+ ; ; Package-Requires: ((emacs "25"))
15
15
16
16
; ; This file is not a part of GNU Emacs.
17
17
38
38
39
39
(require 'easymenu ) ; Elixir Mode menu definition
40
40
(require 'elixir-smie ) ; Syntax and indentation support
41
- (require 'pkg-info ) ; Display Elixir Mode package version
42
41
(require 'elixir-format ) ; Elixir Format functions
43
42
44
43
(defgroup elixir nil
@@ -464,6 +463,19 @@ is used to limit the scan."
464
463
(interactive )
465
464
(browse-url elixir-mode-doc-url))
466
465
466
+ (defconst elixir--version
467
+ (eval-when-compile
468
+ (require 'lisp-mnt )
469
+ (let ((file (or byte-compile-current-file
470
+ load-file-name
471
+ (buffer-file-name ))))
472
+ (if file
473
+ (with-temp-buffer
474
+ (insert-file-contents file)
475
+ (lm-version ))
476
+ " Unknown" )))
477
+ " The current version of `elixir-mode' ." )
478
+
467
479
;;;### autoload
468
480
(defun elixir-mode-version (&optional show-version )
469
481
" Get the Elixir-Mode version as string.
@@ -478,10 +490,9 @@ If the version number could not be determined, signal an error,
478
490
if called interactively, or if SHOW-VERSION is non-nil, otherwise
479
491
just return nil."
480
492
(interactive (list t ))
481
- (let ((version (pkg-info-version-info 'elixir-mode )))
482
- (when show-version
483
- (message " Elixir-Mode version: %s " version))
484
- version))
493
+ (when show-version
494
+ (message " Elixir-Mode version: %s " elixir--version))
495
+ elixir--version)
485
496
486
497
(defun elixir-mode-fill-doc-string ()
487
498
(interactive )
0 commit comments