diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2021-07-19 13:31:08 +0200 |
|---|---|---|
| committer | David Bremner <david@tethera.net> | 2021-08-29 17:51:30 -0700 |
| commit | 3a6e4f97689d6636eedce32fe3d43fe1357246b9 (patch) | |
| tree | 81aaae818374dcc00e1c825be6c45390d72e99ce | |
| parent | 01298a8437df75f0cd693f0e0547def940dc0aa3 (diff) | |
emacs: notmuch-show-pipe-message: cosmetics
| -rw-r--r-- | emacs/notmuch-show.el | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index 0f96c4fe..dc004b17 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -2078,19 +2078,19 @@ message." (let ((cwd default-directory) (buf (get-buffer-create (concat "*notmuch-pipe*")))) (with-current-buffer buf - (setq buffer-read-only nil) - (erase-buffer) - ;; Use the originating buffer's working directory instead of - ;; that of the pipe buffer. - (cd cwd) - (let ((exit-code (call-process-shell-command shell-command nil buf))) - (goto-char (point-max)) - (set-buffer-modified-p nil) - (setq buffer-read-only t) - (unless (zerop exit-code) - (pop-to-buffer buf) - (message (format "Command '%s' exited abnormally with code %d" - shell-command exit-code)))))))) + (setq buffer-read-only t) + (let ((inhibit-read-only t)) + (erase-buffer) + ;; Use the originating buffer's working directory instead of + ;; that of the pipe buffer. + (cd cwd) + (let ((exit-code (call-process-shell-command shell-command nil buf))) + (goto-char (point-max)) + (set-buffer-modified-p nil) + (unless (zerop exit-code) + (pop-to-buffer buf) + (message (format "Command '%s' exited abnormally with code %d" + shell-command exit-code))))))))) (defun notmuch-show-tag-message (&rest tag-changes) "Change tags for the current message. |