diff lisp/vc-arch.el @ 82502:2a2056106d16

(vc-arch-extra-menu-map): New var and fun. (vc-arch-find-file-not-found-hook): Remove, it's now the default.

--- a/lisp/vc-arch.el	Tue Aug 21 15:10:55 2007 +0000
+++ b/lisp/vc-arch.el	Tue Aug 21 15:18:06 2007 +0000
@@ -365,11 +365,6 @@
 	(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 @@
                            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)