From 799224fe61c0e65c9d0ac2107ec8eed8d898c679 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Wed, 9 Apr 2008 06:15:13 +0000 Subject: [PATCH] * outline.el (outline-mode-menu-bar-map): * log-view.el (log-view-mode-menu): * log-edit.el (log-edit-menu): Add :help. --- lisp/ChangeLog | 6 ++++++ lisp/log-edit.el | 18 ++++++++++++------ lisp/log-view.el | 24 ++++++++++++++++-------- lisp/outline.el | 40 ++++++++++++++++++++-------------------- 4 files changed, 54 insertions(+), 34 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7bde99394ec..a52575d67b3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2008-04-09 Dan Nicolaescu + + * outline.el (outline-mode-menu-bar-map): + * log-view.el (log-view-mode-menu): + * log-edit.el (log-edit-menu): Add :help. + 2008-04-09 Chong Yidong * emacs-lisp/regexp-opt.el (regexp-opt-group): Use diff --git a/lisp/log-edit.el b/lisp/log-edit.el index 5447cda9f1c..7e532dcc12f 100644 --- a/lisp/log-edit.el +++ b/lisp/log-edit.el @@ -77,18 +77,24 @@ ["Done" log-edit-done :help "Exit log-edit and proceed with the actual action."] "--" - ["Insert ChangeLog" log-edit-insert-changelog] - ["Add to ChangeLog" log-edit-add-to-changelog] + ["Insert ChangeLog" log-edit-insert-changelog + :help "Insert a log message by looking at the ChangeLog"] + ["Add to ChangeLog" log-edit-add-to-changelog + :help "Insert this log message into the appropriate ChangeLog file"] "--" ["Show diff" log-edit-show-diff :help "Show the diff for the files to be committed."] ["List files" log-edit-show-files :help "Show the list of relevant files."] "--" - ["Previous comment" log-edit-previous-comment] - ["Next comment" log-edit-next-comment] - ["Search comment forward" log-edit-comment-search-forward] - ["Search comment backward" log-edit-comment-search-backward])) + ["Previous comment" log-edit-previous-comment + :help "Cycle backwards through comment history"] + ["Next comment" log-edit-next-comment + :help "Cycle forwards through comment history."] + ["Search comment forward" log-edit-comment-search-forward + :help "Search forwards through comment history for a substring match of str"] + ["Search comment backward" log-edit-comment-search-backward + :help "Search backwards through comment history for substring match of str"])) (defcustom log-edit-confirm 'changed "*If non-nil, `log-edit-done' will request confirmation. diff --git a/lisp/log-view.el b/lisp/log-view.el index 2f048cc271a..a92d826a5d8 100644 --- a/lisp/log-view.el +++ b/lisp/log-view.el @@ -152,17 +152,25 @@ ;; XXX Do we need menu entries for these? ;; ["Quit" quit-window] ;; ["Kill This Buffer" kill-this-buffer] - ["Mark Log Entry for Diff" set-mark-command] - ["Diff Revisions" log-view-diff] - ["Visit Version" log-view-find-revision] - ["Annotate Version" log-view-annotate-version] + ["Mark Log Entry for Diff" set-mark-command + :help ""] + ["Diff Revisions" log-view-diff + :help "Get the diff between two revisions"] + ["Visit Version" log-view-find-revision + :help "Visit the version at point"] + ["Annotate Version" log-view-annotate-version + :help "Annotate the version at point"] ["Modify Log Comment" log-view-modify-change-comment :help "Edit the change comment displayed at point"] "-----" - ["Next Log Entry" log-view-msg-next] - ["Previous Log Entry" log-view-msg-prev] - ["Next File" log-view-file-next] - ["Previous File" log-view-file-prev])) + ["Next Log Entry" log-view-msg-next + :help "Go to the next count'th log message"] + ["Previous Log Entry" log-view-msg-prev + :help "Go to the previous count'th log message"] + ["Next File" log-view-file-next + :help "Go to the next count'th file"] + ["Previous File" log-view-file-prev + :help "Go to the previous count'th file"])) (defvar log-view-mode-hook nil "Hook run at the end of `log-view-mode'.") diff --git a/lisp/outline.el b/lisp/outline.el index 2aecfe2d11d..837e66fb173 100644 --- a/lisp/outline.el +++ b/lisp/outline.el @@ -105,78 +105,78 @@ in the file it applies to." :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 "")) + :help "Hide everything after this heading at deeper levels")) (define-key map [hide hide-entry] '(menu-item "Hide Entry" hide-entry - :help "")) + :help "Hide the body directly following this heading")) (define-key map [hide hide-body] '(menu-item "Hide Body" hide-body - :help "")) + :help "Hide all body lines in buffer, leaving all headings visible")) (define-key map [hide hide-leaves] '(menu-item "Hide Leaves" hide-leaves - :help "")) + :help "Hide the body after this heading and at deeper levels")) (define-key map [show] (cons "Show" (make-sparse-keymap "Show"))) (define-key map [show show-subtree] '(menu-item "Show Subtree" show-subtree - :help "")) + :help "Show everything after this heading at deeper levels")) (define-key map [show show-children] '(menu-item "Show Children" show-children - :help "")) + :help "Show all direct subheadings of this heading")) (define-key map [show show-branches] '(menu-item "Show Branches" show-branches - :help "")) + :help "Show all subheadings of this heading, but not their bodies")) (define-key map [show show-entry] '(menu-item "Show Entry" show-entry - :help "")) + :help "Show the body directly following this heading")) (define-key map [show show-all] '(menu-item "Show All" show-all - :help "")) + :help "Show all of the text in the buffer")) (define-key map [headings] (cons "Headings" (make-sparse-keymap "Headings"))) (define-key map [headings demote-subtree] '(menu-item "Demote subtree" outline-demote - :help "")) + :help "Demote headings lower down the tree")) (define-key map [headings promote-subtree] '(menu-item "Promote subtree" outline-promote - :help "")) + :help "Promote headings higher up the tree")) (define-key map [headings move-subtree-down] '(menu-item "Move subtree down" outline-move-subtree-down - :help "")) + :help "Move the currrent subtree down past arg headlines of the same level")) (define-key map [headings move-subtree-up] '(menu-item "Move subtree up" outline-move-subtree-up - :help "")) + :help "Move the currrent subtree up past arg headlines of the same level")) (define-key map [headings copy] '(menu-item "Copy to kill ring" outline-headers-as-kill :enable mark-active - :help "")) + :help "Save the visible outline headers in region at the start of the kill ring")) (define-key map [headings outline-insert-heading] '(menu-item "New heading" outline-insert-heading - :help "")) + :help "Insert a new heading at same depth at point")) (define-key map [headings outline-backward-same-level] '(menu-item "Previous Same Level" outline-backward-same-level - :help "")) + :help "Move backward to the arg'th subheading at same level as this one.")) (define-key map [headings outline-forward-same-level] '(menu-item "Next Same Level" outline-forward-same-level - :help "")) + :help "Move forward to the arg'th subheading at same level as this one")) (define-key map [headings outline-previous-visible-heading] '(menu-item "Previous" outline-previous-visible-heading - :help "")) + :help "Move to the previous heading line")) (define-key map [headings outline-next-visible-heading] '(menu-item "Next" outline-next-visible-heading - :help "")) + :help "Move to the next visible heading line")) (define-key map [headings outline-up-heading] '(menu-item "Up" outline-up-heading - :help "")) + :help "Move to the visible heading line of which the present line is a subheading")) map)) (defvar outline-minor-mode-menu-bar-map -- 2.39.2