 ;; filter.
 (defun gud-rdebug-marker-filter (string)
   (rdebug-debug-enter "gud-rdebug-marker-filter"
-    (rdebug-debug-message "GOT: %S\n" string)
+    (rdebug-debug-message "GOT: %S" string)
     (setq gud-marker-acc (concat gud-marker-acc string))
     (let ((output "") s s2 (tmp ""))
       
       ;; ALB first we process the annotations (if any)
       (while (setq s (string-match rdebug-annotation-start-regexp
 				   gud-marker-acc))
-	(rdebug-debug-message "ACC: %S\n" gud-marker-acc)
+	(rdebug-debug-message "ACC: %S" gud-marker-acc)
 	(let ((name (substring gud-marker-acc (match-beginning 1) (match-end 1)))
 	      (end (match-end 0)))
 	  (if (setq s2 (string-match rdebug-annotation-end-regexp

  (let ((map (make-sparse-keymap)))
    (suppress-keymap map)
    (define-key map "a" 'rdebug-display-add)
    (define-key map "d" 'rdebug-display-delete)
    (define-key map "e" 'rdebug-display-edit)
    (define-key map "\r" 'rdebug-display-edit)

  "Restore the original window configuration when the debugger process exits."
  (gud-sentinel process event)
  (rdebug-debug-enter "rdebug-process-sentinel"
    (rdebug-debug-message "status=%S event=%S state=%S"
                          (process-status process)
                          event
                          rdebug-window-configuration-state)
