# HG changeset patch # User Eric S. Raymond # Date 1209800357 0 # Node ID 3bdffe280ad3a6be689eeede49f6815ea7fca2ce # Parent 61cca370b8f5c3ce71a5bc45d9def38df8d2cdbf Remove logentry primitive from backend API. diff -r 61cca370b8f5 -r 3bdffe280ad3 lisp/ChangeLog --- a/lisp/ChangeLog Sat May 03 07:06:34 2008 +0000 +++ b/lisp/ChangeLog Sat May 03 07:39:17 2008 +0000 @@ -3,7 +3,12 @@ * vc-dispatcher.el: New file, separates out the UI and command execution machinery from VCS-specific logic left in vc.el. The separation is not yet completely clean, but it's a good start. - * vc.el: This file is about 1700 lines shorter now. + * vc.el: This file is about 1700 lines shorter now. Obsolete + logentry-check is removed from the backend API. + * vc-sccs.el: Obsolete vc-sccs-logentry-check removed. This was + was the only implementation of the logentry-check method, and + it guarded against a log length limit that has probably been + obsolete for 15 years (!). 2008-05-02 Sam Steingold diff -r 61cca370b8f5 -r 3bdffe280ad3 lisp/vc-dispatcher.el --- a/lisp/vc-dispatcher.el Sat May 03 07:06:34 2008 +0000 +++ b/lisp/vc-dispatcher.el Sat May 03 07:39:17 2008 +0000 @@ -138,10 +138,8 @@ (insert s) (set-marker (process-mark p) (point)))))))) -(defun vc-setup-buffer (&optional buf) - "Prepare BUF for executing a VC command and make it current. -BUF defaults to \"*vc*\", can be a string and will be created if necessary." - (unless buf (setq buf "*vc*")) +(defun vc-setup-buffer (buf) + "Prepare BUF for executing a slave command and make it current." (let ((camefrom (current-buffer)) (olddir default-directory)) (set-buffer (get-buffer-create buf)) @@ -501,7 +499,6 @@ (message "%s Type C-c C-c when done" msg) (vc-finish-logentry (eq comment t))))) -;; FIXME: Reference to vc-call-backend should go. (defun vc-finish-logentry (&optional nocomment) "Complete the operation implied by the current log entry. Use the contents of the current buffer as a check-in or registration @@ -510,10 +507,6 @@ (interactive) ;; Check and record the comment, if any. (unless nocomment - ;; Comment too long? - (vc-call-backend (or (when vc-log-fileset (vc-backend vc-log-fileset)) - (vc-responsible-backend default-directory)) - 'logentry-check) (run-hooks 'vc-logentry-check-hook)) ;; Sync parent buffer in case the user modified it while editing the comment. ;; But not if it is a vc-dired buffer. @@ -557,7 +550,6 @@ (vc-dir-move-to-goal-column)) (run-hooks after-hook 'vc-finish-logentry-hook))) - ;; The VC directory major mode. Coopt Dired for this. ;; All VC commands get mapped into logical equivalents. diff -r 61cca370b8f5 -r 3bdffe280ad3 lisp/vc-git.el --- a/lisp/vc-git.el Sat May 03 07:06:34 2008 +0000 +++ b/lisp/vc-git.el Sat May 03 07:39:17 2008 +0000 @@ -83,7 +83,6 @@ ;; - log-view-mode () OK ;; - show-log-entry (revision) OK ;; - wash-log (file) COULD BE SUPPORTED -;; - logentry-check () NOT NEEDED ;; - comment-history (file) ?? ;; - update-changelog (files) COULD BE SUPPORTED ;; * diff (file &optional rev1 rev2 buffer) OK diff -r 61cca370b8f5 -r 3bdffe280ad3 lisp/vc-hg.el --- a/lisp/vc-hg.el Sat May 03 07:06:34 2008 +0000 +++ b/lisp/vc-hg.el Sat May 03 07:39:17 2008 +0000 @@ -72,7 +72,6 @@ ;; - log-view-mode () OK ;; - show-log-entry (revision) NOT NEEDED, DEFAULT IS GOOD ;; - wash-log (file) ?? -;; - logentry-check () NOT NEEDED ;; - comment-history (file) NOT NEEDED ;; - update-changelog (files) NOT NEEDED ;; * diff (files &optional rev1 rev2 buffer) OK diff -r 61cca370b8f5 -r 3bdffe280ad3 lisp/vc-sccs.el --- a/lisp/vc-sccs.el Sat May 03 07:06:34 2008 +0000 +++ b/lisp/vc-sccs.el Sat May 03 07:39:17 2008 +0000 @@ -332,12 +332,6 @@ ;; 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)) diff -r 61cca370b8f5 -r 3bdffe280ad3 lisp/vc.el --- a/lisp/vc.el Sat May 03 07:06:34 2008 +0000 +++ b/lisp/vc.el Sat May 03 07:39:17 2008 +0000 @@ -401,13 +401,6 @@ ;; ;; Remove all non-comment information from the output of print-log. ;; -;; - logentry-check () -;; -;; If defined, this function is run to find out whether the user -;; entered a valid log entry for check-in. The log entry is in the -;; current buffer, and if it is not a valid one, the function should -;; throw an error. -;; ;; - comment-history (file) ;; ;; Return a string containing all log entries that were made for FILE. @@ -823,7 +816,7 @@ :group 'vc) (defcustom vc-logentry-check-hook nil - "Normal hook run by `vc-backend-logentry-check'. + "Normal hook run by `vc-finish-logentry'. Use this to impose your own rules on the entry in addition to any the version control backend imposes itself." :type 'hook @@ -2733,7 +2726,6 @@ (with-current-buffer (find-file-noselect new) (vc-register))) -(defalias 'vc-default-logentry-check 'ignore) (defalias 'vc-default-check-headers 'ignore) (defun vc-default-log-view-mode (backend) (log-view-mode))