Mercurial > emacs

changeset 87145:f19c915a241f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix my previous breakages; improve ChangeLog
author Deepak Goel <deego@gnufans.org>
date Thu, 06 Dec 2007 19:48:30 +0000
parents 5db60f420c85
children f984a9eae876
files lisp/ChangeLog lisp/gnus/gnus-start.el lisp/ibuffer.el lisp/vc.el
diffstat 4 files changed, 11 insertions(+), 25 deletions(-) [+]
line wrap: on
line diff
--- 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>
 
--- 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)))))))))
--- 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))
 
--- 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))