summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDan Leslie <dan@ironoxide.ca>2015-08-14 08:18:59 -0700
committerDan Leslie <dan@ironoxide.ca>2015-08-14 08:18:59 -0700
commitbfbaaf707f82027e05ea4cfee5d31f2f8eb64690 (patch)
treeaacb25ae1e83cc8e0ee691fd7ba147f73b14157c
parent7866c31f267d0ecdf94ed90d2724fed20dc149dc (diff)
downloadgeiser-chez-bfbaaf707f82027e05ea4cfee5d31f2f8eb64690.tar.gz
geiser-chez-bfbaaf707f82027e05ea4cfee5d31f2f8eb64690.tar.bz2
Closes jaor/geiser#65
geiser--cut-version only supports single-digit minor versions. - Improves the regex to support multiple-digit minor versions. Contributed by @kovrik
-rw-r--r--elisp/geiser-base.el6
1 files changed, 1 insertions, 5 deletions
diff --git a/elisp/geiser-base.el b/elisp/geiser-base.el
index 034e595..3e248ac 100644
--- a/elisp/geiser-base.el
+++ b/elisp/geiser-base.el
@@ -7,8 +7,6 @@
;; have received a copy of the license along with this program. If
;; not, see <http://www.xfree86.org/3.3.6/COPYRIGHT2.html#5>.
-
-
;; Settings and vars shared by all geiser modules, including little
;; utilities and emacsen compatibility bits.
@@ -29,7 +27,6 @@
(let ((inhibit-changing-match-data t))
(looking-at regexp))))
-
;;; Utilities:
(defsubst geiser--chomp (str)
@@ -77,7 +74,7 @@
(and thing (make-symbol thing))))
(defun geiser--cut-version (v)
- (when (string-match "\\([0-9]+\\.[0-9]\\(?:\\.[0-9]+\\)?\\).*" v)
+ (when (string-match "\\([0-9]+\\(?:\\.[0-9]+\\.[0-9]+\\)?\\).*" v)
(match-string 1 v)))
(defun geiser--version< (v1 v2)
@@ -85,5 +82,4 @@
(v2 (geiser--cut-version v2)))
(and v1 v2 (version< v1 v2))))
-
(provide 'geiser-base)