Lines Matching +defs:file +defs:type
8 ;; This file is part of GNU Emacs.
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
39 (defvar ex-unix-type-shell)
40 (defvar ex-unix-type-shell-options)
49 (let ((load-path (cons (expand-file-name ".") load-path)))
150 (cond ((eq (viper-device-type) 'pm)
252 (defun viper-check-version (op major minor &optional type-of-emacs)
254 (and (cond ((eq type-of-emacs 'xemacs) viper-xemacs-p)
255 ((eq type-of-emacs 'emacs) viper-emacs-p)
401 ;;; Support for :e, :r, :w file globbing
403 ;; Glob the file spec.
407 (cond (ex-unix-type-shell shell-file-name)
408 ((memq system-type '(vax-vms axp-vms)) "*dcl*") ; VAX VMS
412 (cond (ex-unix-type-shell-options)
447 ;; Interpret the stuff in the buffer as a list of file names
448 ;; return a list of file names listed in the buffer beginning at point
505 (or (file-name-directory (car tmp))
508 ;; the regexp part: globs the file names
511 (file-name-nondirectory (car tmp)))
652 ;;; Saving settings in custom file
657 ;; Arguments: var message custom-file &optional erase-message
658 (defun viper-save-setting (var message custom-file &optional erase-msg)
662 (buf (find-file-noselect (substitute-in-file-name custom-file)))
687 (defun viper-save-string-in-file (string custom-file &optional pattern)
688 (let ((buf (find-file-noselect (substitute-in-file-name custom-file))))
701 ;; define remote file test
702 (defun viper-file-remote-p (file-name)
703 (file-remote-p file-name))
706 ;; This is a simple-minded check for whether a file is under version control.
707 ;; If file,v exists but file doesn't, this file is considered to be not checked
709 ;; able to read such a file anyway).
710 ;; FILE is a string representing file name
711 ;;(defun viper-file-under-version-control (file)
712 ;; (let* ((filedir (file-name-directory file))
713 ;; (file-nondir (file-name-nondirectory file))
714 ;; (trial (concat file-nondir ",v"))
717 ;; (and (stringp file)
718 ;; (file-exists-p file)
721 ;; (file-exists-p full-trial)
722 ;; ;; in FAT FS, `file,v' and `file' may turn out to be the same!
724 ;; (not (equal (file-attributes file)
725 ;; (file-attributes full-trial))))
727 ;; (file-exists-p full-rcs-trial)))
731 (defsubst viper-file-checked-in-p (file)
734 (not (memq (vc-backend file) '(nil CVS)))
737 (not (memq (vc-state file) '(edited needs-merge)))
738 (not (stringp (vc-state file))))
740 (not (vc-locking-user file)))
743 ;; checkout if visited file is checked in
745 (let ((file (expand-file-name (buffer-file-name buf)))
747 (if (and (viper-file-checked-in-p file)
752 (viper-abbreviate-file-name file))))
890 (defun viper-abbreviate-file-name (file)
893 (abbreviate-file-name file t)
895 (abbreviate-file-name file)
953 (defun viper-valid-register (reg &optional type)
954 (or type (setq type '(letter Letter digit)))
955 (or (if (memq 'letter type)
957 (if (memq 'digit type)
959 (if (memq 'Letter type)
1041 (error "viper-event-key: Wrong type argument, eventp, %S" event))
1078 (t (event-basic-type event)))
1271 the `Local variables' section of a file."
1358 "*Syntax type characterizing Viper's alphanumeric symbols.
1378 :type '(radio (const strict-vi) (const reformed-vi)