diff options
author | Pieter Praet <pieter@praet.org> | 2012-02-01 14:50:00 +0100 |
---|---|---|
committer | David Bremner <bremner@debian.org> | 2012-02-01 21:29:17 -0400 |
commit | 2dcd1e7234f9dd50ec41c7b09297f002c6572a86 (patch) | |
tree | aee4f1951f6da19acf52f47ced526670f2751be6 /emacs/notmuch-show.el | |
parent | 7cd907b69c3134b00f8766571b17b669bd8a80c2 (diff) |
emacs: globally replace non-branching "(if COND (progn ..." with "(when ..."
Less code, same results, without sacrificing readability.
Diffstat (limited to 'emacs/notmuch-show.el')
-rw-r--r-- | emacs/notmuch-show.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index de9421e8..0a945ea0 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -1364,11 +1364,10 @@ any effects from previous calls to ;; If a small number of lines from the previous message are ;; visible, realign so that the top of the current message is at ;; the top of the screen. - (if (<= (count-screen-lines (window-start) start-of-message) - next-screen-context-lines) - (progn - (goto-char (notmuch-show-message-top)) - (notmuch-show-message-adjust))) + (when (<= (count-screen-lines (window-start) start-of-message) + next-screen-context-lines) + (goto-char (notmuch-show-message-top)) + (notmuch-show-message-adjust)) ;; Move to the top left of the window. (goto-char (window-start))) (t |