changeset 914:3122c9756a56

*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Mon, 03 Aug 1992 19:20:08 +0000
parents aa0f2b0fb17f
children a50a10722208
files lisp/gud.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gud.el	Mon Aug 03 17:03:51 1992 +0000
+++ b/lisp/gud.el	Mon Aug 03 19:20:08 1992 +0000
@@ -80,7 +80,8 @@
 		(or doc "")
 		'(interactive "p")
 		(list 'gud-call cstr))
-	  (list 'define-key 'gud-mode-map key  (list 'quote func)))))
+	  (if key
+	      (list 'define-key 'gud-mode-map key  (list 'quote func))))))
 
 ;; All debugger-specific information is collected here
 ;; Here's how it works, in case you ever need to add a debugger to the table.