From: Erik Naggum <erik@naggum.no>
Date: Wed, 14 Aug 1996 02:09:54 +0000 (+0000)
Subject: (message-y-or-n-p, message-talkative-question, message-flatten-list,
X-Git-Tag: emacs-20.1~4080
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=65148c74530452d3498b9b2b603904bdae2deac8;p=emacs.git

(message-y-or-n-p, message-talkative-question, message-flatten-list,
message-flatten-list-1): Move utility functions up so macro is defined
before first invocation.
---

diff --git a/lisp/message.el b/lisp/message.el
index 1986454bb7e..33920059a82 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -679,6 +679,32 @@ Return the number of headers removed."
 	     (1+ max)))))
       (message-sort-headers-1))))
 
+(defmacro message-y-or-n-p (question show &rest text)
+  "Ask QUESTION, displaying the rest of the arguments in a temporary buffer."
+  `(message-talkative-question 'y-or-n-p ,question ,show ,@text))
+
+(defun message-talkative-question (ask question show &rest text)
+  "Call FUNCTION with argument QUESTION, displaying the rest of the arguments in a temporary buffer if SHOW.  
+The following arguments may contain lists of values."
+  (if (and show
+	   (setq text (message-flatten-list text)))
+      (save-window-excursion
+	(save-excursion
+	  (with-output-to-temp-buffer " *MESSAGE information message*"
+	    (set-buffer " *MESSAGE information message*")
+	    (mapcar 'princ text)
+	    (goto-char (point-min))))
+	(funcall ask question))
+    (funcall ask question)))
+
+(defun message-flatten-list (&rest list)
+  (message-flatten-list-1 list))
+
+(defun message-flatten-list-1 (list)
+  (cond ((consp list) 
+	 (apply 'nconc (mapcar 'message-flatten-list-1 list)))
+	(list
+	 (list list))))
 
 
 ;;;
@@ -2964,35 +2990,6 @@ Do a `tab-to-tab-stop' if not in those headers."
 	  (goto-char (point-min))
 	  (pop-to-buffer cur)))))))
 
-;;; Help stuff.
-
-(defmacro message-y-or-n-p (question show &rest text)
-  "Ask QUESTION, displaying the rest of the arguments in a temporary buffer."
-  `(message-talkative-question 'y-or-n-p ,question ,show ,@text))
-
-(defun message-talkative-question (ask question show &rest text)
-  "Call FUNCTION with argument QUESTION, displaying the rest of the arguments in a temporary buffer if SHOW.  
-The following arguments may contain lists of values."
-  (if (and show
-	   (setq text (message-flatten-list text)))
-      (save-window-excursion
-	(save-excursion
-	  (with-output-to-temp-buffer " *MESSAGE information message*"
-	    (set-buffer " *MESSAGE information message*")
-	    (mapcar 'princ text)
-	    (goto-char (point-min))))
-	(funcall ask question))
-    (funcall ask question)))
-
-(defun message-flatten-list (&rest list)
-  (message-flatten-list-1 list))
-
-(defun message-flatten-list-1 (list)
-  (cond ((consp list) 
-	 (apply 'append (mapcar 'message-flatten-list-1 list)))
-	(list
-	 (list list))))
-
 (run-hooks 'message-load-hook)
 
 (provide 'message)