mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(vc-menu-map-filter): Be more careful when finding

Browse Source 
the current backend.
This commit is contained in:
Dan Nicolaescu 2008-03-29 05:33:06 +00:00
parent dc7f8d5723
commit f3d57a2c20
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

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

8
lisp/vc-hooks.el
View File

@ -1064,8 +1064,12 @@ Used in `find-file-not-found-functions'."
(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)