/[emacs]/emacs/lisp/vc-hooks.el
ViewVC logotype

Diff of /emacs/lisp/vc-hooks.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.134 by monnier, Mon Sep 24 16:36:14 2001 UTC revision 1.135 by spiegel, Fri Nov 9 14:58:21 2001 UTC
# Line 129  VC commands are globally reachable under Line 129  VC commands are globally reachable under
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
# Line 137  VC commands are globally reachable under Line 137  VC commands are globally reachable under
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)

Legend:
Removed from v.1.134  
changed lines
  Added in v.1.135

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26