# HG changeset patch
# User Deepak Goel <deego@gnufans.org>
# Date 1196970510 0
# Node ID f19c915a241fb4586e1fb35e0e99c7573d518aa7
# Parent  5db60f420c857353e124237a251fc2bac5a09af6
Fix my previous breakages; improve ChangeLog

diff -r 5db60f420c85 -r f19c915a241f lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Dec 06 18:43:43 2007 +0000
+++ b/lisp/ChangeLog	Thu Dec 06 19:48:30 2007 +0000
@@ -1,49 +1,35 @@
 2007-12-06  D. Goel  <deego3@gmail.com>
 
+	* vc.el: Fix breakage.
+	* ibuffer.el (ibuffer-current-buffer): Ditto.
+	* gnus/gnus-start.el (gnus-load): Ditto.
+
+	* allout.el (allout-write-file-hook-handler): Fix buggy call(s) to `error'.
 	* textmodes/reftex.el (reftex-TeX-master-file): Ditto.
-
 	* textmodes/org.el (org-paste-subtree): Ditto.
-
 	* textmodes/ispell.el (ispell-process-line): Ditto.
-
 	* progmodes/vhdl-mode.el (vhdl-template-modify): Ditto.
-
 	* progmodes/idlw-shell.el (idlwave-shell-send-command): Ditto.
 	(idlwave-shell-display-line): Ditto.
-
 	* progmodes/ada-xref.el (ada-find-file): Ditto.
 	(ada-get-all-references): Ditto.
 	(ada-xref-find-in-modified-ali): Ditto.
 	(ada-find-in-src-path): Ditto.
-
 	* net/trampver.el (x): Ditto.
-
 	* mail/uce.el (uce-reply-to-uce): Ditto.
-
 	* mail/rmailout.el (rmail-output): Ditto.
-
 	* mail/feedmail.el (feedmail-dump-message-to-queue): Ditto.
-
 	* whitespace.el (whitespace-write-file-hook): Ditto.
-
 	* wdired.el (wdired-check-kill-buffer): Ditto.
-
 	* vc.el (vc-update): Ditto.
-
 	* vc-mcvs.el (vc-mcvs-checkin): Ditto.
-
 	* vc-cvs.el (vc-cvs-checkin): Ditto.
-
 	* man.el (Man-bgproc-sentinel): Ditto.
 	(Man-goto-see-also-section): Ditto.
-
 	* ibuffer.el (ibuffer-current-buffer): Ditto.
-
 	* dired.el (dired-move-to-end-of-filename): Ditto.
-
 	* bindings.el (complete-symbol): Ditto.
 
-	* allout.el (allout-write-file-hook-handler): Fix buggy call(s) to `error'.
 
 2007-12-06  D. Goel  <deego3@gmail.com>
 
diff -r 5db60f420c85 -r f19c915a241f lisp/gnus/gnus-start.el
--- a/lisp/gnus/gnus-start.el	Thu Dec 06 18:43:43 2007 +0000
+++ b/lisp/gnus/gnus-start.el	Thu Dec 06 19:48:30 2007 +0000
@@ -2392,8 +2392,8 @@
 	    (eval form))
 	(error
 	 (unless (eq (car type) 'end-of-file)
-	   (let ((error "Error in %s line %d" file
-				(count-lines (point-min (point)))))
+	   (let ((error (format "Error in %s line %d" file
+				(count-lines (point-min (point))))))
 	     (ding)
 	     (unless (gnus-yes-or-no-p (concat error "; continue? "))
 	       (error "%s" error)))))))))
diff -r 5db60f420c85 -r f19c915a241f lisp/ibuffer.el
--- a/lisp/ibuffer.el	Thu Dec 06 18:43:43 2007 +0000
+++ b/lisp/ibuffer.el	Thu Dec 06 19:48:30 2007 +0000
@@ -1392,7 +1392,7 @@
     (when must-be-live
       (if (bufferp buf)
 	  (unless (buffer-live-p buf)
-	    (error "%s" (substitute-command-keys "Buffer %s has been killed; use `\\[ibuffer-update]' to update") buf))
+	    (error "Buffer %s has been killed; %s" buf (substitute-command-keys "use `\\[ibuffer-update]' to update")))
 	(error "No buffer on this line")))
     buf))
 
diff -r 5db60f420c85 -r f19c915a241f lisp/vc.el
--- a/lisp/vc.el	Thu Dec 06 18:43:43 2007 +0000
+++ b/lisp/vc.el	Thu Dec 06 19:48:30 2007 +0000
@@ -2622,10 +2622,10 @@
 	      (error "%s"
 	       (substitute-command-keys
 		"File is locked--type \\[vc-revert] to discard changes"))
-	    (error "%s"
+	    (error "Unexpected file state (%s) -- type %s"
+	     (vc-state file)
 	     (substitute-command-keys
-	      "Unexpected file state (%s)--type \\[vc-next-action] to correct")
-	     (vc-state file)))
+	      "\\[vc-next-action] to correct"))
 	(if (not (vc-find-backend-function (vc-backend file) 'merge-news))
 	    (error "Sorry, merging news is not implemented for %s"
 		   (vc-backend file))