Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

For minus, look for digit-dash-alphanumeric as well as alphanumeric-d…

…ash-digit.
  • Loading branch information...
commit f58686084cf60c7851ff1790cc03be12286cf9e0 1 parent 6aa410f
Jesse Alama authored
Showing with 4 additions and 1 deletion.
  1. +4 −1 ce-dash.el
View
5 ce-dash.el
@@ -327,7 +327,10 @@ Typical example: \"25a-35b\"."
(let ((window (substring string 0 (+ dash-end 2))))
(string-match "^[[:space:]]*-[[:space:]]*[[:digit:]]$" window))
(let ((window (substring string (- dash-begin 1) (+ dash-end 2))))
- (string-match "^[[:digit:]][[:space:]]*-[[:space:]]*[[:digit:]]$" window)))))))
+ (or (string-match "^[[:digit:]][[:space:]]*-[[:space:]]*[[:alnum:]]$"
+ window)
+ (string-match "^[[:alnum:]][[:space:]]*-[[:space:]]*[[:digit:]]$"
+ window))))))))
(defun ce-dash-make-a-minus (string occurrence)
(destructuring-bind (dash-begin . dash-end)
Please sign in to comment.
Something went wrong with that request. Please try again.