Mercurial > emacs

changeset 7568:83bd6547675c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-mode-line): Do nothing if FILE is nil.
author Richard M. Stallman <rms@gnu.org>
date Thu, 19 May 1994 21:58:38 +0000
parents 4d808a6268a3
children 50a6cd8563b6
files lisp/vc-hooks.el
diffstat 1 files changed, 23 insertions(+), 22 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/vc-hooks.el	Thu May 19 21:50:30 1994 +0000
+++ b/lisp/vc-hooks.el	Thu May 19 21:58:38 1994 +0000
@@ -134,28 +134,29 @@
 The value is set in the current buffer, which should be the buffer
 visiting FILE."
   (interactive (list buffer-file-name nil))
-  (let ((vc-type (vc-backend-deduce file)))
-    (setq vc-mode
-	  (and vc-type
-	       (concat " " (or label (symbol-name vc-type))
-		       (if (and vc-rcs-status (eq vc-type 'RCS))
-			   (vc-rcs-status file)))))
-    ;; Even root shouldn't modify a registered file without locking it first.
-    (and vc-type
-	 (not buffer-read-only)
-	 (zerop (user-uid))
-	 (require 'vc)
-	 (not (string-equal (user-login-name) (vc-locking-user file)))
-	 (setq buffer-read-only t))
-    (and (null vc-type)
-	 (file-symlink-p file)
-	 (let ((link-type (vc-backend-deduce (file-symlink-p file))))
-	   (if link-type
-	       (message "Warning: symbolic link to %s-controlled source file"
-			link-type))))
-    (force-mode-line-update)
-    ;;(set-buffer-modified-p (buffer-modified-p))  ;;use this if Emacs 18
-    vc-type))
+  (if file
+      (let ((vc-type (vc-backend-deduce file)))
+	(setq vc-mode
+	      (and vc-type
+		   (concat " " (or label (symbol-name vc-type))
+			   (if (and vc-rcs-status (eq vc-type 'RCS))
+			       (vc-rcs-status file)))))
+	;; Even root shouldn't modify a registered file without locking it first.
+	(and vc-type
+	     (not buffer-read-only)
+	     (zerop (user-uid))
+	     (require 'vc)
+	     (not (string-equal (user-login-name) (vc-locking-user file)))
+	     (setq buffer-read-only t))
+	(and (null vc-type)
+	     (file-symlink-p file)
+	     (let ((link-type (vc-backend-deduce (file-symlink-p file))))
+	       (if link-type
+		   (message "Warning: symbolic link to %s-controlled source file"
+			    link-type))))
+	(force-mode-line-update)
+	;;(set-buffer-modified-p (buffer-modified-p))  ;;use this if Emacs 18
+	vc-type)))
 
 (defun vc-rcs-status (file)
   ;; Return string for placement in modeline by `vc-mode-line'.