129 |
\\{vc-prefix-map}") |
\\{vc-prefix-map}") |
130 |
|
|
131 |
(defmacro vc-error-occurred (&rest body) |
(defmacro vc-error-occurred (&rest body) |
132 |
(list 'condition-case nil (cons 'progn (append body '(nil))) '(error t))) |
`(condition-case nil (progn ,@body nil) (error t))) |
133 |
|
|
134 |
;; We need a notion of per-file properties because the version |
;; We need a notion of per-file properties because the version |
135 |
;; control state of a file is expensive to derive --- we compute |
;; control state of a file is expensive to derive --- we compute |
137 |
;; during any subsequent VC operations, and forget them when |
;; during any subsequent VC operations, and forget them when |
138 |
;; the buffer is killed. |
;; the buffer is killed. |
139 |
|
|
140 |
(defvar vc-file-prop-obarray (make-vector 16 0) |
(defvar vc-file-prop-obarray (make-vector 17 0) |
141 |
"Obarray for per-file properties.") |
"Obarray for per-file properties.") |
142 |
|
|
143 |
(defvar vc-touched-properties nil) |
(defvar vc-touched-properties nil) |