Article View: gnu.emacs.bug
Article #1679Fix for Emacs 18.54 on VMS
From: Mike Iglesias
Date: Wed, 10 May 1989 22:01
Date: Wed, 10 May 1989 22:01
37 lines
1886 bytes
1886 bytes
I found the cause of the problem with Emacs v18.54 on VMS that I
reported to gnu.emacs a few days ago. startup.el was changed to do a
getenv("PWD") between v18.52 and 18.54 (a fix for a symbolic link
problem) . On VMS this will return the definition of the logical name
PWD or the contents of the DCL symbol PWD. I have a symbol PWD that
is defined as SHOW DEFAULT, which is why the buffer's default
directory was getting changed to SHOW DEFAULT. It doesn't make sense
to do the added code in startup.el on VMS since getenv("PWD") can
return unpredictable results, so I changed startup.el as shown below.
Mike Iglesias
University of California, Irvine
*** startup.el Wed May 10 10:51:03 1989
--- startup.el_orig Wed May 10 10:51:08 1989
***************
*** 80,88
(message "Back to top level.")
(setq command-line-processed t)
;; In presence of symlinks, switch to cleaner form of default directory.
! (if (not (eq system-type 'vax-vms))
! (if (getenv "PWD")
! (setq default-directory (file-name-as-directory (getenv "PWD")))))
(unwind-protect
(command-line)
(and term-setup-hook
--- 80,87 -----
(message "Back to top level.")
(setq command-line-processed t)
;; In presence of symlinks, switch to cleaner form of default directory.
! (if (getenv "PWD")
! (setq default-directory (file-name-as-directory (getenv "PWD"))))
(unwind-protect
(command-line)
(and term-setup-hook
Technical Details
Message-ID:
<1899@orion.cf.uci.edu>Path:
arc1-ca.pugleaf.net!utzoo!utgpu!watmath!uunet!bu-cs!bloom-beacon!usc!orion.cf.uci.edu!iglesiasShow Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!utzoo!utgpu!watmath!uunet!bu-cs!bloom-beacon!usc!orion.cf.uci.edu!iglesias From: iglesias@orion.cf.uci.edu (Mike Iglesias) Newsgroups: gnu.emacs.bug Subject: Fix for Emacs 18.54 on VMS Message-ID: <1899@orion.cf.uci.edu> Date: 10 May 89 22:01:24 GMT Reply-To: iglesias@orion.cf.uci.edu (Mike Iglesias) Organization: University of California, Irvine Lines: 37