Mercurial > emacs

changeset 93893:ff99dcb2b31b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* outline.el (outline-mode-menu-bar-map): * log-view.el (log-view-mode-menu): * log-edit.el (log-edit-menu): Add :help.
author Dan Nicolaescu <dann@ics.uci.edu>
date Wed, 09 Apr 2008 06:15:13 +0000
parents 877d364e5ff6
children 065fbf6b6fd0
files lisp/ChangeLog lisp/log-edit.el lisp/log-view.el lisp/outline.el
diffstat 4 files changed, 54 insertions(+), 34 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Wed Apr 09 04:29:43 2008 +0000
+++ b/lisp/ChangeLog	Wed Apr 09 06:15:13 2008 +0000
@@ -1,3 +1,9 @@
+2008-04-09  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* 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  <cyd@stupidchicken.com>
 
 	* emacs-lisp/regexp-opt.el (regexp-opt-group): Use
--- a/lisp/log-edit.el	Wed Apr 09 04:29:43 2008 +0000
+++ b/lisp/log-edit.el	Wed Apr 09 06:15:13 2008 +0000
@@ -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.
--- a/lisp/log-view.el	Wed Apr 09 04:29:43 2008 +0000
+++ b/lisp/log-view.el	Wed Apr 09 06:15:13 2008 +0000
@@ -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'.")
--- a/lisp/outline.el	Wed Apr 09 04:29:43 2008 +0000
+++ b/lisp/outline.el	Wed Apr 09 06:15:13 2008 +0000
@@ -105,78 +105,78 @@
 		  :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