changeset 82502:2a2056106d16

(vc-arch-extra-menu-map): New var and fun. (vc-arch-find-file-not-found-hook): Remove, it's now the default.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 21 Aug 2007 15:18:06 +0000
parents 5c15d3c510b1
children ee14b9e1fa7f
files lisp/ChangeLog lisp/vc-arch.el
diffstat 2 files changed, 13 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Tue Aug 21 15:10:55 2007 +0000
+++ b/lisp/ChangeLog	Tue Aug 21 15:18:06 2007 +0000
@@ -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.
--- 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)