# HG changeset patch
# User Paul Eggert <eggert@twinsun.com>
# Date 746416668 0
# Node ID 604a401e05a43d95b27ccb7c1cf9cf5944843533
# Parent  0f5dd4938af921d828a24c3a78eeba8b7287ce1c
(vc-find-file-hook, vc-file-not-found-hook): Use add-hook to install.

diff -r 0f5dd4938af9 -r 604a401e05a4 lisp/vc-hooks.el
--- a/lisp/vc-hooks.el	Wed Aug 25 19:33:07 1993 +0000
+++ b/lisp/vc-hooks.el	Fri Aug 27 01:57:48 1993 +0000
@@ -242,9 +242,7 @@
 	(make-local-variable 'make-backup-files)
 	(setq make-backup-files nil))))
 
-(or (memq 'vc-find-file-hook find-file-hooks)
-    (setq find-file-hooks
-	  (cons 'vc-find-file-hook find-file-hooks)))
+(add-hook 'find-file-hooks 'vc-find-file-hook)
 
 ;;; more hooks, this time for file-not-found
 (defun vc-file-not-found-hook ()
@@ -255,9 +253,7 @@
 	(require 'vc)
 	(not (vc-error-occurred (vc-checkout buffer-file-name))))))
 
-(or (memq 'vc-file-not-found-hook find-file-not-found-hooks)
-    (setq find-file-not-found-hooks
-	  (cons 'vc-file-not-found-hook find-file-not-found-hooks)))
+(add-hook 'find-file-not-found-hooks 'vc-file-not-found-hook)
 
 ;;; Now arrange for bindings and autoloading of the main package.
 ;;; Bindings for this have to go in the global map, as we'll often