(gud-filter): Remove unneeded progn.

2 files changed, 6 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c777d056d98..97b25eb35a0 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2005-06-30  Andreas Schwab  <schwab@suse.de>
+
+        * progmodes/gud.el (gud-filter): Remove unneeded progn.
+
 2005-06-30  Glenn Morris  <gmorris@ast.cam.ac.uk>
 
         * progmodes/sh-script.el (sh-get-kw): `&' also separates words.
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index dc7e64e6e35..fd8bfeb5d72 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -4,7 +4,7 @@
 ;; Maintainer: FSF
 ;; Keywords: unix, tools
 
-;; Copyright (C) 1992,93,94,95,96,1998,2000,02,03,04 Free Software Foundation, Inc.
+;; Copyright (C) 1992,93,94,95,96,1998,2000,02,03,04,05 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
 
@@ -2534,9 +2534,8 @@ It is saved for when this flag is not set.")
             ;; This must be outside of the save-excursion
             ;; in case the source file is our current buffer.
             (if process-window
-                (progn
                 (with-selected-window process-window
-                  (gud-display-frame)))
+                  (gud-display-frame))
               ;; We have to be in the proper buffer, (process-buffer proc),
               ;; but not in a save-excursion, because that would restore point.
               (with-current-buffer (process-buffer proc)