Function: ex-map

ex-map is a byte-compiled function defined in vip.el.gz.

Signature

(ex-map)

Documentation

ex map

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/vip.el.gz
(defun ex-map ()
  "ex map"
  (let (char string)
    (with-current-buffer " *ex-working-space*"
      (skip-chars-forward " \t")
      (setq char (char-to-string (following-char)))
      (forward-char 1)
      (skip-chars-forward " \t")
      (if (looking-at "[\n|]") (error "Missing rhs"))
      (set-mark (point))
      (with-no-warnings
	(end-of-buffer))
      (backward-char 1)
      (setq string (buffer-substring (mark) (point))))
    (if (not (lookup-key ex-map char))
	(define-key ex-map char
	  (or (lookup-key vip-mode-map char) 'vip-nil)))
    (define-key vip-mode-map char
      (lambda (count)
	(interactive "p")
	(execute-kbd-macro string count)))))