# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 801778570 0
# Node ID b28537b10443d60df93271a8d48ec1cbe5ce6ec9
# Parent  58854589c7f78284025f8b2c7bd13c6de0c0e981
(gud-perldb-find-file): Use gud-make-debug-menu.

diff -r 58854589c7f7 -r b28537b10443 lisp/gud.el
--- a/lisp/gud.el	Mon May 29 20:13:06 1995 +0000
+++ b/lisp/gud.el	Mon May 29 20:16:10 1995 +0000
@@ -939,7 +939,7 @@
   (save-excursion
     (let ((buf (find-file-noselect f)))
       (set-buffer buf)
-      (define-key (current-local-map) [menu-bar debug] (cons "Gud" (copy-keymap gud-menu-map)))
+      (gud-make-debug-menu)
       buf)))
 
 ;;;###autoload