comparison lisp/vc.el @ 93367:07bc5cae1251

(vc-status-mode-map, vc-status-menu-map): Bind vc-update and vc-print-log.

93366:84a5da4da422

(require 'vc-hooks)
(require 'tool-bar)

(eval-when-compile
  (require 'cl)
  (require 'compile)
  (require 'dired)      ; for dired-map-over-marks macro
  (require 'dired-aux))	; for dired-kill-{line,tree}

(if (not (assoc 'vc-parent-buffer minor-mode-alist))
    (setq minor-mode-alist

      '(menu-item "Register" vc-status-register
		  :help "Register file set into the version control system"))
    (define-key map [update]
      '(menu-item "Update" vc-update
		  :help "Update the current fileset's files to their tip revisions"))
    ;; vc-print-log uses the current buffer, not a file.
    ;; (define-key map [log]
    ;;  '(menu-item "Show history" vc-status-print-log
    ;;  :help "List the change log of the current file set in a window"))

    ;; Movement.
    (define-key map [separator-movement] '("--"))
    (define-key map [next-line]
      '(menu-item "Next line" vc-status-next-line

    (define-key map "=" 'vc-diff)
    (define-key map "a" 'vc-status-register)
    (define-key map "+" 'vc-update)
    ;; Can't be "g" (as in vc map), so "A" for "Annotate".
    (define-key map "A" 'vc-annotate)
    ;; vc-print-log uses the current buffer, not a file.
    ;; (define-key map "l" 'vc-status-print-log)
    ;; The remainder.
    (define-key map "f" 'vc-status-find-file)
    (define-key map "\C-m" 'vc-status-find-file)
    (define-key map "o" 'vc-status-find-file-other-window)
    (define-key map "x" 'vc-status-hide-up-to-date)

  (interactive)
  (if vc-status-process-buffer
      (error "Another update process is in progress, cannot run two at a time")
    ;; This is not very efficient; ewoc could use a new function here.
    ;; We clear the ewoc, but remember the marked files so that we can
    ;; mark them after the refresh is done.
    (setq vc-status-crt-marked
	  (mapcar
	   (lambda (elem)
	     (vc-status-fileinfo->name elem))
	   (ewoc-collect

93367:07bc5cae1251

(require 'vc-hooks)
(require 'tool-bar)

(eval-when-compile
  (require 'cl)
  (require 'dired)      ; for dired-map-over-marks macro
  (require 'dired-aux))	; for dired-kill-{line,tree}

(if (not (assoc 'vc-parent-buffer minor-mode-alist))
    (setq minor-mode-alist

      '(menu-item "Register" vc-status-register
		  :help "Register file set into the version control system"))
    (define-key map [update]
      '(menu-item "Update" vc-update
		  :help "Update the current fileset's files to their tip revisions"))
    (define-key map [log]
     '(menu-item "Show history" vc-print-log
     :help "List the change log of the current file set in a window"))

    ;; Movement.
    (define-key map [separator-movement] '("--"))
    (define-key map [next-line]
      '(menu-item "Next line" vc-status-next-line

    (define-key map "=" 'vc-diff)
    (define-key map "a" 'vc-status-register)
    (define-key map "+" 'vc-update)
    ;; Can't be "g" (as in vc map), so "A" for "Annotate".
    (define-key map "A" 'vc-annotate)
    (define-key map "l" 'vc-print-log)
    ;; The remainder.
    (define-key map "f" 'vc-status-find-file)
    (define-key map "\C-m" 'vc-status-find-file)
    (define-key map "o" 'vc-status-find-file-other-window)
    (define-key map "x" 'vc-status-hide-up-to-date)

  (interactive)
  (if vc-status-process-buffer
      (error "Another update process is in progress, cannot run two at a time")
    ;; This is not very efficient; ewoc could use a new function here.
    ;; We clear the ewoc, but remember the marked files so that we can
    ;; mark them again after the refresh is done.
    (setq vc-status-crt-marked
	  (mapcar
	   (lambda (elem)
	     (vc-status-fileinfo->name elem))
	   (ewoc-collect