mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-02 11:50:48 -08:00
Code Issues Projects Releases Wiki Activity

(top-level): Don't require cl when compiling.

Browse source 
(vc-dir-mode-map): Fix backquote.
(vc-at-event): Doc fix.  Use `make-symbol' instead of `gensym'.
This commit is contained in:
John Paul Wallington 2008-05-16 22:39:45 +00:00
parent 82f3844e66
commit c8039c6b14
2 changed files with 9 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2008-05-16 John Paul Wallington <jpw@pobox.com>
* vc-dispatcher.el (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'.
2008-05-16 Michael Albinus <michael.albinus@gmx.de>
* net/tramp.el (tramp-handle-write-region): Fix check for short

9
lisp/vc-dispatcher.el
View file

@ -122,9 +122,6 @@
(require 'ewoc)
(eval-when-compile
(require 'cl))
;; General customization
(defcustom vc-logentry-check-hook nil
@ -798,7 +795,7 @@ See `run-hooks'."
;; 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 @@ See `run-hooks'."
"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)))