Put hyphen in a safer place in the character class.

diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el
index a4baa3056f380bfcbf09e895b586011c677a21dd..caf74e3b3b958bea2d3b42c1462fdba41b941921 100644 (file)
--- a/lisp/progmodes/scheme.el
+++ b/lisp/progmodes/scheme.el
@@ -381,7 +381,7 @@ of the start of the containing expression."
 
 (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)))
 

diff --git a/lisp/terminal.el b/lisp/terminal.el
index 256e51dcb7066bf93f09dba9bfcd0b260af5dac8..939791e16918cafbd395816e043aa5fb9c0b0795 100644 (file)
--- 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))