Mercurial > emacs
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)