]> git.eshelyaron.com Git - emacs.git/commitdiff
Avoid having gud bug out if `C-x C-a' has been bound
authorLars Ingebrigtsen <larsi@gnus.org>
Sat, 4 Dec 2021 20:44:58 +0000 (21:44 +0100)
committerLars Ingebrigtsen <larsi@gnus.org>
Sat, 4 Dec 2021 21:49:44 +0000 (22:49 +0100)
* lisp/progmodes/gdb-mi.el (gud-global-map): Use gud-global-map.
* lisp/progmodes/gud.el (gud-global-map): Define a map instead of
assuming that `C-x C-a' is undefined (bug#6035).
(gud-def): Use the map.

lisp/progmodes/gdb-mi.el
lisp/progmodes/gud.el

index cf1d62d36956f3e94903476fa819331594ac500a..409ff940d9604c44adbd936e98a28f4cc3729249 100644 (file)
@@ -1266,7 +1266,7 @@ Used by Speedbar."
   :version "22.1")
 
 (define-key gud-minor-mode-map "\C-c\C-w" 'gud-watch)
-(define-key global-map (vconcat gud-key-prefix "\C-w") 'gud-watch)
+(keymap-set gud-global-map "C-w" 'gud-watch)
 
 (declare-function tooltip-identifier-from-point "tooltip" (point))
 
index 9b884c4ff802710c07475a7228af1d546e602572..d5bd265517410888efa34b6f13c1d3fd4ad809e2 100644 (file)
@@ -90,8 +90,10 @@ pdb (Python), and jdb."
   "Prefix of all GUD commands valid in C buffers."
   :type 'key-sequence)
 
-(global-set-key (vconcat gud-key-prefix "\C-l") #'gud-refresh)
-;; (define-key ctl-x-map " " 'gud-break); backward compatibility hack
+(defvar-keymap gud-global-map
+  "C-l" #'gud-refresh)
+
+(global-set-key gud-key-prefix gud-global-map)
 
 (defvar gud-marker-filter nil)
 (put 'gud-marker-filter 'permanent-local t)
@@ -433,7 +435,7 @@ we're in the GUD buffer)."
            ;; Unused lexical warning if cmd does not use "arg".
            cmd))))
      ,(if key `(local-set-key ,(concat "\C-c" key) #',func))
-     ,(if key `(global-set-key (vconcat gud-key-prefix ,key) #',func))))
+     ,(if key `(define-key gud-global-map ,key #',func))))
 
 ;; Where gud-display-frame should put the debugging arrow; a cons of
 ;; (filename . line-number).  This is set by the marker-filter, which scans