diff options
| author | Paul Eggert <eggert@twinsun.com> | 1993-08-27 01:57:48 +0000 |
|---|---|---|
| committer | Paul Eggert <eggert@twinsun.com> | 1993-08-27 01:57:48 +0000 |
| commit | 6379911ca3314bd2aaf2ad1c14c7726abd86e50f (patch) | |
| tree | 1592a018fc49f1fe4200887736cb3b15a2a0c3e2 /lisp | |
| parent | 85acbe0ab885e6bc8a27bac9876b2789c2b991bf (diff) | |
| download | emacs-6379911ca3314bd2aaf2ad1c14c7726abd86e50f.tar.gz | |
(vc-find-file-hook, vc-file-not-found-hook): Use add-hook to install.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/vc-hooks.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index 31abfc02f6f..b258a408d56 100644 --- a/lisp/vc-hooks.el +++ b/lisp/vc-hooks.el @@ -242,9 +242,7 @@ visiting FILE." (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 @@ Returns t if checkout was successful, nil otherwise." (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 |