diff options
| author | Richard M. Stallman | 1994-07-24 20:01:13 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-07-24 20:01:13 +0000 |
| commit | 13118fc3d8270fb22ef2d194d14b538222e91183 (patch) | |
| tree | 60fa3ded3b0f30a07415efb55ebfa6a980296b47 | |
| parent | e9ce5adec11d1c1407b091af19637ca03429e188 (diff) | |
| download | emacs-13118fc3d8270fb22ef2d194d14b538222e91183.tar.gz emacs-13118fc3d8270fb22ef2d194d14b538222e91183.zip | |
(dbx): Use system-configuration, not system-type.
| -rw-r--r-- | lisp/gud.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/gud.el b/lisp/gud.el index 85d97507e35..bfb383d3bcd 100644 --- a/lisp/gud.el +++ b/lisp/gud.el | |||
| @@ -635,8 +635,8 @@ and source-file directory for your debugger." | |||
| 635 | ;; Make dbx give out the source location info that we need. | 635 | ;; Make dbx give out the source location info that we need. |
| 636 | (process-send-string (get-buffer-process gud-comint-buffer) | 636 | (process-send-string (get-buffer-process gud-comint-buffer) |
| 637 | "printf \"\032\032%1d:\",$curline;file\n")) | 637 | "printf \"\032\032%1d:\",$curline;file\n")) |
| 638 | ((or (string-match "-sunos" (symbol-name system-type)) | 638 | ((or (string-match "-sunos" system-configuration) |
| 639 | (string-match "-solaris" (symbol-name system-type))) | 639 | (string-match "-solaris" system-configuration)) |
| 640 | ;; The following works for both the UCB and SunPro 2.0.1 versions | 640 | ;; The following works for both the UCB and SunPro 2.0.1 versions |
| 641 | ;; of dbx. The `stop' is lost using the `\n' separator as in the | 641 | ;; of dbx. The `stop' is lost using the `\n' separator as in the |
| 642 | ;; default case. Is there a dbx where the newline is actually | 642 | ;; default case. Is there a dbx where the newline is actually |