From ad377916ae5dd86fca28b3a153d855044a7057bf Mon Sep 17 00:00:00 2001 From: "Tom Breton (Tehom)" Date: Fri, 12 Nov 2010 16:40:21 -0500 Subject: [PATCH] Moved messages to directly before/after while loop --- elinstall.el | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/elinstall.el b/elinstall.el index 4dfeca0..a03916b 100644 --- a/elinstall.el +++ b/elinstall.el @@ -220,13 +220,13 @@ which lists the file name and which functions are in it, etc." full-path load-path-element)))) - (message "Finding autoloads for %s..." short-name) (with-current-buffer buf (unwind-protect (save-excursion (save-restriction (widen) (goto-char (point-min)) + (message "Finding autoloads for %s..." short-name) (while (not (eobp)) (skip-chars-forward " \t\n\f") (cond @@ -263,10 +263,8 @@ which lists the file name and which functions are in it, etc." (forward-line 1)) (t (forward-sexp 1) - (forward-line 1))))) - - - (message "Finding autoloads for %s...done" short-name) + (forward-line 1)))) + (message "Finding autoloads for %s...done" short-name)) ;;Return this action. The temp buffer's contents is ;;our final string. @@ -278,7 +276,7 @@ which lists the file name and which functions are in it, etc." ,full-path ,(with-current-buffer outbuf (buffer-string)))) - ;;The unwind-protected part + ;;This in unwind-protected (when (buffer-live-p outbuf) (kill-buffer outbuf)))))) -- 2.11.4.GIT