Mercurial > emacs
changeset 95052:0d2b21c96e87
(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'.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Fri, 16 May 2008 22:37:55 +0000 |
| parents | dc328afec261 |
| children | b2c592fe4194 |
| files | lisp/vc-dispatcher.el |
| diffstat | 1 files changed, 3 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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)))