changeset 94625:be875b5d451e

(vc-dir-mark-buffer-changed): Fix typo client-mode -> vc-client-object, and guess `funcall' was meant. (vc-dir-mode): Rename client-mode -> vc-client.mode.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 05 May 2008 06:12:33 +0000
parents c199ac3029ed
children 5eb3ee73ed4e
files lisp/ChangeLog lisp/vc-dispatcher.el
diffstat 2 files changed, 21 insertions(+), 15 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Mon May 05 02:43:39 2008 +0000
+++ b/lisp/ChangeLog	Mon May 05 06:12:33 2008 +0000
@@ -1,3 +1,9 @@
+2008-05-05  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* vc-dispatcher.el (vc-dir-mark-buffer-changed): Fix typo
+	client-mode -> vc-client-object, and guess `funcall' was meant.
+	(vc-dir-mode): Rename client-mode -> vc-client.mode.
+
 2008-05-05  Dan Nicolaescu  <dann@ics.uci.edu>
 
 	* net/zeroconf.el (dbus-call-method, dbus-register-signal)
@@ -5,10 +11,9 @@
 
 2008-05-04  Roland Winkler  <Roland.Winkler@physik.uni-erlangen.de>
 
-	* proced.el (proced-command-alist): Fix system-type values.  Fix
-	defcustom.
-	(proced-sorting-schemes-alist, proced-sorting-scheme): New
-	variables.
+	* proced.el (proced-command-alist): Fix system-type values.
+	Fix defcustom.
+	(proced-sorting-schemes-alist, proced-sorting-scheme): New variables.
 	(proced-sort-pcpu, proced-sort-pmem, proced-sort-pid)
 	(proced-sort-start, proced-sort, proced-sort-time): New commands.
 	(proced-update): Use proced-sorting-scheme.  Update modeline.
@@ -19,8 +24,7 @@
 
 	* vc.el: Require dired when compiling.
 
-	* minibuffer.el (completion--insert-strings): Don't delete past
-	bol.
+	* minibuffer.el (completion--insert-strings): Don't delete past bol.
 
 2008-05-03  Glenn Morris  <rgm@gnu.org>
 
@@ -43,11 +47,11 @@
 2008-05-03  Eric S. Raymond  <esr@snark.thyrsus.com>
 
 	* 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.  Obsolete
-	logentry-check is removed from the backend API.
-	* vc-sccs.el: Obsolete vc-sccs-logentry-check removed.  This was
+	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.
+	Remove obsolete logentry-check from the backend API.
+	* vc-sccs.el (vc-sccs-logentry-check): Remove .  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 (!).
--- a/lisp/vc-dispatcher.el	Mon May 05 02:43:39 2008 +0000
+++ b/lisp/vc-dispatcher.el	Mon May 05 06:12:33 2008 +0000
@@ -1546,10 +1546,12 @@
 	    (when (eq t (compare-strings file nil (length ddir) ddir nil nil))
 	      (let*
 		  ((file-short (substring file (length ddir)))
-		   (state 
-		    (apply (client-mode->file-to-state client-mode) fname))
+		   (state
+		    (funcall (vc-client-object->file-to-state vc-client-mode)
+                             fname))
 		   (extra
-		    (apply (client-mode->file-to-extra client-mode) fname))
+		    (funcall (vc-client-object->file-to-extra vc-client-mode)
+                             fname))
 		   (entry
 		    (list file-short state extra)))
 		(vc-dir-update (list entry) status-buf))))))
@@ -1583,7 +1585,7 @@
   (setq buffer-read-only t)
   (use-local-map vc-dir-mode-map)
   (set (make-local-variable 'tool-bar-map) vc-dir-tool-bar-map)
-  (set (make-local-variable 'client-mode) client-object)
+  (set (make-local-variable 'vc-client-mode) client-object)
   (let ((buffer-read-only nil))
     (erase-buffer)
     (set (make-local-variable 'vc-dir-process-buffer) nil)