   ;; Right now the line guessing is terrible.
   (interactive)
   (let ((source-file (diffscuss-get-source-file "new"))
-        (line-num (diffscuss-calibrate-source-line)))
+        (line-num (diffscuss-calibrate-source-line "new")))
     (if (find-file-noselect source-file)
         (if (pop-to-buffer (get-file-buffer source-file))
             (goto-line line-num))

  "Show the new version of the source from git, and jump to the right line."
  (interactive)
  (let ((source-file (diffscuss-get-any-source-file "new" "old"))
        (line-num (diffscuss-calibrate-source-line))
        (rev (diffscuss-get-new-rev)))
    (diffscuss-show-source-rev source-file rev line-num "new")))


  "Show the old version of the source from git, and jump to the right line."
  (interactive)
  (let ((source-file (diffscuss-get-any-source-file "old" "new"))
        (line-num (diffscuss-calibrate-source-line "old"))
        (rev (diffscuss-get-old-rev)))
    (diffscuss-show-source-rev source-file rev line-num "old")))

