# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 736400101 0
# Node ID bc86243d13619ac4961704a052511466c22d2d9d
# Parent  7ff77992fca0d14ffc49436ee475706e9d14d33d
	* comint.el (comint-match-partial-pathname): Move "---" range in
	character class in regular expressions to the end of the character
	class; this way, it meets the POSIX regexp specs.

diff -r 7ff77992fca0 -r bc86243d1361 lisp/comint.el
--- a/lisp/comint.el	Mon May 03 03:34:20 1993 +0000
+++ b/lisp/comint.el	Mon May 03 03:35:01 1993 +0000
@@ -1037,11 +1037,11 @@
 (defun comint-match-partial-pathname ()
   "Returns the filename at point or causes an error."
   (save-excursion
-    (if (re-search-backward "[^~/A-Za-z0-9---_.$#,=]" nil 'move)
+    (if (re-search-backward "[^~/A-Za-z0-9_.$#,=-]" nil 'move)
 	(forward-char 1))
     ;; Anchor the search forwards.
-    (if (not (looking-at "[~/A-Za-z0-9---_.$#,=]")) (error ""))
-    (re-search-forward "[~/A-Za-z0-9---_.$#,=]+")
+    (if (not (looking-at "[~/A-Za-z0-9_.$#,=-]")) (error ""))
+    (re-search-forward "[~/A-Za-z0-9_.$#,=-]+")
     (substitute-in-file-name
      (buffer-substring (match-beginning 0) (match-end 0)))))