andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
(vc-arch-find-file-not-found-hook): Remove, it's now the default.
This commit is contained in:
Stefan Monnier 2007-08-21 15:18:06 +00:00
parent 98481bad3b
commit 80d7d79f55
2 changed files with 13 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -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.

16
lisp/vc-arch.el
View file

@ -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)