Mercurial > emacs
changeset 6310:c40e283c262b
Put hyphen in a safer place in the character class.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sat, 12 Mar 1994 01:23:16 +0000 |
| parents | 9217f29851c2 |
| children | 55281847e831 |
| files | lisp/progmodes/scheme.el lisp/terminal.el |
| diffstat | 2 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/scheme.el Sat Mar 12 00:23:12 1994 +0000 +++ b/lisp/progmodes/scheme.el Sat Mar 12 01:23:16 1994 +0000 @@ -381,7 +381,7 @@ (defun scheme-let-indent (state indent-point) (skip-chars-forward " \t") - (if (looking-at "[a-zA-Z0-9+-*/?!@$%^&_:~]") + (if (looking-at "[-a-zA-Z0-9+*/?!@$%^&_:~]") (scheme-indent-specform 2 state indent-point) (scheme-indent-specform 1 state indent-point)))
--- a/lisp/terminal.el Sat Mar 12 00:23:12 1994 +0000 +++ b/lisp/terminal.el Sat Mar 12 01:23:16 1994 +0000 @@ -1145,11 +1145,11 @@ (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 @@ ;;;; 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))