Mercurial > hg > xemacs-beta

comparison lisp/packages/vc-hooks.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 0293115a14e9
children 538048ae2ab8
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
536 (add-hook 'before-init-hook 536 (add-hook 'before-init-hook
537 #'(lambda () (and (featurep 'menubar) 537 #'(lambda () (and (featurep 'menubar)
538 current-menubar 538 current-menubar
539 (car (find-menu-item current-menubar '("Tools"))) 539 (car (find-menu-item current-menubar '("Tools")))
540 (add-submenu '("Tools") vc-menu "Compare") 540 (add-submenu '("Tools") vc-menu "Compare")
541 (add-menu-item '("Tools") "---" nil nil "Compare")) 541 (add-menu-button '("Tools") "---" "Compare"))
542 )) 542 ))
543 543
544 ;; #### called by files.el. Define it like this until we're merged. 544 ;; #### called by files.el. Define it like this until we're merged.
545 (defun vc-after-save ()) 545 (defun vc-after-save ())
546 546