Function: ex-adjust-window

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

Signature

(ex-adjust-window)

Documentation

Show and adjust the output of ex lines in a window.

Source Code

;; Defined in /usr/src/emacs/lisp/emulation/viper-ex.el.gz
(defun ex-adjust-window ()
  "Show and adjust the output of ex lines in a window."
  (viper-default-ex-addresses)
  (viper-get-ex-count)
  (let ((end (car ex-addresses)) (beg (cadr ex-addresses)))
    (when (> beg end) (error viper-FirstAddrExceedsSecond))
    (unless ex-count (setq ex-count ex-adjust-window-count))
    (let* ((emptyp (and (characterp beg)
                        (characterp end)))
           (pos (save-excursion
                  (goto-char (if emptyp ex-adjust-window-point end))
                  (forward-line ex-count)
                  (pos-bol))))
      (ex-print-display-lines (buffer-substring (if emptyp ex-adjust-window-point end) pos))
      (setq ex-adjust-window-count ex-count
            ex-adjust-window-point pos))))