From 3f3aa0ac1f2a6fe7bd6748121c367bca293812d9 Mon Sep 17 00:00:00 2001 From: Jonathan Kamens Date: Fri, 27 Jul 2007 04:19:26 -0800 Subject: [PATCH] Customized vc-mode-line is no longer necessary, since the version that ships with GNU Emacs is now fixed. [git-p4: depot-paths = "//guest/Ben_Key/vc-p4/,//guest/jonathan_kamens/vc-p4/,//guest/magnus_henoch/vc-p4/": change = 5990] --- vc-p4.el | 28 ---------------------------- 1 file changed, 28 deletions(-) diff --git a/vc-p4.el b/vc-p4.el index c60b0b9..a4de3fc 100644 --- a/vc-p4.el +++ b/vc-p4.el @@ -103,34 +103,6 @@ ',(vc-workfile-version file)) (set-buffer-modified-p nil)))))) -(defun vc-mode-line (file) - "Set `vc-mode' to display type of version control for FILE. -The value is set in the current buffer, which should be the buffer -visiting FILE." - (interactive (list buffer-file-name)) - (if (not (vc-backend file)) - (setq vc-mode nil) - (setq vc-mode (concat " " (if vc-display-status - (vc-call mode-line-string file) - (symbol-name (vc-backend file))))) - ;; If the file is locked by some other user, make - ;; the buffer read-only. Like this, even root - ;; cannot modify a file that someone else has locked. - (and (equal file (buffer-file-name)) - (stringp (vc-state file)) - (setq buffer-read-only t)) - ;; If the user is root, and the file is not owner-writable, - ;; then pretend that we can't write it - ;; even though we can (because root can write anything). - ;; This way, even root cannot modify a file that isn't locked. - (and (equal file (buffer-file-name)) - (not buffer-read-only) - (zerop (user-real-uid)) - (zerop (logand (file-modes (buffer-file-name)) 128)) - (setq buffer-read-only t))) - (force-mode-line-update) - (vc-backend file)) - (if (not (fboundp 'vc-default-previous-version)) (defun vc-previous-version (rev) "Guess the version number immediately preceding REV."