From: Karl Heuer <kwzh@gnu.org>
Date: Sun, 7 Dec 1997 21:40:41 +0000 (+0000)
Subject: (gud-mips-p): Fix regexp so it will match alphaev56-* too.
X-Git-Tag: emacs-20.3~2648
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7c82656b0871d47a482840073fe8724b722e68ea;p=emacs.git

(gud-mips-p): Fix regexp so it will match alphaev56-* too.
---

diff --git a/lisp/gud.el b/lisp/gud.el
index cce7f123a69..a0d8611205a 100644
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -577,7 +577,7 @@ containing the executable being debugged."
       (string-match "^mips-[^-]*-riscos" system-configuration)
       ;; It's documented on OSF/1.3
       (string-match "^mips-[^-]*-osf1" system-configuration)
-      (string-match "^alpha-[^-]*-osf" system-configuration))
+      (string-match "^alpha[^-]*-[^-]*-osf" system-configuration))
   "Non-nil to assume the MIPS/OSF dbx conventions (argument `-emacs').")
 
 (defun gud-mipsdbx-massage-args (file args)