[Emacs-diffs] trunk r114372: * progmodes/gud.el (gud-find-file): Silence --without-x compilation.

[Glenn Morris]

------------------------------------------------------------
revno: 114372
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2013-09-17 22:16:36 -0700
message:
  * progmodes/gud.el (gud-find-file): Silence --without-x compilation.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/progmodes/gud.el          gud.el-20091113204419-o5vbwnq5f7feedwu-2927

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-09-18 05:11:38 +0000
+++ b/lisp/ChangeLog    2013-09-18 05:16:36 +0000
@@ -20,6 +20,8 @@
        * mail/rmailmm.el (rmail-mime-set-bulk-data):
        Silence --without-x compilation.
 
+       * progmodes/gud.el (gud-find-file): Silence --without-x compilation.
+
        * wdired.el (dired-backup-overwrite): Remove declaration.
        (wdired-mode-map): Add doc string.
 

=== modified file 'lisp/progmodes/gud.el'
--- a/lisp/progmodes/gud.el     2013-05-24 06:50:22 +0000
+++ b/lisp/progmodes/gud.el     2013-09-18 05:16:36 +0000
@@ -1,7 +1,6 @@
 ;;; gud.el --- Grand Unified Debugger mode for running GDB and other debuggers
 
-;; Copyright (C) 1992-1996, 1998, 2000-2013 Free Software Foundation,
-;; Inc.
+;; Copyright (C) 1992-1996, 1998, 2000-2013 Free Software Foundation, Inc.
 
 ;; Author: Eric S. Raymond <address@hidden>
 ;; Maintainer: FSF
@@ -321,8 +320,9 @@
     (when buf
       ;; Copy `gud-minor-mode' to the found buffer to turn on the menu.
       (with-current-buffer buf
-       (set (make-local-variable 'gud-minor-mode) minor-mode)
-       (set (make-local-variable 'tool-bar-map) gud-tool-bar-map)
+       (setq-local gud-minor-mode minor-mode)
+       (if (boundp 'tool-bar-map)
+           (setq-local tool-bar-map gud-tool-bar-map))
        (when (and gud-tooltip-mode
                   (eq gud-minor-mode 'gdbmi))
          (make-local-variable 'gdb-define-alist)