Mercurial > emacs

changeset 4655:604a401e05a4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-find-file-hook, vc-file-not-found-hook): Use add-hook to install.
author Paul Eggert <eggert@twinsun.com>
date Fri, 27 Aug 1993 01:57:48 +0000
parents 0f5dd4938af9
children 29bd5f3d0059
files lisp/vc-hooks.el
diffstat 1 files changed, 2 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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