# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1175106961 0
# Node ID bb2e03ff11bc02c8ed7aec54257b0a1773074bcd
# Parent  f6329da585b924b2632157a31dec871d41399b71
(next-error-highlight): Doc fix.

diff -r f6329da585b9 -r bb2e03ff11bc lisp/simple.el
--- a/lisp/simple.el	Wed Mar 28 18:35:50 2007 +0000
+++ b/lisp/simple.el	Wed Mar 28 18:36:01 2007 +0000
@@ -130,8 +130,10 @@
 
 (defcustom next-error-highlight 0.5
   "*Highlighting of locations in selected source buffers.
-If number, highlight the locus in `next-error' face for given time in seconds.
-If t, highlight the locus indefinitely until some other locus replaces it.
+If a number, highlight the locus in `next-error' face for the given time
+in seconds, or until the next command is executed.
+If t, highlight the locus until the next command is executed, or until
+some other locus replaces it.
 If nil, don't highlight the locus in the source buffer.
 If `fringe-arrow', indicate the locus by the fringe arrow."
   :type '(choice (number :tag "Highlight for specified time")
@@ -4726,16 +4728,9 @@
 Each action has the form (FUNCTION . ARGS)."
   (interactive
    (list nil nil nil current-prefix-arg))
-  (let ((function (get mail-user-agent 'composefunc))
-	result-buffer)
-    (if switch-function
-	(save-window-excursion
-	  (prog1
-	      (funcall function to subject other-headers continue
-		       nil yank-action send-actions)
-	    (funcall switch-function (current-buffer))))
-      (funcall function to subject other-headers continue
-	       nil yank-action send-actions))))
+  (let ((function (get mail-user-agent 'composefunc)))
+    (funcall function to subject other-headers continue
+	     switch-function yank-action send-actions)))
 
 (defun compose-mail-other-window (&optional to subject other-headers continue
 					    yank-action send-actions)