summaryrefslogtreecommitdiff
path: root/elisp/geiser-base.el
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
commitf1f84c8e9eaf238fc9a23f1a3760b8402e28f14e (patch)
tree507da17788204eec576f13d7d17ea54110a7bff2 /elisp/geiser-base.el
parenta92b7155cf43e0ca4278286455ec4e60186eaf93 (diff)
downloadgeiser-f1f84c8e9eaf238fc9a23f1a3760b8402e28f14e.tar.gz
geiser-f1f84c8e9eaf238fc9a23f1a3760b8402e28f14e.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
Diffstat (limited to 'elisp/geiser-base.el')
-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)