Mercurial > emacs
changeset 93381:e6a15031fc81
(vc-menu-map-filter): Be more careful when finding
the current backend.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Sat, 29 Mar 2008 05:33:06 +0000 |
| parents | 0dca8f796277 |
| children | 8e46096e0cb3 |
| files | lisp/ChangeLog lisp/vc-hooks.el |
| diffstat | 2 files changed, 11 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Mar 29 02:47:48 2008 +0000 +++ b/lisp/ChangeLog Sat Mar 29 05:33:06 2008 +0000 @@ -1,3 +1,8 @@ +2008-03-29 Dan Nicolaescu <dann@ics.uci.edu> + + * vc-hooks.el (vc-menu-map-filter): Be more careful when finding + the current backend. + 2008-03-29 Glenn Morris <rgm@gnu.org> * calendar/calendar.el (diary-file, american-date-diary-pattern)
--- a/lisp/vc-hooks.el Sat Mar 29 02:47:48 2008 +0000 +++ b/lisp/vc-hooks.el Sat Mar 29 05:33:06 2008 +0000 @@ -1064,8 +1064,12 @@ (if (and (symbolp orig-binding) (fboundp orig-binding)) (setq orig-binding (indirect-function orig-binding))) (let ((ext-binding - (if vc-mode (vc-call-backend (vc-backend buffer-file-name) - 'extra-menu)))) + (when vc-mode + (vc-call-backend + (if buffer-file-name + (vc-backend buffer-file-name) + (vc-responsible-backend default-directory)) + 'extra-menu)))) ;; Give the VC backend a chance to add menu entries ;; specific for that backend. (if (null ext-binding)