# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1210977475 0
# Node ID 0d2b21c96e87d6b747f4576b429109ea6d8d57e1
# Parent  dc328afec2611f57a694b89b2a1459864b5d5adc
(top-level): Don't require cl when compiling.
(vc-dir-mode-map): Fix backquote.
(vc-at-event): Doc fix.  Use `make-symbol' instead of `gensym'.

diff -r dc328afec261 -r 0d2b21c96e87 lisp/vc-dispatcher.el
--- a/lisp/vc-dispatcher.el	Fri May 16 20:20:36 2008 +0000
+++ b/lisp/vc-dispatcher.el	Fri May 16 22:37:55 2008 +0000
@@ -122,9 +122,6 @@
 
 (require 'ewoc)
 
-(eval-when-compile
-  (require 'cl))
-
 ;; General customization
 
 (defcustom vc-logentry-check-hook nil
@@ -798,7 +795,7 @@
 
     ;; Hook up the menu.
     (define-key map [menu-bar vc-dir-mode]
-      '(menu-item
+      `(menu-item
 	;; This is used so that client modes can add mode-specific
 	;; menu items to vc-dir-menu-map.
 	"*vc-dispatcher*" ,vc-dir-menu-map :filter vc-dir-menu-map-filter))
@@ -806,10 +803,10 @@
   "Keymap for directory buffer.")
 
 (defmacro vc-at-event (event &rest body)
-  "Evaluate `body' wich point located at event-start of `event'.
+  "Evaluate `body' with point located at event-start of `event'.
 If `body' uses `event', it should be a variable,
  otherwise it will be evaluated twice."
-  (let ((posn (gensym "vc-at-event-posn")))
+  (let ((posn (make-symbol "vc-at-event-posn")))
     `(let ((,posn (event-start ,event)))
        (save-excursion
          (set-buffer (window-buffer (posn-window ,posn)))