1 ;;; echo area related function. this stuff is in xdisp.c in emacs
5 (defun ensure-echo-area-buffers ()
6 "Make sure echo area buffers in `echo_buffers' are live.
7 If they aren't, make new ones."
8 (unless (and (bufferp (frame-echo-area-current (selected-frame)))
9 (buffer-live-p (frame-echo-area-current (selected-frame))))
10 (let ((buf (get-buffer-create " *Echo Area 0*")))
11 (setf (frame-echo-area-current (selected-frame)) buf
12 (buffer-local 'truncate-lines buf
) nil
)))
13 ;; bleh, duplicate code
14 (unless (and (bufferp (frame-echo-area-pren (selected-frame)))
15 (buffer-live-p (frame-echo-area-prev (selected-frame))))
16 (let ((buf (get-buffer-create " *Echo Area 1*")))
17 (setf (frame-echo-area-prev (selected-frame)) buf
18 (buffer-local 'truncate-lines buf
) nil
))))