diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-03-12 01:23:16 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-03-12 01:23:16 +0000 |
| commit | 61361a0756fff86846bd7f233a44213420d0016c (patch) | |
| tree | 792221d07903e61ec0aceafb305df6ea72daba2c /lisp/terminal.el | |
| parent | 26add1bf463d21a7dc855798911eae45e96fa202 (diff) | |
| download | emacs-61361a0756fff86846bd7f233a44213420d0016c.tar.gz | |
Put hyphen in a safer place in the character class.
Diffstat (limited to 'lisp/terminal.el')
| -rw-r--r-- | lisp/terminal.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/terminal.el b/lisp/terminal.el index 256e51dcb70..939791e1691 100644 --- a/lisp/terminal.el +++ b/lisp/terminal.el @@ -1145,11 +1145,11 @@ work with `terminfo' we will try to use it." (defun te-parse-program-and-args (s) - (cond ((string-match "\\`\\([a-zA-Z0-9-+=_.@/:]+[ \t]*\\)+\\'" s) + (cond ((string-match "\\`\\([-a-zA-Z0-9+=_.@/:]+[ \t]*\\)+\\'" s) (let ((l ()) (p 0)) (while p (setq l (cons (if (string-match - "\\([a-zA-Z0-9-+=_.@/:]+\\)\\([ \t]+\\)*" + "\\([-a-zA-Z0-9+=_.@/:]+\\)\\([ \t]+\\)*" s p) (prog1 (substring s p (match-end 1)) (setq p (match-end 0)) @@ -1211,7 +1211,7 @@ of the terminal-emulator" ;;;; what a complete loss (defun te-quote-arg-for-sh (string) - (cond ((string-match "\\`[a-zA-Z0-9-+=_.@/:]+\\'" + (cond ((string-match "\\`[-a-zA-Z0-9+=_.@/:]+\\'" string) string) ((not (string-match "[$]" string)) |