vc-dir-tool-bar-map
vc-dir-tool-bar-map is a variable defined in `
vc-dir.el
'.
Its value is shown
below.
- This variable may be risky if used as a file-local variable.
Documentation:
Not documented as a variable.
Value:
(keymap
(new-file menu-item "Visit New File..." find-file :enable
(menu-bar-non-minibuffer-window-p)
:help "Specify a new file's name, to edit the file" :image
(find-image
(cond
((not
(display-color-p))
'((:type pbm :file "new.pbm" :foreground "black")
(:type xbm :file "new.xbm" :foreground "black")
(:type xpm :file "low-color/new.xpm")
(:type xpm :file "new.xpm")))
((<
(display-color-cells)
256)
'((:type xpm :file "low-color/new.xpm")
(:type xpm :file "new.xpm")
(:type pbm :file "new.pbm" :foreground "black")
(:type xbm :file "new.xbm" :foreground "black")))
(t
'((:type xpm :file "new.xpm")
(:type pbm :file "new.pbm" :foreground "black")
(:type xbm :file "new.xbm" :foreground "black")))))
:label "New File" :vert-only t)
(open-file menu-item "Open File..." menu-find-file-existing :enable
(menu-bar-non-minibuffer-window-p)
:help "Read an existing file into an Emacs buffer" :image
(find-image
(cond
((not
(display-color-p))
'((:type pbm :file "open.pbm" :foreground "black")
(:type xbm :file "open.xbm" :foreground "black")
(:type xpm :file "low-color/open.xpm")
(:type xpm :file "open.xpm")))
((<
(display-color-cells)
256)
'((:type xpm :file "low-color/open.xpm")
(:type xpm :file "open.xpm")
(:type pbm :file "open.pbm" :foreground "black")
(:type xbm :file "open.xbm" :foreground "black")))
(t
'((:type xpm :file "open.xpm")
(:type pbm :file "open.pbm" :foreground "black")
(:type xbm :file "open.xbm" :foreground "black")))))
:label "Open" :vert-only t)
(dired menu-item "Open Directory..." dired :enable
(menu-bar-non-minibuffer-window-p)
:help "Read a directory, to operate on its files" :image
(find-image
(cond
((not
(display-color-p))
'((:type pbm :file "diropen.pbm" :foreground "black")
(:type xbm :file "diropen.xbm" :foreground "black")
(:type xpm :file "low-color/diropen.xpm")
(:type xpm :file "diropen.xpm")))
((<
(display-color-cells)
256)
'((:type xpm :file "low-color/diropen.xpm")
(:type xpm :file "diropen.xpm")
(:type pbm :file "diropen.pbm" :foreground "black")
(:type xbm :file "diropen.xbm" :foreground "black")))
(t
'((:type xpm :file "diropen.xpm")
(:type pbm :file "diropen.pbm" :foreground "black")
(:type xbm :file "diropen.xbm" :foreground "black")))))
:vert-only t)
(quit menu-item "Quit" quit-window :help "Quit" :image
(find-image
(cond
((not
(display-color-p))
'((:type pbm :file "close.pbm" :foreground "black")
(:type xbm :file "close.xbm" :foreground "black")
(:type xpm :file "low-color/close.xpm")
(:type xpm :file "close.xpm")))
((<
(display-color-cells)
256)
'((:type xpm :file "low-color/close.xpm")
(:type xpm :file "close.xpm")
(:type pbm :file "close.pbm" :foreground "black")
(:type xbm :file "close.xbm" :foreground "black")))
(t
'((:type xpm :file "close.xpm")
(:type pbm :file "close.pbm" :foreground "black")
(:type xbm :file "close.xbm" :foreground "black")))))
:vert-only t)
(next-action menu-item "Check In/Out" vc-next-action :help "Do the next logical version control operation on the current fileset" :image
(find-image
(cond
((not
(display-color-p))
'((:type pbm :file "saveas.pbm" :foreground "black")
(:type xbm :file "saveas.xbm" :foreground "black")
(:type xpm :file "low-color/saveas.xpm")
(:type xpm :file "saveas.xpm")))
((<
(display-color-cells)
256)
'((:type xpm :file "low-color/saveas.xpm")
(:type xpm :file "saveas.xpm")
(:type pbm :file "saveas.pbm" :foreground "black")
(:type xbm :file "saveas.xbm" :foreground "black")))
(t
'((:type xpm :file "saveas.xpm")
(:type pbm :file "saveas.pbm" :foreground "black")
(:type xbm :file "saveas.xbm" :foreground "black")))))
:label "Commit")
(log menu-item "Show History" vc-print-log :help "List the change log of the current file set in a window" :image
(find-image
(cond
((not
(display-color-p))
'((:type pbm :file "info.pbm" :foreground "black")
(:type xbm :file "info.xbm" :foreground "black")
(:type xpm :file "low-color/info.xpm")
(:type xpm :file "info.xpm")))
((<
(display-color-cells)
256)
'((:type xpm :file "low-color/info.xpm")
(:type xpm :file "info.xpm")
(:type pbm :file "info.pbm" :foreground "black")
(:type xbm :file "info.xbm" :foreground "black")))
(t
'((:type xpm :file "info.xpm")
(:type pbm :file "info.pbm" :foreground "black")
(:type xbm :file "info.xbm" :foreground "black")))))
:label "Log")
(separator-1 "--")
(kill menu-item "Kill Update Command" vc-dir-kill-dir-status-process :enable
(vc-dir-busy)
:help "Kill the command that updates the directory buffer" :image
(find-image
(cond
((not
(display-color-p))
'((:type pbm :file "cancel.pbm" :foreground "black")
(:type xbm :file "cancel.xbm" :foreground "black")
(:type xpm :file "low-color/cancel.xpm")
(:type xpm :file "cancel.xpm")))
((<
(display-color-cells)
256)
'((:type xpm :file "low-color/cancel.xpm")
(:type xpm :file "cancel.xpm")
(:type pbm :file "cancel.pbm" :foreground "black")
(:type xbm :file "cancel.xbm" :foreground "black")))
(t
'((:type xpm :file "cancel.xpm")
(:type pbm :file "cancel.pbm" :foreground "black")
(:type xbm :file "cancel.xbm" :foreground "black")))))
:label "Stop" :vert-only t)
(refresh menu-item "Refresh" revert-buffer :enable
(not
(vc-dir-busy))
:help "Refresh the contents of the directory buffer" :image
(find-image
(cond
((not
(display-color-p))
'((:type pbm :file "refresh.pbm" :foreground "black")
(:type xbm :file "refresh.xbm" :foreground "black")
(:type xpm :file "low-color/refresh.xpm")
(:type xpm :file "refresh.xpm")))
((<
(display-color-cells)
256)
'((:type xpm :file "low-color/refresh.xpm")
(:type xpm :file "refresh.xpm")
(:type pbm :file "refresh.pbm" :foreground "black")
(:type xbm :file "refresh.xbm" :foreground "black")))
(t
'((:type xpm :file "refresh.xpm")
(:type pbm :file "refresh.pbm" :foreground "black")
(:type xbm :file "refresh.xbm" :foreground "black")))))
:vert-only t)
(separator-2 "--")
(cut menu-item "Cut" kill-region :enable
(and mark-active
(not buffer-read-only))
:help "Cut (kill) text in region between mark and current position" :image
(find-image
(cond
((not
(display-color-p))
'((:type pbm :file "cut.pbm" :foreground "black")
(:type xbm :file "cut.xbm" :foreground "black")
(:type xpm :file "low-color/cut.xpm")
(:type xpm :file "cut.xpm")))
((<
(display-color-cells)
256)
'((:type xpm :file "low-color/cut.xpm")
(:type xpm :file "cut.xpm")
(:type pbm :file "cut.pbm" :foreground "black")
(:type xbm :file "cut.xbm" :foreground "black")))
(t
'((:type xpm :file "cut.xpm")
(:type pbm :file "cut.pbm" :foreground "black")
(:type xbm :file "cut.xbm" :foreground "black")))))
:vert-only t)
(copy menu-item "Copy" kill-ring-save :enable mark-active :help "Copy text in region between mark and current position" :keys "\\[kill-ring-save]" :image
(find-image
(cond
((not
(display-color-p))
'((:type pbm :file "copy.pbm" :foreground "black")
(:type xbm :file "copy.xbm" :foreground "black")
(:type xpm :file "low-color/copy.xpm")
(:type xpm :file "copy.xpm")))
((<
(display-color-cells)
256)
'((:type xpm :file "low-color/copy.xpm")
(:type xpm :file "copy.xpm")
(:type pbm :file "copy.pbm" :foreground "black")
(:type xbm :file "copy.xbm" :foreground "black")))
(t
'((:type xpm :file "copy.xpm")
(:type pbm :file "copy.pbm" :foreground "black")
(:type xbm :file "copy.xbm" :foreground "black")))))
:vert-only t)
(paste menu-item "Paste" yank :enable
(and
(or
(gui-call gui-selection-exists-p 'CLIPBOARD)
(if
(featurep 'ns)
(cdr yank-menu)
kill-ring))
(not buffer-read-only))
:help "Paste (yank) text most recently cut/copied" :image
(find-image
(cond
((not
(display-color-p))
'((:type pbm :file "paste.pbm" :foreground "black")
(:type xbm :file "paste.xbm" :foreground "black")
(:type xpm :file "low-color/paste.xpm")
(:type xpm :file "paste.xpm")))
((<
(display-color-cells)
256)
'((:type xpm :file "low-color/paste.xpm")
(:type xpm :file "paste.xpm")
(:type pbm :file "paste.pbm" :foreground "black")
(:type xbm :file "paste.xbm" :foreground "black")))
(t
'((:type xpm :file "paste.xpm")
(:type pbm :file "paste.pbm" :foreground "black")
(:type xbm :file "paste.xbm" :foreground "black")))))
:vert-only t)
(separator-3 "--")
(isearch-forward menu-item "Forward String..." isearch-forward :help "Search forward for a string as you type it" :image
(find-image
(cond
((not
(display-color-p))
'((:type pbm :file "search.pbm" :foreground "black")
(:type xbm :file "search.xbm" :foreground "black")
(:type xpm :file "low-color/search.xpm")
(:type xpm :file "search.xpm")))
((<
(display-color-cells)
256)
'((:type xpm :file "low-color/search.xpm")
(:type xpm :file "search.xpm")
(:type pbm :file "search.pbm" :foreground "black")
(:type xbm :file "search.xbm" :foreground "black")))
(t
'((:type xpm :file "search.xpm")
(:type pbm :file "search.pbm" :foreground "black")
(:type xbm :file "search.xbm" :foreground "black")))))
:label "Search" :vert-only t))