mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-02-16 17:24:23 +00:00
* outline.el (outline-mode-menu-bar-map):
* log-view.el (log-view-mode-menu): * log-edit.el (log-edit-menu): Add :help.
This commit is contained in:
Dan Nicolaescu
parent
75407435b1
commit
799224fe61
4 changed files with 54 additions and 34 deletions
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
|
|
|
|||
|
|
@ -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'.")
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Reference in a new issue