From: André Spiegel <spiegel@gnu.org>
Date: Fri, 9 Nov 2001 15:11:14 +0000 (+0000)
Subject: (vc-error-occured): Backquotified.
X-Git-Tag: emacs-21.2~342
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=57b741c02971e12f8ab19d0af7ffed4b2b9552fd;p=emacs.git

(vc-error-occured): Backquotified.
(vc-file-prop-obarray): Use prime length for better efficiency.
Suggested by Kalle Olavi Niemitalo <kon@iki.fi>.
---

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index 5083c1eed4e..16dc07ddc00 100644
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -5,7 +5,7 @@
 ;; Author:     FSF (see vc.el for full credits)
 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
 
-;; $Id: vc-hooks.el,v 1.133 2001/09/22 20:09:40 monnier Exp $
+;; $Id$
 
 ;; This file is part of GNU Emacs.
 
@@ -129,7 +129,7 @@ VC commands are globally reachable under the prefix `\\[vc-prefix-map]':
 \\{vc-prefix-map}")
 
 (defmacro vc-error-occurred (&rest body)
-  (list 'condition-case nil (cons 'progn (append body '(nil))) '(error t)))
+  `(condition-case nil (progn ,@body nil) (error t)))
 
 ;; We need a notion of per-file properties because the version
 ;; control state of a file is expensive to derive --- we compute
@@ -137,7 +137,7 @@ VC commands are globally reachable under the prefix `\\[vc-prefix-map]':
 ;; during any subsequent VC operations, and forget them when
 ;; the buffer is killed.
 
-(defvar vc-file-prop-obarray (make-vector 16 0)
+(defvar vc-file-prop-obarray (make-vector 17 0)
   "Obarray for per-file properties.")
 
 (defvar vc-touched-properties nil)