[elpa] externals/dash 1d897cc 199/316: Simplify examples-to-docs a bit

[ELPA Syncer]

branch: externals/dash
commit 1d897cc3ac46eb9f1d7617826e6ed6381ec12e5d
Author: Basil L. Contovounesios <contovob@tcd.ie>
Commit: Basil L. Contovounesios <contovob@tcd.ie>

    Simplify examples-to-docs a bit
    
    * dev/examples-to-docs.el (dash-get-package-version): Remove
    function.
    (create-docs-file): Replace its use with lm-version.
---
 dev/examples-to-docs.el | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

diff --git a/dev/examples-to-docs.el b/dev/examples-to-docs.el
index f7a2211..ed17133 100644
--- a/dev/examples-to-docs.el
+++ b/dev/examples-to-docs.el
@@ -23,17 +23,11 @@
 
 (require 'dash)
 (require 'dash-functional)
-(require 'help-fns)
-(require 'package)
+(require 'lisp-mnt)
 
 (setq text-quoting-style 'grave)
 
-(defvar functions '())
-
-(defun dash-get-package-version ()
-  "Get version of dash package."
-  (with-current-buffer (find-file-noselect "dash.el")
-    (mapconcat 'number-to-string (package-desc-version (package-buffer-info)) 
version-separator)))
+(defvar functions ())
 
 (defun example-to-string (example)
   (-let* (((actual sym expected) example)
@@ -195,7 +189,7 @@ FUNCTION may reference an elisp function, alias, macro or a 
subr."
       (goto-and-remove "[[ function-docs ]]")
       (insert (mapconcat 'function-to-md functions "\n"))
 
-      (goto-and-replace-all "[[ version ]]" (dash-get-package-version))
+      (goto-and-replace-all "[[ version ]]" (lm-version "dash.el"))
 
       (simplify-quotes))))