emacs/lisp/vms-patch.el

9 ;; This file is part of GNU Emacs.
22 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
34 ;;; VMS file names are upper case, but buffer names are more
37 (defun create-file-buffer (filename)
39 FILENAME (sans directory) is used unchanged if that name is free;
40 otherwise a string <2> or <3> or ... is appended to get an unused name."
41   (generate-new-buffer (downcase (file-name-nondirectory filename))))
43 ;;; Given a string FN, return a similar name which is a legal VMS filename.
44 ;;; This is used to avoid invalid auto save file names.
45 (defun make-legal-file-name (fn)
61 (defun make-auto-save-file-name ()
62   "Return file name to use for auto-saves of current buffer.
63 This function does not consider `auto-save-visited-file-name';
65 This is a separate function so that your `.emacs' file or the site's
67 See also `auto-save-file-name-p'."
68   (if buffer-file-name
69       (concat (file-name-directory buffer-file-name)
71 	      (file-name-nondirectory buffer-file-name)
73     (expand-file-name (concat "_$_" (make-legal-file-name (buffer-name)) "$"))))
75 (defun auto-save-file-name-p (filename)
76   "Return t if FILENAME can be yielded by `make-auto-save-file-name'.
78 This is a separate function so that your `.emacs' file or the site's
89   "When resuming suspended Emacs, check for file to be found.
90 If the logical name `EMACS_FILE_NAME' is defined, `find-file' that file."
91   (let ((file (vms-system-info "LOGICAL" "EMACS_FILE_NAME"))
95 	(if file
96 	    (progn (find-file file)
98       (cd (file-name-directory file))
104   "Don't allow suspending if logical name `DONT_SUSPEND_EMACS' is defined."
157 (defun vms-read-directory (dirname switches buffer)
179 		  " sys$login:delete-me.txt/name=\"GNUprintbuffer\" "
187   "Set up file assuming use by VMS Mail utility.
210 either \"-\" or \"..\", strip one level of directory hierarchy."
212   (when (and minibuffer-completing-file-name
252   (when (and minibuffer-completing-file-name