Re: Some vc-dispatcher nitpicks

[John Paul Wallington <jpw@pobox.com>]

On 16 May 2008, at 20:55, Eric S. Raymond wrote:

> Glenn Morris <rgm@gnu.org>:
>> In toplevel form:
>> vc-dispatcher.el:768:1:Warning: !! The file uses old-style  
>> backquotes !!
>> This functionality has been obsolete for more than 10 years already
>> and will be removed soon.  See (elisp)Backquote in the manual.
>
> I think this may be a false positive.  I did look into it; it seems  
> the line
> construct triggering the warning is the prefix comma on line 804,  
> which looks
> like new-style to me.  Correct me if I'm wrong.

Yup.  But there's no actual backquote for it to apply to though.

>> In vc-at-event:
>> vc-dispatcher.el:812:16:Warning: Function `gensym' from cl package
>> called at runtime
>
> Yeah, that's a real warning that I inherited.  Not sure why it's a  
> problem, though.

`gensym' is a function rather than a macro and it apparently doesn't  
have a corresponding compiler macro.  Use or loading of cl at runtime  
by packages that are installed in the Emacs sources is verboten.

Is it okay to install the following patch?

2008-05-16  John Paul Wallington  <jpw@pobox.com>

         * vc-dispatcher.el (vc-dir-mode-map): Fix backquote.
         (vc-at-event): Use `make-symbol' instead of `gensym'.

--- vc-dispatcher.el.~1.48.~    2008-05-15 18:00:35.000000000 +0100
+++ vc-dispatcher.el    2008-05-16 21:52:45.000000000 +0100
@@ -798,7 +798,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))
@@ -809,7 +809,7 @@
    "Evaluate `body' wich 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)))