M-x run-scheme failed to get start-file

[Masayuki Ataka]

Please write in English if possible, because the Emacs maintainers
usually do not have translators to read other languages for them.

Your bug report will be posted to the address@hidden mailing list.

Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:

1. I opened scheme file.
2. I typed `M-x run-scheme'
3. Error

Here's a *backtrack*.
A ChangeLog and a patch are added below.
I hope my patch help you.

Debugger entered--Lisp error: (void-variable progname)
  (concat "~/.emacs_" progname)
  (let ((progname ...) (start-file ...) (alt-start-file ...)) (if 
(file-exists-p start-file) start-file (and ... alt-start-file)))
  scheme-start-file("gosh")
  run-scheme("gosh -i")
  call-interactively(run-scheme)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)

--
Masayuki Ataka

2006-12-07  Masayuki Ataka  <address@hidden>

        * cmuscheme.el (scheme-start-file): Use `let*', not `let'.

*** cmuscheme.el        06 12 2006 19:28:23 +0900       1.44
--- cmuscheme.el        08 12 2006 05:49:02 +0900       
***************
*** 269,277 ****
    "Return the name of the start file corresponding to PROG.
  Search in the directories \"~\" and \"~/.emacs.d\", in this
  order.  Return nil if no start file found."
!   (let ((progname (file-name-nondirectory prog))
!       (start-file (concat "~/.emacs_" progname))
!       (alt-start-file (concat "~/.emacs.d/init_" progname ".scm")))
      (if (file-exists-p start-file)
          start-file
        (and (file-exists-p alt-start-file) alt-start-file))))
--- 269,277 ----
    "Return the name of the start file corresponding to PROG.
  Search in the directories \"~\" and \"~/.emacs.d\", in this
  order.  Return nil if no start file found."
!   (let* ((progname (file-name-nondirectory prog))
!        (start-file (concat "~/.emacs_" progname))
!        (alt-start-file (concat "~/.emacs.d/init_" progname ".scm")))
      (if (file-exists-p start-file)
          start-file
        (and (file-exists-p alt-start-file) alt-start-file))))

In GNU Emacs 22.0.91.4 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2006-12-06 on zack.beers.scphys.kyoto-u.ac.jp
X server distributor `The X.Org Foundation', version 11.0.60700000
configured using `configure '--without-xim''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: ja_JP.UTF-8
  locale-coding-system: utf-8
  default-enable-multibyte-characters: t

Major mode: Emacs-Lisp

Minor modes in effect:
  jabber-activity-mode: t
  iswitchb-mode: t
  auto-image-file-mode: t
  show-paren-mode: t
  tooltip-mode: t
  tool-bar-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  auto-compression-mode: t
  column-number-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
C-p C-p C-p C-p C-p C-x o C-f C-f C-f C-f C-f C-f C-f 
C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f 
C-f C-f C-f C-f C-f C-f C-b C-b C-b C-b C-d C-n C-d 
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n 
C-n C-n C-n C-n C-n C-n C-x o C-x C-g C-h i SPC u C-p 
C-p <return> SPC SPC C-x b <return> C-x b c u <backspace> 
m u <return> M-x r e p SPC SPC o r SPC e m SPC b u 
SPC SPC <return>

Recent messages:
Quit
Mark saved where search started [2 times]
Quit [3 times]
Making completion list...done
Making completion list...done
Can't find completion for "diff-fl"
Making completion list...done
"-c"
Making completion list... [2 times]
Loading emacsbug...done