diff options
author | Karl Heuer <[email protected]> | 1994-03-12 00:23:12 +0000 |
---|---|---|
committer | Karl Heuer <[email protected]> | 1994-03-12 00:23:12 +0000 |
commit | 26add1bf463d21a7dc855798911eae45e96fa202 (patch) | |
tree | f227ddc7a59807d3f0d596907f3bc2c87af5a2d4 /lisp/subr.el | |
parent | 96a410bce6167f4ba9be55693dee79075325893e (diff) |
Don't use triple-hyphen in a character class.
Diffstat (limited to 'lisp/subr.el')
-rw-r--r-- | lisp/subr.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 44a7e298e3..42105a44d5 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -671,7 +671,7 @@ Wildcards and redirection are handled as usual in the shell." ;; Quote everything except POSIX filename characters. ;; This should be safe enough even for really weird shells. (let ((result "") (start 0) end) - (while (string-match "[^---0-9a-zA-Z_./]" argument start) + (while (string-match "[^-0-9a-zA-Z_./]" argument start) (setq end (match-beginning 0) result (concat result (substring argument start end) "\\" (substring argument end (1+ end))) |