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 | 6e587ac8e844326dcfcf2658b62886a9b50d517b (patch) | |
| tree | 1ba5fb58cb5868c6f4695ac57a82345a607ac93d /lisp/terminal.el | |
| parent | 064175c9eed01030cb8df00333910ced554b1941 (diff) | |
| download | emacs-6e587ac8e844326dcfcf2658b62886a9b50d517b.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)) |