- (define-key map [hide hide-other] '("Hide Other" . hide-other))
- (define-key map [hide hide-sublevels] '("Hide Sublevels" . hide-sublevels))
- (define-key map [hide hide-subtree] '("Hide Subtree" . hide-subtree))
- (define-key map [hide hide-entry] '("Hide Entry" . hide-entry))
- (define-key map [hide hide-body] '("Hide Body" . hide-body))
- (define-key map [hide hide-leaves] '("Hide Leaves" . hide-leaves))
+ (define-key map [hide hide-other]
+ '(menu-item "Hide Other" hide-other
+ :help "Hide everything except current body and parent and top-level headings"))
+ (define-key map [hide hide-sublevels]
+ '(menu-item "Hide Sublevels" hide-sublevels
+ :help "Hide everything but the top LEVELS levels of headers, in whole buffer"))
+ (define-key map [hide hide-subtree]
+ '(menu-item "Hide Subtree" hide-subtree
+ :help "Hide everything after this heading at deeper levels"))
+ (define-key map [hide hide-entry]
+ '(menu-item "Hide Entry" hide-entry
+ :help "Hide the body directly following this heading"))
+ (define-key map [hide hide-body]
+ '(menu-item "Hide Body" hide-body
+ :help "Hide all body lines in buffer, leaving all headings visible"))
+ (define-key map [hide hide-leaves]
+ '(menu-item "Hide Leaves" hide-leaves
+ :help "Hide the body after this heading and at deeper levels"))