Function: ex-tag

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

Signature

(ex-tag)

Documentation

ex tag

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/vip.el.gz
(defun ex-tag ()
  "ex tag"
  (let (tag)
    (with-current-buffer " *ex-working-space*"
      (skip-chars-forward " \t")
      (set-mark (point))
      (skip-chars-forward "^ |\t\n")
      (setq tag (buffer-substring (mark) (point))))
    (if (not (string= tag "")) (setq ex-tag tag))
    (vip-change-mode-to-emacs)
    (condition-case conditions
	(progn
          (with-suppressed-warnings ((obsolete find-tag find-tag-other-window))
	    (if (string= tag "")
                (find-tag ex-tag t)
	      (find-tag-other-window ex-tag)))
	  (vip-change-mode-to-vi))
      (error
       (vip-change-mode-to-vi)
       (vip-message-conditions conditions)))))