diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-05-25 03:50:36 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-05-25 03:52:16 +0200 |
| commit | abd3411827d77edee6f2a38d9fc1c3a61fba88ed (patch) | |
| tree | bfc06724caebef12e439e958965d9dcffb499213 /lisp/emacs-lisp/edebug.el | |
| parent | 458d8db7e825a48867a02ae277334fc6f01670a3 (diff) | |
| download | emacs-abd3411827d77edee6f2a38d9fc1c3a61fba88ed.tar.gz emacs-abd3411827d77edee6f2a38d9fc1c3a61fba88ed.tar.bz2 emacs-abd3411827d77edee6f2a38d9fc1c3a61fba88ed.zip | |
Don't have edebug bug out if C-x is rebound
* lisp/emacs-lisp/edebug.el (edebug-global-prefix): Don't bug out
if C-x has been rebound (bug#55607).
Diffstat (limited to 'lisp/emacs-lisp/edebug.el')
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index f350aef8fb1..9dc5a1315e5 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el @@ -3865,7 +3865,10 @@ be installed in `emacs-lisp-mode-map'.") (define-obsolete-variable-alias 'global-edebug-prefix 'edebug-global-prefix "28.1") -(defvar edebug-global-prefix "\^XX" +(defvar edebug-global-prefix + (when-let ((binding + (car (where-is-internal 'Control-X-prefix (list global-map))))) + (concat binding [?X])) "Prefix key for global edebug commands, available from any buffer.") (define-obsolete-variable-alias 'global-edebug-map |