From 80d7d79f558592392134ea1c1794b701f6e1e13a Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 21 Aug 2007 15:18:06 +0000 Subject: [PATCH] (vc-arch-extra-menu-map): New var and fun. (vc-arch-find-file-not-found-hook): Remove, it's now the default. --- lisp/ChangeLog | 3 +++ lisp/vc-arch.el | 16 ++++++++++------ 2 files changed, 13 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 31e50780b0d..7f9f47a1051 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2007-08-21 Stefan Monnier + * vc-arch.el (vc-arch-extra-menu-map): New var and fun. + (vc-arch-find-file-not-found-hook): Remove, it's now the default. + * vc-hooks.el (vc-menu-entry): New var. (vc-mode-line-map): Use it so that this menu also uses the extra-menu. (menu-bar-tools-menu): Add the VC menu here rather than in menu-bar.el. diff --git a/lisp/vc-arch.el b/lisp/vc-arch.el index 9052a7bb82b..19c5c0ac9a0 100644 --- a/lisp/vc-arch.el +++ b/lisp/vc-arch.el @@ -365,11 +365,6 @@ Return non-nil if FILE is unchanged." (message "There are unresolved conflicts in %s" (file-name-nondirectory rej)))))) -(defun vc-arch-find-file-not-found-hook () - ;; Do nothing. We are not sure whether the file is `source' or not, - ;; so we shouldn't ask the user whether she wants to check it out. - ) - (defun vc-arch-checkout-model (file) 'implicit) (defun vc-arch-checkin (files rev comment) @@ -552,7 +547,16 @@ Return non-nil if FILE is unchanged." branches)))) (mapc 'vc-arch-trim-one-revlib versions)) )) - + +(defvar vc-arch-extra-menu-map + (let ((map (make-sparse-keymap))) + (define-key map [add-tagline] + '(menu-item "Add tagline" vc-arch-add-tagline)) + map)) + +(defun vc-arch-extra-menu () vc-arch-extra-menu-map) + + ;;; Less obvious implementations. (defun vc-arch-find-version (file rev buffer) -- 2.39.2