From 0db6c7b8be29026df832ef7d7cb02f5183fc9c7f Mon Sep 17 00:00:00 2001 From: Pieter Praet Date: Wed, 22 Feb 2012 19:43:30 +0100 Subject: [PATCH] emacs: rename `notmuch-show-toggle-headers' to `notmuch-show-toggle-visibility-headers' * emacs/notmuch-show.el (notmuch-show-toggle-headers): Rename to `notmuch-show-toggle-visibility-headers'. (notmuch-show-mode-map): Update "h" binding wrt renamed `notmuch-show-toggle-headers'. (notmuch-message-headers): Update docstring wrt renamed `notmuch-show-toggle-headers'. (notmuch-message-headers-visible): Update docstring wrt renamed `notmuch-show-toggle-headers'. Also fixed a small typo. * test/emacs: Update subtest wrt renamed `notmuch-show-toggle-headers': - "notmuch-show: hide message headers (w/ notmuch-show-toggle-headers)" --- emacs/notmuch-show.el | 12 ++++++------ test/emacs | 4 ++-- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index 86130cec..f273eb40 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -47,8 +47,8 @@ For an open message, all of these headers will be made visible according to `notmuch-message-headers-visible' or can be toggled -with `notmuch-show-toggle-headers'. For a closed message, only -the first header in the list will be visible." +with `notmuch-show-toggle-visibility-headers'. For a closed message, +only the first header in the list will be visible." :type '(repeat string) :group 'notmuch-show) @@ -58,8 +58,8 @@ the first header in the list will be visible." If this value is non-nil, then all of the headers defined in `notmuch-message-headers' will be visible by default in the display of each message. Otherwise, these headers will be hidden and -`notmuch-show-toggle-headers' can be used to make the visible for -any given message." +`notmuch-show-toggle-visibility-headers' can be used to make them +visible for any given message." :type 'boolean :group 'notmuch-show) @@ -1170,7 +1170,7 @@ reset based on the original query." (define-key map "v" 'notmuch-show-view-all-mime-parts) (define-key map "c" 'notmuch-show-stash-map) (define-key map "=" 'notmuch-show-refresh-view) - (define-key map "h" 'notmuch-show-toggle-headers) + (define-key map "h" 'notmuch-show-toggle-visibility-headers) (define-key map "*" 'notmuch-show-tag-all) (define-key map "-" 'notmuch-show-remove-tag) (define-key map "+" 'notmuch-show-add-tag) @@ -1709,7 +1709,7 @@ See `notmuch-tag' for information on the format of TAG-CHANGES." (interactive) (notmuch-show-tag "-")) -(defun notmuch-show-toggle-headers () +(defun notmuch-show-toggle-visibility-headers () "Toggle the visibility of the current message headers." (interactive) (let ((props (notmuch-show-get-message-properties))) diff --git a/test/emacs b/test/emacs index 7db9f4fb..21f1d163 100755 --- a/test/emacs +++ b/test/emacs @@ -609,12 +609,12 @@ test_emacs \ (test-visible-output))' test_expect_equal_file OUTPUT $EXPECTED/notmuch-show-message-with-headers-hidden -test_begin_subtest "notmuch-show: hide message headers (w/ notmuch-show-toggle-headers)" +test_begin_subtest "notmuch-show: hide message headers (w/ notmuch-show-toggle-visibility-headers)" test_emacs \ '(let ((notmuch-message-headers '\''("Subject" "To" "Cc" "Date")) (notmuch-message-headers-visible t)) (notmuch-show "id:f35dbb950911171438k5df6eb56k77b6c0944e2e79ae@mail.gmail.com") - (notmuch-show-toggle-headers) + (notmuch-show-toggle-visibility-headers) (test-visible-output))' test_expect_equal_file OUTPUT $EXPECTED/notmuch-show-message-with-headers-hidden