(vc-arch-extra-menu-map): New var and fun.

(vc-arch-find-file-not-found-hook): Remove, it's now the default.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 31e50780b0d26dcad5b4e10e2d98f07afce30d5b..7f9f47a1051bc58d75854d1f4d24d8f345e40309 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2007-08-21  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * 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 9052a7bb82b442f00165e5177c2ae3c83fe5fe2a..19c5c0ac9a063d0d35763fde3174bf7c757e52be 100644 (file)
--- 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)