From 55badf85bbc018b5f19dacf0d78419e2384f3cfc Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 19 Sep 1992 21:46:00 +0000 Subject: [PATCH] entered into RCS --- lisp/ange-ftp.el | 17 +++++----- lisp/vms-patch.el | 79 +++++++++++++++++++++++++++++++++++++++++++++-- 2 files changed, 85 insertions(+), 11 deletions(-) diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 34e24e8ceda..ba0b2a40016 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -1,5 +1,5 @@ ;; -*-Emacs-Lisp-*- -;;; This needs to be changed to use comint as the mode for the FTP buffer. +;;; ??? Waiting for papers from several people. ;; Description: transparent FTP support for GNU Emacs ;;; Copyright (C) 1989, 1990, 1991, 1992 Free Software Foundation, Inc. @@ -60,12 +60,13 @@ ;;; Passwords for user "anonymous": ;;; -;;; Passwords for the user "anonymous" (or "ftp") are handled specially. The -;;; variable `ange-ftp-generate-anonymous-password' controls what happens: if -;;; the value of this variable is a string, then this is used as the password; -;;; if non-nil, then a password is created from the name of the user and the -;;; hostname of the machine on which GNU Emacs is running; if nil (the -;;; default) then the user is prompted for a password as normal. +;;; Passwords for the user "anonymous" (or "ftp") are handled +;;; specially. The variable `ange-ftp-generate-anonymous-password' +;;; controls what happens: if the value of this variable is a string, +;;; then this is used as the password; if non-nil (the default), then +;;; a password is created from the name of the user and the hostname +;;; of the machine on which GNU Emacs is running; if nil then the user +;;; is prompted for a password as normal. ;;; "Dumb" UNIX hosts: ;;; @@ -693,7 +694,7 @@ If non-nil but not a string, the user is prompted for the name.") (defvar ange-ftp-default-account nil "*Account password to use when the user is the same as ange-ftp-default-user.") -(defvar ange-ftp-generate-anonymous-password nil +(defvar ange-ftp-generate-anonymous-password t "*If t, use a password of user@host when logging in as the anonymous user. If a string then use that as the password. If nil then prompt the user for a password.") diff --git a/lisp/vms-patch.el b/lisp/vms-patch.el index 36e5e3caa6f..7f88e23b7fe 100644 --- a/lisp/vms-patch.el +++ b/lisp/vms-patch.el @@ -1,6 +1,6 @@ ;;; vms-patch.el --- override parts of files.el for VMS. -;; Copyright (C) 1986 Free Software Foundation, Inc. +;; Copyright (C) 1986, 1992 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: vms @@ -71,11 +71,24 @@ FILENAME should lack slashes. This is a separate function so your .emacs file or site-init.el can redefine it." (string-match "^_\\$.*\\$" filename)) +;;; +;;; This goes along with kepteditor.com which defines these logicals +;;; If EMACS_COMMAND_ARGS is defined, it supersedes EMACS_FILE_NAME, +;;; which is probably set up incorrectly anyway. +;;; The function command-line-again is a kludge, but it does the job. +;;; (defun vms-suspend-resume-hook () "When resuming suspended Emacs, check for file to be found. If the logical name `EMACS_FILE_NAME' is defined, `find-file' that file." - (let ((file (vms-system-info "LOGICAL" "EMACS_FILE_NAME"))) - (if file (find-file file)))) + (let ((file (vms-system-info "LOGICAL" "EMACS_FILE_NAME")) + (args (vms-system-info "LOGICAL" "EMACS_COMMAND_ARGS")) + (line (vms-system-info "LOGICAL" "EMACS_FILE_LINE"))) + (if (not args) + (if file + (progn (find-file file) + (if line (goto-line (string-to-int line))))) + (cd (file-name-directory file)) + (vms-command-line-again)))) (setq suspend-resume-hook 'vms-suspend-resume-hook) @@ -87,6 +100,52 @@ If the logical name `EMACS_FILE_NAME' is defined, `find-file' that file." (setq suspend-hook 'vms-suspend-hook) +;;; +;;; A kludge that allows reprocessing of the command line. This is mostly +;;; to allow a spawned VMS mail process to do something reasonable when +;;; used in conjunction with the modifications to sysdep.c that allow +;;; Emacs to attach to a "foster" parent. +;;; +(defun vms-command-line-again () + "Reprocess command line arguments. VMS specific. +Command line arguments are initialized from the logical EMACS_COMMAND_ARGS +which is defined by kepteditor.com. On VMS this allows attaching to a +spawned Emacs and doing things like \"emacs -l myfile.el -f doit\"" + (let* ((args (downcase (vms-system-info "LOGICAL" "EMACS_COMMAND_ARGS"))) + (command-line-args (list "emacs")) + (beg 0) + (end 0) + (len (length args)) + this-char) + (if args + (progn +;;; replace non-printable stuff with spaces + (while (< beg (length args)) + (if (or (> 33 (setq this-char (aref args beg))) + (< 127 this-char)) + (aset args beg 32)) + (setq beg (1+ beg))) + (setq beg (1- (length args))) + (while (= 32 (aref args beg)) (setq beg (1- beg))) + (setq args (substring args 0 (1+ beg))) + (setq beg 0) +;;; now start parsing args + (while (< beg (length args)) + (while (and (< beg (length args)) + (or (> 33 (setq this-char (aref args beg))) + (< 127 this-char)) + (setq beg (1+ beg)))) + (setq end (1+ beg)) + (while (and (< end (length args)) + (< 32 (setq this-char (aref args end))) + (> 127 this-char)) + (setq end (1+ end))) + (setq command-line-args (append + command-line-args + (list (substring args beg end)))) + (setq beg (1+ end))) + (command-line))))) + (defun vms-read-directory (dirname switches buffer) (save-excursion (set-buffer buffer) @@ -113,4 +172,18 @@ If the logical name `EMACS_FILE_NAME' is defined, `find-file' that file." (mapconcat 'identity switches " ")) nil nil nil))) +;;; +;;; Fuctions for using Emacs as a VMS Mail editor +;;; +(autoload 'vms-pmail-setup "vms-pmail" + "Set up file assuming use by VMS Mail utility. +The buffer is put into text-mode, auto-save is turned off and the +following bindings are established. + +\\[vms-pmail-save-and-exit] vms-pmail-save-and-exit +\\[vms-pmail-abort] vms-pmail-abort + +All other Emacs commands are still available." + t) + ;;; vms-patch.el ends here