   (find-file-noselect f))
 
 (defun rdebug-get-script-name (args &optional annotate-p)
-  "Pick out the script name from the command line and return a
-list of that and whether the annotate option was set. Initially
-annotate should be set to nil."
+  "Pick out the script name from the command line.
+Return a list of that and whether the annotate option was set.
+Initially annotate should be set to nil."
   (let ((arg (pop args)))
     (cond
      ((not arg) (list nil annotate-p))


(defconst rdebug--stack-frame-1st-regexp
  "^\\(-->\\|   \\) +#\\([0-9]+\\)\\(.*\\)"
  "Regexp to recognize the first line of a a stack frame line in rdebug stack buffers.")

(defconst rdebug--stack-frame-2nd-regexp
  "\s+at line +\\([^:]+\\):\\([0-9]+\\)$"
  "Regexp to recognize the second line of a a stack frame line in rdebug stack buffers.")

(defconst rdebug--stack-frame-regexp
  (concat rdebug--stack-frame-1st-regexp rdebug--stack-frame-2nd-regexp)

;; OR: pass two maps, one top level (for menu and common) and one
;; submap for keys.
(defun rdebug-populate-secondary-buffer-map (map &optional no-menu)
  "Bind keys common to all rdebug secondary buffers.
(This does not include the debugger shell and source buffers.)"
  ;; Keys to view other buffers.
  (define-key map "?" 'rdebug-display-secondary-window-help-buffer)
  (define-key map "B" 'rdebug-display-breakpoints-buffer)
