; (cherry-pick-new-commits): Make *cherry* buffer read-only.

diff --git a/admin/cherry.el b/admin/cherry.el
index d0ee48d723757683238a47e3e27a23a03c069124..6e567b6720536da8e23af2b743af67422631c8fa 100644 (file)
--- a/admin/cherry.el
+++ b/admin/cherry.el
@@ -88,11 +88,13 @@
             (current 0))
         (dolist (commit new-commits)
           (with-current-buffer (get-buffer-create "*cherry*")
+            (setq buffer-read-only nil)
             (delete-region (point-min) (point-max))
             (fundamental-mode))
           (call-process "git" nil "*cherry*" t "-C" source-directory
                         "format-patch" "-1" commit "--stdout")
           (pop-to-buffer "*cherry*")
+          (setq buffer-read-only t)
           (diff-mode)
           (goto-char (point-min))
           (let ((choice (read-multiple-choice