2802       (goto-char (point-min))

  2802       (goto-char (point-min))

  2803       (when (re-search-forward "^u?'" (line-end-position) t)

  2803       (when (re-search-forward "^u?'" (line-end-position) t)

  2804         (replace-match ""))

  2804         (replace-match ""))

  2805       (while (re-search-forward "\\\\n" nil t)

  2805       (while (re-search-forward "\\\\n" nil t)

  2806         (replace-match "\n"))

  2806         (replace-match "\n"))

  2807       (goto-char (point-max))

  2810       (goto-char (point-max))

  2808       (when (eq ?' (char-before))

  2811       (when (eq ?' (char-before))

  2809         (delete-char -1))

  2812         (delete-char -1))

  2810       (read-only-mode 1)

  2813       (read-only-mode 1)

  2811       (goto-char (point-min))))

  2814       (goto-char (point-min))))