From: Nick Roberts <nickrob@snap.net.nz>
Date: Wed, 1 Mar 2006 22:43:29 +0000 (+0000)
Subject: (gud-speedbar-menu-items): Use
X-Git-Tag: emacs-pretest-22.0.90~3827
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f4eb22689d5420252193bcc64801c263961ca7e3;p=emacs.git

(gud-speedbar-menu-items): Use
buffer-local-value and add missing :visible keyword.
---

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index a342eb0b6fc..31c8fe0e8a2 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -406,18 +406,18 @@ t means that there is no stack, and we are in display-file mode.")
 
 (defvar gud-speedbar-menu-items
   '(["Jump to stack frame" speedbar-edit-line
-     :visible (with-current-buffer gud-comint-buffer
-		(not (memq gud-minor-mode '(gdbmi gdba))))]
+     :visible (not (memq (buffer-local-value 'gud-minor-mode gud-comint-buffer)
+		    '(gdbmi gdba)))]
     ["Edit value" speedbar-edit-line
-     :visible (with-current-buffer gud-comint-buffer
-		(memq gud-minor-mode '(gdbmi gdba)))]
+     :visible (memq (buffer-local-value 'gud-minor-mode gud-comint-buffer)
+		    '(gdbmi gdba))]
     ["Delete expression" gdb-var-delete
-     (with-current-buffer gud-comint-buffer
-       (memq gud-minor-mode '(gdbmi gdba)))]
+     :visible (memq (buffer-local-value 'gud-minor-mode gud-comint-buffer)
+		    '(gdbmi gdba))]
     ["Auto raise frame" gdb-speedbar-auto-raise
      :style toggle :selected gdb-speedbar-auto-raise
-     :visible (with-current-buffer gud-comint-buffer
-       (memq gud-minor-mode '(gdbmi gdba)))])
+     :visible (memq (buffer-local-value 'gud-minor-mode gud-comint-buffer)
+		    '(gdbmi gdba))])
   "Additional menu items to add to the speedbar frame.")
 
 ;; Make sure our special speedbar mode is loaded