From 61361a0756fff86846bd7f233a44213420d0016c Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Sat, 12 Mar 1994 01:23:16 +0000 Subject: Put hyphen in a safer place in the character class. --- lisp/terminal.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lisp/terminal.el') diff --git a/lisp/terminal.el b/lisp/terminal.el index 256e51dcb7..939791e169 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)) -- cgit v1.2.3