From 5d9d9451d3978338a3539594c42c479e719ad9b4 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 14 Nov 2013 15:20:11 -0500 Subject: [PATCH] * lisp/progmodes/gud.el (ctl-x-map): Remove C-x SPC binding. (gud-jdb-find-source-using-classpath): Remove ((lambda (..)..)..). --- lisp/ChangeLog | 5 +++++ lisp/progmodes/gud.el | 8 +++----- 2 files changed, 8 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1177d14a6e9..fd4ed2aead4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-11-14 Stefan Monnier + + * progmodes/gud.el (ctl-x-map): Remove C-x SPC binding. + (gud-jdb-find-source-using-classpath): Remove ((lambda (..)..)..). + 2013-11-14 Bozhidar Batsov * subr.el (version-regexp-alist): diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index 14f6aa154d7..4097a9cd97e 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el @@ -66,7 +66,7 @@ pdb (Python), and jdb." :group 'gud) (global-set-key (vconcat gud-key-prefix "\C-l") 'gud-refresh) -(define-key ctl-x-map " " 'gud-break) ;; backward compatibility hack +;; (define-key ctl-x-map " " 'gud-break); backward compatibility hack (defvar gud-marker-filter nil) (put 'gud-marker-filter 'permanent-local t) @@ -2159,10 +2159,8 @@ relative to a classpath directory." (split-string ;; Eliminate any subclass references in the class ;; name string. These start with a "$" - ((lambda (x) - (if (string-match "$.*" x) - (replace-match "" t t x) p)) - p) + (if (string-match "$.*" p) + (replace-match "" t t p) p) "\\.") "/") ".java")) (cplist (append gud-jdb-sourcepath gud-jdb-classpath)) -- 2.39.2