Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-20 03:47:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(message-y-or-n-p, message-talkative-question, message-flatten-list,

Browse source 
message-flatten-list-1): Move utility functions up so macro is defined
before first invocation.
This commit is contained in:
Erik Naggum 1996-08-14 02:09:54 +00:00
parent b974df0a9f
commit 65148c7453
1 changed files with 26 additions and 29 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

55
lisp/message.el
View file

@ -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)