(compilation-set-window-height): New function,

[gnu-emacs] / lisp / gud.el

diff --git a/lisp/gud.el b/lisp/gud.el
index 6ccd0d15c1f3e9280654485941c9340e666f6683..bfb383d3bcdfdfbff4aac254b67df3cd076e62f1 100644 (file)
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -459,7 +459,8 @@ and source-file directory for your debugger."
       ;; We haven't tested gud on this system:
       (string-match "^mips-[^-]*-riscos" system-configuration)
       ;; It's documented on OSF/1.3
-      (string-match "^mips-[^-]*-osf1" system-configuration))
+      (string-match "^mips-[^-]*-osf1" 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)
@@ -634,8 +635,8 @@ and source-file directory for your debugger."
     ;; Make dbx give out the source location info that we need.
     (process-send-string (get-buffer-process gud-comint-buffer)
                         "printf \"\032\032%1d:\",$curline;file\n"))
-   ((or (string-match "-sunos" (symbol-name system-type))
-       (string-match "-solaris" (symbol-name system-type)))
+   ((or (string-match "-sunos" system-configuration)
+       (string-match "-solaris" system-configuration))
     ;; The following works for both the UCB and SunPro 2.0.1 versions
     ;; of dbx.  The `stop' is lost using the `\n' separator as in the
     ;; default case.  Is there a dbx where the newline is actually