From 1de97ee586cd3306b5fd7eb665db3f84061ed94b Mon Sep 17 00:00:00 2001 From: David Bremner Date: Sat, 25 Oct 2014 08:53:29 +0200 Subject: [PATCH] test/emacs: force *Messages* buffer to be writable In emacs 24.4 the messages buffer starts being read-only, which kills these tests. This seems to be the point of the variable inihibit-read-only, which has existed at least since emacs 21. --- test/T310-emacs.sh | 6 ++++-- test/T450-emacs-show.sh | 3 ++- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/test/T310-emacs.sh b/test/T310-emacs.sh index ac966e52..af6b2126 100755 --- a/test/T310-emacs.sh +++ b/test/T310-emacs.sh @@ -877,7 +877,8 @@ exit 1 EOF chmod a+x notmuch_fail test_emacs "(let ((notmuch-command \"$PWD/notmuch_fail\")) - (with-current-buffer \"*Messages*\" (erase-buffer)) + (with-current-buffer \"*Messages*\" + (let ((inhibit-read-only t)) (erase-buffer))) (with-current-buffer (get-buffer-create \"*Notmuch errors*\") (erase-buffer)) (notmuch-search \"tag:inbox\") @@ -909,7 +910,8 @@ exit 0 EOF chmod a+x notmuch_fail test_emacs "(let ((notmuch-command \"$PWD/notmuch_fail\")) - (with-current-buffer \"*Messages*\" (erase-buffer)) + (with-current-buffer \"*Messages*\" + (let ((inhibit-read-only t)) (erase-buffer))) (with-current-buffer (get-buffer-create \"*Notmuch errors*\") (erase-buffer)) (notmuch-search \"tag:inbox\") diff --git a/test/T450-emacs-show.sh b/test/T450-emacs-show.sh index 2a3a5356..bfcd5efe 100755 --- a/test/T450-emacs-show.sh +++ b/test/T450-emacs-show.sh @@ -173,7 +173,8 @@ exit 1 EOF chmod a+x notmuch_fail test_emacs "(let ((notmuch-command \"$PWD/notmuch_fail\")) - (with-current-buffer \"*Messages*\" (erase-buffer)) + (with-current-buffer \"*Messages*\" + (let ((inhibit-read-only t)) (erase-buffer))) (condition-case err (notmuch-show \"*\") (error (message \"%s\" (second err))))