Function: ex-print-display-lines

ex-print-display-lines is a byte-compiled function defined in viper-ex.el.gz.

Signature

(ex-print-display-lines LINES)

Source Code

;; Defined in /usr/src/emacs/lisp/emulation/viper-ex.el.gz
(defun ex-print-display-lines (lines)
  (cond
   ;; String doesn't contain a newline.
   ((not (string-search "\n" lines))
    (message "%s" lines))
   ;; String contains only one newline at the end.  Strip it off.
   ((= (string-search "\n" lines) (1- (length lines)))
    (message "%s" (substring lines 0 -1)))
   ;; String spans more than one line.  Use a temporary buffer.
   (t
    (save-current-buffer
      (with-output-to-temp-buffer " *viper-info*"
	(princ lines))))))