From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 29 May 1995 20:16:10 +0000 (+0000)
Subject: (gud-perldb-find-file): Use gud-make-debug-menu.
X-Git-Tag: emacs-19.34~3854
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=39cf49be68851325073013e52cac6714f8806cf3;p=emacs.git

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

diff --git a/lisp/gud.el b/lisp/gud.el
index adfc14fdbb4..4ee0b91b3d2 100644
--- 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