Lines Matching +defs:other +defs:file
9 ;; This file is part of GNU Emacs.
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
160 (defvar vip-tags-file-name "TAGS")
164 (defvar vip-startup-file (convert-standard-filename "~/.vip")
165 "Filename used as startup file for vip.")
181 (define-key vip-mode-map "\C-n" 'vip-other-window)
243 (define-key vip-mode-map "S" 'vip-switch-to-buffer-other-window)
246 (define-key vip-mode-map "V" 'vip-find-file-other-window)
265 (define-key vip-mode-map "g" 'vip-info-on-file)
280 (define-key vip-mode-map "v" 'vip-find-file)
429 (find-file-noselect
430 (substitute-in-file-name vip-startup-file)))
1460 (defun vip-other-window (arg)
1461 "Switch to other window."
1463 (other-window arg)
1628 (delete-other-windows)
1741 (buffer-name (other-buffer (current-buffer))))))
1745 (defun vip-switch-to-buffer-other-window ()
1752 (buffer-name (other-buffer (current-buffer))))))
1753 (switch-to-buffer-other-window buffer)
1774 (defun vip-find-file ()
1775 "Visit file in the current window."
1777 (let (file)
1778 (setq file (read-file-name "visit file: "))
1779 (switch-to-buffer (find-file-noselect file))
1782 (defun vip-find-file-other-window ()
1783 "Visit file in another window."
1785 (let (file)
1786 (setq file (read-file-name "Visit file: "))
1787 (switch-to-buffer-other-window (find-file-noselect file))
1790 (defun vip-info-on-file ()
1791 "Give information of the file associated to the current buffer."
1794 (if (buffer-file-name) (buffer-file-name) "")
2097 (defvar ex-file nil)
2141 ((looking-at "f") (vip-check-sub "file"))
2537 (defun vip-get-ex-file ()
2538 "get a file name and set ex-variant, ex-append and ex-offset if found"
2539 (setq ex-file nil
2569 (setq ex-file (buffer-substring (point) (mark)))))
2577 ((string= ex-token "file") (vip-info-on-file))
2703 (vip-get-ex-file)
2704 (if (and (not ex-variant) (buffer-modified-p) buffer-file-name)
2708 (find-file-noselect (concat default-directory ex-file)))
2912 (variant nil) command file)
2930 (setq file (buffer-substring (point) (mark)))))
2934 (insert-file file)))))
3026 (find-tag-other-window ex-tag))
3035 (vip-get-ex-file)
3036 (if (string= ex-file "")
3038 (if (null buffer-file-name)
3039 (error "No file associated with this buffer"))
3040 (setq ex-file buffer-file-name))
3041 (setq ex-file (expand-file-name ex-file)))
3042 (if (and (not (string= ex-file (buffer-file-name)))
3043 (file-exists-p ex-file)
3045 (error "\"%s\" File exists - use w! to override" ex-file))
3050 (write-region (point) (mark) ex-file ex-append t)))
3051 (if (null buffer-file-name) (setq buffer-file-name ex-file))
3102 (if (file-exists-p vip-startup-file) (load vip-startup-file))