no such var: user-emacs-directory

no such var: user-emacs-directory

[Thien-Thi Nguyen]

`scheme-start-file' in cmuscheme.el now references `user-emacs-directory'
but that variable is never defined anywhere.  the NEWS blurb mentions it,
although the docstring says "~/.emacs.d".

if the fix is to define `user-emacs-directory', probably many places that
hardcode "~/.emacs.d" could benefit from using the new variable.  but
that's more work than simply hardcoding it in cmuscheme.el as well (and
updating NEWS), so i propose to do the latter unless there are objections.

thi

Re: no such var: user-emacs-directory

[Stuart D. Herring]

> `scheme-start-file' in cmuscheme.el now references `user-emacs-directory'
> but that variable is never defined anywhere.  the NEWS blurb mentions it,
> although the docstring says "~/.emacs.d".
>
> if the fix is to define `user-emacs-directory', probably many places that
> hardcode "~/.emacs.d" could benefit from using the new variable.  but
> that's more work than simply hardcoding it in cmuscheme.el as well (and
> updating NEWS), so i propose to do the latter unless there are objections.

I actually have a variable in my .emacs for this:
`emacs-hidden-directory-base' (usually set to "~/.emacs.d/").  I then put
backups in "backup/" under that, and auto-save-files as ".saves-*" under
it.  My reason is to support that file structure even on systems without a
useful home directory, but it might be generally useful.  I'd be in favor
of defining that variable; using it everywhere instead of ".emacs.d" would
be trivial.  If this sounds good, I can make a patch (either now, or after
22.1).

Davis Herring

-- 
This product is sold by volume, not by mass.  If it appears too dense or
too sparse, it is because mass-energy conversion has occurred during
shipping.

Re: no such var: user-emacs-directory

[Thien-Thi Nguyen]

"Stuart D. Herring" <herring@lanl.gov> writes:

> If this sounds good, I can make a patch (either now, or after
> 22.1).

sounds good to me.  i'm indifferent wrt the timing (but not to
the work that needs to be done that i don't want to do :-).

you can always post a patch and see how it fares.

thi

Re: no such var: user-emacs-directory

[Emilio C. Lopes]

Thien-Thi Nguyen <ttn@gnu.org> writes:

> `scheme-start-file' in cmuscheme.el now references `user-emacs-directory'
> but that variable is never defined anywhere.  the NEWS blurb mentions it,
> although the docstring says "~/.emacs.d".

I submitted these changes, so it was my fault.  Could someone please
apply the following patch?

Thanks and sorry for any inconvenience.

2005-08-08  Emilio C. Lopes  <eclig@gmx.net>

	* cmuscheme.el (scheme-start-file): replaced reference to
	`user-emacs-directory' by "~/.emacs.d/".


*** orig/etc/NEWS
--- mod/etc/NEWS
***************
*** 1757,1763 ****
  evaluate a Scheme expression but no Scheme subprocess is running.
  
  *** If a file `.emacs_NAME' (where NAME is the name of the Scheme interpreter)
! exists in the user's home directory or in `user-emacs-directory', its
  contents are sent to the Scheme subprocess upon startup.
  
  *** There are new commands to instruct the Scheme interpreter to trace
--- 1757,1763 ----
  evaluate a Scheme expression but no Scheme subprocess is running.
  
  *** If a file `.emacs_NAME' (where NAME is the name of the Scheme interpreter)
! exists in the user's home directory or in ~/.emacs.d, its
  contents are sent to the Scheme subprocess upon startup.
  
  *** There are new commands to instruct the Scheme interpreter to trace


*** orig/lisp/cmuscheme.el
--- mod/lisp/cmuscheme.el
***************
*** 272,278 ****
           (start-file (concat "~/" name)))
      (if (file-exists-p start-file)
          start-file
!       (let ((start-file (concat user-emacs-directory name)))
          (and (file-exists-p start-file) start-file)))))
  
  (defun scheme-send-region (start end)
--- 272,278 ----
           (start-file (concat "~/" name)))
      (if (file-exists-p start-file)
          start-file
!       (let ((start-file (concat "~/.emacs.d/" name)))
          (and (file-exists-p start-file) start-file)))))
  
  (defun scheme-send-region (start end)