diff options
| author | David Bremner <david@tethera.net> | 2014-10-25 08:53:29 +0200 |
|---|---|---|
| committer | David Bremner <david@tethera.net> | 2014-10-25 10:39:07 +0200 |
| commit | 1de97ee586cd3306b5fd7eb665db3f84061ed94b (patch) | |
| tree | 788d8666afc6f70b5334927f41a5c74d39267d0b | |
| parent | b4278d4e8e95663ce4bab346a1a9d47a3206bb4a (diff) | |
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.
| -rwxr-xr-x | test/T310-emacs.sh | 6 | ||||
| -rwxr-xr-x | 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)))) |