From 676b1a74801892b54313ee06b0dc66d1b20bdfb7 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Wed, 28 Mar 2007 18:36:01 +0000 Subject: [PATCH] (next-error-highlight): Doc fix. --- lisp/simple.el | 19 +++++++------------ 1 file changed, 7 insertions(+), 12 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 6871993d2b7..5dbc6d1a10b 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -130,8 +130,10 @@ If no other buffer exists, the buffer `*scratch*' is returned." (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 @@ SEND-ACTIONS is a list of actions to call when the message is sent. 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) -- 2.11.4.GIT