mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

Put hyphen in a safer place in the character class.

Browse Source
This commit is contained in:
Karl Heuer 1994-03-12 01:23:16 +00:00
parent 26add1bf46
commit 61361a0756
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/progmodes/scheme.el
View File

@ -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)))

6
lisp/terminal.el
View File

@ -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))