(gud-perldb-find-file): Use gud-make-debug-menu.

diff --git a/lisp/gud.el b/lisp/gud.el
index adfc14fdbb4e3f76ee259cfd9ec74886a5189070..4ee0b91b3d2c15863921ca5c71d573eced244da6 100644 (file)
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -939,7 +939,7 @@ directories if your program contains sources from more than one directory."
   (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