Function: ex-print

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

Signature

(ex-print &optional LINE-NUMBERS UNAMBIGUOUSLY)

Source Code

;; Defined in /usr/src/emacs/lisp/emulation/viper-ex.el.gz
(defun ex-print (&optional line-numbers unambiguously)
  (viper-default-ex-addresses)
  (let ((end (car ex-addresses))
	(beg (car (cdr ex-addresses))))
    (if (> beg end) (error viper-FirstAddrExceedsSecond))
    (save-excursion
      (viper-enlarge-region beg end)
      (if (or ex-g-flag ex-g-variant)
	  ;; When executing a global command, collect output of each
	  ;; print in viper-ex-print-buf.
	  (progn
	    (append-to-buffer viper-ex-print-buf (point) (mark t))
	    ;; Is this the last mark for the global command?
	    (unless (cdr ex-g-marks)
	      (with-current-buffer viper-ex-print-buf
		(ex-print-display-lines (buffer-string) (when line-numbers (line-number-at-pos (mark))) unambiguously)
		(erase-buffer))))
	(ex-print-display-lines (buffer-substring (point) (mark t)) (when line-numbers (line-number-at-pos (mark))) unambiguously)))))