X-Git-Url: http://git.hcoop.net/bpt/emacs.git/blobdiff_plain/92d1eebf86a15ba396b47e6ad4bf1078d06c2562..7265c6e8a87c1a112b16384a7d3f62de869c2589:/lisp/vc-sccs.el

diff --git a/lisp/vc-sccs.el b/lisp/vc-sccs.el
index ce1b977e7f..aa7708db47 100644
--- a/lisp/vc-sccs.el
+++ b/lisp/vc-sccs.el
@@ -332,12 +332,6 @@ locked.  REV is the revision to check out."
   ;; FIXME: not implemented for SCCS
   nil)
 
-(defun vc-sccs-logentry-check ()
-  "Check that the log entry in the current buffer is acceptable for SCCS."
-  (when (>= (buffer-size) 512)
-    (goto-char 512)
-    (error "Log must be less than 512 characters; point is now at pos 512")))
-
 (defun vc-sccs-diff (files &optional oldvers newvers buffer)
   "Get a difference report using SCCS between two filesets."
   (setq oldvers (vc-sccs-lookup-triple (car files) oldvers))