src/echo-area.lisp

   1 ;;; echo area related function. this stuff is in xdisp.c in emacs
   2
   3 (in-package "LICE")
   4
   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))))